<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>

<%response.buffer=false
dim cmdTemp
dim RS
     dim username
     dim E_mail
     dim homepage
     dim leibie
     dim checkpwd
    
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT * FROM addnew where id =(select max(id) from addnew)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
RS.Open cmdTemp, , 2, 2
    
username =(Request.Form("userName"))
E_mail =(Request.Form("TxtEmail"))
homepage=(Request.Form("TxtHomepage"))
leibie =(Request.Form("leibie"))
checkpwd=Request.Form("checkpwd")
%>
<%
Set myMail = Server.CreateObject("CDONTS.NewMail")

myMail.From = E_mail
myMail.To = "zdygh2010@hotmail.com"
myMail.Subject = "贵站在世盟网站登录注册的信息资料"
myMail.Body = "网站名称:"&username&"主页:"&homepage&"邮件信箱:"&E_mail& "登录类别:"&leibie&"注册号码:"&R
myMail.Send

Set myMail=Nothing
%>

非常感谢你对本站的支持！

而且没有提示错误，运行时什么错误都没有。USERNAME，EMAIL这些变量都在其它文件中包含。"SELECT * FROM addnew where id =(select max(id) from addnew)"是显示新插入记录定位句。现在问题运行这程序根本就没有响应。检查时根本就没有发送邮件。