📄 login.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--验证图片开始-->
<%
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">
<style type="text/css">
<!--
td { font-size: 12px}
.style1 {color: #FFFFFF}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="367" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="chklogin.asp" method=POST name=form onSubmit="return CheckForm()"><tr>
<td align="center" height="30"> <b><font color="#FF0000">新站登录</font></b>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" valign="top"> <p align="center">注意：这里只收录有一定内容的网站（<A href="add.asp"><FONT color=#0000ff>申请交换连接</FONT></A>）。</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="14" 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>
<%
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(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">
<br>
<%=tongji%>
</div>
<!--统计代码完-->
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -