📄 search.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - 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 CS_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="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="321" valign="top" bgcolor="#082421"><span>
<%Call Page_Login()%>
</span></td>
<td rowspan="2" valign="top" bgcolor="#003333"><table width="100%" 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></td>
</tr>
<tr>
<td valign="bottom" bgcolor="#082421" class="leftbg"><img src="Skins/blak/leftad.jpg" width="321" /></td>
</tr>
</table>
<%
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -