www.pudn.com > baxun36.rar > login.asp, change:2006-04-19,size:5816b


<!--#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>