📄 register.asp
字号:
<!--#include file="tools.asp"-->
<html><head><title>用户注册</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link href="images/zzz.css" type="text/css" rel="stylesheet">
<script language="Javascript" src="function/function.js"></script>
<script language="JavaScript">
<!--
function SnR_MarkIE(theURL,theName,alertMsg) { //v3.0.3
var agt = navigator.userAgent.toLowerCase();
var is_win = ((agt.indexOf("win")!= -1) || (agt.indexOf("16bit")!= -1));
var is_win95 = ((agt.indexOf("win95")!= -1) || (agt.indexOf("windows 95")!= -1));
var is_win16 = ((agt.indexOf("win16")!= -1) || (agt.indexOf("16bit")!= -1) || (agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("windows 16-bit")!= -1) );
var is_win31 = ((agt.indexOf("windows 3.1")!= -1) || (agt.indexOf("win16")!= -1) || (agt.indexOf("windows 16-bit")!= -1));
var is_win98 = ((agt.indexOf("win98")!= -1) || (agt.indexOf("windows 98")!= -1));
var is_winnt = ((agt.indexOf("winnt")!= -1) || (agt.indexOf("windows nt")!= -1));
var is_win32 = (is_win95 || is_winnt || is_win98 || (agt.indexOf("win32")!= -1) || (agt.indexOf("32bit")!= -1));
//Error Causing Element from above line: ((is_major >= 4) && (navigator.platform == "Win32")) ||
var is_Mac = (agt.indexOf("mac") != -1);
if (document.all && (is_win32)) { //IE Windows Only
window.external.AddFavorite(theURL,theName);
}
else { // all others
alert(alertMsg);
}
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_showHideLayers() { //v3.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
obj.visibility=v; }
}
function showerror(erid)
{
document.form2.elements(erid).select();
}
function button1_onclick() {
window.close()}
function button2_onclick() {
window.location="http://365house.com"}
//-->
</script>
<style type="text/css">
input,textarea {
color : #000000;
font-family : Verdana, Arial, Helvetica, sans-serif;
font-size : 12px;
font-weight : normal;
background-color : #FFFFFF;
}
.bginput { background-color:#FFFFFF; border: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px;
font-family : Verdana, Arial, Helvetica, sans-serif;
font-size : 12px;
}
select {
color : #000000;
font-family : 宋体;
font-size : 12px;
font-weight : normal;
background-color : #FFFFFF;
}
a:link { font-size: 12px; text-decoration: none }
a:visited { font-size: 12px; text-decoration: none }
a:hover { font-size: 12px; text-decoration: underline }
a:active { text-decoration: none; font-size: 12px }
.thtcolor { COLOR: #FFFFFF;}
#all A:active { COLOR: #136C99;}
#all A:visited { COLOR: #136C99;}
#all A:hover { COLOR: #D68000;}
#all A:link { COLOR: #136C99;}
#cat A:active { COLOR: #000000; text-decoration: none}
#cat A:visited { COLOR: #000000 ; text-decoration: none}
#cat A:hover { COLOR: #000000 ; text-decoration: underline}
#cat A:link { COLOR: #000000 ; text-decoration: none}
.bodyline { background-color:#FFFFFF; border: #AEBDC4; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px }
.forumline { background-color:#FFFFFF; border: 2px #006699 solid }
TD.rowpic { background-color: #FFFFFF; background-image: url(phpbb/cellpic2.jpg); background-repeat: repeat-y }
.mainmenu { font-size : 11px; text-decoration : none; color : #000000 }
a.mainmenu { text-decoration: none; color : #006699; }
a.mainmenu:hover { text-decoration: underline; color : #C23030; }
</style>
</head>
<%
errid=200
iuid=trim(Request.Form("iuid"))
pwd=trim(Request.Form("ipwd"))
repwd=trim(Request.Form("repwd"))
email=trim(Request.Form("email"))
uname=trim(Request.Form("uname"))
address=trim(Request.Form("address"))
tel=trim(Request.Form("tel"))
url=trim(Request.Form("url"))
oicq=trim(Request.Form("oicq"))
works=trim(Request.Form("works"))
sign=trim(Request.Form("sign"))
header=trim(Request.Form("header"))
submit=trim(Request.Form("submit"))
if submit<>"" then
if len(iuid)<3 or len(iuid)>15 then
errid=0
elseif len(pwd)<3 or len(pwd)>15 then
errid=1
elseif pwd<>repwd then
errid=2
elseif instr(email,"@")=0 or instr(email,".")=0 or left(email,1)="@" or len(email)<5 or len(email)>40 then
errid=3
else
set cmd=server.CreateObject("adodb.command")
With cmd
.CommandType = adCmdStoredProc
.ActiveConnection = conn
.CommandText = "prCheckUidExists"
.Parameters.Append .CreateParameter("@uid", adVarChar, adParamInput, 15)
.Parameters.Append .CreateParameter("@er", adChar, adParamOutput, 2)
.Parameters("@uid")=iuid
.Execute
er= .Parameters("@er")
end with
if er="NO" then
errid=4
end if
end if
end if
%>
<%if errid=200 then%>
<body text="#000000" leftMargin="0" topMargin="0" onload="MM_preloadImages('images/kk2.gif')">
<%elseif errid=4 then%>
<body text="#000000" bgColor="#ffffff" leftMargin="0" topMargin="0" onload="MM_preloadImages('images/kk2.gif'),showerror(<%=0%>)">
<%else%>
<body text="#000000" bgColor="#ffffff" leftMargin="0" topMargin="0" onload="MM_preloadImages('images/kk2.gif'),showerror(<%=errid%>)">
<%end if%>
<!--#include file="title.asp"-->
<table class="shuang" cellSpacing="0" cellPadding="0" width="778" align="center" background="images/bg4.gif" border="0"><!--整体的大表格-->
<tbody>
<tr><td><!--begin-->
<%if er="OK" then
strsql="insert tblusers (uid,pwd,email,uname,address,tel,url,oicq,works,header,sign) values (" & _
sqlstr(iuid) & "," & sqlstr(pwd) & "," & sqlstr(email) & "," & sqlstr(uname) & "," & sqlstr(address) & "," & _
sqlstr(tel) & "," & sqlstr(url) & "," & sqlstr(oicq) & "," & sqlstr(works) & "," & sqlstr(header) & "," & sqlstr(sign) & ")"
conn.execute(strsql)
%>
<div align="center"><center>
<table width=778 border="0" cellspacing="0" cellpadding="10" align="center" background=images/bg4.gif>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -