关于发邮件的问题,还没搞好。再请各位指教!(不够再加分)
<%set Conn= server.createobject("ADODB.Connection")
conn.open Application("conn_ConnectionString2")
idcardno=request.form("idcardno2")
'response.write idcardno
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from pinca where idcardno='"&idcardno&"'"
rs.open sql,conn,3,3
if trim(rs("pinno"))<>"" then
response.write "已经审批过了,<a href='pincasp.asp'>返回</a>"
else
%>
<html>
<head>
<title>审批结果</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%if request("radiobutton1")="0" then
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from pinca where idcardno='"&idcardno&"'"
rs.open sql,conn,3,3
application.lock
rs("infotrue")="0"
rs("isagree")="0"
rs("jbr")=request("jbr")
rs("sprq")=date()
rs.updatebatch
application.unlock
set rs=nothing
%>
<p>由于情况不属实,未审批!</p>
<%else
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from pinca where pinno='"&trim(request("pin"))&"'"
rs.open sql,conn,3,1
if rs.eof=false then
response.write "该PIN码已有人使用,不能使用同样的PIN。"
else
set rs=nothing
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from pinca where idcardno='"&idcardno&"'"
rs.open sql,conn,3,3
application.lock
rs("pinno")=trim(request("pinno"))
rs("infotrue")=request("radiobutton")
rs("isagree")=request("radiobutton1")
rs("jbr")=trim(request("jbr"))
rs("sprq")=date()
rs.updatebatch
application.unlock
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "ca_admin@china.com"
objNewMail.To = rs("e_mail")
objNewMail.Subject = "您在电子商务教学模拟系统中的注册资料"
objNewMail.body="您的PIN为:"&request("pinno")& "谢谢!!!"
objNewMail.Send
Set objNewMail = Nothing
%>
<p>情况属实,已审批。PIN码:<%=request("pinno")%></p>
<%set rs=nothing
end if
end if%>
<p><a href="pincasp.asp">返回</a></p>
</body>
</html>
<%end if%>
以上是一个审批的页面,可以进行自动发邮件的。不知道为什么,把那段发邮件的代码单独提取出来成为一个网页就可以发邮件。而在系统环境中这个页面就没法发邮件。请各位高手指点,告诉我错在哪里。谢谢!(在线等候:26947349)(不够再加分)