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

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

手机WAP编程

开发平台：

ASP/ASPX

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