⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 reg_member.asp

📁 线上售货网管理模组
💻 ASP
字号:
🔍 
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If request("Request_Method")="POST" then
  guestip=Request.ServerVariables("REMOTE_ADDR")
  cname=request("cname")
  email=request("email")
  Set conn=Server.CreateObject("ADODB.Connection")
  param = "driver={Microsoft Access Driver (*.mdb)}"
  conn.Open param & ";dbq=" & Server.MapPath("cd.mdb")
  Set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from members where email='" & email & "'"
  rs.open sqlstr,conn,3,2
  If rs.Recordcount <> 0 then
    Response.write "<body bgcolor=ffffcc marginheight=0 marginwidth=0 leftmargin=0 topmargin=0><center>"
    Response.write "<table border=1 bordercolor=FFA000 cellspacing=3 cellpadding=1 width=226 height=158 bgcolor=FFFFCC>"
    Response.write "<tr><th width=100% bgcolor=FFF000>"
    Response.write "<font color=red>你输入的邮件地址重覆请：</font><br><br>"
    Response.write "<a href='javascript:history.back()'>回上页重新输入</a><br>"
    Response.write "</td></tr></table>"
    rs.close
    conn.close
    Response.end
  End If
  tel1=request("tel1")
  tel2=request("tel2")
  sex=request("sex")
  country=request("country")
  city=request("city")
  address1=request("address1")
  address2=request("address2")
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  Set txtf=fs.OpenTextFile(Server.MapPath("send.txt"))
  Body=txtf.ReadAll
  Body=Replace(Body, "==cname==", cname)
  Body=Replace(Body, "==tel1==", tel1)
  Body=Replace(Body, "==tel2==", tel2)
  Body=Replace(Body, "==email==", email)
  Body=Replace(Body, "==sex==", sex)
  Body=Replace(Body, "==country==", country)
  Body=Replace(Body, "==city==", city)
  Body=Replace(Body, "==address1==", address1)
  Body=Replace(Body, "==address2==", address2)
  Call Send_ASPEMail_check
  Response.write "<center><a href=http://chome.rich2000.com.tw><img src=img/sendmail.gif width=560 height=62 border=0></a><br><br><br>"
  Response.write "<table border=1 bordercolor=FFA000 cellspacing=3 cellpadding=3 width=600>"
  Response.write "<tr><td width='100%' bgcolor=FFF000 style=font-size: 10pt>"
  Response.write "来自：<font color=000088>"&guestip&"</font>、"
  Response.write "E-Mail信箱：<font color=red>"&email&"</font>"
  Response.write "的贵客，您已经注册<b>Chome售物网</b>的待确认名单中；"
  Response.write "我们也已经寄出一封确认信件给您，请您去收取您的确认"
  Response.write "信并作确认动作，然後在数分钟之内您就会收到密码；"
  Response.write "如果您一直收不到确认信件，那可能是您的信箱有问题！"
  Response.write "请回到<a href=http://chome.rich2000.com.tw/register.asp>Chome拍卖网</a> 重新登录您的正确信箱号码，谢谢！</td></tr></table>"
  Response.end
  Sub Send_ASPEMail_check()
    Dim objMail
    Set objMail = Server.CreateObject("Persits.MailSender")
    ObjMail.isHTML = True
    ObjMail.Host = "ms6.hinet.net"
    ObjMail.From = "chinimin@ms6.hinet.net"
    ObjMail.FromName = "Chome售物网"
    ObjMail.AddAddress "chinimin@ms6.hinet.net"
    ObjMail.AddBCC email
    ObjMail.Subject = "请回函确认您的会员注册"
    ObjMail.Body = Body
    ObjMail.Send
    Set ObjMail=Nothing
  End Sub

End If
%>
<HTML>
<HEAD>
<TITLE>跳蚤市场－注册新会员</TITLE>
<link REL="stylesheet" HREF="style.css" TYPE="text/css">
<script language="JavaScript" src="check.js"></script>
</HEAD>
<BODY bgcolor=ffffff text=000000 link=000088 vlink=ff0066 alink=purple topmargin=10 leftmargin=10 marginwidth=10 marginheight=10>
<CENTER>
<img src=img/chome.jpg width=298 height=86 alt=跳蚤市场><br><br>
<FORM name=Check_n METHOD=POST ACTION=reg_member.asp onSubmit="return check_n()">
<table border=0 width=580>
<tr><td><font size=4><b>注册会员</b></font></td></tr>
<tr><td>登录使用名称：<input type="text" name="cname" size=40></td></tr>
<tr><td>电子邮件位址：<input type="text" name="email" size=40></td></tr>
<tr><td>请输入正确的电子邮件地址，系统会自动寄发确认函给您，<br>
在您回函确认後，始将密码使用电子邮件通知您</td></tr>
</table>
<HR width=580>
<table border=0 width=580 cellspacing=3 cellpadding=1>
<tr><td colspan=2><font size=4><b>使用者资料</b></font></td></tr>
<tr><td bgcolor=FFF000 width=200>使用者性别</td><td><input type=radio value=先生 name=sex checked>男　<input type=radio name=sex value=小姐>女</td></tr>
<tr><td bgcolor=FFF000>联系地址一</td><td><INPUT TYPE="TEXT" NAME="address1" SIZE="50"></td></tr>
<tr><td bgcolor=FFF000>联系地址二</td><td><INPUT TYPE="TEXT" NAME="address2" SIZE="50"></td></tr>
<tr><td bgcolor=FFF000>联系电话一</td><td><INPUT TYPE="TEXT" NAME="tel1" SIZE="20"></td></tr>
<tr><td bgcolor=FFF000>联系电话二</td><td><INPUT TYPE="TEXT" NAME="tel2" SIZE="20"></td></tr>
<tr><td bgcolor=FFF000>使用者国家</td><td><select name=country size=1><option value=中华民国>中华民国<option value=香港>香港<option value=日本>日本<option value=美国>美国<option value=中国大陆>中国大陆<option value=其他>其他国家</select></td></tr>
<tr><td bgcolor=FFF000>居住的区域</td><td><select name=city size=1><option value=台北县市>台北县市<option value=桃竹苗地区>桃竹苗地区<option value=台中彰化南投>台中彰化南投<option value=云嘉南地区>云嘉南地区<option value=高雄屏东>高雄屏东<option value=东部地区>东部地区<option value=离岛地区>离岛地区</select></td></tr>
<tr><td colspan=2 align=center><INPUT TYPE="SUBMIT" VALUE="确定送出"></td></tr>
</table>
</form><br>
</center>
</body>
</html>

⌨️ 快捷键说明

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