📄 regdisposal.asp
字号:
<%Response.Charset = "GB2312"%>
<!--#include file="conn/conn.asp"-->
<!--#include file="inc/Commoncode.asp"-->
<!--#include file="inc/CommonFunction.asp"-->
<!--#include file="inc/sendmail.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Action=trim(Request("Action"))
Select Case Action
Case "checkregmsg"
Call checkregmsg()
Case "Regdisposal"
Call Regdisposal()
End Select
Conn.Close
Set Conn=Nothing
Sub checkregmsg()
email=Replace(request.querystring("email"),"'","")
login=Replace(request.querystring("login"),"'","")
set rs=server.createobject("adodb.recordset")
if email<>"" then
sql="select * from JOB_Member where Member_email='"&email&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write "此Email已被占用,重新输入！"
else
response.write "恭喜您!Email可以使用!"
end if
end if
if login<>"" then
RegDisabled=split(UserName_RegDisabled,"|")
for i=0 to Ubound(RegDisabled)
if login=RegDisabled(i) then
response.write "此用户名已被禁用,重新输入！"
Response.end()
end if
next
sql="select * from JOB_Member where Member_login='"&login&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write "此用户名已被占用,重新输入！"
else
response.write "恭喜您!用户名可以使用!"
end if
end if
rs.close
set rs=nothing
End Sub
Sub Regdisposal()
email=Replace(Trim(Request.Form("email")),"'","")
login=Replace(Trim(Request.Form("login")),"'","")
pwd=md5(Replace(Trim(Request.Form("pwd")),"'",""))
ueserpwd=Replace(Trim(Request.Form("pwd")),"'","")
sendemail=Request.Form("sendemail")
trueIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If trueIP="" Then trueIP=Request.ServerVariables("REMOTE_ADDR")
if sendemail="" then
sendemail=0
end if
'判断是否审核
if AdminRegCheckReg=1 then
flag=0
else
flag=1
end if
RegDisabled=split(UserName_RegDisabled,"|")
for i=0 to Ubound(RegDisabled)
if login=RegDisabled(i) then
response.write ("<script language=JavaScript>{alert('此用户名已被禁用,重新输入！');location.href = 'javascript:history.back()';}</script>")
Response.end()
end if
next
set rs=server.createobject("adodb.recordset")
sql="select * from JOB_Member where Member_login='"&login&"' or Member_email='"&email&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write ("<script language=JavaScript>{alert('用户名或邮箱存在！');location.href = 'javascript:history.back()';}</script>")
Response.End()
else
rs.addnew
rs("Member_login")=login
rs("Member_pwd")=pwd
rs("Member_email")=email
rs("Member_sendemail")=sendemail
rs("Member_Auditing")=flag
rs("Member_regdate")=Now()
rs("Member_typeid")=0
rs("Member_groupid")=0
rs("Member_loginnum")=0
rs("Member_balance")=0
rs("Member_integral")=0
rs("Member_LoginIP")=trueIP
rs("Member_logindate")=now()
rs.update
dim successfulmsg
successfulmsg="感谢您注册成为"&sitename&"通行证会员！"
if sendemail=1 then
if emailsendregflag=1 then
EmailRegOfRegCheck=replace(EmailRegOfRegCheck,"{$uesername}",login)
EmailRegOfRegCheck=replace(EmailRegOfRegCheck,"{$ueserpwd}",ueserpwd)
Call SendMail(email,"感谢您注册成为"&sitename&"通行证会员！",EmailRegOfRegCheck)
successfulmsg=successfulmsg&"<br />系统已将您的注册资料发送到您填写的邮箱！"
else
successfulmsg=successfulmsg&"<br />系统邮件发送功能未启动，发送邮件失败！"
end if
else
successfulmsg=successfulmsg&"<br />您选择了拒绝"&sitename&"的系统消息邮件，所以未发送您的注册信息到您的邮箱，请牢记您的注册内容！"
end if
if AdminPerCheckReg=1 then
session(""&FRHRCMS&"user_login")=""
session(""&FRHRCMS&"user_pass")=""
Response.Write("<script>alert(""您注册的资料已经提交，请等待管理员审核！"");window.location='index.asp';</script>")
Response.End()
else
session(""&FRHRCMS&"user_login")=login
session(""&FRHRCMS&"user_pass")=pwd
end if
end if
rs.close
set rs=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<meta content="all" name="robots" />
<meta name="author" content="web@yjys.net,嘉挚科技" />
<meta name="Copyright" content="www.yjys.net,版权所有,请勿转载" />
<meta name="keywords" content="<%=Meta_Keywords%>" />
<meta name="description" content="<%=Meta_Description%>" />
<title>恭喜您，注册成功！--<%=SiteTitle%></title>
<script src="inc/main.js" language="javascript"></script>
<link href="css/<%=MainWebCss%>.css" rel="stylesheet" type="text/css">
<link rel="icon" href="/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
</head>
<body>
<center>
<%call head()%>
<div class="place">
<div class="catalogName l"></div>
<div class="navMenu l">您现在的位置：<a href="<%=Siteurl%>"><%=Sitename%></a> >>注册成功</div>
</div>
<div class="about">
<div class="mainonetit">注册会员通行证成功，初始化会员信息</div>
<div class="aboutcon">
<br />
<br />
<%Response.Write(successfulmsg)%><br />
如果您想成为<font color="#FF0000" style="font-weight:bold">个人用户</font>，请立即完善您的第一份简历！<a href="Member_Install.asp?Member_type=1"><font color="#FF0000" style="font-weight:bold">点击进入</font></a><br />
如果您想成为<font color="#FF0000" style="font-weight:bold">企业用户</font>，请登陆管理中心发布招聘职位及查询人才信息！<a href="Member_Install.asp?Member_type=2"><font color="#FF0000" style="font-weight:bold">点击进入</font></a><br />
</div>
</div>
<%call bottom()%>
<%
End Sub
%>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -