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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
talk_seek_result.asp
资源名称：002_classroom_sourcecodes.rar　[点击查看]
上传用户：stone001
上传日期：2016-10-28
资源大小：685k
文件大小：10k
源码类别：

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

开发平台：

ASP/ASPX

talk_seek_result.asp：源码内容
  1. <!--插入html头部分以及数据库接口-->
  2. <!--#include file="in_conn.asp"-->
  5. <body>
  8. <!--插入网站置顶-->
  9. <% if u_name="" then
  10. Response.Redirect "log_err.asp"
  11. else
  12. %>
  13. <!--#include file="in_topmb.asp"-->
  14. <% end if %>
  17. <%
  18. '获取传值
  19. dim sqlseek,vstopic,vsauthor,tipseek
  20. vstopic=""
  21. vsauthor=""
  22. sqlseek=""
  23. tipseek="以下列出："
  25. If Request.QueryString("page")="" Then
  26. IF trim(Request.QueryString("username"))="" THEN
  27. vstopic=trim(Request.Form("txttopic"))
  28. vsauthor=trim(Request.Form("txtauthor"))
  29. if vstopic="" AND vsauthor="" then
  30. Response.Redirect("resp.asp?cmd=seeknotkey")
  31. else
  32. if vstopic<>"" then
  33. sqlseek=sqlseek&" AND t.t_topic LIKE '%"&stryin(vstopic)&"%' "
  34. tipseek=tipseek&"主题关键字“<font class=ft1>"&unhtml(vstopic)&"</font>” "
  35. end if
  36. if vsauthor<>"" then
  37. sqlseek=sqlseek&" AND t.t_author LIKE '%"&stryin(vsauthor)&"%' "
  38. tipseek=tipseek&"作者“<font class=ft1>"&vsauthor&"</font>” "
  39. end if
  40. end if
  41. ELSE
  42. vsauthor=trim(Request.QueryString("username"))
  43. sqlseek=sqlseek&" AND t.t_author='"&stryin(vsauthor)&"' "
  44. tipseek=tipseek&"作者“<font class=ft1>"&vsauthor&"</font>” "
  45. END IF
  46. Else
  47. vstopic=trim(Request.QueryString("topic"))
  48. vsauthor=trim(Request.QueryString("username"))
  49. if vstopic="" AND vsauthor="" then
  50. Response.Redirect("resp.asp?cmd=seeknotkey")
  51. else
  52. if vstopic<>"" then
  53. sqlseek=sqlseek&" AND t.t_topic LIKE '%"&stryin(vstopic)&"%' "
  54. tipseek=tipseek&"主题关键字“<font class=ft1>"&unhtml(vstopic)&"</font>” "
  55. end if
  56. if vsauthor<>"" then
  57. sqlseek=sqlseek&" AND t.t_author LIKE '%"&stryin(vsauthor)&"%' "
  58. tipseek=tipseek&"作者“<font class=ft1>"&vsauthor&"</font>” "
  59. end if
  60. end if
  62. End If
  63. %>
  67. <table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
  68. <td width="100%" height="60%">
  69. &nbsp;<a href="index.asp">[首页]</a>-<a href="talkbook.asp">[班级讨论区]</a>-<font class="ft1">[搜索结果]</font>
  70. </td>
  71. <td align="right">
  72. <a href="talk_seek.asp"><img src="img/seek.gif" border="0" hspace="0" vspace="0" align="absmiddle"></a>&nbsp;
  73. </td>
  74. </tr></table>
  77. <table align="center" width="700" height="18" border="0" cellspacing="0" cellpadding="6" class="rde">
  78. <tr><td width="100%">
  79. &nbsp;<% =tipseek %>的相关文章
  80. </td></tr>
  81. </table>
  83. <%
  84. '分页的统计
  85. dim rdcount,pgcount,pgsize
  86. pgsize=20
  87. rdcount=conn.Execute("SELECT COUNT(t.t_ID) FROM(SELECT m.ID,m.name,m.sex,m.power,t.t_ID,t.t_author,t.t_topic,t.t_datepub,t.t_datefre,t.t_class,t.t_re,t.t_clk,t.t_emotion,t.t_lastre FROM tblmates AS m INNER JOIN tbltalk AS t ON m.name=t.t_author WHERE t.t_isreply=False"&sqlseek&")",0,1)(0)
  88. if rdcount<1 then
  89. Response.Redirect("resp.asp?cmd=seeknotfound")
  90. end if
  93. pgcount=Abs(Int(rdcount/pgsize*(-1)))
  95. '获取传值
  96. dim curpage
  97. curpage=Request.QueryString("page")
  99. IF isNumeric(Request.QueryString("page")) THEN
  100. curpage=CLng(curpage)
  101. if curpage<1 OR curpage>pgcount then
  102. curpage=1
  103. end if
  104. ELSE
  105. curpage=1
  106. END IF
  108. %>
  110. <%
  111. dim colnum,colmid,pg_i
  112. '定义显示快捷页个数
  113. colnum=5
  114. colmid=colnum2
  115. '生成快捷页的函数
  116. Sub PageQuick()
  117. %>
  119. <% if rdcount>0 then %>
  120. <a href="talk_seek_result.asp?topic=<% =vstopic %>&username=<% =vsauthor %>&page=1"><font face="webdings" title="头页">9</font></a>
  121. <% else %>
  122. <font face="webdings" title="头页">9</font>
  123. <% end if %>
  125. <% If curpage>1 Then %>
  126. <a href="talk_seek_result.asp?topic=<% =vstopic %>&username=<% =vsauthor %>&page=<% =curpage-1 %>"><font face="webdings" title="上页">7</font></a>
  127. <% Else %>
  128. <font face="webdings" title="上页">7</font>
  129. <% End if %>
  131. <%
  132. '前省略号的使用
  133. if pgcount>colnum AND curpage-colmid>1 then
  134. Response.Write "…"
  135. end if
  137. IF pgcount<colnum THEN
  138. for pg_i=1 to pgcount
  139. if pg_i<>curpage then
  140. response.write "<a href=talk_seek_result.asp?topic="&vstopic&"&username="&vsauthor&"&page="&pg_i&">["&pg_i&"]</a>"
  141. else
  142. response.Write "["&pg_i&"]"
  143. end if
  144. next
  145. ELSEIF curpage-1>=colmid AND pgcount-curpage>=colmid THEN
  146. for pg_i=curpage-colmid to curpage+colmid
  147. if pg_i<>curpage then
  148. response.write "<a href=talk_seek_result.asp?topic="&vstopic&"&username="&vsauthor&"&page="&pg_i&">["&pg_i&"]</a>"
  149. else
  150. response.Write "["&pg_i&"]"
  151. end if
  152. next
  153. ELSEIF curpage-1>=colmid AND pgcount-curpage<colmid THEN
  154. for pg_i=pgcount-colnum+1 to pgcount
  155. if pg_i<>curpage then
  156. response.write "<a href=talk_seek_result.asp?topic="&vstopic&"&username="&vsauthor&"&page="&pg_i&">["&pg_i&"]</a>"
  157. else
  158. response.Write "["&pg_i&"]"
  159. end if
  160. next
  161. ELSE
  162. for pg_i=1 to 5
  163. if pg_i<>curpage then
  164. response.write "<a href=talk_seek_result.asp?topic="&vstopic&"&username="&vsauthor&"&page="&pg_i&">["&pg_i&"]</a>"
  165. else
  166. response.Write "["&pg_i&"]"
  167. end if
  168. next
  169. END IF
  171. '后省略号的使用
  172. if pgcount>colnum AND curpage+colmid<pgcount then
  173. Response.Write "…"
  174. end if
  175. %>
  177. <% If curpage<pgcount Then %>
  178. <a href="talk_seek_result.asp?topic=<% =vstopic %>&username=<% =vsauthor %>&page=<% =curpage+1 %>"><font face="webdings" title="下页">8</font></a>
  179. <% Else %>
  180. <font face="webdings" title="下页">8</font>
  181. <% End if %>
  183. <% if rdcount>0 then %>
  184. <a href="talk_seek_result.asp?topic=<% =vstopic %>&username=<% =vsauthor %>&page=<% =pgcount %>"><font face="webdings" title="尾页">:</font></a>
  185. <% else %>
  186. <font face="webdings" title="尾页">:</font>
  187. <% end if %>
  189. &nbsp;查询结果共<font color="<% =cohover %>"><% =rdcount %></font>篇&nbsp;分为<font color="<% =cohover %>"><% =pgcount %></font>页&nbsp;每页<font color="<% =cohover %>"><% =pgsize %></font>篇&nbsp;第<font color="<% =cohover %>"><% =curpage %></font>页&nbsp;
  190. <%
  191. End Sub
  192. %>
  194. <table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="background-color:<% =bg3 %>;">
  195. <tr>
  196. <td width="130" height="100%">
  197. &nbsp;<a href="talkpub.asp"><img src="img/icn_pub.gif" align="absmiddle" border="0" vspace="0" hspace="0" alt="[→发表新主题]"></a>
  198. <a href="talkvote.asp"><img src="img/icn_newvote.gif" align="absmiddle" border="0" vspace="0" hspace="0" alt="[→发起新投票]"></a>
  199. </td>
  200. <td align="right">
  201. <% call PageQuick() %>
  202. </td>
  203. </tr>
  204. </table>
  206. <table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0">
  207. <tr><td width="100%" height="25">
  208. <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="rdbar">
  209. <tr>
  210. <th width="25" height="100%" class="rdr">&nbsp;
  212. </th>
  213. <th width="280" class="rdr" style="padding-left:4px; padding-right:4px; background:<% =bg1 %>">
  214. 主　题
  215. </th>
  216. <th width="140" align="center" class="rdr">
  217. 作　者
  218. </th>
  219. <th width="90" align="center" class="rdr" style="background:<% =bg1 %>">
  220. 回复／点击
  221. </th>
  222. <th style="padding-left:12px;">
  223. 最后发表
  224. </th>
  225. </tr>
  226. </table>
  227. </td></tr>
  229. <%
  230. IF rdcount<1 THEN
  231. %>
  232. <tr><th width="100%" class="rdkuang"><font class="ft1">抱歉，没有任何相关文章！</font></th></tr>
  234. <%
  235. ELSE
  237. sqlstr="SELECT m.ID,m.name,m.sex,m.power,t.t_ID,t.t_author,t.t_topic,t.t_datepub,t.t_datefre,t.t_class,t.t_re,t.t_clk,t.t_emotion,t.t_lastre FROM tblmates AS m INNER JOIN tbltalk AS t ON m.name=t.t_author WHERE t.t_isreply=False"&sqlseek&" ORDER BY t.t_class DESC,t.t_idfre DESC"
  238. rs.open sqlstr,conn,1,1
  240. '给分页所需的中间变量赋值
  241. rs.PageSize=pgsize
  243. '当前页转到指定的页码
  244. rs.AbsolutePage=curpage
  246. '开始读取数据
  247. dim icn_top,icn_sex,vlastre,vlink,vttype
  248. FOR i=1 to pgsize
  249. If rs.eof Then
  250. EXIT FOR
  251. End If
  252. '判断主题级别和表情
  253. if rs("t_emotion")=0 or rs("t_class")<2 then
  254. icn_top="img/topic/"&rs("t_emotion")&".gif"
  255. else
  256. icn_top="img/icn_top.gif"
  257. end if
  258. IF rs("t_class")>1 THEN
  259. vlink="class='ccjh'"
  260. ELSE
  261. vlink=""
  262. END IF
  263. '判断是否为投票主题
  265. IF rs("t_emotion")=0 THEN
  266. vttype="voteview.asp"
  267. ELSE
  268. vttype="talkview.asp"
  269. END IF
  271. '判断身份或者性别
  272. IF rs("power")>1 THEN
  273. icn_sex="img/icn_adm1.gif"
  274. ELSEIF rs("sex")=True THEN
  275. icn_sex="img/icn_gg.gif"
  276. ELSE
  277. icn_sex="img/icn_mm.gif"
  278. END IF
  279. '总管判断
  280. if DEF_sysadm=rs("name") then
  281. icn_sex="img/icn_admsys.gif"
  282. end if
  284. '最后发表的人
  285. IF isNULL(rs("t_lastre")) OR rs("t_lastre")="" THEN
  286. vlastre="------"
  287. ELSE
  288. vlastre=rs("t_lastre")
  289. END IF
  291. %>
  293. <tr><td width="100%" height="42">
  294. <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="rde">
  295. <tr>
  296. <th width="25" height="100%" class="rdr">
  297. <img src="<% =icn_top %>" border="0">
  298. </th>
  299. <td width="280" class="rdr" style="padding-left:4px; padding-right:4px; background:<% =bg3 %>">
  300. <a <% =vlink %> href="<% =vttype %>?id=<% =rs("t_ID") %>" title="主题：<% =stryin2(KillHTMLLabel(rs("t_topic"))) %><br>作者：<% =rs("t_author") %><br>发布于：<% =rs("t_datepub") %>"><% =unhtml(hhstr(rs("t_topic"),40)) %></a>
  301. </td>
  302. <td width="140" align="center" class="rdr">
  303. <img src="<% =icn_sex %>" border="0" align="absmiddle">
  304. <a href="viewinfo.asp?id=<% =rs("ID") %>" title="点击查看该同学详细资料"><% =rs("t_author") %></a>
  305. </td>
  306. <td width="90" align="center" class="rdr" style="background:<% =bg3 %>">
  307. <%
  308. Response.Write "<FONT class='ft1'>"&rs("t_re")&"</FONT>/"&rs("t_clk")
  309. %>
  310. </td>
  311. <td style="padding-left:12px;">
  312. <%
  313. IF isNULL(rs("t_datefre")) THEN
  314. Response.Write rs("t_datepub")
  315. ELSE
  316. Response.Write rs("t_datefre")
  317. END IF
  318. Response.Write "<br>"&vlastre
  319. %>
  320. </td>
  321. </tr>
  322. </table>
  323. </td></tr>
  325. <%
  326. rs.MoveNext
  327. Next
  328. rs.close
  330. END IF
  331. %>
  332. </table>
  334. <table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="background-color:<% =bg3 %>;">
  335. <tr>
  336. <td width="130" height="100%">
  337. &nbsp;<a href="talkpub.asp"><img src="img/icn_pub.gif" align="absmiddle" border="0" vspace="0" hspace="0" alt="[→发表新主题]"></a>
  338. <a href="talkvote.asp"><img src="img/icn_newvote.gif" align="absmiddle" border="0" vspace="0" hspace="0" alt="[→发起新投票]"></a>
  339. </td>
  340. <td align="right">
  341. <% call PageQuick() %>
  342. </td>
  343. </tr>
  344. </table>
  348. <!--插入在线统计-->
  349. <!--#include file="in_online.asp"-->
  350. <!--插入网站置底-->
  351. <!--#include file="in_bottom.asp"-->
  352. </body>
  354. </html>