📄 login.asp
字号:
<!--#include file="mdb.asp"-->
<%
dim rs(5)
function listunder(i)
set rs(i)=server.createobject("adodb.recordset")
rs(i).open "select classid,classname,verity from feilei where topclass="&rs(i-1)("classid"),conn,1,3
while not rs(i).eof
dim topclassname
topclassname=""
for x=1 to i
topclassname=topclassname&rs(x-1)("classname")&"＞"
next
fujia=""
if rs(i)("verity")<>1 then fujia="(未审核)"
response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&fujia&"</option>"&vbCrLf
if i<Ubound(rs) then
call listunder(i+1)
end if
rs(i).movenext
wend
end function
set rs(2)=server.createobject("adodb.recordset")
rs(2).open "select * from title",conn,1,3
site=rs(2)("site")
siteurl=rs(2)("siteurl")
Copyright=rs(2)("Copyright")
login=rs(2)("login")
rs(2).close
set rs(2)=nothing
if login<>1 then
Response.Write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
Response.Write "暂时停止新站登陆，请稍后再来"
Response.Write "</td></tr></table>"
Response.End
end if
Function getcode1()
Dim test
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
getcode1= Session("GetCode")
Else
getcode1= "<img src=""admin/getcode.asp"">"
End If
End Function
%>
<html>
<head>
<title>新站登录→<%=site%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="JS/css.css" type=text/css rel=stylesheet>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<br>
<table width="730" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="#00759B">
<tr>
<td bgcolor="#0099CC" height="20"><font color="#FFFFFF">您的位置：</font><a href="<%=siteurl%>" class="style1">首页</a><font color="#FFFFFF">->网站登录</font></td>
</tr>
</table>
<table width="730" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="chklogin.asp" method=POST name=form><tr>
<td align="center" height="30"> <b><font color="#003366">[<%=site%>]新站登录</font></b>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" height="284" valign="top">
<table width="96%" height="281" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#00759B">
<tr>
<td bgcolor="B9E0F7">一、先决条件</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><font color="#000000"></font><font color="#FF0000">提交前请在您的首页放上本站的文字连接，代码如下</font><br>
<textarea name="textfield" cols="45" rows="2"><a href=<%=siteurl%> target=_blank><%=site%></a></textarea>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" height=1></td>
</tr>
<tr>
<td bgcolor="#B9E0F7">二、本站服务条款</td>
</tr>
<tr>
<td height="133" bgcolor="#FFFFFF">
1. [<%=site%>]不收录有反动、色情、赌博等不良内容或提供不良内容链接的网站，以及网站名称或内容违反国家有关法规的网站；<br>
2. [<%=site%>]不收录无实用内容的网站，如您的网站正在建设中，尚无完整内容，请不必现在登录，欢迎您在网站建设完成后再来；<br>
3. [<%=site%>]不收录在正常情况下无法正常连接或浏览的网站；<br>
4. [<%=site%>]保留是否收录您的网站的权力以及在本站网址数据库中的相关内容的编辑决定权；
</td></tr></table><br></td>
<td width="50%" valign="top">
<p></p>
<table border="0" cellspacing="1" bordercolorlight="#C0C0C0" bgcolor="#00759B" width="100%" align="center" cellpadding="5">
<tr bgcolor="B9E0F7">
<td colspan="2"> 三、填写贵站相关资料</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125" align="center">网站名称:</td>
<td width="407">
<input size="20" name="title" type="text" class="TDBorder">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125">
<div align="center">网站分类:</div>
</td>
<td width="407">
<select name="leibie">
<option selected value='0'>请选择网址分类</option>
<%
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,classname,verity from feilei where topclass=0",conn,1,3
while not rs(0).eof
fujia=""
if rs(0)("verity")<>1 then fujia="(未审核)"
response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&fujia&"</option>"&vbCrLf
call listunder(1)
rs(0).movenext
wend
%>
</select>
</td></tr>
<tr bgcolor="#FFFFFF">
<td width="125">
<div align="center">E-mail:</div>
</td>
<td width="407">
<input size="20" name="Email" type="text" class="TDBorder">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125">
<div align="center">网站地址:</div>
</td>
<td width="407">
<input size="27" name="url" type="text" value="http://" class="TDBorder">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125">
<div align="center">网站简介:</div>
</td>
<td width="407">
<textarea cols="30" id="MsgForm" name="memo" rows="5" ></textarea><br>
介绍在100个汉字以内
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125">
<div align="center">验证码:</div>
</td>
<td width="407">
<input type="text" name="mofei" class="textarea" size="19"> <%=getcode1()%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center" colspan=2>
<input type="hidden" name="action" value="add_wz">
<input type="submit" value="提交" style="FONT-SIZE: 9pt">
</td></tr></table></td></tr></table></td></tr></form>
<tr><td>
<div align="center"><%=Copyright%></div>
</td></tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -