admin_detail_search.asp 黑鹰自助链管理系统 1.1 商业版码程序 - ASP源码程序

www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/admin_detail_search.asp
    <!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<%
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=0 to i-1
topclassname=topclassname&rs(x)("classname")&"→"
next
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
%>
<HTML>
<HEAD>
<TITLE>网站搜索</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</HEAD>
<BODY>
<table width="80%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#000000">
<tr> 
<td bgcolor="#EEEEEE" align="center"><font color=#FF0000>★<B>网站搜索</B>★</font></td>
</tr>
<form action="wz_search.asp" method="post"><tr> 
<td align="center" valign="middle" bgcolor="#FFFFFF">
关键字：
  <input name="word">  
<select name="by">根据：<option value='title'>网站名称</option>
<option value='url'>网站url</option>
</select>
<input type="hidden" name="action" value="delete">  
<input type="submit" value="搜索"></td></tr></form>
 
  <form action="id_search.asp" method="post"><tr>
    <td align="center" valign="middle" bgcolor="#FFFFFF">输入ID
      <input name="id" size="10"> 
      <input name="submit2" type="submit" value="搜索"></td>
  </tr>
</form> 
</table> 
</BODY> 
</HTML>