📄 retake.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">
<%
countuser=request.querystring("countuser")
countpwd=request.querystring("countpwd")
countemail=request.querystring("countemail")
countmanner=request.querystring("countmanner")
countweb=request.querystring("countweb")
countgenre=request.querystring("countgenre")
counttag=request.querystring("counttag")
countsynopsis=request.querystring("countsynopsis")
sqlgenre="select * from kcountgenre where kcountgenreid="&countgenre&""
set rssqlgenre=Server.createobject("adodb.recordset")
rssqlgenre.open sqlgenre,conn,1,1
countgenre1=rssqlgenre("kcountgenre")
rssqlgenre.close
set rssqlgenre=nothing
send1=request.form("send1")
send2=request.form("send2")
if send1<>empty and session("retake")<>1 then
counttime=now()
sqlcount="insert into kcount(countuser,countpwd,countemail,countmanner,countweb,countgenre,counttag,countsynopsis,counttime) values('"&countuser&"','"&countpwd&"','"&countemail&"',"&countmanner&",'"&countweb&"',"&countgenre&",'"&counttag&"','"&countsynopsis&"',#"&now()&"#)"
conn.execute sqlcount
session("retake")=1
sqlcount1="select * from kcount where countuser='"&countuser&"'"
set rssqlcount1=Server.createobject("adodb.recordset")
rssqlcount1.open sqlcount1,conn,1,1
countuserid=rssqlcount1("countid")
rssqlcount1.close
set rssqlcount1=nothing
sqlcounttop="insert into kcounttop(counttopuserid) values('"&countuserid&"')"
conn.execute sqlcounttop
sqlalter="ALTER TABLE kcountarea ADD "&countuserid&" int"'//修改IP用户表
conn.execute sqlalter
eser=Request.ServerVariables("SERVER_NAME")
eurl=Request.ServerVariables("URL")
eurl=Replace(eurl,"retake.asp","count.asp")
iurl=Replace(eurl,"count.asp","index.asp")
iurlcount="http://"&eser&iurl&"?countuser="&countuserid
urlcount="http://"&eser&eurl
session("seurl")=Server.HTMLEncode("<a href="""&iurlcount&"""><script src="""&urlcount&"?user="&countuser&"&userid="&countuserid&"""></script></a>")
end if
if send2<>empty then
Session.abandon
response.redirect "registor.asp"
end if
if send1<>empty and session("retake")=1 then
%>
<Script LANGUAGE="Javascript">
alert("您以确认了输入，请将下列代码插入您的网页")
</script>
<%
end if
%>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<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 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>
<td colspan="2" bgcolor="#3366cc" height="20" align="center"><font color="#FFFFFF" style="letter-spacing:14pt;font-size:14px">注册确认</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" width="80" bgcolor="#FFFFFF"><font color="#000000"> 用户名</font></td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="text" name="textfield" class="fr2" value="<%=countuser%>">
</font></td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF" width="80"><font color="#000000"> 密码</font></td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="text" name="textfield4" class="fr2" value="<%=countpwd%>">
</font></td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF" width="80"> 网站类型</td>
<td height="30" bgcolor="#FFFFFF"><font color="#CCCCCC">
<input type="text" name="textfield6" class="fr2" value="<%=countgenre1%>">
</font></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF" width="80"> 计数样式</td>
<td height="30" bgcolor="#FFFFFF" valign="middle">
<table width="160" border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<td> </td>
<td width="15" align="right"><img src="images/<%=countmanner%>/0.gif" width="15" height="20"></td>
<td width="15" align="right"><img src="images/<%=countmanner%>/1.gif" width="15" height="20"></td>
<td width="15" align="right"><img src="images/<%=countmanner%>/2.gif" width="15" height="20"></td>
<td width="15" align="right"><img src="images/<%=countmanner%>/3.gif" width="15" height="20"></td>
<td width="15" align="right"><img src="images/<%=countmanner%>/4.gif" width="15" height="20"></td>
<td width="15" align="right"><img src="images/<%=countmanner%>/5.gif" width="15" height="20"></td>
<td width="15" align="right"><img src="images/<%=countmanner%>/6.gif" width="15" height="20"></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" align="center" bgcolor="#FFFFFF" colspan="2">将下列代码粘贴入您的网页中</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="100" align="center" bgcolor="#FFFFFF" colspan="2"><font color="#CCCCCC">
<textarea name="textfield7" cols="60" rows="4" class="fr2"><%=session("seurl")%></textarea>
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="40" align="center" bgcolor="#FFFFFF" colspan="2">
<input type="submit" name="send1" value="确认我的注册">
<input type="submit" name="send2" 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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -