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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
OtherList.Asp
资源名称：utifulstyleatmosphereFLASH.rar　[点击查看]
上传用户：mtjhgs
上传日期：2021-12-08
资源大小：3755k
文件大小：14k
源码类别：

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

开发平台：

HTML/CSS

OtherList.Asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <!--#include file="../Include/Const.asp" -->
  3. <!--#include file="../Include/NoHackSql.Asp" -->
  4. <!--#include file="../Include/ConnSiteData.asp" -->
  5. <%
  6. call SiteInfo
  7. if ISHTML = 1 then
  8. Response.expires = 0
  9. Response.expiresabsolute = Now() - 1
  10. Response.addHeader "pragma", "no-cache"
  11. Response.addHeader "cache-control", "private"
  12. Response.CacheControl = "no-cache"
  13. End If
  14. if request.QueryString("SortID")="" then
  15. SeoTitle="Other Info"
  16. elseif not IsNumeric(request.QueryString("SortID")) then
  17. SeoTitle="Parameter error"
  18. elseif conn.execute("select * from Wygkcnflash_OthersSort Where ViewFlag"&Language&" and  ID="&request.QueryString("SortID")).eof then
  19. SeoTitle="Parameter error"
  20. else
  21. set rs = server.createobject("adodb.recordset")
  22. sql="select * from Wygkcnflash_OthersSort where ViewFlag"&Language&" and ID="&request.QueryString("SortID")
  23. rs.open sql,conn,1,1
  24. SeoTitle=rs("SortName"&Language)
  25. rs.close
  26. set rs=nothing
  27. end if
  28. headid=9
  29. %>
  30. <!--#include file="Head.Asp" -->
  31. <div class="clear"></div>
  32. <div id="contant">
  33.   <div class="cleft">
  35. <div class="news">
  36.       <div class="title">
  37.   &nbsp;<b>Information Classification</b>
  38.   </div>
  39.   <div>
  40.   <ul>
  41.   <%=WebMenu(0,0,2)%>
  42.   </ul>
  43.   </div>
  44.     </div>
  45. <div class="news">
  46.       <div class="title">
  47.   &nbsp;<b>Hot News</b>
  48.   </div>
  49.   <div>
  50.   <ul>
  51.   <%=otherhot(8)%>
  52.   </ul>
  53.   </div>
  54.     </div>
  55.   </div>
  56.   <div class="cright">
  57. <div class="crightb">
  58.   <div class="crightbtitle">
  59.     <div class="crightbtitlel">
  60. Location：
  61. </div>
  62. <div class="crightbtitler">
  63. <%=WebLocation()%>
  64. </div>
  65.   </div>
  66.   <div class="crightbcontent">
  67. <table cellspacing="0" cellpadding="0" width="100%" bgcolor="#ffffff" border="0" heihgt="">
  68.     <tbody>
  69.         <tr>
  70.             <td>
  71. <%=WebContent("Wygkcnflash_OthersSort",request.QueryString("SortID"),"")%>
  72.             </td>
  73.         </tr>
  74.     </tbody>
  75. </table>
  76.      </div>
  77. </div>
  78.   </div>
  79. </div>
  80. <!--#include file="Foot.Asp"-->
  81. <%
  82. function WebMenu(ParentID,i,level)
  83.   dim rs,sql
  84.   set rs = server.createobject("adodb.recordset")
  85.   sql="select * from Wygkcnflash_OthersSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  86.   rs.open sql,conn,1,1
  87.   if conn.execute("select ID from Wygkcnflash_OthersSort Where ViewFlag"&Language&" and ParentID=0").eof then
  88.     response.write "No relevant information"
  89.   end if
  90.   do while not rs.eof
  91.    If ISHTML = 1 Then
  92. AutoLink = ""&OtherSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
  93. Else
  94. AutoLink = "OtherList.asp?SortID="&rs("ID")&""
  95. End If
  96. if ParentID=0 then
  97.   response.write "<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a></li>"
  98. else
  99.   response.write string(i,"　")&"<Li>  <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href="""&AutoLink&""" target=""_blank"" style=""margin-left:5px;"">"&rs("SortName"&Language)&"</a></li>"
  100. end if
  101.     i=i+1
  102. if i<level then call WebMenu(rs("ID"),i,level)
  103. i=i-1
  104. rs.movenext
  105.   loop 
  106.   rs.close
  107.   set rs=nothing
  108. end function
  110. function WebLocation()
  111.   WebLocation="&nbsp;Location：<a href=""index.asp"" class=""agray"">Home</a> - <a href=""OtherList.asp"" class=""agray"">Other Info</a>"&VbCrLf
  112.   if request.QueryString("SortID")="" then
  113.     WebLocation=WebLocation
  114.   elseif not IsNumeric(request.QueryString("SortID")) then
  115.     WebLocation=WebLocation&"Parameter error"
  116.   elseif conn.execute("select * from Wygkcnflash_OthersSort Where ViewFlag"&Language&" and  ID="&request.QueryString("SortID")).eof then
  117.     WebLocation=WebLocation&"Parameter error"
  118.   else
  119.     dim rs,sql
  120.     set rs = server.createobject("adodb.recordset")
  121. sql="select * from Wygkcnflash_OthersSort where ViewFlag"&Language&" and ID="&request.QueryString("SortID")
  122.     rs.open sql,conn,1,1
  123. WebLocation=WebLocation&SortPathTXT("Wygkcnflash_OthersSort",rs("ID"))
  124.     rs.close
  125.     set rs=nothing
  126.   end if
  127. end Function
  129. function SortPathTXT(DataFrom,ID)
  130.   dim rs,sql
  131.   Set rs=server.CreateObject("adodb.recordset")
  132.   sql="Select * From "&DataFrom&" where ViewFlag"&Language&" and ID="&ID
  133.   rs.open sql,conn,1,1
  134.   if not rs.eof Then
  135. If ISHTML = 1 Then
  136. AutoLink = ""&OtherSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
  137. Else
  138. AutoLink = "OtherList.asp?SortID="&rs("ID")&""
  139. End If
  140. SortPathTXT=SortPathTXT(DataFrom,rs("ParentID"))&" - <a href="""&AutoLink&""">"&rs("SortName"&Language)&"</a>"
  141.   end if
  142.   rs.close
  143.   set rs=nothing
  144. end function
  146. function WebContent(DataFrom,ID,SortPath)
  147.   dim rs,sql
  148.   dim HideSort
  149.   set rs = server.createobject("adodb.recordset")
  150.   if ID="" then
  151. SortPath="0,"
  152.   elseif not IsNumeric(ID) then
  153.     response.write "<center>No relevant information</center>"
  154. exit function
  155.   elseif conn.execute("select * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID).eof then
  156.     response.write "<center>No relevant information</center>"
  157. exit function
  158.   else
  159. SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID)("SortPath")
  160. conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID)
  161.   end if
  162.   sql="select * from "&DataFrom&" Where not(ViewFlag"&Language&") and Instr(SortPath,'"&SortPath&"')>0"
  163.   rs.open sql,conn,1,1
  164.   while not rs.eof
  165. HideSort="and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort
  166.     rs.movenext
  167.   wend
  168.   rs.close
  169.   dim idCount
  170.   dim pages
  171.       pages=OtherInfo
  172.   dim pagec
  173.   dim page
  174.       page=clng(request("Page"))
  175.   dim pagenc
  176.       pagenc=5
  177.   dim pagenmax
  178.   dim pagenmin
  179.   dim pageprevious
  180.   dim pagenext
  181.   datafrom="Wygkcnflash_Others"
  182.   dim datawhere
  183.   datawhere="where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " "
  184.   dim sqlid
  185.   dim Myself,PATH_INFO,QUERY_STRING
  186.       PATH_INFO = request.servervariables("PATH_INFO")
  187.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  188.       if QUERY_STRING = "" then
  189.     Myself = PATH_INFO & "?"
  190.   elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  191.     Myself= PATH_INFO & "?" & QUERY_STRING & "&"
  192.   else
  193.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  194.   end if
  195.   dim taxis
  196.       taxis="order by id desc "
  197.   dim i
  198.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  199.   set rs=server.createobject("adodb.recordset")
  200.   rs.open sql,conn,0,1
  201.   idCount=rs("idCount")
  202.   if(idcount>0) then
  203.     if(idcount mod pages=0)then
  204.   pagec=int(idcount/pages)
  205.     else
  206.       pagec=int(idcount/pages)+1
  207.     end if
  208.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  209.     set rs=server.createobject("adodb.recordset")
  210.     rs.open sql,conn,1,1
  211.     rs.pagesize = pages
  212.     if page < 1 then page = 1
  213.     if page > pagec then page = pagec
  214.     if pagec > 0 then rs.absolutepage = page
  215.     for i=1 to rs.pagesize
  216.   if rs.eof then exit for
  217.   if(i=1)then
  218.     sqlid=rs("id")
  219.   else
  220.     sqlid=sqlid &","&rs("id")
  221.   end if
  222.   rs.movenext
  223.     next
  224.   end if
  225.   if(idcount>0 and sqlid<>"") then
  226.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  227.     set rs=server.createobject("adodb.recordset")
  228.     rs.open sql,conn,0,1
  229. Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  230. Response.Write "  <tr height=""26"">"&VbCrLf
  231. Response.Write "    <td width=""550"" style=""color:#FFFFFF; font-weight:bold; background:url(Images/split.gif) no-repeat right center; background-color:#abacaf"">&nbsp;&nbsp;&nbsp;&nbsp;Title</td>"&VbCrLf
  232. Response.Write "    <td bgcolor=""#ABACAF"" style=""color:#FFFFFF; font-weight:bold"">&nbsp;&nbsp;Update</td>"&VbCrLf
  233. Response.Write "  </tr>"&VbCrLf
  234.     while not rs.eof
  235. If ISHTML = 1 Then
  236. AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&""
  237. Else
  238. AutoLink = "OtherView.asp?ID="&rs("ID")&""
  239. End If
  240. Response.Write "  <tr height=""28"">"&VbCrLf
  241. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&rs("OthersName"&Language)&"</a></td>"&VbCrLf
  242. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">&nbsp;&nbsp;&nbsp;"&FormatDate(rs("Updatetime"),13)&"</td>"&VbCrLf
  243. Response.Write "  </tr>"&VbCrLf
  244. rs.movenext
  245.     wend
  246. Response.Write "</table>"&VbCrLf
  247.   else
  248.     response.write "<center>No relevant information</center>"
  249. exit function
  250.   end if
  251.   Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  252.   Response.Write "  <tr height=""35"">"&VbCrLf
  253.   Response.Write "    <td align=""center"">"&VbCrLf
  254.   Response.Write "Total:<strong style=""color:red"">"&idcount&"</strong>Records&nbsp;&nbsp;Page:<strong style=""color:red"">"&page&"</strong>/"&pagec&" PageSize:<strong style=""color:red"">"&pages&"</strong>Records" & vbCrLf
  255.   pagenmin=page-pagenc
  256.   pagenmax=page+pagenc
  257.   if(pagenmin<1) then pagenmin=1
  258.   If ISHTML = 1 Then
  259.   If ID = "" Then
  260.   if(page>1) then response.write ("<a href="""&OtherSortName&""&Separated&"1."&HTMLName&""" title=""Return to page 1""><font face=""webdings"" color=""#000000"">9</font></a> ")
  261.   Else
  262.   if(page>1) then response.write ("<a href="""&OtherSortName&""&Separated&""&ID&""&Separated&"1."&HTMLName&""" title=""Return to page 1""><font face=""webdings"" color=""#000000"">9</font></a> ")
  263.   End If
  264.   Else
  265.   if(page>1) then response.write ("<a href="""& myself &"Page=1"" title=""Return to page 1""><font face=""webdings"" color=""#000000"">9</font></a> ")
  266.   End If
  267.   if page-(pagenc*2+1)<=0 then
  268. pageprevious=1
  269.   else
  270. pageprevious=page-(pagenc*2+1)
  271.   end If
  272.   If ISHTML = 1 Then
  273.   If ID = "" Then
  274.   if(pagenmin>1) then response.write ("<a href="""&OtherSortName&""&Separated&""&pageprevious&"."&HTMLName&""" title=""Page "& pageprevious &"""><font face=""webdings"" color=""#000000"">3</font></a> ")
  275.   Else
  276.   if(pagenmin>1) then response.write ("<a href="""&OtherSortName&""&Separated&""&ID&""&Separated&""&pageprevious&"."&HTMLName&""" title=""Page "& pageprevious &"""><font face=""webdings"" color=""#000000"">3</font></a> ")
  277.   End If
  278.   Else
  279.   if(pagenmin>1) then response.write ("<a href="""& myself &"Page="& pageprevious &""" title=""page"& pageprevious &"""><font face=""webdings"" color=""#000000"">3</font></a> ")
  280.   End If
  281.   if(pagenmax>pagec) then pagenmax=pagec
  282.   for i = pagenmin to pagenmax
  283. if(i=page) then
  284.   response.write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
  285. Else
  286. If ISHTML = 1 Then
  287. If ID = "" Then
  288. response.write ("[<a href="""&OtherSortName&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
  289. Else
  290. response.write ("[<a href="""&OtherSortName&""&Separated&""&ID&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
  291. End If
  292. Else
  293. response.write ("[<a href="""& myself &"Page="&i&""">"& i &"</a>]")
  294. End If
  295. end if
  296.   next
  297.   if page+(pagenc*2+1)>=pagec then
  298.     pagenext=pagec
  299.   else
  300.     pagenext=page+(pagenc*2+1)
  301.   end If
  302.   If ISHTML = 1 Then
  303.   If ID = "" Then
  304.   if(pagenmax<pagec) then response.write (" <a href="""&OtherSortName&""&Separated&""&pagenext&"."&HTMLName&""" title=""Go to page"&pagenext&"""><font face=""webdings"" color=""#999999"">:</font></a> ")
  305.   if(page<pagec) then response.write (" <a href="""&OtherSortName&""&Separated&""&pagec&"."&HTMLName&""" title=""Go to page"&pagec&"""><font face=""webdings"" color=""#000000"">:</font></a>")
  306.   Else
  307.   if(pagenmax<pagec) then response.write (" <a href="""&OtherSortName&""&Separated&""&ID&""&Separated&""&pagenext&"."&HTMLName&""" title=""Go to page"&pagenext&"""><font face=""webdings"" color=""#999999"">:</font></a> ")
  308.   if(page<pagec) then response.write (" <a href="""&OtherSortName&""&Separated&""&ID&""&Separated&""&pagec&"."&HTMLName&""" title=""Go to page"&pagec&"""><font face=""webdings"" color=""#000000"">:</font></a>")
  309.   End If
  310.   Else
  311.   if(pagenmax<pagec) then response.write (" <a href="""& myself &"Page="& pagenext &""" title=""Go to page"&pagenext&"""><font face=""webdings"" color=""#999999"">:</font></a> ")
  312.   if(page<pagec) then response.write (" <a href="""& myself &"Page="& pagec &""" title=""Go to page"&pagec&"""><font face=""webdings"" color=""#000000"">:</font></a>")
  313.   End If
  314.   Response.Write "    </td>"&VbCrLf
  315.   Response.Write "  </tr>"&VbCrLf
  316.   Response.Write "</table>"&VbCrLf
  317.   rs.close
  318.   set rs=nothing
  319. end function
  321. function otherhot(Num)
  322.   dim rs,sql,OthersName,NewFlag
  323.   set rs = server.createobject("adodb.recordset")
  324.   sql="select top "&Num&" * from Wygkcnflash_Others where ViewFlag"&Language&" order by ClickNumber desc,id desc"
  325.   rs.open sql,conn,1,1
  326.   if rs.eof then
  327. Response.Write "    <li>No relevant information</li>"&VbCrLf
  328.   else
  329.   dim i 
  330.   i=1
  331.     do while not rs.eof
  332.   if now()-rs("AddTime")<=2 then 
  333.   if Getlen(rs("OthersName"&Language))>18 then
  334.     OthersName=StrLeft(rs("OthersName"&Language),18)&"..."
  335.     else
  336.     OthersName=rs("OthersName"&Language)
  337.     end if
  338.     NewFlag=" <img src=""Images/new.gif"" align=""absmiddle"">"
  339.   else
  340.     if Getlen(rs("OthersName"&Language))>18 then
  341.     OthersName=StrLeft(rs("OthersName"&Language),18)&"..."
  342.     else
  343.     OthersName=rs("OthersName"&Language)
  344.     end if
  345.     NewFlag=""
  346.   end If
  347. If ISHTML = 1 Then
  348. AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&""
  349. Else
  350. AutoLink = "OtherView.asp?ID="&rs("id")&""
  351. End If
  352. Response.Write "<li><img src=""images/"&i&".jpg"" width=""13"" height=""13"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&OthersName&"</a>"&NewFlag&"</li>"&VbCrLf
  354.       rs.movenext
  355.   i=i+1
  356.     loop 
  357.   end if
  358.   rs.close
  359.   set rs=nothing
  360. end Function
  362. %>