下面是我根据UltraDev Sky里的教程作的发确认信的页面源代码,可预览时提示
jmail.SMTPMail 错误 '8000ffff'
No recipients
/asp/TMP4omuk9e8x9.asp, 行29 ,我也是刚学的,不知错哪里了,请看看吧。我用pws,安了jmail.exe,是否可以在本机测试发确认信呢?
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsThisUser__struserid
rsThisUser__struserid = "xyz"
if(session("svuserid") <> "") then rsThisUser__struserid = session("svuserid")
%> <%
set rsThisUser = Server.CreateObject("ADODB.Recordset")
rsThisUser.ActiveConnection = "dsn=login;"
rsThisUser.Source = "SELECT * FROM member WHERE userid='" + Replace(rsThisUser__struserid, "'", "''") + "'"
rsThisUser.CursorType = 0
rsThisUser.CursorLocation = 2
rsThisUser.LockType = 3
rsThisUser.Open
rsThisUser_numRows = 0
%>
<%
dim strrecipient
strrecipient=rsThisUser.fields.item("email").value
%>
<%
set jmail=server.createobject("jmail.smtpmail")
jmail.serveraddress="public.xm.fj.cn"
jmail.sender="atown@21cn.com"
jmail.subject="this is demo for use of asp"
jmail.body="hi ,this is an email comfirmation from asp demo"
jmail.addheader "originating-ip", request.servervariables("remote_addr")
jmail.execute
%>
Untitled Documentthis is confirmation for your register
these are your informaton,please check. and
<%=(rsThisUser.Fields.Item("userid").value)%>
<%=(rsThisUser.Fields.Item("password").value)%>
<%=(rsThisUser.Fields.Item("email").value)%>