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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
View.Asp
资源名称：1-091024064918.rar　[点击查看]
上传用户：qfkgdy
上传日期：2020-06-18
资源大小：1888k
文件大小：13k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

View.Asp：源码内容
  1. <!--#include file="wml.ini"-->
  3. <%  
  4. id=cint(request("id"))
  5. page=cint(request("page")) 
  6. p=cint(request("p")) 
  7. tt=cint(request("tt")) 
  8. v=cint(request("v")) 
  9. PicSize=cint(request("PicSize"))
  10. if PicSize="" or PicSize=0 then 
  11. PicSize=Session("PicSize")
  12. end if
  13. if v="" or v=0 then 
  14. v=Session("v")
  15. end if
  16. Session("v")=v
  17. Session("PicSize")=PicSize
  18. if PicSize="" or PicSize=0 then PicSize=1
  19. if v="" or v=0 then v=2
  20. dim rss,Page_Style,Album_Title,last_update_time
  21. set rss = server.CreateObject ("adodb.recordset")
  22. sql="select * from Album where id=" & id & " order by id desc"
  23.    set rss=getRecordSet(conn,sql,1,2)
  24. if not rss.eof and not rss.bof then
  25.    do while not rss.eof
  26. Album_ClassID=rss("Album_ClassID")
  27. last_update_time=rss("Add_Time")
  28. Album_Title=wap.filter("wml",rss("Album_Title"))
  29. rss("View_count")=rss("View_count")+1
  30. rss("last_view_time")=now
  31.      call wmlbegin(""&wap.filter("wml",rss("Album_Title"))&"","wrap")
  32. rss.movenext
  33. loop
  34. end if
  35. rss.close
  36. set rss=Nothing
  37. if View_Ad_Top<>0 then
  38.  ads(cint(View_Ad_Top))
  39. end if
  40. Page_Style=View_Page_Style
  41. '统计分析
  42. Set picture=load(id)
  43. Public Sub analyze(ByVal is_dcount)
  44. if(is_dcount) then
  45. Dim statDAO
  46. Set statDAO=new StatDAOClass
  47. Call statDAO.analyze(date,"pid",id,"view_count")
  48. Set statDAO=nothing
  49. end if
  50. Dim analysisDAO
  51. Set analysisDAO=new AnalysisDAOClass
  52. Call analysisDAO.analyze(date,"pic_view")
  53. Set analysisDAO=nothing
  54. End Sub
  56. Call analyze(picture.getIs_dcount())
  61. %><%=Album_Title%><br/>
  62. 每页显:
  63. <% if v=2 then
  64. response.write "2."
  65. else
  66. %>
  67. <a  href= "View.Asp?id=<%=id%>&amp;page=<%=page%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=2&amp;PicSize=<%=PicSize%>">2</a>.
  68. <% end if %>
  69. <% if v=4 then
  70. response.write "4."
  71. else
  72. %>
  73. <a  href= "View.Asp?id=<%=id%>&amp;page=<%=page%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=4&amp;PicSize=<%=PicSize%>">4</a>.
  74. <% end if %>
  75. <% if v=6 then
  76. response.write "6."
  77. else
  78. %>
  79. <a  href= "View.Asp?id=<%=id%>&amp;page=<%=page%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=6&amp;PicSize=<%=PicSize%>">6</a>.
  80. <% end if %>
  81. <% if v=8 then
  82. response.write "8"
  83. else
  84. %>
  85. <a  href= "View.Asp?id=<%=id%>&amp;page=<%=page%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=8&amp;PicSize=<%=PicSize%>">8</a>
  86. <% end if %>
  87. 张
  88. <br/>
  89. 预览大小:<% if PicSize=1 then
  90. response.write "小-"
  91. else
  92. %>
  93. <a  href= "View.Asp?id=<%=id%>&amp;page=<%=page%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=<%=v%>&amp;PicSize=1">小</a>-
  94. <% end if %>
  95. <% if PicSize=2 then
  96. response.write "中-"
  97. else
  98. %>
  99. <a  href= "View.Asp?id=<%=id%>&amp;page=<%=page%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=<%=v%>&amp;PicSize=2">中</a>-
  100. <% end if %>
  101. <% if PicSize=3 then
  102. response.write "大"
  103. else
  104. %>
  105. <a  href= "View.Asp?id=<%=id%>&amp;page=<%=page%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=<%=v%>&amp;PicSize=3">大</a>
  106. <% end if %><br/>----------<br/>
  107. <% 
  108.     sql="Select * from [Picture] where AlbumID=" & id & " order by id desc"
  109.     Set rs = Server.CreateObject("ADODB.Recordset")
  110.     rs.open sql,conn,1,1 
  111.     n=rs.RecordCount 
  112.     PageSize=v
  113.     rs.pagesize=PageSize
  114.     m=cint(rs.pagecount) 
  115.     if page="" then 
  116.     page=1 
  117.     elseif page<1 then 
  118.     page=1 
  119.     end if 
  120.     if page>m then 
  121.     page=m 
  122.     end if 
  123.     page=cint(page) 
  124.     if not rs.eof then 
  125.     rs.absolutepage=page 
  126.     end if 
  127.     
  128.     if m>page+3 then 
  129.     endpage=page+3 
  130.     else 
  131.     endpage=m 
  132.     end if 
  133.     if page>4 then 
  134.     pagetitle=pagetitle & " " & "" 
  135.     end if 
  136.     
  137.     for i=page-3 to endpage 
  138.     if not i<1 then 
  139.     if i = page then 
  140.     select case Page_Style
  141.     case 2
  142.     pagetitle=pagetitle & " " & "" & i & "" 
  143.    case 3
  144.     pagetitle=pagetitle & " " & "" & wap.corder(i) & "" 
  145.     end select
  146.     else 
  147.     select case Page_Style
  148.     case 2
  149.     pagetitle=pagetitle & " " & "<a href='View.Asp?id=" & id & "&amp;page=" & i & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "'>" & i & "</a>" 
  150.     case 3
  151.     pagetitle=pagetitle & " " & "<a href='View.Asp?id=" & id & "&amp;page=" & i & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "'>" & wap.corder(i) & "</a>" 
  152.     end select
  153.     end if 
  154.     end if 
  155.     next 
  156.     if page+3 < m then 
  157.     pagetitle=pagetitle & " " & "" 
  158.     end if 
  159.     %>
  160.     <%
  161.        i=0
  162.        j=0
  163.        Do While Not rs.Eof And i<PageSize
  164.         vv1=wap.rndc()
  165.        i = i + 1
  166.        j=j+1
  167.        dim ii, k
  168.        ii=int(rnd*100)
  169.        
  170. if wap.ftype(rs("File_Url"))="gif" then
  171. Set fso = Server.CreateObject("Scripting.FileSystemObject") 
  172. fso.copyfile server.mappath(replace(rs("File_Url"),"/","")),server.mappath("") & "imagestemp"
  173. set objfso=nothing  
  174. end if
  175. set   fso1=Server.CreateObject   ("Scripting.FileSystemObject")   
  176.     fpath=server.mappath(replace(rs("File_Url"),"/",""))   
  177.     if   fso1.FileExists(fpath)   then 
  178.  if tt=1 then
  179.  
  180. if PicSize=1 then 
  181. k="100x133"
  183.  Call (new ImageClass).zoom(rs("File_Url"),"images/temp/b"& vv1 & rs("id") &"_100x133." & wap.ftype(rs("File_Url")) & "",100,133)
  185. elseif PicSize=2 then
  186. k="176x220"
  188. Call (new ImageClass).zoom(rs("File_Url"),"images/temp/b"& vv1 & rs("id") &"_176x220." & wap.ftype(rs("File_Url")) & "",176,220)
  190.  elseif PicSize=3 then
  191. k="240x320"
  193. Call (new ImageClass).zoom(rs("File_Url"),"images/temp/b"& vv1 & rs("id") &"_240x320." & wap.ftype(rs("File_Url")) & "",240,320)
  195. end if
  197. if wap.ftype(rs("File_Url"))<>"gif" then
  198. call wmlimgl("/images/temp/b" & vv1 & rs("id") & "_" & k & "." & wap.ftype(rs("File_Url")) & "",wap.filter("wml",rs("Title")),"Download.Asp?id=" & rs("id") & "&amp;pp=" & page & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "",wap.filter("wml",rs("Title")),false)
  199.  else
  200. call wmlimgl("/images/temp/" & Split(rs("File_Url"),"/")(4) & "",wap.filter("wml",rs("Title")),"Download.Asp?id=" & rs("id") & "&amp;pp=" & page & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "",wap.filter("wml",rs("Title")),false) 
  201.  end if
  202.    else
  203. if PicSize=1 then 
  204. k="100x133"
  205.  Call (new ImageClass).zoom(rs("File_Url"),"images/temp/b"& vv1 & rs("id") &"_100x133." & wap.ftype(rs("File_Url")) & "",100,133)
  206. elseif PicSize=2 then
  207. k="176x220"
  208. Call (new ImageClass).zoom(rs("File_Url"),"images/temp/b"& vv1 & rs("id") &"_176x220." & wap.ftype(rs("File_Url")) & "",176,220)
  209. elseif PicSize=3 then
  210. k="240x320"
  211. Call (new ImageClass).zoom(rs("File_Url"),"images/temp/b"& vv1 & rs("id") &"_240x320." & wap.ftype(rs("File_Url")) & "",240,320)
  212. end if
  213. if wap.ftype(rs("File_Url"))<>"gif" then
  214. call wmlimg("/images/temp/b" & vv1 & rs("id") & "_" & k & "." & wap.ftype(rs("File_Url")) & "",wap.filter("wml",rs("Title")),true)  
  215. else
  216. call wmlimg("/images/temp/" & Split(rs("File_Url"),"/")(4) & "",wap.filter("wml",rs("Title")),true)  
  217. end if
  218. if wap.ftype(rs("File_Url"))<>"gif" then
  219. call wmllink("Downloads.Asp?id=" & rs("id") & "&amp;t=100&amp;h=133","小图",false)
  220. response.write("-")
  221. call wmllink("Downloads.Asp?id=" & rs("id") & "&amp;t=176&amp;h=220","中图",false)
  222. response.write("-")
  223. call wmllink("Downloads.Asp?id=" & rs("id") & "&amp;t=240&amp;h=320","大图",true)
  224. else
  225. call wmllink("/images/temp/" & Split(rs("File_Url"),"/")(4) & "","下载原图",true)
  226. end if
  227. 'call wmlimg(rs("File_Url"),wap.filter("wml",rs("Title")),true)
  228. call wmllink("Download.Asp?id=" & rs("id") & "&amp;pp=" & page & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "","自定义下载",true)
  229.        end if
  230.        end if
  231.      %>
  232.    
  233.      
  234.           
  235.     <% 
  236.       rs.MoveNext
  237.       loop  
  238.       
  239.       call wmlwrite("",true)
  240. select case Page_Style
  241. case 1
  242.      if page>1 then
  243.       
  244.        'response.write("<a href='Categories.Asp?id=" & id & "&amp;Page=1&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "'>&lt;&lt;</a>")
  245.           call wmllink("View.Asp?id=" & id & "&amp;Page=1&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "","&lt;&lt;",false)
  246.        end if
  247. if page="" and page=0 then page=1
  248. if page*v<rs.recordcount then
  249. 'response.write("<a href='Categories.Asp?id=" & id & "&amp;Page=" & page+1 & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "'>下页</a>")
  250. call wmllink("View.Asp?id=" & id & "&amp;Page=" & page+1 & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "","下页",false)
  251. end if
  252. if Page*v<rs.recordcount or Page>1 then response.write("(" & Page & "/" & (int((rs.recordcount-1)/v)+1) & ")")
  253. if page>1 then
  254. response.write("<a href='View.Asp?id=" & id & "&amp;Page=" & page-1 & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "'>上页</a>")
  255. end if
  256. if page*v<rs.recordcount then
  257. response.write("<a href='View.Asp?id=" & id & "&amp;Page=" & (int((rs.recordcount-1)/v)+1) & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "'>&gt;&gt;</a>")
  258. end if
  259. response.write("<br/>")
  260. %>
  261.    <% if Page*v<rs.recordcount or Page>1 then %>
  262. <input name="page" title="页码" type="text" format="*N" emptyok="true" size="3" maxlength="4" value="2"/>
  263. <anchor>跳页<go href="View.Asp?id=<%=id%>&amp;p=<%=p%>&amp;tt=<%=tt%>&amp;v=<%=v%>&amp;PicSize=<%=PicSize%>" accept-charset='utf-8'><postfield name="Page" value="$(page)"/></go></anchor><br/>
  264.     <% end if %>
  265. <%
  266.       case 2 
  267. response.write("第")
  268.       if page>1 then
  269.        
  270.         call wmllink("View.Asp?id=" & id & "&amp;Page=1","1",false)
  271.         call wmlwrite("&lt;",false)
  272.       end if
  273.        response.write(pagetitle) 
  274.        if page*v<rs.recordcount then
  275. call wmlwrite("&gt;",false)
  276.         call wmllink("View.Asp?id=" & id & "&amp;Page=" & (int((rs.recordcount-1)/v)+1) & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "","" & (int((rs.recordcount-1)/v)+1) & "",false)
  277.        end if
  278.        response.write("页<br/>")   
  279.       case 3 
  280.       response.write("第")
  281.          if page>1 then
  282.        
  283.         call wmllink("View.Asp?id=" & id & "&amp;Page=1",wap.corder("1"),false)
  284.         call wmlwrite("&lt;",false)
  285.       end if
  286.        response.write(pagetitle) 
  287.        if page*v<rs.recordcount then
  288. call wmlwrite("&gt;",false)
  289.         call wmllink("View.Asp?id=" & id & "&amp;Page=" & (int((rs.recordcount-1)/v)+1) & "&amp;p=" & p & "&amp;tt=" & tt & "&amp;v=" & v & "&amp;PicSize=" & PicSize & "","" & wap.corder((int((rs.recordcount-1)/v)+1)) & "",false)
  290.        end if   
  291. response.write("页<br/>")    
  292.        end select
  293.     %>
  295. <%
  300. set rs=conn.execute("select * from [Class] WHERE id=" & Album_ClassID & "")
  301. if not rs.eof then
  302. do while not rs.eof
  303. Class_Title=rs("Class_Title")
  304. rs.movenext
  305. loop
  306. end if
  307. Closers()
  309. call wmllink("Categories.Asp?id="& Album_ClassID &"&amp;page=" & p & "","返回上级",false)
  310. call wmlwrite("|",false)
  311. if tt<>1 then
  312. call wmllink("View.Asp?id="& id &"&amp;page=" & p & "&amp;tt=1&amp;v=" & v & "&amp;PicSize=" & PicSize & "","图片墙模式",true)
  313. else
  314. call wmllink("View.Asp?id="& id &"&amp;page=" & p & "&amp;tt=0&amp;v=" & v & "&amp;PicSize=" & PicSize & "","列表模式",true)
  315. end if
  316. call wmlimg("/images/g.gif","&lt;",false)
  317. call wmlwrite("共" & n & "张图片",true)
  318. call wmlimg("/images/time.gif","&lt;",false)
  319. 'call wmlimg("Clear_temporary_files.Asp",".",false)
  320. call wmlwrite("更新日期:" & wap.formatTime(last_update_time,8),true)
  321. set rs3=conn.execute("select top 1 * from Album where id>"& id &" order by id asc") 
  322. if not rs3.eof then
  324. call wmlimg("/images/Under.gif","&lt;",false)
  325. call wmlwrite("下一组:",false)
  326. call wmllink("View.Asp?id=" & rs3("id") & "","" & wap.filter("wml",rs3("Album_Title")) & "",true)
  327. end if
  328. set rs2=conn.execute("select top 1 * from Album where id<"& id &" order by id desc")  
  329. if not rs2.eof then
  330. call wmlimg("/images/On.gif","&gt;",false)  
  332.  
  333. call wmlwrite("上一组:",false)
  334. call wmllink("View.Asp?id=" & rs2("id") & "","" & wap.filter("wml",rs2("Album_Title")) & "",true)
  335. end if
  339. set rs=conn.execute("select top " & View_Top_download_Show_Amount & " * from [Album] WHERE Show=1 order by last_view_time desc")
  340. if not rs.eof then
  341. call wmlwrite("+热门下载+",false)
  342. call wmllink("explore.asp?action=rank&amp;datetime=Finally","更多",true)
  344. do while not rs.eof
  346. call wmllink("View.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Album_Title")) & "",true)
  348. rs.movenext
  349. loop
  350. end if
  351. Closers()
  352. if View_Ad_Medium<>0 then
  353.  ads(cint(View_Ad_Medium))
  354. end if
  355. set rs=conn.execute("select top " & View_Latest_recommend_Show_Amount & " * from [Album] WHERE Show=1 order by newid(),last_update_time")
  356. if not rs.eof then
  357. call wmlwrite("+最新推荐+",false)
  358. call wmllink("explore.asp?action=rank&amp;datetime=new","更多",true)
  360. do while not rs.eof
  362. call wmllink("View.Asp?id=" & rs("id") & "","" & wap.filter("wml",rs("Album_Title")) & "",true)
  364. rs.movenext
  365. loop
  366. end if
  367. Closers()
  368. if View_Ad_Bottom<>0 then
  369.  ads(cint(View_Ad_Bottom))
  370. end if
  372. call wap.navs(Class_Title&",Categories.Asp?id="& Album_ClassID &"&amp;page=" & p & "|"&Album_Title&",")
  374. call wmlend
  375. %>