📄 regchk_2.asp

📁 一套现成的分类信息网站发布系统
💻 ASP
字号:
<!--#include file=conn1.asp-->
<!--#include file=err.asp-->
<!--#include file=ipt.asp-->
<!--#include file=md5.asp-->
<!--#include file=mail.asp-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-会员注册成功</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<%
dim username,password,name,idcard,Sex,dianhua,qq,dizhi,email
dim rs,sql
username=trim(request("username"))
password=request("password")
email=request("email")
name=trim(request("name"))
idcard=trim(request("idcard"))
Sex=trim(request("Sex"))
dianhua=trim(request("dianhua"))
qq=trim(request("qq"))
dizhi=trim(request("dizhi"))
chkcnmai(username)
chkcnmai(name)
if nothaveChinese(username)=false then
call errcnmai(3)
response.end
end if
if IsValidemail(email)=false then
call errcnmai(1)
response.end
end if
if not isnumeric(idcard) or len(idcard)<15 or len(idcard)>18 then
call errcnmai(6)
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("username")=username
rs("password")=md5(password)
rs("name")=name
rs("email")=email
rs("idcard")=idcard
rs("Sex")=Sex
rs("dianhua")=dianhua
rs("qq")=qq
rs("dizhi")=dizhi
rs("zcdata")=now()
rs("a")=z_a
rs("b")=z_b
rs("c")=z_c
rs("d")=z_d
rs("jf")=jf_1
rs("hb")=z_hb
rs.update
%>
<body>
<!--#include file=top.asp-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="768" height="245" align="center">
<tr>
<td>
<table width="489" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" align="center">
<tr>
<td width="16"><img src="images/obj_waku3_01.gif"></td>
<td width="456"><img src="images/ba_home.gif"></td>
<td width="17"><img src="images/obj_waku3_02.gif"></td>
</tr>
<tr>
<td width="16" background="images/obj_waku3_03.gif">　</td>
<td width="456" bgcolor="#EEEEEE">
<table width="454" border="0" cellspacing="0" cellpadding="0" height="120">
<tr>
<td height="19" bgcolor="#EEEEEE" width="454">
<p align="center" style="line-height: 200%; margin-top: 0; margin-bottom: 0">
<font size="3">恭喜<%=name%>！<b><font color="#FF0000">注册成功了！</font></b></font></td>
</tr>
<tr>
<td height="19" bgcolor="#EEEEEE" width="454">
<li>
<p align="center"><font size="3">&nbsp;</font><font size="2">我们同时将密码发送到了|<b><font color=""#ff0000""><%=email%></font></b>|，请保管好您的密码</font></p>
<table class="font_10_e_black" cellspacing="0" cellpadding="3" width="98%" align="center" border="0">
<form id="f1" name="thisForm" action="Loginchk.asp" method="POST">
<tr>
<td width="100%" align="center">登陆帐号：<input class="form_e_10_black" id="username" maxlength="20" size="16" name="username" value="<%=username%>">
</td>
</tr>
<tr>
<td align="center">登陆密码：<input class="form_e_10_black" id="password" maxlength="32" size="16" value="<%=password%>" name="password">
</td>
</tr>
<tr>
<td align="center">
<input onClick="javascript:return CheckForm();" type="image" src="images/mail_login_r5_c2.gif" border="0" name="I3">
</td>
</tr>
</form>
</table></td>
</tr>
</table></td>
<td width="17" background="images/obj_waku3_04.gif">　</td>
</tr>
<tr>
<td width="16"><img src="images/obj_waku3_05.gif"></td>
<td width="456"><img src="images/obj_waku3_06.gif"></td>
<td width="17"><img src="images/obj_waku3_07.gif"></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file=end.htm-->
<%
call mail()
else
 if trim(rs("email"))=email then
 call errcnmai(23)
 response.end
 end if
 if trim(rs("username"))=username then
 call errcnmai(22)
 response.end
 end if
 call errcnmai(24)
 response.end
end if
sub mail()
dim mailbody,Jmail
mailbody="欢迎您,"&username&"!<br>恭喜您成为<a target=_blank href="&web&">"&title&"</a>的尊敬会员！<br>您的登陆帐号："&username&"<br>您的登陆密码："&password&"<br><br>登陆地址为：<a target=_blank href="&web&">"&web&"</a><br>["&title&"]<br>"&tel&""
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
Jmail.Silent =true
JMail.ContentType = "text/html"
Jmail.Priority = 3
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform
Jmail.FromName =""&title&"管理员"
Jmail.Subject ="恭喜你注册成功，请查收登陆帐号！"
Jmail.AddRecipient ""&email&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
%>
⌨️ 快捷键说明

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