📄 searchdownload.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Include/Client_Module.asp"-->
<!--#include file="Include/UBB.asp"-->
<%
ErrTitle = "下载搜索出错："
SucTitle = "下载搜索成功："
%>
<html><head><title><%=PageTitle%> → 搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="author" CONTENT="软件下载">
<meta NAME="description" CONTENT="软件下载">
<meta NAME="keywords" CONTENT="软件下载">
<SCRIPT language=javascript src="js/menu.js" type="text/javascript"></SCRIPT>
<SCRIPT language=javascript src="js/pop.js" type="text/javascript"></SCRIPT>
<script src="JS/selectlist.js"></script>
<link href="Css/Style.css" rel="stylesheet" type="text/css"></head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="758" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td width="200" align="center"><img src="Images/Logo.gif" width="200" height="70"></td>
    <td valign="top" align="right">&nbsp;</td>
</tr></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><tr><TD height="40" bgcolor="#416194">
<%
Call OpenDatabase()
Call AClass()
Call CloseDatabase()
%>



</td>
</tr></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><table width="760" border="0" cellpadding="0" cellspacing="1" align="center" bgColor="#416194"></table>
<table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><%
Select Case Action
Case "AdSearch"
Call AdSearch()
Case "Query"
Call Query()
End Select
Sub AdSearch()
Call OpenDatabase()
%>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="Kermy_JS('setDynaList(arrNSet)')">
<table width="760" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><form name="myform" method="post" action="?Action=Query&Opt=Ad"><tr><td colspan="2" align="center"><b><font color="#FFFFFF">高级搜索</font></b></td></tr><tr bgcolor="#FFFFFF"><td width="30%" align="center">选择属性</td><td width="70%">名称<input name="option" type="radio" value="1" checked>简介<input type="radio" name="option" value="2"></td></tr><tr bgcolor="#FFFFFF"><td width="30%" align="center">选择分类</td><td><%=NetCom.CataLog(0,0)%></td></tr><tr bgcolor="#FFFFFF"><td width="30%" align="center">关键字符</td><td><input name="keyword" type="text" id="keyword" class="inputd"></td></tr><tr align="center"><td colspan="2" bgcolor="#F0F0F0"><input type="submit" name="Submit" value="搜索" class="input1"></td></tr></form></table>
<%
Call CloseDatabase()
End Sub
Sub Query()
Dim opt,keyword,Classid
opt=CInt(Request("option"))
keyword=Trim(Request("keyword"))
Classid=Request("NCid")
If opt="" Or keyword="" Then
ErrInfo = ErrInfo&"<li>关键字段不能为空。</li>"
FoundErr=True
End If
If FoundErr Then
Call ErrorMsg()
Else
Call OpenDatabase()
If Request.QueryString("Opt")<>"" Then
If opt=1 Then
Sql="SELECT Did,Dname,Dappraise,Daccredit,Dsetting,Dsize,Dremark,Upddate,[Browse],Commend FROM [Download] WHERE Dname LIKE '%"&keyword&"%' AND Dnclass="&Classid&" AND Dpurview=0 AND Flag=1"
Else
Sql="SELECT Did,Dname,Dappraise,Daccredit,Dsetting,Dsize,Dremark,Upddate,[Browse],Commend FROM [Download] WHERE Dremark LIKE '%"&keyword&"%' AND Dnclass="&Classid&" AND Dpurview=0 AND Flag=1"
End If
Else
If opt=1 Then
Sql="SELECT Did,Dname,Dappraise,Daccredit,Dsetting,Dsize,Dremark,Upddate,[Browse],Commend FROM [Download] WHERE Dname LIKE '%"&keyword&"%' AND Dpurview=0 AND Flag=1"
Else
Sql="SELECT Did,Dname,Dappraise,Daccredit,Dsetting,Dsize,Dremark,Upddate,[Browse],Commend FROM [Download] WHERE Dremark LIKE '%"&keyword&"%' AND Dpurview=0 AND Flag=1"
End If
End If
Dim Page,PageSize,RemarkCount,PageCount,x
Page = Request.QueryString("Page")
PageSize = CInt(10)
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.CursorLocation = 3
Rs.Open Sql,Conn,1,1
RemarkCount = Rs.RecordCount
If NetCom.isInt(Page)=False Then
Page = 1
Else
Page = CInt(Page)
End If 
If RemarkCount Mod CInt(PageSize)=0 Then
PageCount = RemarkCount \ CInt(PageSize)
Else
PageCount = RemarkCount \ CInt(PageSize)+1
End If
%>
<table width="760" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><tr><td class="UserInfo" colspan="5">您的搜索的关键字: <font color="Red"><b><%=keyword%></b></font> 共搜索到 <b><%=RemarkCount%></b> 条相关信息</td></tr><tr bgcolor="#FFFFFF"><td width="43%" align="center">软件名称</td><td width="14%" align="center">整理时间</td><td width="12%" align="center">软件大小</td><td width="12%" align="center">人气</td><td width="19%" align="center">软件等级</td></tr><%
If Not (Rs.Bof And Rs.Eof) Then
Rs.MoveFirst
If Page > PageCount Then Page = PageCount
If Page<1 Then Page=1
Rs.Move (Page-1) * CInt(PageSize)
x=1
While Not Rs.EOF AND x<=PageSize
%><tr bgcolor="#FFFFFF"><td width="43%" onMouseOver="javascript:this.bgColor='#F0F0F0';this.style.cursor='default';" onMouseOut="javascript:this.bgColor='#FFFFFF';"><a href="ViewDownload.asp?Id=<%=Rs(0)%>" class="SoftMeun" target="_blank"><b><%=NetCom.ShowBold(Rs(1),keyword)%></b></a><%If Rs(9)<>0 Then Response.Write ("<img src=Images/Recom.gif width=34 height=10 align=absmiddle>")%></td><td width="14%" align="center"><%=FormatDateTime(Rs(7),2)%></td><td width="12%" align="center"><%=Rs(5)%></td><td width="12%" align="center"><%=Rs(8)%></td><td width="19%" align="center"><%=Rs(2)%></td></tr><td colspan="5" bgcolor="#FFFFFF">·<%=UBBCode(Left(Rs(6),50))%>...</td></tr><tr bgcolor="#F0F0F0"><td colspan="5"><img src="Images/Mandate.gif" width="49" height="10" align="absbottom"><%=Rs(3)%>&nbsp;<img src="Images/System.gif" width="42" height="10" align="absbottom"><%=Rs(4)%></td></tr><%
x=x+1
Rs.MoveNext
Wend%><tr><td colspan="5" bgcolor="#FFFFFF"><%=NetCom.ShowPage(PageCount,RemarkCount,Page,PageSize,"?Action=Query&option="&opt&"&NCid="&Classid&"&keyword="&keyword&"&Opt="&Request.QueryString("Opt")&"&")%></td></tr><%Else%><tr>
  <td colspan="5" bgcolor="#F0F0F0" align="center"><strong>没有搜索到任何内容</strong></td>
</tr><%End If%></table><%
Call CloseDatabase()
End If
End Sub%>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -