📄 adpass.asp
字号:
<!-- #Include File=Conn.asp -->
<!-- #Include File=setup.asp -->
<%
dim userid,sql
response.buffer=true
Response.Expires=0
if session("adpass")<>"passed" then
response.redirect "adlogin.asp"
end if
userid=Request.Querystring("id")
infosql = "Select * From tempinfo Where 用户名 = '"&userid&"'"
set rs = conn.Execute(infosql)
username=rs("用户名")
password=rs("密码")
company=rs("公司名称")
address=rs("公司地址")
tel=rs("电话")
fax=rs("传真")
code=rs("邮编")
email=rs("电子邮件")
addsql="insert into info (用户名,密码,公司名称,公司地址,电话,传真,邮编,电子邮件,日期) values ('"&username&"' , '"&password&"', '"&company&"', '"&address&"', '"&tel&"', '"&fax&"', '"&code&"','"&email&"', now )"
set rs=conn.execute(addsql)
sql="delete * from tempinfo where trim(Cstr(用户名))='"&userid&"'"
set rs=conn.execute (sql)
'-----------------------------------------------------
ON ERROR RESUME NEXT
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ServerAddress =""
JMail.Priority = 1
JMail.Sender = (jsendmail)
JMail.Subject ="会员注册成功通知"
JMail.SenderName = (name)
JMail.ReplyTo = (sendname)
JMail.AddRecipient( email )
mess = "------------------------------------------------" & vbcrlf
mess = mess & name & " 你好!" & vbcrlf
mess = mess & " 恭喜! 您已经成功地注册了您的资料!" & vbcrlf
mess = mess & " 您的用户名是：" & username & vbcrlf
mess = mess & " 密码是：" & password & vbcrlf
mess = mess & " " & homename&homepage & vbcrlf
mess = mess &"" & vbcrlf
mess = mess & " 程序制做：迅捷主机网. http://www.soonhost.com" & vbcrlf
mess = mess & vbcrlf
mess = mess & "------------------------------------------------"
JMail.Body = mess
JMail.Execute()
JMail.Close()
set jMail=nothing
'-----------------------------------------------------------
Response.Write "<html><body><center>会员加入成功!<p>"
Response.Write "<a href=adcheckmember.asp>返回查看</a>"
Response.Write "</center></body></html>"
Conn.Close
Set Conn=Nothing
'====================================================
'迅捷会员注册管理系统 v2.0
'程序制做:迅捷主机网.http://www.soonhost.com
'迅捷主机网 ------ 首选域名、虚拟主机、企业邮局提供商
'网址：http://www.soonhost.com
'EMAIL：sell@china.com
'msn:soonhost@hotmail.com
'oicq: 123150745
'本站还提供大量脚本下载,负责安装;脚本定制价格低廉.
'程序为免费程序，您可以使用本程序，但必须
'保留迅捷主机网(http://www.soonhost.com)的链接！
'================================================
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -