📄 search.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
Class_Name="搜索"
Page_Name="搜索 -- " & Web_Const(0)
Dim SearchSelectkey
IF Action="Userinfo" THEN
Selectkey=Loginuser_Id
SearchSelectkey=Session("Loginuser") & "发表的帖子"
Else
Selectkey=checkfSQLstr(Request.form("Selectkey"))
SearchSelectkey=Selectkey
End IF
IF Selectkey="" THEN
error_title="对不起，请输入查询关键字！"
Call Page_check(3,0)
End IF
Call Page_Head()
Call Page_iHead()
Call Page_nHead()
Set Rs_Manage=server.Createobject("Adodb.Recordset")
IF Request.form("Searchclass")="Products" THEN
Sql="Select * from Tx_Products where Products_Flag=1 And "
IF Request.form("xSearch")="Products_Name" THEN
Sql = Sql & "Products_Name like '%" & Selectkey & "%'"
End IF
IF Request.form("xSearch")="Products_Content" THEN
Sql = Sql & "Products_Content like '%" & Selectkey & "%'"
End IF
Sql = Sql & "order by Products_Date desc"
End IF
IF Request.form("Searchclass")="News" THEN
Sql="Select * from Tx_News where News_Flag=1 And "
IF Request.form("xSearch")="News_Title" THEN
Sql = Sql & "News_Title like '%" & Selectkey & "%'"
End IF
IF Request.form("xSearch")="News_Content" THEN
Sql = Sql & "News_Content like '%" & Selectkey & "%'"
End IF
Sql = Sql & "order by News_Date desc"
End IF
IF Request.form("Searchclass")="Down" THEN
Sql="Select * from Tx_Down where Down_Flag=1 And "
IF Request.form("xSearch")="Down_Name" THEN
Sql = Sql & "Down_Name like '%" & Selectkey & "%'"
End IF
IF Request.form("xSearch")="Down_Content" THEN
Sql = Sql & "Down_Content like '%" & Selectkey & "%'"
End IF
Sql = Sql & "order by Down_Date desc"
End IF
IF Request.form("Searchclass")="bbs" THEN
Sql="Select * from Tx_Bbs where Bbs_ClassId=Bbs_Id And Bbs_Flag=1 And Bbs_Title like '%" & Selectkey & "%' order by Bbs_Date desc"
End IF
IF Request.form("Searchclass")="ShopCode" THEN
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition from Tx_Shop where Shop_Condition>=2 And Shop_Code=" & Selectkey & " order by Shop_Date desc"
End IF
IF Action="Userinfo" THEN
Sql="Select * from Tx_Bbs where Bbs_ClassId=Bbs_Id And Bbs_UserId=" & Selectkey & " And Bbs_Flag=1 order by Bbs_Date desc"
End IF
Rs_Manage.open Sql,Conn,1,1
%>
<TABLE WIDTH="770" BORDER="0" ALIGN="center" CEllPADDING="0" CELLSPACING="0">
<TR>
<TD VALIGN="top" CLASS="TABLE-Main">
<DIV CLASS="search-top1"><SPAN STYLE="width:60%;">您搜索的关键字是：<SPAN CLASS="type-color2"><B><%=SearchSelectkey%></B></SPAN></SPAN><SPAN STYLE="width:40%;text-align:right;">共找到相关记录<SPAN CLASS="type-color2"><B><%=Rs_Manage.recordCount%></B></SPAN>条</SPAN></DIV>
<%
Dim xh
Page_Nexterror=4
Rs_Manage.PageSize = SearchMax_Class
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
currentpage=clng(currentpage)
End IF
IF totalrec Mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof And Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
xh=0
dim lineheight
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
xh=xh+1
IF page_count<>Rs_Manage.RecordCount THEN
lineheight="<DIV CLASS='type-height2'></DIV>"
End IF
%>
<DIV CLASS="search-content">
<%IF Request.form("Searchclass")="Products" THEN%>
<B><%=xh%>.</B> <A HREF="Products.asp?Id=<%=Rs_Manage("Products_Id")%>" target="_blank"><B><%=replace(Rs_Manage("Products_Name"),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%></B></A>
<DIV CLASS="search-content1"><%=replace(gotTopic(nohtml(Rs_Manage("Products_Content")),150,1),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%>
<%=lineheight%>
</DIV>
<%End IF
IF Request.form("Searchclass")="News" THEN%>
<B><%=xh%>.</B> <A HREF="News.asp?Id=<%=Rs_Manage("News_Id")%>" target="_blank"><B><%=replace(Rs_Manage("News_Title"),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%></B></A>
<DIV CLASS="search-content1"><%=replace(gotTopic(nohtml(Rs_Manage("News_Content")),100,1),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%>
<%=lineheight%>
</DIV>
<%End IF
IF Request.form("Searchclass")="Down" THEN%>
<B><%=xh%>.</B> <A HREF="Down.asp?Id=<%=Rs_Manage("Down_Id")%>" target="_blank"><B><%=replace(Rs_Manage("Down_Name"),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%></B></A>
<DIV CLASS="search-content1"><%=replace(gotTopic(nohtml(Rs_Manage("Down_Content")),100,1),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%>
<%=lineheight%>
</DIV>
<%End IF
IF Request.form("Searchclass")="bbs" THEN%>
<B><%=xh%>.</B> <A HREF="bbs_list.asp?Id=<%=Rs_Manage("Bbs_Id")%>" target="_blank"><B><%=replace(Rs_Manage("Bbs_Title"),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%></B></A>
<DIV CLASS="search-content1"><%=replace(gotTopic(nohtml(Rs_Manage("Bbs_Content")),100,1),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%>
<%=lineheight%>
</DIV>
<%End IF
IF Request.form("Searchclass")="ShopCode" THEN
%>
<B><%=xh%>.</B> <%Response.Write " <a onClick=" & CHR(34) & "javascript:window.open('Shop.asp?Action=shopedit&Id=" & Rs_Manage("Shop_Code") & "','news','width=583,height=350,top=300,left=220,scrollbars=yes');return false;" & CHR(34) & " href=''><B>" & Rs_Manage("Shop_Code") & "</B></A> "%>
<DIV CLASS="search-content1">订单状态：<%
Select Case Rs_Manage("Shop_Condition")
Case "0"
Response.write "<FONT COLOR=ff0000>失效（无效订单）</FONT>"
Case "1"
Response.write "<FONT COLOR=ff0000>失效（有产品被删除）</FONT>"
Case "2"
Response.write "<B>未作任何处理</B>"
Case "3"
Response.write "用户已付出货款"
Case "4"
Response.write "服务商已收到货款"
Case "5"
Response.write "<FONT COLOR=ff0000>服务商已发出货</FONT>"
Case "6"
Response.write "用户已收到货"
Case "7"
Response.write "<u>订单交易成功</u>"
End Select
%>
下单时间：<%=YearDami(Rs_Manage("Shop_Date"))%>
<%=lineheight%>
</DIV>
<%End IF
IF Action="Userinfo" THEN%>
<B><%=xh%>.</B> <A HREF="bbs_list.asp?Id=<%=Rs_Manage("Bbs_Id")%>" target="_blank"><B><%=replace(Rs_Manage("Bbs_Title"),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%></B></A>
<DIV CLASS="search-content1"><%=replace(gotTopic(nohtml(Rs_Manage("Bbs_Content")),150,1),Selectkey,"<FONT COLOR=#FF0000>" & Selectkey & "</FONT>")%>
<%=lineheight%>
</DIV>
<%End IF%>
</DIV>
<%
lineheight=""
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
%>
<DIV CLASS="search-top1"></DIV>
<%
Call Page_Next()
%>
</TD>
</TR>
</TABLE>
<%
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -