W3JMAIL4.3向高手求救！！！SOS

flers 2003-04-30 04:22:36

发出去，我的机子用了代理服务器上的网行么？
<%@ Language = VBScript %>
<%
smtpserver = "dns.ceprei.com"
smtpuser = "aaa"
smtppwd = "bbbb"
myemail =Request("t2")
'收信人姓名
myname = Request("t1")
tbody = Request("t3")
response.Write(myemail)
response.Write(myname)
if myname <> "" and myemail <> "" then
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jmail.FromName = "中国测试"
jmail.ReplyTo ="abc@163.net"
jmail.Subject = "取回密码"
'收件人的邮件及姓名
jmail.AddRecipient myemail,myname
jmail.Body ="这是您的密码:" & vbcrlf & vbcrlf & tbody
isgo = jmail.Send(smtpserver)
if isgo then
msg="提交成功！谢谢你的支持。"
else
msg = "发送失败！请检查您的邮件地址是否填写正确。"
end if
jmail.Close
set jmail = nothing
end if
%>
<html>
<head>
<title>Jmail发送邮件</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<form action=mtest.asp method="post">
<br/>
<%=msg%>
<br/>
收件人姓名： <br/>
<input name=T1 size=10>
<br/>
收件人电子邮件： <br/>
<input name=T2 size=30>
<br/>
<br/>
正文(密码)： <br/>
<TEXTAREA rows=4 cols=25 name=t3>
</TEXTAREA>
<br/><INPUT type="submit" value="确定">
</form>
</body>
</html>

...全文