searchresult.asp

来自「网站的源码」· ASP 代码 · 共 85 行

<!-- #include file="Top.asp" -->

<!-- #include file="cnOpen.asp" -->
<%
Dim rsArticle
Dim strSQL,strDate
Set rsArticle = Server.CreateObject("ADODB.RecordSet")

If Request("rdSearchType") = "UserID" Then

  strSQL = "SELECT * FROM Lily_Article WHERE UserID='"&Request("txtUserID")&"'"

ElseIf Request("rdSearchType") = "Title" Then

  If Request("txtTitle")="" Then
    %> 
    <p align="center"><font color="red">查询的标题不能为空，请重新输入信息！</font>
    <!-- #include file="searchCondition.asp" -->
  <%
  Else     
    strSQL = "SELECT * FROM Lily_Article WHERE Title Like '%"&Request("txtTitle")&"%'"
  End If

ElseIf Request("rdSearchType") = "Board" Then

  strSQL = "SELECT * FROM Lily_Article WHERE BoardName='"&Request("txtBoardName")&"'"

ElseIf Request("rdSearchType") = "PostTime" Then

  strDate = Request("txtMonth")&"-"&Request("txtDay")&"-"&Request("txtYear")
  strSQL = "SELECT * FROM Lily_Article WHERE PostTime > Cdate('"&strDate&"')"

ElseIf Request("rdSearchType") = "Content" Then

  If Request("txtContent")="" Then 
    %>
    <p align="center"><font color="red">查询的内容不能为空，请重新输入信息！</font>
    <!-- #include file="searchCondition.asp" -->
  <%
  Else     
    strSQL = "SELECT * FROM Lily_Article WHERE Content Like '%"&Request("txtContent")&"%'"
  End If

ElseIf Request("rdSearchType") = "ReadCount" Then

  If Not isNumeric(Request("intReadCount")) Then 
    %>
    <p align="center"><font color="red">人气值必须为数字，请重新输入信息！</font>
    <!-- #include file="searchCondition.asp" -->
  <%
  Else     
    strSQL = "SELECT * FROM Lily_Article WHERE ReadCount>"&Request("intReadCount")
  End If

ElseIf Request("rdSearchType") = "ReplyCount" Then

  If Not isNumeric(Request("intReplyCount")) Then
    %> 
    <p align="center"><font color="red">回复值必须为数字，请重新输入信息！</font>
    <!-- #include file="searchCondition.asp" -->
  <%
  Else     
    strSQL = "SELECT * FROM Lily_Article WHERE ReplyCount>"&Request("intReplyCount")
  End If

End If

If strSQL <> "" Then
  strSQL = strSQL & " ORDER BY PostTime DESC"
  rsArticle.Open strSQL,cn,1
  If rsArticle.Eof Then
    %>
    <p align="center"><font color="red">查询结果为空，请重新设置查询条件！</font>
    <!-- #include file="searchCondition.asp" --> 
  <%
  Else
  %>
    <!-- #include file="SearchTitle.asp" -->
  <%
  End If
End If
%>
<!-- #include file="cnClose.asp" -->

<!-- #include file="Bottom.htm" -->