📄 regsuc.asp
字号:
<%@ language=vbscript%>
<!--#include file="search.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>用户登记</title>
</head>
<%id=request.form("id")
oldid=request.form("oldid")
cla=request.form("cla")
keys=request.form("keys")
oldintro=request.form("oldintro")
webname=request.form("webname")
url=request.form("url")
topurl=request.servervariables("server_name")&request.servervariables("script_name")
topurl=replace(topurl,"regsuc.asp","count.asp")
%>
<body>
<div align="center">
<table border="0" cellpadding="3" cellspacing="1" width="664" height="254" bgcolor="#9AADCB" style="font-size: 9pt">
<tr>
<td width="875" height="12" bgcolor="#FFFFFF">
<p align="center"><span id=msg>申请成功！</span></td>
<td width="194" height="254" rowspan="3" bgcolor="#FFFFFF">
<p align="left"><img border="0" src="img/0009.gif" width="166" height="320"></td>
</tr>
<tr>
<td width="875" height="112" bgcolor="#FFFFFF" valign="top">
<p>
请将以下代码插入您主页的任意位置：<br>
<script language=vbscript <br>
src="http://<%response.write topurl%>?user=<%response.write oldid%>&view=yes&minu=2"></script></td>
</tr>
<tr>
<td width="875" height="105" bgcolor="#FFFFFF" valign="top">
<p>说明：id为您的用户名;view决定该记数器是否看见：其中view=yes为可见,view=no为隐藏;miu表示您在线人数是统计X分钟内的人数,一个用户X分没有刷新页面视为不在线。</td>
</tr>
</table>
</div>
<%
if request.form("sohu")="ON" then
%>
<script language=vbscript>msg.innertext="正在向sohu搜索引擎提交资料........"</script>
<form action="http://db.sohu.com/regurl/regform.asp" method=post name=sohu>
<input type=hidden name=SiteName value="<%response.write webname%>">
<input type=hidden name=URL value="<%response.write url%>">
<input type=hidden name=Description value="<%response.write oldintro%>">
<input type=hidden name=Keyword value="<%response.write keys%>">
<input type=hidden name=ClassKey value="<%response.write sohu_turn(cla)%>">
<input type="hidden" name="Step" value="Create">
</form>
<script language=vbscript>
document.sohu.submit
'msg.innertext="向sohu搜索引擎提交成功"
</script>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -