📄 saveuser.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="inc/char.asp" -->
<%
if stopreg="是" then
	response.write"<SCRIPT language=JavaScript>alert('系统暂时停止新用户注册!');this.location.href='index.asp';</SCRIPT>"
	response.end
end if	
%>
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<%
response.buffer=true
uname=trim(replace(rst("username"),""," "))
pwd=trim(replace(rst("password"),""," "))
pwd2=trim(replace(rst("password2"),""," "))
e_mail=trim(replace(rst("email"),""," "))
prov=trim(rst("TPL_prov"))
city=trim(rst("TPL_city"))

if pwd=pwd2 and pwd<>"" and uname<>"" and e_mail<>"" then
	sql2="select regusername from users where regusername='"&uname&"'"
	set rs=conn.execute(sql2)
	if not rs.eof then
	response.write"<SCRIPT language=JavaScript>alert('用户名已经存在,请选择另外用户名!');history.back(-1);</SCRIPT>"
	response.end
	else
	sql2="select regusername,regemail from users where regemail='"&e_mail&"'"
	set rs2=conn.execute(sql2)
	if not rs2.eof then
	response.write"<SCRIPT language=JavaScript>alert('EMAIL已经被使用过,请填写其它邮箱!');history.back(-1);</SCRIPT>"
	response.end
	else
	sql="insert into users(regadmin,regUsername,regPassword,regEmail,regState,regCity, regtime )values('N','"&uname&"','"&pwd&"','"&e_mail&"','"&prov&"','"&city&"','"&now&"')"
	conn.execute(sql)

'---------------确认邮件发送-----------------

if sendemail="是" then

'调用说明：
strHTML = "<table width=""80%"" border=""1"">" &chr(13) &chr(10) '这里需要加上两个"
strHTML = strHTML & " <tr>" &chr(13) &chr(10) 'chr(13)硬回车chr(10)软回车
strHTML = strHTML & "<td align=""left"" valign=""middle"">你在"&webname&"上注册的用户名是："&rst("username")&" &nbsp;密码是："&rst("password")&"</td>" &chr(13) &chr(10)
strHTML = strHTML & "</tr>" &chr(13) &chr(10)
strHTML = strHTML & " <tr>" &chr(13) &chr(10) 'chr(13)硬回车chr(10)软回车
strHTML = strHTML & "<td align=""center"" valign=""middle"">点击登陆&nbsp;<a href=http://"&neturl&" target=_blank>"&webname&"</a></td>" &chr(13) &chr(10)
strHTML = strHTML & "</tr>" &chr(13) &chr(10)
strHTML = strHTML & "</table>"

'smtpserver="mail.vqqq.com"
'sender="pm@vqqq.com"
subject=webname&"，特快专递为你送到注册确认信件！"
msg="<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"
mailto=rst("email")   '收信人email
'mailto="vqqq59r@163.com"
call SendMail(SMTPServer,sender,mailto,subject,msg)'调用函数
	
end if
'---------------------------------------------
	response.write"<SCRIPT language=JavaScript>alert('恭喜您!成为"&WebName&"的会员,请登录！');"
	response.write"this.location.href='login.asp';</SCRIPT>"
	end if
	end if
end if
%>
<%
if sendemail="是" then
%>

<script language=VBScript runat=server>
function SendMail(SMTPServer,sender,mailto,subject,msg)'这个是一个函数，在程序中可以直接调用。
dim JMail
on error resume next
'等待功能扩充
Set JMail = Server.CreateObject("JMail.SMTPMail") 
JMail.LazySend = true '这个属性是将邮件放入缓冲直至发出为止，的不到任何的错误信息
JMail.Charset = "gb2312" '设定邮件的字符集，默认为"US-ASCII" 一般中文用"gb2312" 
JMail.ContentType = "text/html" '这个邮件的头设置， 默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html"
JMail.ServerAddress =SMTPServer 'SERVER的地址。可以有很多的SERVER地址，后可跟端口号
JMail.Sender = sender'邮寄的地址
JMail.Subject = subject'邮件的标题。

JMail.AddRecipient mailto'加入一个收件者

JMail.Body = msg 'UBBCode(htmlencode(MSG))E-Mail的主体

JMail.Priority = 1'邮件的优先级，可以范围从1到5。越大的优先级约高，比如，5最高，1最低,一般设置为3


JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")'addheader加入一个头信息
'remote_addr发出请求的机器的IP地址 
JMail.Execute'执行邮件发送到SERVER
set jMail=nothing 
if err then '检测
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function
</script>
<% end if %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -