📄 user_register.asp
字号:
<!--#include file=INC/skin.asp-->
<%
'on error resume next
dim const_txl_HomeUrl,errstr,i
errstr=""
const_txl_HomeUrl=""
OpenDatabase
txl_SiteHead const_txlname&"-注册"
call online
call main
CloseDatabase
web_end
sub main
%>
<table width="779" border="0" align="center" cellpadding="0" cellspacing="10">
<tr>
<td>
<b>当前位置：<a href="<%=const_homepageurl%>">首页</a> >> <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> >> <a href="user_register.asp">新用户注册</a> </b></td>
</tr>
</table>
<table width="779" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC" style="border-collapse:collapse;">
<tr>
<td width="178" align="center" valign="top" bgcolor="#F1F1F1"><br>
<script language="JavaScript">
today=new Date();
function initarray(){
this.length=initarray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initarray.arguments[i] }
var d=new initarray(
" 星期日 ",
" 星期一 ",
" 星期二 ",
" 星期三 ",
" 星期四 ",
" 星期五 ",
" 星期六 ");
document.write(
today.getYear(),"年",
today.getMonth()+1,"月",
today.getDate(),"日",
d[today.getDay()+1]);
</script> </td>
<td valign="top" bgcolor="#FFFFFF"><%
if Request.Form("action")="agree" Then
if Request.Form("t1")<>"" then '影音成员模式,检测问题答案
if checkanswer then
Session("usertype")=3
Response.Redirect("user_register.asp?action=register")
else
errstr="<li>问题答案不能为空</li>"
errstr=errstr&"<li>回答不正确</li>"
Response.Write("<br>")
call printerror ("注册"&const_txlname&"时出错",errstr,"97%")
end if
elseif Request.Form("t2")<>"" then '影音成员,忘记答案
Session("usertype")=2
Response.Redirect("user_register.asp?action=register")
elseif Request.Form("t3")<>"" then '影音好友
Session("usertype")=1
Response.Redirect("user_register.asp?action=register")
else
call answerquestion
end if
elseif Request.Querystring("action")="register" then
call register
else
call readagreement
end if
%>
</td></tr>
</table>
<%
end sub
%>
<%sub readagreement
%>
<form name="form2" method="post" action="user_register.asp?action=agree">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td style="padding-left:15px;line-height:1.8;"> <b>继续注册前请先阅读<%=const_txlname%>的同学录协议:</b><BR><BR>
为维护网上公共秩序和社会稳定，请您自觉遵守以下条款：<br>
<br>
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息：<br>
（一）煽动抗拒、破坏宪法和法律、行政法规实施的；<br>
（二）煽动颠覆国家政权，推翻社会主义制度的；<br>
（三）煽动分裂国家、破坏国家统一的；<br>
（四）煽动民族仇恨、民族歧视，破坏民族团结的；<br>
（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；<br>
（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<br>
（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；<br>
（八）损害国家机关信誉的；<br>
（九）其他违反宪法和法律行政法规的；<br>
（十）进行商业广告行为的。<br>
二、互相尊重，对自己的言论和行为负责。
</td>
</tr>
<tr>
<td height="30" style="padding-left:15px;"> <label for="t">
<input type="checkbox" name="checkbox" value="checkbox" id="t" onFocus="this.blur()" onclick="document.form2.Submit.disabled=(!this.checked)">
<font color="#FF0000">我已经阅读并接受以上条款</font></label></td>
</tr>
<tr>
<td height="40" align="center">
<input name="action" type="hidden" id="action" value="agree">
<input type="button" name="Submit2" value="不同意" style="border:1px solid #666666;height:20px;font:'menu';" onClick="javascript:top.location.href='<%=const_txl_HomeUrl%>index.asp'">
<input type="submit" name="Submit" value="下一步" style="border:1px solid #666666;height:20px;font:'menu';" disabled onFocus="this.blur()"></td>
</tr>
</table>
</form>
<%end sub%>
<%sub answerquestion
opendatabase
dim rs
set rs=conn.execute ("select question1,question2 from config where id=1")
if not rs.eof then
dim question1,question2
question1=Trim(rs(0))
question2=Trim(rs(1))
%>
<form name="form3" method="post" action="user_register.asp">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="8" style="line-height:1.8;">
<tr>
<td><B>如果注册成为影音成员请先回答以下两个问题：</B></td>
</tr>
<tr>
<td><%=question1%>：
<input name="answer1" type="text" id="answer12" size="40" maxlength="100"></td>
</tr>
<tr>
<td><%=question2%>：
<input name="answer2" type="text" id="answer22" size="40" maxlength="100">
<input name="action" type="hidden" id="action" value="agree"></td>
</tr>
<tr>
<td><font color="#FF0000">注意：如果您是影音成员，请先回答以上两个问题；<br>
如果您是影音成员，但是您忘记了答案，请点中间按钮，成为准影音成员</font></td>
</tr>
<tr>
<td height="40" align="center"> <input name="t1" type="submit" id="t12" style="border:1px solid #666666;width:135px;height:20px;" value="回答问题申请影音成员">
<input name="t2" type="submit" id="t22" style="border:1px solid #666666;width:125px;height:20px;font:'menu';" value="忘记答案申请影音成员">
<input name="t3" type="submit" id="t32" style="border:1px solid #666666;width:125px;height:20px;font:'menu';" value="申请成为影音好友"></td>
</tr>
</table>
</form>
<%
else
Response.Write(" <br><br> 请斑竹在后台设置Wap影音注册问题和答案!")
end if
end sub
%>
<%sub register
if Session("usertype")="" then Response.Redirect("user_register.asp")
dim facewidthmin,facewidthmax,faceheightmin,faceheightmax
facewidthmin=Split(const_FaceWidth,"|")(0)
facewidthmax=Split(const_FaceWidth,"|")(1)
faceheightmin=Split(const_Faceheight,"|")(0)
faceheightmax=Split(const_Faceheight,"|")(1)
If const_friend_regset=0 Then '注册限制
If Session("usertype")=1 or Session("usertype")=2 Then
errstr="<li>当前Wap影音状态已经设置为<font color=red>不允许影音好友和准影音成员注册</font>!</li>"
errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
Call printerror("注册Wap影音出错！",errstr,"97%")
Exit Sub
End If
End If
%>
<script language="JavaScript" src="inc/txl_user.js"></script>
<script language="JavaScript">
<!--
function checkfrm(frm){
var obj=frm
var txl_username=Jtrim(obj.txl_username.value)
if(txl_username==""){
alert("用户名不能为空!")
obj.txl_username.focus();
return false;
}
var txl_password1=Jtrim(obj.txl_password1.value)
if(txl_password1==""){
alert("密码不能为空!")
obj.txl_password1.focus();
return false;
}
var txl_password2=Jtrim(obj.txl_password2.value)
if(txl_password2==""){
alert("验证密码不能为空!")
obj.txl_password2.focus();
return false;
}
if(txl_password1.length<4){
alert("密码长度请大于4位!")
obj.txl_password1.focus();
return false;
}
if(txl_password1!=txl_password2){
alert("两次输入的密码不相同!")
obj.txl_password2.focus();
return false;
}var txl_email=Jtrim(obj.txl_email.value)
if(txl_email==""||(!isemail(txl_email))){
alert("邮箱不能为空且必须有效!")
obj.txl_email.focus();
return false;
}
var txl_truename=Jtrim(obj.txl_truename.value)
if(txl_truename==""||(!ischinese(txl_truename))){
alert("用户名不能为空!且必须为中文")
obj.txl_truename.focus();
return false;
}
var txl_question=Jtrim(obj.txl_question.value)
if(txl_question==""){
alert("密码提示不能为空!")
obj.txl_question.focus();
return false;
}
var txl_answer=Jtrim(obj.txl_answer.value)
if(txl_answer==""){
alert("密码提示问题答案不能为空!")
obj.txl_answer.focus();
return false;
}
var txl_FaceUrl=obj.txl_FaceUrl.value
if (txl_FaceUrl.length<3){
alert("请选择头像或者输入网上头像地址！")
obj.txl_FaceUrl.focus();
return false
}
var txl_Underwrite=obj.txl_Underwrite.value
if (txl_Underwrite.length>255){
alert("签名长度不能大于255，当前长度"+txl_Underwrite.length)
obj.txl_Underwrite.focus();
return false
}
obj.send.disabled=true
return true
}
function openScript(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',scrollbars=auto , resizable=no , copyhistory=no' );
}
function setface()
{
window.open('facelist.asp','','width=500,height=300 scrollbars=auto,status=auto,resizable=yes');
}
function changeface2()
{ var temp,obj;
obj=document.txlfrm;
if(obj.Form_FaceWidth.value!="")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -