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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
Pic.asp
资源名称：7.rar　[点击查看]
上传用户：lfyh0123
上传日期：2020-11-04
资源大小：200k
文件大小：23k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

Pic.asp：源码内容
  1. <!--#include file="wapls_up.asp"-->
  2. <%
  3. '==================================
  4. '=文 件 名：pic.asp
  5. '=适用版本：蓝色世纪WAP网站管理系统(CMS)V1.1
  6. '=官方版权：http://www.songfr.cn
  7. '=文件功能：网站图像前台
  8. '=文件作者：蓝色阳光
  9. '=发行时间：2007-02-01
  10. '==================================
  11. IF  Request.QueryString("Action")="view" Then
  12. call view
  13. elseIF  Request.QueryString("Action")="cat" Then
  14. call cat
  15. elseIF  Request.QueryString("Action")="cla" Then
  16. call cla
  17. elseIF  Request.QueryString("Action")="er" Then
  18. call er
  19. elseIF  Request.QueryString("Action")="fl" Then
  20. call fl
  21. elseIF  Request.QueryString("Action")="gs" Then
  22. call gs
  23. elseIF  Request.QueryString("Action")="d" Then
  24. call d
  25. elseIF  Request.QueryString("Action")="remarklist" Then
  26. call remarklist
  27. else
  28. call main
  29. End IF
  30. '========图像主页列表=======
  31. Function main
  32. dim sql
  33. %>
  34. <card id="index" title="图像频道">
  35. <p align="<%=const1%>">
  36. <%
  37. if len(mb_pic)>1 then
  38. response.write ""&outHTM(mb_pic)&"<br/>"
  39. end if
  40. set rsc=server.createobject("ADODB.Recordset")
  41. Sqlc="select top "&pagenum&" * from wapls_pic order by istop=1,pic_date desc"
  42. rsc.open Sqlc,conn,1,1
  43. if not (rsc.bof and rsc.eof)  then 
  44. For i=1 to rsc.RecordCount
  45. If Rsc.Eof Then
  46. exit For
  47. End If
  48. if len(mb_logo)>1 then
  49. response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
  50. end if
  51. if rsc("pic_good")=2 then%>[精]<%end if%><%if rsc("pic_good")=1 then%>[荐]<%end if%><%if rsc("istop")=1 then%>[顶]<%end if%><a href="?Action=view&amp;id=<%=rsc("pic_id")%>"><%=utf8(rsc("pic_title"))%></a><%
  52. if DateDiff("d",rsc("pic_date"),now())<1 then
  53. if len(mb_logo)>1 then
  54. response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
  55. else
  56. response.write " NEW "
  57. end if
  58. end if%><br/><%Rsc.MoveNext
  59. Next
  60. end if
  61. if len(mb_logo)>1 then
  62. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  63. else
  64. %>
  65. ----------<br/>
  66. <%end if
  67. set rs=server.createobject("ADODB.Recordset")
  68. Sql="select * from wapls_pic_cat order by cat_num asc"
  69. rs.open Sql,conn,1,1
  70. if not (rs.bof and rs.eof)  then 
  71. For i=1 to rs.RecordCount
  72. If Rs.Eof Then
  73. exit For
  74. End If
  75. if rs("cat_br")="1" then
  76. br="<br/>"
  77. else
  78. br=""
  79. end if%>
  80. <a href="?Action=cat&amp;id=<%=rs("cat_id")%>"><%=utf8(rs("cat_name"))%></a><%=br%>
  81. <%
  82. Rs.MoveNext
  83. Next
  84. end if
  85. Rsc.close
  86. set rsc=nothing
  87. Rs.close
  88. set rs=nothing
  89. end Function
  90. '========图像分类列表=======
  91. Function cat
  92. catid=TRim(Request("id"))
  93. set rs=server.createobject("ADODB.Recordset")
  94. Sql="select * from wapls_pic_cat WHERE cat_id="&catid
  95. rs.open Sql,conn,1,1
  96. if not (rs.bof and rs.eof) then
  97. title=rs("cat_name")
  98. cattitle=rs("cat_title")
  99. %>
  100. <card id="index" title="<%=title%>分类">
  101. <p align="<%=const1%>">
  102. <%
  103. if len(cattitle)>1 then
  104. %>
  105. <%=outHTM(rs("cat_title"))%><br/>
  106. <%
  107. end if
  108. set rsv=server.createobject("ADODB.Recordset")
  109. Sqlv="select * from wapls_pic_class WHERE cat_id="&catid&" order by class_num asc"
  110. rsv.open Sqlv,conn,1,1
  111. if not (rsv.bof and rsv.eof)  then 
  112. page = Request("Page")
  113. rsv.PageSize = pagenum '一页显示记录
  114. IF Not IsEmpty(Page) Then
  115. IF Not IsNumeric(Page) Then '判断Page是否为数字
  116. Page=1
  117. Else
  118. Page=Cint(Page) '转换成短整形Integer
  119. End IF
  120. IF Page > rsv.PageCount Then
  121. rsv.AbsolutePage = rsv.PageCount '设置当前显示页等于最后一页
  122. ElseIF Page <= 0 Then
  123. rsv.AbsolutePage = 1 '设置当前页等于第一页
  124. Else
  125. rsv.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
  126. End IF
  127. Else
  128. rsv.AbsolutePage = 1
  129. End IF
  130. Page = rsv.AbsolutePage
  131. For i=1 to rsv.PageSize
  132. If rsv.Eof Then
  133. Exit For
  134. End If
  135. if rsv("class_br")="1" then
  136. br="<br/>"
  137. else
  138. br=""
  139. end if
  140. %>
  141. <a href="?Action=cla&amp;id=<%=rsv("class_id")%>"><%=utf8(rsv("class_name"))%></a><%=br%>
  142. <%
  143. rsv.MoveNext
  144. Next
  145. if page>=rsv.PageCount then
  146. 'Response.Write ("[下-页]")        
  147. else
  148. Response.Write("[<a href='?Action=cat&amp;id="&catid&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
  149. end if
  150. if page<=1 then
  151. 'Response.Write ("[上-页] ")
  152. else        
  153. Response.Write("[<a href='?Action=cat&amp;id="&catid&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
  154. end if
  155. if rsv.PageCount>2 then
  156. %><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
  157. <anchor>GO>><go href="?Action=cat&amp;id=<%=catid%>" method="post">
  158. <postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
  159. 共(<%=utf8(page)%>/<%=rsv.pageCount%>)页<br/><%end if%>
  160. <%
  161. else
  162. response.write "暂无分类!<br/>"
  163. end if
  164. Rsv.close
  165. set rsv=nothing
  166. else
  167. response.redirect "wapls_404.asp?id=2"
  168. end if
  169. if len(mb_logo)>1 then
  170. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  171. else
  172. %>
  173. ----------<br/>
  174. <%end if%>
  175. <a href="pic.asp">[图像频道]</a>
  176. <%
  177. end Function
  178. '========图像子分类列表=======
  179. Function cla
  180. classid=TRim(Request("id"))
  181. set rs=server.createobject("ADODB.Recordset")
  182. Sql="select * from wapls_pic_class WHERE class_id="&classid
  183. rs.open Sql,conn,1,1
  184. catid=rs("cat_id")
  185. if not (rs.bof and rs.eof) then
  186. title=rs("class_name")
  187. classtitle=rs("class_title")
  188. %>
  189. <card id="index" title="<%=title%>">
  190. <p align="<%=const1%>">
  191. <%
  192. if len(classtitle)>1 then
  193. %>
  194. <%=outHTM(rs("class_title"))%><br/>
  195. <%
  196. end if
  197. set rsv=server.createobject("ADODB.Recordset")
  198. Sqlv="select * from wapls_pic WHERE class_id="&classid&" order by pic_date desc"
  199. rsv.open Sqlv,conn,1,1
  200. if not (rsv.bof and rsv.eof)  then 
  201. page = Request("Page")
  202. rsv.PageSize = pagenum '一页显示记录
  203. IF Not IsEmpty(Page) Then
  204. IF Not IsNumeric(Page) Then '判断Page是否为数字
  205. Page=1
  206. Else
  207. Page=Cint(Page) '转换成短整形Integer
  208. End IF
  209. IF Page > rsv.PageCount Then
  210. rsv.AbsolutePage = rsv.PageCount '设置当前显示页等于最后一页
  211. ElseIF Page <= 0 Then
  212. rsv.AbsolutePage = 1 '设置当前页等于第一页
  213. Else
  214. rsv.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
  215. End IF
  216. Else
  217. rsv.AbsolutePage = 1
  218. End IF
  219. Page = rsv.AbsolutePage
  220. For i=1 to rsv.PageSize
  221. If rsv.Eof Then
  222. Exit For
  223. End If
  224. if len(mb_logo)>1 then
  225. response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
  226. end if
  227. if rsv("pic_good")=2 then%>[精]<%end if%><%if rsv("pic_good")=1 then%>[荐]<%end if%><%if rsv("istop")=1 then%>[顶]<%end if%><a href="?Action=view&amp;id=<%=rsv("pic_id")%>"><%=utf8(rsv("pic_title"))%></a><%
  228. if DateDiff("d",rsv("pic_date"),now())<1 then
  229. if len(mb_logo)>1 then
  230. response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
  231. else
  232. response.write " NEW "
  233. end if
  234. end if
  235. %><br/><%rsv.MoveNext
  236. Next
  237. if page>=rsv.PageCount then
  238. 'Response.Write ("[下-页]")        
  239. else
  240. Response.Write("[<a href='?Action=cat&amp;id="&classid&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
  241. end if
  242. if page<=1 then
  243. 'Response.Write ("[上-页] ")
  244. else        
  245. Response.Write("[<a href='?Action=cat&amp;id="&classid&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
  246. end if
  247. if rsv.PageCount>2 then
  248. %><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
  249. <anchor>GO>><go href="?Action=cat&amp;id=<%=classid%>" method="post">
  250. <postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
  251. 共(<%=utf8(page)%>/<%=rsv.pageCount%>)页<br/><%end if%>
  252. <%
  253. else
  254. response.write "暂无图像!<br/>"
  255. end if
  256. Rsv.close
  257. set rsv=nothing
  258. else
  259. response.redirect "wapls_404.asp?id=2"
  260. end if
  261. if len(mb_logo)>1 then
  262. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  263. else
  264. %>
  265. ----------<br/>
  266. <%end if%>
  267. <a href="?Action=cat&amp;id=<%=catid%>">[返回分类]</a><br/>
  268. <a href="pic.asp">[图像频道]</a>
  269. <%
  270. end Function
  271. '========图像内容=======
  272. Function view
  273. picid=TRim(Request("id"))
  274. session("wapls_sessiondown")=wapls_sessiondown
  275. set rsv=server.createobject("ADODB.Recordset")
  276. Sqlv="select * from wapls_pic WHERE pic_id="&picid
  277. rsv.open Sqlv,conn,1,3
  278. pic_content=rsv("pic_content")
  279. pic_showpic=rsv("pic_showpic")
  281. Set Rs0 = Server.CreateObject("Adodb.Recordset")
  282. Sql0 = "SELECT remark_id FROM wapls_remark WHERE class_id=2 and list_id="&rsv("pic_id")&" order by remark_id desc"
  283. Rs0.Open Sql0,conn,1,1
  284. remark=rs0.RecordCount
  285. Rs0.close
  286. set rs0=nothing
  287. %>
  288. <card id="index" title="图像描述">
  289. <p align="<%=const1%>">
  290. <b><%=utf8(rsv("pic_title"))%></b><br/>
  291. 位置:<a href="pic.asp">图像</a>>><a href="?Action=cat&amp;id=<%=rsv("cat_id")%>"><%=utf8(rsv("cat_name"))%></a>>><a href="?Action=cla&amp;id=<%=rsv("class_id")%>"><%=utf8(rsv("class_name"))%></a><br/>
  292. <%
  293. if len(mb_logo)>1 then
  294. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  295. else
  296. %>
  297. ----------<br/>
  298. <%
  299. end if
  300. if len(pic_showpic)>1 then
  301. response.write "<img src='"&pic_showpic&"' alt='截图'/><br/>"
  302. end if%><a href="?Action=remarklist&amp;id=<%=rsv("pic_id")%>">相关评论(<%=remark%>)</a><br/>
  303. 图像格式:<a href="?Action=gs&amp;gs=<%=rsv("pic_gs")%>"><%=rsv("pic_gs")%></a><br/>
  304. 图像大小:<%=rsv("pic_size")%><br/>
  305. <%
  306. if len(mb_logo)>1 then
  307. response.write "推荐程度:"
  308. response.write "<img src='"&mb_logo&"/"&rsv("pic_commend")&"star.gif' alt='"&rsv("pic_commend")&"'/><br/>"
  309. else
  310. response.write "推荐程度:"
  311. if rsv("pic_commend")=2 then
  312. response.write "**"
  313. elseif rsv("pic_commend")=3 then
  314. response.write "***"
  315. elseif rsv("pic_commend")=4 then
  316. response.write "****"
  317. elseif rsv("pic_commend")=5 then
  318. response.write "*****"
  319. else
  320. response.write "*"
  321. end if
  322. response.write "<br/>"
  323. end if
  324. set rsfl=server.createobject("ADODB.Recordset")
  325. Sqlfl="select * from wapls_fl WHERE fl_id="&rsv("pic_fl")
  326. rsfl.open Sqlfl,conn,1,1
  327. %>
  328. 所属分类:<a href="?Action=fl&amp;id=<%=rsv("pic_fl")%>"><%=rsfl("fl_title")%></a><br/>
  329. 浏览<%=rsv("pic_rcount")%>次/下载<%=rsv("pic_dcount")%>次<br/>
  330. 添加日期:<%=Year(rsv("pic_date"))%>-<%=Month(rsv("pic_date"))%>-<%=day(rsv("pic_date"))%>/<%=Hour(rsv("pic_date"))%>:<%=Minute(rsv("pic_date"))%><br/>
  331. ==图像下载==<br/>
  332. <%if rsv("user_view")<>"0" then
  333. response.write "下载权限:"
  334. if rsv("user_view")="1" then
  335. response.write "会员"
  336. end if
  337. if rsv("user_view")="2" then
  338. response.write "VIP"
  339. end if
  340. response.write "<br/>需要金额:<b>"&rsv("moneypay")&"</b>金币<br/>"
  341. end if
  342. if len(mb_logo)>1 then
  343. response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
  344. end if%><a href="?Action=d&amp;id=<%=rsv("pic_id")%>&amp;url=1"><%=rsv("pic_url1_name")%></a><br/>
  345. <%if rsv("pic_url2")<>"" then
  346. if len(mb_logo)>1 then
  347. response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
  348. end if%><a href="?Action=d&amp;id=<%=rsv("pic_id")%>&amp;url=2"><%=rsv("pic_url2_name")%></a><br/><%end if%>
  349. <%if rsv("pic_url3")<>"" then
  350. if len(mb_logo)>1 then
  351. response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
  352. end if%><a href="?Action=d&amp;id=<%=rsv("pic_id")%>&amp;url=3"><%=rsv("pic_url3_name")%></a><br/><%end if%>
  353. <%if rsv("pic_url4")<>"" then
  354. if len(mb_logo)>1 then
  355. response.write "<img src='"&mb_logo&"/down.gif' alt='>>'/>"
  356. end if%><a href="?Action=d&amp;id=<%=rsv("pic_id")%>&amp;url=4"><%=rsv("pic_url4_name")%></a><br/><%end if%>
  357. <a href="?Action=er&amp;id=<%=rsv("pic_id")%>">这里投诉无法下载</a><br/>
  358. <%
  359. if len(pic_content)>1 then
  360. response.write ""&pic_content&"<br/>"
  361. end if
  362. Rsfl.close
  363. set rsfl=nothing
  364. Set Rs1 = Server.CreateObject("Adodb.Recordset")
  365. Sql1="SELECT * FROM wapls_pic WHERE cat_id="&rsv("cat_id")&" and pic_id>"&rsv("pic_id")&" order by pic_id asc"
  366. Rs1.Open Sql1,conn,1,1
  367. if not (rs1.bof and rs1.eof)  then 
  368. Response.Write("<br/>下一个:<a href='?Action=view&amp;id="&rs1("pic_id")&"'>"&rs1("pic_title")&"</a>")
  369. end if
  370.      Rs1.close
  371. set rs1=nothing
  373. Set Rs1 = Server.CreateObject("Adodb.Recordset")
  374. Sql1="SELECT * FROM wapls_pic WHERE cat_id="&rsv("cat_id")&" and pic_id<"&rsv("pic_id")&"  order by pic_id desc"
  375. Rs1.Open Sql1,conn,1,1
  376. if not (rs1.bof and rs1.eof)  then 
  377. Response.Write("<br/>上一个:<a href='?Action=view&amp;id="&rs1("pic_id")&"'>"&rs1("pic_title")&"</a>")
  378.      end if
  379. Rs1.close
  380. set rs1=nothing
  381. %>
  382. <br/><a href="?Action=cla&amp;id=<%=rsv("class_id")%>">[返回上级]</a>
  383. <br/><a href="?Action=cat&amp;id=<%=rsv("cat_id")%>">[返回分类]</a>
  384. <%
  385. rsv("pic_rcount")=rsv("pic_rcount")+1
  386. rsv.update()
  387. Rsv.close
  388. set rsv=nothing
  389. end Function
  390. '========图像下载=======
  391. Function d
  392. if session("wapls_sessiondown")<>wapls_sessiondown then
  393. response.redirect "wapls_404.asp?id=3"
  394. end if
  395. picid=TRim(Request("id"))
  396. url=TRim(Request("url"))
  397. set rsv=server.createobject("ADODB.Recordset")
  398. Sqlv="select * from wapls_pic WHERE pic_id="&picid
  399. rsv.open Sqlv,conn,1,3
  400. if not (rsv.bof and rsv.eof) then
  401. rsv("pic_dcount")=rsv("pic_dcount")+1
  402. rsv.update()
  403. %>
  404. <!--#include file="Wapls_moneypay.asp"-->
  405. <%
  406. if url=2 then 
  407. response.redirect rsv("pic_url2")
  408. elseif url=3 then 
  409. response.redirect rsv("pic_url3")
  410. elseif url=4 then 
  411. response.redirect rsv("pic_url4")
  412. else
  413. response.redirect rsv("pic_url1")
  414. end if
  415. else
  416. response.redirect "wapls_404.asp?id=27"
  417. end if
  418. else
  419. if url=2 then 
  420. response.redirect rsv("pic_url2")
  421. elseif url=3 then 
  422. response.redirect rsv("pic_url3")
  423. elseif url=4 then 
  424. response.redirect rsv("pic_url4")
  425. else
  426. response.redirect rsv("pic_url1")
  427. end if
  428. end if
  429. Rsv.close
  430. set rsv=nothing
  431. else
  432. response.redirect "wapls_404.asp?id=2"
  433. end if
  434. end Function
  435. '========图像报错=======
  436. Function er
  437. picid=TRim(Request("id"))
  438. set rsv=server.createobject("ADODB.Recordset")
  439. Sqlv="select * from wapls_pic WHERE pic_id="&picid
  440. rsv.open Sqlv,conn,1,3
  441. rsv("pic_err")="1"
  442. rsv.update()
  443. Rsv.close
  444. set rsv=nothing
  445. %>
  446. <card id="index" title="图像报错">
  447. <p align="<%=const1%>">
  448. 谢谢您的投诉,我们会尽快的解决此类的错误的!<br/>
  449. <%if len(mb_logo)>1 then
  450. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  451. else%>
  452. ----------<br/>
  453. <%end if%>
  454. <a href="?Action=view&amp;id=<%=picid%>">[返回内容]</a><br/>
  455. <a href="pic.asp">[图像频道]</a>
  456. <%
  457. end Function
  458. '========图像评论=======
  459. Function remarklist
  460. if request.form("addremark")="true" then
  461. listid=TRim(Request("id"))
  462. yz=Request("yz")
  463. yz1=Request("yz1")
  464. if yz<>yz1 then
  465. response.redirect "wapls_404.asp?id=9"
  466. else
  467. remark=utf8(Request("remark"))
  468. remarker=utf8(Request("remarker"))
  469. if remarker<>"" then
  470. else
  471. remarker="游客"
  472. end if
  473. if remark=""  then response.redirect "wapls_404.asp?id=12"
  474. if Session("remark")=remark and remark<>"" then response.redirect "wapls_404.asp?id=13"
  475. Session("remark")=remark
  476. Session.Timeout=60
  477. sql="select * from wapls_remark"
  478. set rs=server.createobject("adodb.recordset")
  479. rs.open sql,conn,1,3
  480. rs.addnew
  481. rs("class_id")="2"
  482. rs("remark")=remark
  483. rs("list_id")=listid
  484. rs("remarker")=remarker
  485. rs("remarker_ip")=userip
  486. rs.update
  487. rs.close
  488. set rs=nothing
  489. response.redirect "?Action=view&id="&listid
  490. end if
  491. end if
  492. listid=TRim(Request("id"))
  493. %>
  494. <card id="index" title="图像评论">
  495. <p align="<%=const1%>">
  496. <%
  497. set rs=server.createobject("ADODB.Recordset")
  498. Sqlv="select * from wapls_remark WHERE class_id=2 and list_id="&listid&" order by remark_id desc"
  499. rs.open Sqlv,conn,1,1
  500. if not (rs.bof and rs.eof)  then 
  501. page = Request("Page")
  502. rs.PageSize = pageremark '一页显示记录
  503. IF Not IsEmpty(Page) Then
  504. IF Not IsNumeric(Page) Then '判断Page是否为数字
  505. Page=1
  506. Else
  507. Page=Cint(Page) '转换成短整形Integer
  508. End IF
  509. IF Page > rs.PageCount Then
  510. rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后一页
  511. ElseIF Page <= 0 Then
  512. rs.AbsolutePage = 1 '设置当前页等于第一页
  513. Else
  514. rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
  515. End IF
  516. Else
  517. rs.AbsolutePage = 1
  518. End IF
  519. Page = rs.AbsolutePage
  520. For i=1 to rs.PageSize
  521. If rs.Eof Then
  522. Exit For
  523. End If
  524. %>
  525. <%=utf8(i+(page-1)*rs.PageSize)%>.<%=utf8(rs("remarker"))%>(<%=Month(rs("remark_date"))%>-<%=day(rs("remark_date"))%>/<%=Hour(rs("remark_date"))%>:<%=Minute(rs("remark_date"))%>)<br/><%=utf8(rs("remark"))%><br/>
  526. <%
  527. rs.MoveNext
  528. Next
  530. if page>=rs.PageCount then
  531. 'Response.Write ("[下-页]")        
  532. else
  533. Response.Write("[<a href='?Action=remarklist&amp;id="&listid&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
  534. end if
  535. if page<=1 then
  536. 'Response.Write ("[上-页] ")
  537. else        
  538. Response.Write("[<a href='?Action=remarklist&amp;id="&listid&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
  539. end if
  540. if rs.PageCount>2 then
  541. %><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
  542. <anchor>GO>><go href="?Action=remarklist&amp;id=<%=listid%>" method="post">
  543. <postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
  544. 共(<%=utf8(page)%>/<%=rs.pageCount%>)页<br/><%end if%>
  545. <%
  546. else
  547. response.write "暂无评论!<br/>"
  548. end if
  549. rs.close
  550. set rs=nothing
  551. %>
  552. <br/>
  553. <%if softremark_ok=0 then%>
  554. 系统暂停开放发表评论<br/>
  555. <%else%>
  556. <%if softremark_ok=2 and session("name")="" then%>
  557. 目前只对会员开放评论功能<br/>
  558. <%else%>
  559. 发表评论:<br/>
  560. <input name="remark<%=minute(now)%><%=second(now)%>" maxlength="25" value="不错!支持!"/><br/>
  561. 验证:<input name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="7"/>  <%=s%><br/><br/>
  562. <anchor>[确认提交]<go href="?Action=remarklist&amp;id=<%=listid%>" method='post'>
  563.         <postfield name="remark" value="$(remark<%=minute(now)%><%=second(now)%>)"/>
  564.         <postfield name="addremark" value="true"/>
  565. <postfield name="remarker" value="<%=session("name")%>"/>
  566. <postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
  567. <postfield name="yz1" value="<%=s%>"/>
  568.      </go>
  569. </anchor><br/>
  570. <%
  571. end if
  572. end if
  573. %>
  574. <a href="?Action=view&amp;id=<%=listid%>">[返回内容]</a><br/>
  575. <a href="pic.asp">[图像频道]</a>
  576. <%end Function
  577. '========分类下载列表=======
  578. Function fl
  579. flid=TRim(Request("id"))
  580. set rs=server.createobject("ADODB.Recordset")
  581. Sql="select * from wapls_fl WHERE fl_id="&flid
  582. rs.open Sql,conn,1,1
  583. if not (rs.bof and rs.eof) then
  584. title=rs("fl_title")
  585. %>
  586. <card id="index" title="<%=title%>">
  587. <p align="<%=const1%>">
  588. <%
  589. set rsv=server.createobject("ADODB.Recordset")
  590. Sqlv="select * from wapls_pic WHERE pic_fl="&flid&" order by pic_date asc"
  591. rsv.open Sqlv,conn,1,1
  592. if not (rsv.bof and rsv.eof)  then 
  593. page = Request("Page")
  594. rsv.PageSize = pagenum '一页显示记录
  595. IF Not IsEmpty(Page) Then
  596. IF Not IsNumeric(Page) Then '判断Page是否为数字
  597. Page=1
  598. Else
  599. Page=Cint(Page) '转换成短整形Integer
  600. End IF
  601. IF Page > rsv.PageCount Then
  602. rsv.AbsolutePage = rsv.PageCount '设置当前显示页等于最后一页
  603. ElseIF Page <= 0 Then
  604. rsv.AbsolutePage = 1 '设置当前页等于第一页
  605. Else
  606. rsv.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
  607. End IF
  608. Else
  609. rsv.AbsolutePage = 1
  610. End IF
  611. Page = rsv.AbsolutePage
  612. For i=1 to rsv.PageSize
  613. If rsv.Eof Then
  614. Exit For
  615. End If
  616. if len(mb_logo)>1 then
  617. response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
  618. end if
  619. if rsv("pic_good")=2 then%>[精]<%end if%><%if rsv("pic_good")=1 then%>[荐]<%end if%><%if rsv("istop")=1 then%>[顶]<%end if%><a href="?Action=view&amp;id=<%=rsv("pic_id")%>"><%=utf8(rsv("pic_title"))%></a><%
  620. if DateDiff("d",rsv("pic_date"),now())<1 then
  621. if len(mb_logo)>1 then
  622. response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
  623. else
  624. response.write " NEW "
  625. end if
  626. end if
  627. %><br/><%
  628. rsv.MoveNext
  629. Next
  630. if page>=rsv.PageCount then
  631. 'Response.Write ("[下-页]")        
  632. else
  633. Response.Write("[<a href='?Action=fl&amp;id="&flid&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
  634. end if
  635. if page<=1 then
  636. 'Response.Write ("[上-页] ")
  637. else        
  638. Response.Write("[<a href='?Action=fl&amp;id="&flid&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
  639. end if
  640. if rsv.PageCount>2 then
  641. %><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
  642. <anchor>GO>><go href="?Action=fl&amp;id=<%=flid%>" method="post">
  643. <postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
  644. 共(<%=utf8(page)%>/<%=rsv.pageCount%>)页<br/><%end if%>
  645. <%
  646. else
  647. response.write "暂无内容!<br/>"
  648. end if
  649. Rsv.close
  650. set rsv=nothing
  651. else
  652. response.redirect "wapls_404.asp?id=2"
  653. end if
  654. if len(mb_logo)>1 then
  655. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  656. else
  657. %>----------<br/>
  658. <%
  659. end if
  660. %>
  661. <a href="pic.asp">[图像频道]</a>
  662. <%
  663. end Function
  664. '========格式下载列表=======
  665. Function gs
  666. gs=TRim(Request("gs"))
  667. %>
  668. <card id="index" title="<%=gs%>格式下载">
  669. <p align="<%=const1%>">
  670. <%
  671. set rsv=server.createobject("ADODB.Recordset")
  672. Sqlv="select * from wapls_pic WHERE pic_gs='"&gs&"' order by pic_date asc"
  673. rsv.open Sqlv,conn,1,1
  674. if not (rsv.bof and rsv.eof) then
  675. page = Request("Page")
  676. rsv.PageSize = pagenum '一页显示记录
  677. IF Not IsEmpty(Page) Then
  678. IF Not IsNumeric(Page) Then '判断Page是否为数字
  679. Page=1
  680. Else
  681. Page=Cint(Page) '转换成短整形Integer
  682. End IF
  683. IF Page > rsv.PageCount Then
  684. rsv.AbsolutePage = rsv.PageCount '设置当前显示页等于最后一页
  685. ElseIF Page <= 0 Then
  686. rsv.AbsolutePage = 1 '设置当前页等于第一页
  687. Else
  688. rsv.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
  689. End IF
  690. Else
  691. rsv.AbsolutePage = 1
  692. End IF
  693. Page = rsv.AbsolutePage
  694. For i=1 to rsv.PageSize
  695. If rsv.Eof Then
  696. Exit For
  697. End If
  698. if len(mb_logo)>1 then
  699. response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
  700. end if
  701. if rsv("pic_good")=2 then%>[精]<%end if%><%if rsv("pic_good")=1 then%>[荐]<%end if%><%if rsv("istop")=1 then%>[顶]<%end if%><a href="?Action=view&amp;id=<%=rsv("pic_id")%>"><%=utf8(rsv("pic_title"))%></a><%
  702. if DateDiff("d",rsv("pic_date"),now())<1 then
  703. if len(mb_logo)>1 then
  704. response.write "<img src='"&mb_logo&"/new.gif' alt='NEW'/>"
  705. else
  706. response.write " NEW "
  707. end if
  708. end if
  709. %><br/><%
  710. rsv.MoveNext
  711. Next
  712. if page>=rsv.PageCount then
  713. 'Response.Write ("[下-页]")        
  714. else
  715. Response.Write("[<a href='?Action=gs&amp;id="&gs&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
  716. end if
  717. if page<=1 then
  718. 'Response.Write ("[上-页] ")
  719. else        
  720. Response.Write("[<a href='?Action=gs&amp;id="&gs&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
  721. end if
  722. if rsv.PageCount>2 then
  723. %><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
  724. <anchor>GO>><go href="?Action=gs&amp;id=<%=gs%>" method="post">
  725. <postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
  726. 共(<%=utf8(page)%>/<%=rsv.pageCount%>)页<br/><%end if%>
  727. <%
  728. else
  729. response.write "暂无内容!<br/>"
  730. end if
  731. Rsv.close
  732. set rsv=nothing
  733. if len(mb_logo)>1 then
  734. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  735. else
  736. %>----------<br/>
  737. <%
  738. end if
  739. %>
  740. <a href="pic.asp">[图像频道]</a>
  741. <%end Function%>
  742. <br/><a href='index.asp'>[返回首页]</a>
  743. <!--#include file="wapls_down.asp"-->