📄 registor.asp
字号:
<!--#include file=conn.asp-->
<html>
<head>
<title>流量统计</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/command.css" type="text/css">
<script id="chromeless" src="wind_chromeless_2.1.js"></script>
<script language="JavaScript">
<!--
function openChromeslessWindow(openUrl, winName, wWidth, wHeight, wPosx, wPosy, wTIT,
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
bCenter, sFontFamily, sFontSize, sFontColor){
openchromeless(openUrl,winName, wWidth, wHeight, wPosx, wPosy, wTIT, wTIT ,
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
bCenter, sFontFamily, sFontSize, sFontColor);
}
//-->
</script>
<%
function IsStrNum(s)
dim tmps,tmpch,i
IsStrNum=TRUE
tmps=UCase(s)
for i=1 to len(tmps)
tmpch=Mid(tmps,i,1)
if (tmpch<"A" or tmpch>"Z") and (tmpch<"0" or tmpch>"9") then
IsStrNum=FALSE
exit function
end if
next
if i=1 then IsStrNum=FALSE
end function
function IsValidEmail(Email)
IsValidEmail=TRUE
If Len(Email) <= 5 or InStr(1,Email,"@",1)<2 or Instr(1,Email,".",1)<4 Then
IsValidEmail=FALSE
end if
end function
function pwd(pwd1,pwd2)
pwd=True
if len(pwd1)<>len(pwd2) then
pwd=FALSE
exit function
end if
for i=1 to len(pwd1)
pwdt1=mid(pwd1,i,1)
pwdt2=mid(pwd2,i,1)
if pwdt1<>pwdt2 then
pwd=FALSE
exit function
end if
next
end function
send1=request.form("send1")
if send1<>empty then
countuser=request.form("countuser")
countpwd=cstr(request.form("countpwd"))
countpwd2=cstr(request.form("countpwd2"))
countemail=request.form("countemail")
countmanner=request.form("countmanner")
countweb=request.form("countweb")
countgenre=request.form("countgenre")
counttag=request.form("counttag")
countsynopsis=request.form("countsynopsis")
if countuser=empty or countpwd=empty or countpwd2=empty then
rerrmsg="用户名或密码、电邮尚未输入"
else
if IsStrNum(countuser)=FALSE then
rerrmsg="用户名只能输入字母或数字"
end if
if pwd(countpwd,countpwd2)=False then
rerrmsg="密码输入错误"
end if
end if
if countemail<>empty then
if IsValidEmail(countemail)=FALSE then rerrmsg="电邮输入错误" end if
end if
if countsynopsis<>empty then
if len(countsynopsis)>200 then
rerrmsg="网站简介过长"
end if
end if
if rerrmsg<>empty then
response.write "<Script LANGUAGE=""javascript"">alert("""&rerrmsg&""");history.back()</script>"
response.end
end if
if countuser<>empty then
sqlcountuser="select * from kcount where countuser='"&countuser&"'"
set rssqlcountuser=Server.Createobject("adodb.recordset")
rssqlcountuser.open sqlcountuser,conn,1,1
if not rssqlcountuser.eof then
rssqlcountuser.close
set rssqlcountuser=nothing
%>
<Script LANGUAGE="JAVASCRIPT">
alert("该用户已存在请重新注册")
history.back()
</Script>
<%
else
rssqlcountuser.close
set rssqlcountuser=nothing
response.redirect ("retake.asp?countuser="&countuser&"&countpwd="&countpwd&"&countemail="&countemail&"&countmanner="&countmanner&"&countweb="&countweb&"&countgenre="&countgenre&"&counttag="&counttag&"&countsynopsis="&countsynopsis&"")
end if
end if
end if
%>
</head>
<body bgcolor="#FFFFFF" text="#000000" onLoad="openChromeslessWindow('manner.htm','计数器样式',220,240,520,40,'计数器样式', '#000000', '#000000', '#3366cc', '#3366cc' ,false,'Arial, Helvetica, sans-serif', '9','#FFFFFF')">
<table width="640" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF">
<table width="640" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<!--#include file=title.htm-->
</td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#3366cc">
<tr bgcolor="#FFFFFF" align="center" valign="bottom">
<td class="navigation" height="18" width="69" bgcolor="#FFFFFF"><font color="#000000" class="titlefont">综合统计</font></td>
<td width="69" class="titlefont" height="18">时统计</td>
<td width="69" class="titlefont" height="18">日统计</td>
<td width="69" class="titlefont" height="18">周统计</td>
<td width="69" class="titlefont" height="18">月统计</td>
<td width="69" class="titlefont" height="18">地区</td>
<td width="69" class="titlefont" height="18">浏览器</td>
<td width="69" class="titlefont" height="18">操作系统</td>
<td width="69" class="navigation" height="18" bgcolor="#3366cc"><font color="#FFFFFF" class="titlefont">注册</font></td>
</tr>
<tr bgcolor="#3366cc" align="center" valign="bottom">
<td class="navigation" height="2" colspan="9"><img src="images/little.gif" width="1" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="18"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td valign="top">
<table width="500" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#3366cc">
<tr>
<td bgcolor="#FFFFFF" valign="top">
<form name="form1" method="post" action="" class="fr">
<table width="500" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr align="center" bgcolor="#3366cc">
<td colspan="2" height="20"><font color="#FFFFFF" style="letter-spacing:14pt;font-size:14px">用户注册</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" width="80" align="center" bgcolor="#FFFFFF"><font color="#000000">用户名</font></td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="text" name="countuser" class="fr2">
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF"><font color="#000000">密码</font></td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="password" name="countpwd" class="fr2">
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF"><font color="#000000">确认密码</font></td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="password" name="countpwd2" class="fr2">
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">计数类型</td>
<td height="30" bgcolor="#FFFFFF">
<select name="countmanner">
<option value="1">样式1</option>
<option value="2">样式2</option>
<option value="3">样式3</option>
<option value="4">样式4</option>
</select>
</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF"><font color="#000000">网址</font></td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="text" name="countweb" class="fr2">
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">E-mail</td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="text" name="countemail" class="fr2">
</font></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">网站名称</td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="text" name="counttag" class="fr2">
</font></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">网站类型</td>
<td height="30" bgcolor="#FFFFFF">
<select name="countgenre">
<%
set rsgenre=Server.Createobject("adodb.recordset")
rsgenre.open "kcountgenre",conn,1,1
while not rsgenre.eof
%>
<option value="<%=rsgenre("kcountgenreid")%>"><%=rsgenre("kcountgenre")%></option>
<%
rsgenre.movenext
wend
rsgenre.close
set rsgenre=nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="100" align="center" bgcolor="#FFFFFF">网站简介</td>
<td height="20" bgcolor="#FFFFFF"><font color="#CCCCCC">
<textarea name="countsynopsis" cols="60" rows="4" class="fr2"></textarea>
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="40" align="center" colspan="2" bgcolor="#FFFFFF">
<input type="submit" name="send1" value="提交">
<input type="reset" name="Submit2" value="重置">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><!--#include file=copyright.htm--></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -