egchkok.asp 盐城分类信息网asp源码程序 - ASP源码程序

www.gusucode.com > 盐城分类信息网asp源码程序 > regchkok.asp
    <!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ipt.asp"-->

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>-会员注册成功</title>
<LINK href="images/at_news.css" type=text/css rel=stylesheet>
</head>
<%
dim password1,namecn,tu1
tu1=trim(request("tu"))
if request("per")="cnmai" then
username=trim(request("username"))
password=request("password")
email=trim(request("email"))
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&username&"'or email='"&email&"'"
rs.open sql,conn,1,3
if not rs.eof or not rs.bof then
 if trim(rs("username"))=username then
 response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的用户名已经注册过,请重新注册1');" & "history.back()" & "</script>"
 response.end
 end if
 if trim(rs("email"))=email then
 response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的E-mail已经注册过,请重新注册1');" & "history.back()" & "</script>"
 response.end
 end if
end if
if rs.eof or rs.bof then
rs.addnew
rs("username")=username
rs("password")=md5(password)
rs("name")=trim(request("name"))
rs("email")=email
rs("idcard")=trim(request("idcard"))
rs("dianhua")=trim(request("dianhua"))
rs("qq")=trim(request("qq"))
rs("dizhi")=trim(request("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
end if

else

username=trim(request("comusername"))
password=request("compassword")
password=Request.form("compassword")
password1=Request.form("compassword1")
'com=Request.form("com")
email=trim(request.form("comemail"))
set rs1=server.createobject("adodb.recordset")
sql1="select * from [com] where username='"&username&"'or email='"&email&"'"
rs1.open sql1,conn,1,3
if not rs1.eof or not rs1.bof then
 if trim(rs1("username"))=username then
 response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的用户名已经注册过,请重新注册2');" & "history.back()" & "</script>"
 response.end
 end if
 if trim(rs1("email"))=email then
 response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的E-mail已经注册过,请重新注册2');" & "history.back()" & "</script>"
 response.end
 end if
end if

if rs1.eof or rs1.bof then
rs1.addnew
rs1("username")=username
rs1("password")=md5(password)
rs1("class1")=request("class1")
rs1("class2")=request("class2")
rs1("diqu")=request("diqu")
rs1("city")=request("city")
rs1("com")=request("com")
rs1("comabout")=trim(request("comabout"))

'if request("dd")="1" then
'rs1("zk")=trim(request("zk"))
'end if

'rs1("zksm")=trim(request("zksm"))
'rs1("pay")=trim(request("pay"))
rs1("name")=trim(request("comname"))
rs1("qq")=trim(request("qq"))
rs1("email")=email
'rs1("url")=trim(request("url"))
rs1("idcard")=trim(request("comidcard"))
rs1("dianhua")=trim(request("comdianhua"))
rs1("fax")=trim(request("comfax"))
'rs1("che")=request("che")
rs1("dizhi")=trim(request("comdizhi"))
rs1("logo")=trim(request("tupian"))
rs1("zcdata")=now()
rs1("a")=z_a
rs1("b")=z_b
rs1("c")=z_c
rs1("d")=z_d
rs1("jf")=jf_1
rs1("hb")=z_hb
rs1.update
end if
end if

%>
<body>
<%call t()%>
<DIV class=h></DIV><div align="center">
<table width="717" id="table1" bgcolor="#FFFFFF" style="padding:1px; border-collapse:collapse" cellpadding="0">
<tr>
<td width="711" valign="top" class="td">
<div align="center">
<table width="100%" border="0" bordercolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">
<form method="POST" name="thisForm" action="login.asp">
<tr> 
<td class=td2 height="56" align="center" width="704"><div align="center" class="sortbiaoti2">注册会员成功</div></td>
</tr><tr> 
<td bgcolor="#FFECD9" background="" width="704">
<p align="center" style="line-height: 200%; margin-top: 0; margin-bottom: 0">
<font size="3">恭喜您,<b><%=username%></b>(<%if request("per")="cnmai" then response.write "个人会员"  else response.write "商家会员"%>)！<b><font color="#FF0000">注册成功了！请保管好您的密码</font></b></font>
<br>
<hr size="0" style="border: 1px dotted #CCCCCC"></td>
</tr>
<tr> 
<td height="28" width="704">
<p align="center">用户名称：<input type="text" maxlength="12" name="username" size="20" value="<%=username%>"><font color="#FF0000"> *</font></td>
</tr>
<tr> 
<td height="25" width="704">
<p align="center">用户密码：<input type="password" maxlength="40" name="password" size="20" value="<%=password%>" >
<font color="#FF0000">*</font></td>
</tr>
<tr> 
<td height="31" width="704">
<p align="center"><input type="hidden" name="login" value="cnmai"><%if request("per")="cnmai" then %><input type="submit" value="个人登陆" name="per"><%else%><input type="submit" value="商家登陆" name="com"><br>您的帐号需要我们在24小时内审核通过！<br>
<font color="#FF0000">不被通过的可能：<br>★您的基本资料不完整或不吻合<br>★店铺物品/信息数量小于等于5件/条<br>★您的信息资料有重大欺骗性质</font><%end if%></td>
</tr>
</form>
</table>
</div>　</td>
</tr>
</table>
</div>
<!--#include file="foot.asp"-->
</body>
</html>
<%
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&"]打造"&city&"最大的二手信息发布平台"
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
set rs=nothing
set rs1=nothing
%>