?? adpass.asp
字號(hào):
<!-- #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 ="會(huì)員注冊(cè)成功通知"
JMail.SenderName = (name)
JMail.ReplyTo = (sendname)
JMail.AddRecipient( email )
mess = "------------------------------------------------" & vbcrlf
mess = mess & name & " 你好!" & vbcrlf
mess = mess & " 恭喜! 您已經(jīng)成功地注冊(cè)了您的資料!" & vbcrlf
mess = mess & " 您的用戶名是：" & username & vbcrlf
mess = mess & " 密碼是：" & password & vbcrlf
mess = mess & " " & homename&homepage & vbcrlf
mess = mess &"" & vbcrlf
mess = mess & " 程序制做：迅捷主機(jī)網(wǎng). 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>會(huì)員加入成功!<p>"
Response.Write "<a href=adcheckmember.asp>返回查看</a>"
Response.Write "</center></body></html>"
Conn.Close
Set Conn=Nothing
'====================================================
'迅捷會(huì)員注冊(cè)管理系統(tǒng) v2.0
'程序制做:迅捷主機(jī)網(wǎng).http://www.soonhost.com
'迅捷主機(jī)網(wǎng) ------ 首選域名、虛擬主機(jī)、企業(yè)郵局提供商
'網(wǎng)址：http://www.soonhost.com
'EMAIL：sell@china.com
'msn:soonhost@hotmail.com
'oicq: 123150745
'本站還提供大量腳本下載,負(fù)責(zé)安裝;腳本定制價(jià)格低廉.
'程序?yàn)槊赓M(fèi)程序，您可以使用本程序，但必須
'保留迅捷主機(jī)網(wǎng)(http://www.soonhost.com)的鏈接！
'================================================
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -