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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
down.cs
资源名称：52ccc55a371572d86a7d2c6992a2591b.rar　[点击查看]
上传用户：dbstep
上传日期：2022-08-06
资源大小：2803k
文件大小：14k
源码类别：

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

开发平台：

ASP/ASPX

down.cs：源码内容
  1. <%
  2. Function WebMenu(DataFrom,ID)
  3.   Dim rs,sql
  4.   Set rs=server.CreateObject("adodb.recordset")
  5.   sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"
  6.   rs.open sql,conn,1,1
  7.   response.write("<table width='150' border='0' cellspacing='0' cellpadding='0'>")
  8.   if id=0 and rs.bof and rs.eof then
  9.     response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  10.   else
  11.     while not rs.eof
  12.       response.write "<tr class='WebMenu'><td width='24'><img src='../img/Arrow_03.gif' width='13' height='13'></td>"
  13.       response.write "<td><a href='DownList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td></tr>"
  14.       rs.movenext
  15. wend
  16.   end if
  17.   response.write("</table>")
  18.   rs.close
  19.   set rs=nothing
  20. end function
  22. Function WebLocation(ID)
  23.   Dim rs,sql,LocationText
  24.   Set rs=server.CreateObject("adodb.recordset")
  25.   sql="Select * From sk_DownSort where ViewFlag and ID="&ID
  26.   rs.open sql,conn,1,1
  27.   if rs.bof and rs.eof then
  28.     response.write "<img src='../img/Arrow_02.gif' align='absmiddle'>错误"
  29.     exit function
  30.   end if
  31.   LocationText="<img src='../img/Arrow_02.gif' align='absmiddle'><a href='DownList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>"
  32.   if rs("ParentID")<>0 then WebLocation rs("ParentID")
  33.   response.write LocationText
  34. End Function
  36. function ChildSort()
  37.   dim ParentID
  38.   ParentID=request.QueryString("SortID")
  39.   if ParentID="" or (not isnumeric(ParentID)) then exit function
  40.   dim rs,sql
  41.   set rs = server.createobject("adodb.recordset")
  42.   sql="select * from sk_DownSort where ViewFlag and ParentID="&ParentID&" order by ID desc"
  43.   rs.open sql,conn,1,1
  44.   if rs.bof and rs.eof then
  45.     exit function
  46.   else
  47.     response.write "<tr><td height='22'></td><td class='ListTitle' align='center'>"
  48. while not rs.eof
  49. response.write "&nbsp;<font color='#FF0000'>|</font>&nbsp;<a href='DownList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>&nbsp;<font color='#FF0000'>|</font>"
  50. rs.movenext
  51. wend
  52.     response.write "</td><td width='30'></td></tr>"    
  53.   end if
  54.   rs.close
  55.   set rs=nothing
  56. end function
  58. function ContentList()
  59.   dim SortPath
  60.       SortPath=request.QueryString("SortPath")
  61.   dim idCount'记录总数
  62.   dim pages'每页条数
  63.       pages=25
  64.   dim pagec'总页数
  65.   dim page'页码
  66.       page=clng(request("Page"))
  67.   dim pagenc'每页显示的分页页码数量=pagenc*2+1
  68.       pagenc=2
  69.   dim pagenmax'每页显示的分页的最大页码
  70.   dim pagenmin'每页显示的分页的最小页码
  71.   dim datafrom'数据表名
  72.       datafrom="sk_Download"
  73.   dim datawhere'数据条件
  74.       if SortPath<>"" then'是否查看的分类产品
  75.  datawhere="where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 "
  76.       else
  77.  datawhere="where ViewFlag "
  78.   end if
  79.   dim sqlid'本页需要用到的id
  80.   dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数
  81.       PATH_INFO = request.servervariables("PATH_INFO")
  82.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  83.       if QUERY_STRING = "" then
  84.     Myself = PATH_INFO & "?"
  85.   elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  86.     Myself= PATH_INFO & "?" & QUERY_STRING & "&"
  87.   else
  88.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  89.   end if
  90.   dim taxis'排序的语句 asc,desc
  91.       taxis="order by id desc "
  92.   dim i'用于循环的整数
  93.   dim rs,sql'sql语句
  94.   '获取记录总数
  95.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  96.   set rs=server.createobject("adodb.recordset")
  97.   rs.open sql,conn,0,1
  98.   idCount=rs("idCount")
  99.   '获取记录总数
  101.   if(idcount>0) then'如果记录总数=0,则不处理
  102.     if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
  103.   pagec=int(idcount/pages)'获取总页数
  104.     else
  105.       pagec=int(idcount/pages)+1'获取总页数
  106.     end if
  107. '获取本页需要用到的id============================================
  108.     '读取所有记录的id数值,因为只有id所以速度很快
  109.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  110.     set rs=server.createobject("adodb.recordset")
  111.     rs.open sql,conn,1,1
  112.     rs.pagesize = pages '每页显示记录数
  113.     if page < 1 then page = 1
  114.     if page > pagec then page = pagec
  115.     if pagec > 0 then rs.absolutepage = page  
  116.     for i=1 to rs.pagesize
  117.   if rs.eof then exit for  
  118.   if(i=1)then
  119.     sqlid=rs("id")
  120.   else
  121.     sqlid=sqlid &","&rs("id")
  122.   end if
  123.   rs.movenext
  124.     next
  125.   '获取本页需要用到的id结束============================================
  126.   end if
  127.   Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  128.   if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理
  129.     '用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
  130.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  131.     set rs=server.createobject("adodb.recordset")
  132.     rs.open sql,conn,0,1
  133.     while not rs.eof '填充数据到表格
  134.   Response.Write "<tr  height=25 bgcolor=#F0F0F0>" & vbCrLf
  135.       Response.Write "<td width='400' ><FONT style='FONT-SIZE: 10px; COLOR: #61A5DC; FONT-FAMILY: Webdings'>4</FONT>&nbsp;<a href='DownView.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&".html'><font color=0066cc><b>"&rs("DownName")&"</b></font></a></td>" & vbCrLf
  136.       Response.Write "<td width='104' ><font color=0066cc>大小："&rs("FileSize")&"M</font></td>" & vbCrLf
  137.   Response.Write "<td width='90'><font color=0066cc>点击数："&rs("ClickNumber")&"</font></td>" & vbCrLf
  138.       Response.Write "</tr>" & vbCrLf
  139.   Response.Write "<tr>" & vbCrLf
  140.       Response.Write "<td  colspan='3' height=50><font color=red>软件简介：<br></font>"&cutStr(rs("content"),100)&"</td>" & vbCrLf
  141.       Response.Write "</tr>" & vbCrLf
  142.   rs.movenext
  143.     wend
  144.   else
  145.     response.write "<tr><td align='center'>暂无相关信息</td></tr></table>"
  146. exit function
  147.   end if
  148.   Response.Write "<tr>" & vbCrLf
  149.   Response.Write "<td colspan='3' align='right'>" & vbCrLf
  150.   Response.Write "共计：<font color='#ff6600'>"&idcount&"</font>条记录&nbsp;页次：<font color='#ff6600'>"&page&"</font></strong>/"&pagec&"&nbsp;每页：<font color='#ff6600'>"&pages&"</font>条&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
  151.   pagenmin=page-pagenc '计算页码开始值
  152.   pagenmax=page+pagenc '计算页码结束值
  153.   if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1
  154.   if(page>1) then response.write ("<a href='"& myself &"Page=1'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>9</font></a>&nbsp;") '如果页码大于1则显示(第一页)
  155.   if(pagenmin>1) then response.write ("<a href='"& myself &"Page="& page-(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>7</font></a>&nbsp;") '如果页码开始值大于1则显示(更前)
  156.   if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数
  157.   for i = pagenmin to pagenmax'循环输出页码
  158. if(i=page) then
  159.   response.write ("&nbsp;<font color='#ff6600'>"& i &"</font>&nbsp;")
  160. else
  161.   response.write ("[<a href="& myself &"Page="& i &">"& i &"</a>]")
  162. end if
  163.   next
  164.   if(pagenmax<pagec) then response.write ("&nbsp;<a href='"& myself &"Page="& page+(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>8</font></a>&nbsp;") '如果页码结束值小于总页数则显示(更后)
  165.   if(page<pagec) then response.write ("<a href='"& myself &"Page="& pagec &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>:</font></a>") '如果页码小于总页数则显示(最后页)
  166.   Response.Write "</td>" & vbCrLf
  167.   Response.Write "</tr>" & vbCrLf
  168.   Response.Write "</table>" & vbCrLf
  169.   rs.close
  170.   set rs=nothing
  171. end function 
  172. %>
  175. <%
  176. if request.QueryString("ID")="" then
  177. SeoTitle="下载中心"
  178. elseif not IsNumeric(request.QueryString("ID")) then
  179. SeoTitle="参数错误"
  180. elseif conn.execute("select * from sk_Download Where ViewFlag and  ID="&request.QueryString("ID")).eof then
  181. SeoTitle="参数错误"
  182. else
  183. set rs = server.createobject("adodb.recordset")
  184. sql="select * from sk_Download where ViewFlag and ID="&request.QueryString("ID")
  185. rs.open sql,conn,1,1
  186. SeoTitle=rs("DownName")
  187. rs.close
  188. set rs=nothing
  189. end if
  190. %>
  192. <%
  193. Function WebMenu(DataFrom,ID)
  194.   Dim rs,sql
  195.   Set rs=server.CreateObject("adodb.recordset")
  196.   sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"
  197.   rs.open sql,conn,1,1
  198.   response.write("<table width='150' border='0' cellspacing='0' cellpadding='0'>")
  199.   if id=0 and rs.bof and rs.eof then
  200.     response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  201.   else
  202.     while not rs.eof
  203.       response.write "<tr class='WebMenu'><td width='24'><img src='../img/Arrow_03.gif' width='13' height='13'></td>"
  204.       response.write "<td><a href='DownList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td></tr>"
  205.       rs.movenext
  206. wend
  207.   end if
  208.   response.write("</table>")
  209.   rs.close
  210.   set rs=nothing
  211. end function
  213. Function WebLocation(ID)
  214.   Dim rs,sql,LocationText
  215.   Set rs=server.CreateObject("adodb.recordset")
  216.   sql="Select * From sk_DownSort where ViewFlag and ID="&ID
  217.   rs.open sql,conn,1,1
  218.   if rs.bof and rs.eof then
  219.     response.write "<img src='../img/Arrow_02.gif' align='absmiddle'>错误"
  220.     exit function
  221.   end if
  222.   LocationText="<img src='../img/Arrow_02.gif' align='absmiddle'><a href='DownList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>"
  223.   if rs("ParentID")<>0 then WebLocation rs("ParentID")
  224.   response.write LocationText
  225. End Function
  228. function WebContent()
  229.   dim ID
  230.   ID=request.QueryString("ID")
  231.   if ID="" or (not isnumeric(ID)) then
  232.     response.write "<div align='center'>数据读取异常错误</div>"
  233.     exit function
  234.   end if
  235.   dim rs,sql
  236.   set rs = server.createobject("adodb.recordset")
  237.   sql="select * from sk_Download where ViewFlag and ID="&ID
  238.   rs.open sql,conn,1,3
  239.   response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  240.   if rs.bof and rs.eof then
  241.     response.write "<tr><td>暂无相关信息</td></tr>"
  242.   else
  243.     response.write "<tr><td align='center' colspan='3' height=40><font style='font-size:14px;font-weight: bold;color: #ff0000'>"&rs("DownName")&"</font></td></tr>"
  244. response.write "<tr><td colspan='3'><hr width='100%' size='1' noshade='noshade' color='#CCCCCC'><br></td></tr>"
  245.     response.write "<tr><td width='300' class='ListDown'><b>运行平台：</b>"&rs("approof")&"</td>"
  246.     response.write "<td width='250'  class='ListDown'><b>软件评级：</b><img src='../img/star"&rs("star")&".gIf'></td>"
  247.     response.write "<td rowspan=4 width='200' align='center' >"
  248. if trim(rs("BigPic"))="" then
  249.     response.write "<img src=../img/Down.jpg ></td></tr>"
  250. else
  251. response.write "<img src="&rs("BigPic")&" width=140 height=140></td></tr>"
  252. end if
  253.     response.write "<tr><td class='ListDown'><b>文件大小：</b>"&rs("FileSize")&"</td>"
  254.     response.write "<td  class='ListDown'><b>软件语言：</b>"&rs("language")&"</td></tr>"
  255.     response.write "<tr><td width='300' class='ListDown'><b>软件授权：</b>"&rs("accmode")&"</td>"
  256.     response.write "<td width=250'  class='ListDown'><b>演示地址：</b>"&rs("SoftClass")&"</td></tr>" 
  257.     response.write "<tr><td class='ListDown'><b>下载次数：</b>"&rs("ClickNumber")&" 次</td>"
  258.     response.write "<td  class='ListDown'><b>发布时间：</b>"&rs("Addtime")&"</td></tr>"
  259. response.write "<tr><td colspan='3'><br><b>软件简介：</b></td></tr>"
  260. response.write "<tr><td colspan='3'><hr width='100%' size='1' noshade='noshade' color='#CCCCCC'></td></tr>"
  261. response.write "<tr><td colspan='3'>"&rs("Content")&"</td></tr>"
  262. rs("ClickNumber")=rs("ClickNumber")+1
  263. if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
  264. response.write "<tr><td colspan='3'><br><b>下载地址：</b></td></tr>"
  265. response.write "<tr><td colspan='3'><hr width='100%' size='1' noshade='noshade' color='#CCCCCC'></td></tr>"
  266. response.write "<tr><td colspan='3' height=40><a href='"&rs("FileUrl")&"' target='_blank'><font color='red'><img src=../img/open.gif>下载地址一</font></a> <img src=../img/open.gif><a href='"&rs("SmallPic")&"' target='_blank'><font color='red'>下载地址二</font></a></td></tr>"
  267. else
  268.   response.write "<tr><td colspan='3'><hr width='100%' size='1' noshade='noshade' color='#CCCCCC'><div align='center'><img src='../img/NoRight.jpg'></div></td></tr>"
  269. end if
  270. rs.update
  271. rs.close
  272. response.write "<tr><td colspan='3'><hr width='100%' size='1' noshade='noshade' color='#CCCCCC'><br></td></tr>"
  274.     response.write "<tr><td colspan='3'>"
  275.   Dim IDmax,IDmin
  276.      IDmax=ID+1
  277. set rs = server.createobject("adodb.recordset")
  278. sql="select * from sk_Download where ViewFlag and ID="&IDmax
  279. rs.open sql,conn,1,1
  280. if not rs.eof then
  281.  Response.Write "上一篇：<a href='?id="&Idmax&"&SortID="&rs("SortID")&".html'>"&rs("DownName")&"</a><br>"
  282. else
  283. Response.Write "上一篇：暂无下载<br>"
  284. end if
  285. rs.close
  286. IDmin=ID-1
  287. set rs = server.createobject("adodb.recordset")
  288. sql="select * from sk_Download where ViewFlag and ID="&IDmin
  289. rs.open sql,conn,1,1
  290. if not rs.eof then
  291.  Response.Write "下一篇：<a href='?id="&IDmin&"&SortID="&rs("SortID")&".html'>"&rs("DownName")&"</a>"
  292. else
  293. Response.Write "下一篇：暂无下载"
  294. end if
  295. rs.close
  296. response.write "</td><td align='right'></td></tr>" 
  297.     response.write "<tr><td colspan='3' align='right'> <a onClick='history.go(0)'>【刷新页面】</a><a style='cursor:hand'  onclick='window.external.AddFavorite(location.href,document.title);' >【加入收藏】</a><A href='javascript:window.print();'>【打印此文】</A> <a onClick='window.self.close()'>【关闭窗口】</a></td></tr>"
  298.   end if
  299.   response.write"</table>"
  300.   set rs=nothing
  301. end function
  302. %>