开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Search.Asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：7k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

Search.Asp：源码内容
  1. <!--#include file="Inc/SysConfig.Asp"-->
  2. <!--#include file="inc/Page_Cls.Asp"-->
  3. <%
  4. Dim Action,Key,strPageInfo
  5. If Not YxBBs.Founduser Then YxBBs.Error("您还没有注册或者登陆！")
  6. If YxBBs.BoardID >0 Then YxBBs.CheckBoard()
  7. Call YxBBs.Head("论坛搜索")
  8. Key=GetKey("Key")
  9. If len(Key)>20 Then YxBBs.Error("搜索关键字超过了限制！")
  10. If Key<>"" Then
  11. SearchList()
  12. Else
  13. Main()
  14. End If
  15. YxBBs.Footer()
  16. Set YxBBs=Nothing
  18. Sub ListTop()
  19. Dim Temp
  20. Temp=YxBBs.Template.ReadTemplate("各项列表顶部")
  21. Temp=Replace(Temp,"{标题}","搜索关键字 <font color=red><u>"&Key&"</U></font>" )
  22. Response.Write Temp
  23. End Sub
  25. Sub ListBottom()
  26. Dim Temp
  27. Temp=YxBBs.Template.ReadTemplate("各项列表底部")
  28. Temp=Replace(Temp,"{分页}",strPageInfo)
  29. Response.Write Temp
  30. End Sub
  32. Function CheckKey(Keys)
  33. Keys=Replace(Keys,"#","")
  34. Keys=Replace(Keys,"  "," ")
  35. Keys=Replace(Keys,"]","")
  36. Keys=Replace(Keys,"[","[[]")
  37. Keys=Replace(Keys,"%","[%]")
  38. CheckKey=Replace(Keys,"_","[_]")
  39. End Function
  41. Function SplitKey(Col,Key)
  42. Dim KeyNum,Keys
  43. Keys=Split(Key," ")
  44. For KeyNum=0 To Ubound(Keys)
  45. SplitKey=SplitKey&Col&" like '%"&CheckKey(Keys(KeyNum))&"%' Or "
  46. Next
  47. SplitKey="("&Left(SplitKey,Len(SplitKey)-4)&")"
  48. End Function
  50. Sub SearchList()
  51. Dim intPageNow,arr_Rs,i,Pages,TopicImg,Conut,page
  52. Dim SType,STime,SQLwhere
  53. Dim Temp,TopicS,Caption,Content,Facepic,Moodpic,LastRe,RePageUrl,UploadType,RePage,leftn,ii,NoShow,IsSearchInfo
  54. SType=YxBBs.CheckNum(Request.QueryString("SType"))
  55. STime=YxBBs.CheckNum(Request.QueryString("STime"))
  56. If SType=1 Then
  57. Sqlwhere=SplitKey("Name",Key)
  58. ElseIf SType=3 Then
  59. Sqlwhere=SplitKey("Caption",Key)&" or "&SplitKey("Name",Key)
  60. Else
  61. Sqlwhere=SplitKey("Caption",Key)
  62. End If
  63. If STime<>0 Then Sqlwhere=Sqlwhere&" And DATEDIFF('d',[AddTime],'"&YxBBs.NowBbsTime&"')<"&STime
  64. If YxBBs.BoardID >0 Then
  65. Sqlwhere=sqlwhere&" And (BoardID="&YxBBs.BoardID&" or TopType=5)"
  66. End If
  67. Sqlwhere=Sqlwhere&" and SqlTableID="&YxBBs.TB&" and IsDel=False"
  68. IsSearchInfo=False
  69. intPageNow = Request.QueryString("page")
  70. Set Pages = New Cls_PageView
  71. Pages.strTableName = "[YX_Topic]"
  72. Pages.strPageUrl = "?Action="&Action&"&Key="&Key&"&SType="&SType&"&TB="&YxBBs.TB&"&STime="&STime&"&BoardID="&YxBBs.BoardID
  73. Pages.strFieldsList = "TopicID,Face,Caption,Name,TopType,IsGood,AddTime,BoardID,LastTime,Hits,LastReply,UploadType,IsVote,ReplyNum,SqlTableID,IsLock"
  74. Pages.strCondiction = SqlWhere
  75. Pages.strOrderList = "TopicID desc"
  76. Pages.strPrimaryKey = "TopicID"
  77. Pages.intPageSize = Int(YxBBs.BBSSetting(26))
  78. Pages.intPageNow = intPageNow
  79. Pages.strCookiesName = "Search"&SType&STime&YxBBs.BoardID&YxBBs.TB
  80. Pages.Reloadtime=0
  81. Pages.strPageVar = "page"
  82. Pages.InitClass
  83. Arr_Rs = Pages.arrRecordInfo
  84. strPageInfo = Pages.strPageInfo
  85. Set Pages = nothing
  86. If IsArray(Arr_Rs) Then
  87. TopicImg=Split(YxBBs.Template.ReadTemplate("帖子状态图片"),"|")
  88. NoShow=YxBBs.NoShowTopic()
  89. For i = 0 to UBound(Arr_Rs, 2)
  90. If InStr(NoShow,","&Arr_Rs(7,I)&",")=0 Then
  91. IsSearchInfo=True
  92. Moodpic=TopicImg(6)
  93. If Arr_Rs(13,i) > Int(YxBBs.BBSSetting(24)) Then Moodpic=TopicImg(5)
  94. If Arr_Rs(5,i) Then Moodpic=TopicImg(3)
  95. If Arr_Rs(15,i) Then Moodpic=TopicImg(7)
  96. If Arr_Rs(12,i) Then Moodpic=TopicImg(4)
  97. If Arr_Rs(4,i)=5 Then Moodpic=TopicImg(0)
  98. If Arr_Rs(4,i)=4 Then Moodpic=TopicImg(1)
  99. If Arr_Rs(4,i)=3 Then Moodpic=TopicImg(2)
  100. Facepic=""
  101.                                 If Arr_Rs(1,i)<>99 then Facepic="<img src='Images/face/"&Arr_Rs(1,i)&".gIf'>"
  102. UploadType=""
  103. If Arr_Rs(11,i)<>"" Then Facepic="<img title='此帖子含有附件' src='Inc/Editor/images/common.gif' border=0> "
  104. LastRe=split(Arr_Rs(10,i),"|")
  105. RePage=Arr_Rs(13,i)10
  106. If RePage<Arr_Rs(13,i)/10 Then RePage=RePage+1
  107. RePageUrl="Show.Asp?ID="&Arr_Rs(0,i)
  108. leftn=40
  109. If RePage>1 Then leftn=36
  110. Caption=UploadType
  111. Caption=Caption&"<a href="&Repageurl&" title='发布时间："&Arr_Rs(6,i)&"<br>最后回复："&YxBBs.Fun.StrLeft(LastRe(1),20)&"'>"& Replace(YxBBs.Fun.StrLeft(Arr_Rs(2,i),leftn),Key,"<font color=red>"&Key&"</font>")&"</a>"
  112. If Repage>1 Then
  113. Caption=Caption&" <a href='"&RePageurl&"&page="&RePage&"'>[<font color=#FF0000>"&RePage&"</font>]</a>"
  114. End If
  115. If Datediff("n",Arr_Rs(8,i),YxBBs.NowbbsTime)<=180 Then Caption=Caption&TopicImg(8)
  116. Temp=YxBBs.Template.ReadTemplate("主题列表")
  117. Temp=Replace(Temp,"{状态}",Moodpic)
  118. Temp=Replace(Temp,"{主题}",Caption)
  119. Temp=Replace(Temp,"{表情}",Facepic)
  120. Temp=Replace(Temp,"{用户名称}","<a href='Profile.Asp?name="&Arr_Rs(3,i)&"' title='查看 "&Arr_Rs(3,i)&" 的资料'>"&Replace(Arr_Rs(3,i),Key,"<font color=red>"&Key&"</font>")&"</a>")
  121. Temp=Replace(Temp,"{回复数}",Arr_Rs(13,i))
  122. Temp=Replace(Temp,"{点击数}",Arr_Rs(9,i))
  123. Temp=Replace(Temp,"{最后时间}","<font title='时间："&FORMATDATETIME(Arr_Rs(8,i),3)&"'>"&Datepart("yyyy",Arr_Rs(8,i))&"-"&Right(00&Datepart("m",Arr_Rs(8,i)),2)&"-"&Right(00&Datepart("D",Arr_Rs(8,i)),2)&"</font>")
  124. Temp=Replace(Temp,"{回复用户名称}","<a href='Profile.Asp?name="&LastRe(0)&"' title='查看 "&LastRe(0)&" 的资料'>"&LastRe(0)&"</a>")
  125. TopicS=TopicS&Temp
  126. End If
  127. Next
  128. End If
  129. If IsSearchInfo Then
  130. ListTop()
  131. Response.Write(TopicS)
  132. ListBottom()
  133. Else
  134. Caption="论坛搜索"
  135. Content="<div style='margin: 10;line-height:150%'>关键字<font color='red'> "&YxBBs.Fun.HtmlCode(key)&" </font>找不到任何结果！&nbsp;&nbsp;&nbsp;&nbsp;<li><a href=javascript:history.go(-1)>返回上一页</a><li><a href=Search.Asp>重新高级搜索</a><div>"
  136. Call YxBBs.ShowTable(Caption,Content)
  137. End If
  138. End Sub
  140. Sub Main()
  141. Dim Caption,Content
  142. Content="<form method='get' style='margin:0'><tr><td width='30%' height=30 align='right'>搜索关键字：</td><td width='70%'>&nbsp;<input type='text' name='Key' size=52 onkeyup=""ValidateTextboxAdd(this,'BtnSearch')"" onpropertychange=""ValidateTextboxAdd(this,'BtnSearch')""></td></tr>"&_
  143. "<tr><td height='30' align='right'>搜索类型：</td><td width='61%'>&nbsp;<input type='radio' value='1'  name='SType'> 按帖子作者 <input type='radio' name='SType' value='2'> 按帖子主题 <input type='radio' checked name='SType' value='3'>两者均搜</td></tr>"&_
  144. "<tr><td height='30' align='right'>搜索日期范围：</td><td >&nbsp;<select size='1' name='STime'><option selected value='0'>所有日期</option><option value='1'>1天以来</option><option value='2'>2天以来</option><option value='7'>7天以来</option><option value='15'>15天以来</option><option value='30'>30天以来</option></select></td></tr>"&_
  145. "<tr><td height='30' align='right'>搜索数据表范围：</td><td>&nbsp;"&TBList&"</td></tr>"&_
  146. "<tr><td height='30' align='right'>搜索的论坛：</td><td>&nbsp;<select name='BoardID'><option value='0'>搜索全部论坛...</option>"& YxBBs.BoardIDList(0,0)&"</select></td></tr>"&_
  147. "<tr><td height='30' align='center' colspan='2'><input type='submit' value=' 开 始 搜 索 ' ID='BtnSearch' disabled><input type='hidden' value='Topic' name='Action'></td></tr></form>"
  148. Caption="论坛搜索"
  149. Call YxBBs.ShowTable(Caption,Content)
  150. End Sub
  152. Function GetKey(str)
  153. Str=Request(str)
  154. Str=Replace(str,"'","")
  155. Str=Replace(str,chr(34)&chr(34),"")
  156. str=Replace(str,"[","[[]")
  157. GetKey=str
  158. End Function
  160. Function TBList()
  161. Dim AllTable,I,Temp
  162. AllTable=Split(YxBBs.BBSTable(0),",")
  163. For i=0 To uBound(AllTable)
  164. Temp=Temp&"<option value='"&AllTable(i)&"' " 
  165. If AllTable(i)=YxBBs.TB Then Temp=Temp&"selected"
  166. Temp=Temp&">数据表 "&AllTable(i)&"</option>"
  167. next
  168. TBList="<select name='TB'>"&Temp&"</select>"
  169. End Function
  170. %>