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

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

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

开发平台：

HTML/CSS

NewsList.Asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <!--#include file="../Include/Const.asp" -->
  3. <!--#include file="../Include/ConnSiteData.asp" -->
  4. <!--#include file="../Include/NoHackSql.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="新闻动态"
  16. elseif not IsNumeric(request.QueryString("SortID")) then
  17. SeoTitle="参数错误"
  18. elseif conn.execute("select * from Wygkcnflash_NewsSort Where ViewFlag"&Language&" and  ID="&request.QueryString("SortID")).eof then
  19. SeoTitle="参数错误"
  20. else
  21. set rs = server.createobject("adodb.recordset")
  22. sql="select * from Wygkcnflash_NewsSort 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=2
  29. %>
  30. <!--#include file="Head.Asp" -->
  31. <div class="clear"></div>
  32. <div id="contant">
  33.   <div class="cleft">
  34. <div class="news">
  35.       <div class="title">
  36.   &nbsp;<b>新闻分类</b>
  37.   </div>
  38.   <div>
  39.   <ul>
  40.   <%=WebMenu(0,0,2)%>
  41.   </ul>
  42.   </div>
  43.     </div>
  44. <div class="news">
  45.       <div class="title">
  46.   &nbsp;<b>热门新闻</b>
  47.   </div>
  48.   <div>
  49.   <ul>
  50.   <%=Newshot(8)%>
  51.   </ul>
  52.   </div>
  53.     </div>
  54.   </div>
  55.   <div class="cright">
  56. <div class="crightb">
  57.   <div class="crightbtitle">
  58.     <div class="crightbtitlel">
  59. 当前位置：
  60. </div>
  61. <div class="crightbtitler">
  62. <%=WebLocation()%>
  63. </div>
  64.   </div>
  65.   <div class="crightbcontent">
  66.     <%=WebContent("Wygkcnflash_NewsSort",request.QueryString("SortID"),"")%>
  67.   </div>
  68. </div>
  69.   </div>
  70. </div>
  71. <!--#include file="Foot.Asp"-->
  72. <%
  73. function WebMenu(ParentID,i,level)
  74.   dim rs,sql
  75.   set rs = server.createobject("adodb.recordset")
  76.   sql="select * from Wygkcnflash_NewsSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  77.   rs.open sql,conn,1,1
  78.   if conn.execute("select ID from Wygkcnflash_NewsSort Where ViewFlag"&Language&" and ParentID=0").eof then
  79.     response.write "暂无相关信息"
  80.   end if
  81.   do while not rs.eof
  82.    If ISHTML = 1 Then
  83. AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
  84. Else
  85. AutoLink = "NewsList.asp?SortID="&rs("ID")&""
  86. End If
  87. if ParentID=0 then
  88.   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>"
  89. else
  90.   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>"
  91. end if
  92.     i=i+1
  93. if i<level then call WebMenu(rs("ID"),i,level)
  94. i=i-1
  95. rs.movenext
  96.   loop 
  97.   rs.close
  98.   set rs=nothing
  99. end function
  101. function WebLocation()
  102.   WebLocation="&nbsp;<a href=""index.asp"" class=""agray"">首页</a> - <a href=""NewsList.asp"" class=""agray"">新闻动态</a>"&VbCrLf
  103.   if request.QueryString("SortID")="" then
  104.     WebLocation=WebLocation
  105.   elseif not IsNumeric(request.QueryString("SortID")) then
  106.     WebLocation=WebLocation&"参数错误"
  107.   elseif conn.execute("select * from Wygkcnflash_NewsSort Where ViewFlag"&Language&" and  ID="&request.QueryString("SortID")).eof then
  108.     WebLocation=WebLocation&"参数错误"
  109.   else
  110.     dim rs,sql
  111.     set rs = server.createobject("adodb.recordset")
  112. sql="select * from Wygkcnflash_NewsSort where ViewFlag"&Language&" and ID="&request.QueryString("SortID")
  113.     rs.open sql,conn,1,1
  114. WebLocation=WebLocation&SortPathTXT("Wygkcnflash_NewsSort",rs("ID"))
  115.     rs.close
  116.     set rs=nothing
  117.   end if
  118. end Function
  120. function SortPathTXT(DataFrom,ID)
  121.   dim rs,sql
  122.   Set rs=server.CreateObject("adodb.recordset")
  123.   sql="Select * From "&DataFrom&" where ViewFlag"&Language&" and ID="&ID
  124.   rs.open sql,conn,1,1
  125.   if not rs.eof Then
  126. If ISHTML = 1 Then
  127. AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
  128. Else
  129. AutoLink = "NewsList.asp?SortID="&rs("ID")&""
  130. End If
  131. SortPathTXT=SortPathTXT(DataFrom,rs("ParentID"))&" - <a href="""&AutoLink&""">"&rs("SortName"&Language)&"</a>"
  132.   end if
  133.   rs.close
  134.   set rs=nothing
  135. end function
  137. function WebContent(DataFrom,ID,SortPath)
  138.   dim rs,sql
  139.   dim HideSort
  140.   set rs = server.createobject("adodb.recordset")
  141.   if ID="" then
  142. SortPath="0,"
  143.   elseif not IsNumeric(ID) then
  144.     response.write "<center>暂无相关信息</center>"
  145. exit function
  146.   elseif conn.execute("select * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID).eof then
  147.     response.write "<center>暂无相关信息</center>"
  148. exit function
  149.   else
  150. SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlag"&Language&" and  ID="&ID)("SortPath")
  151. conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where ID="&ID)
  152.   end if
  153.   sql="select * from "&DataFrom&" Where not(ViewFlag"&Language&") and Instr(SortPath,'"&SortPath&"')>0"
  154.   rs.open sql,conn,1,1
  155.   while not rs.eof
  156. HideSort="and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort
  157.     rs.movenext
  158.   wend
  159.   rs.close
  160.   dim idCount
  161.   dim pages
  162.       pages=NewInfo
  163.   dim pagec
  164.   dim page
  165.       page=clng(request("Page"))
  166.   dim pagenc
  167.       pagenc=5
  168.   dim pagenmax
  169.   dim pagenmin
  170.   dim pageprevious
  171.   dim pagenext
  172.   datafrom="Wygkcnflash_News"
  173.   dim datawhere
  174.   datawhere="where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " "
  175.   dim sqlid
  176.   dim Myself,PATH_INFO,QUERY_STRING
  177.       PATH_INFO = request.servervariables("PATH_INFO")
  178.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  179.       if QUERY_STRING = "" then
  180.     Myself = PATH_INFO & "?"
  181.   elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  182.     Myself= PATH_INFO & "?" & QUERY_STRING & "&"
  183.   else
  184.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  185.   end if
  186.   dim taxis
  187.       taxis="order by id desc "
  188.   dim i
  189.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  190.   set rs=server.createobject("adodb.recordset")
  191.   rs.open sql,conn,0,1
  192.   idCount=rs("idCount")
  193.   if(idcount>0) then
  194.     if(idcount mod pages=0)then
  195.   pagec=int(idcount/pages)
  196.     else
  197.       pagec=int(idcount/pages)+1
  198.     end if
  199.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  200.     set rs=server.createobject("adodb.recordset")
  201.     rs.open sql,conn,1,1
  202.     rs.pagesize = pages
  203.     if page < 1 then page = 1
  204.     if page > pagec then page = pagec
  205.     if pagec > 0 then rs.absolutepage = page
  206.     for i=1 to rs.pagesize
  207.   if rs.eof then exit for
  208.   if(i=1)then
  209.     sqlid=rs("id")
  210.   else
  211.     sqlid=sqlid &","&rs("id")
  212.   end if
  213.   rs.movenext
  214.     next
  215.   end if
  216.   if(idcount>0 and sqlid<>"") then
  217.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  218.     set rs=server.createobject("adodb.recordset")
  219.     rs.open sql,conn,0,1
  220. Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  221. Response.Write "  <tr height=""22"">"&VbCrLf
  222. Response.Write "    <td width=""100%"" style=""color:#FFFFFF; font-weight:bold; background-color:#cccccc;"">&nbsp;&nbsp;&nbsp;&nbsp;信息标题</td>"&VbCrLf
  223. Response.Write "    <td align=""center"" bgcolor=""#CCCCCC"" style=""color:#FFFFFF; font-weight:bold"">发布日期</td>"&VbCrLf
  224. Response.Write "  </tr>"&VbCrLf
  225.     while not rs.eof
  226. If ISHTML = 1 Then
  227. AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
  228. Else
  229. AutoLink = "NewsView.asp?ID="&rs("ID")&""
  230. End If
  231. Response.Write "  <tr height=""28"">"&VbCrLf
  232. 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("NewsName"&Language)&"</a></td>"&VbCrLf
  233. Response.Write "    <td align=""center"" style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">"&FormatDate(rs("Addtime"),13)&"</td>"&VbCrLf
  234. Response.Write "  </tr>"&VbCrLf
  235. rs.movenext
  236.     wend
  237. Response.Write "</table>"&VbCrLf
  238.   else
  239.     response.write "<center>暂无相关信息</center>"
  240. exit function
  241.   end if
  242.   Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  243.   Response.Write "  <tr height=""35"">"&VbCrLf
  244.   Response.Write "    <td align=""center"">"&VbCrLf
  245.   Response.Write "共<strong style=""color:red"">"&idcount&"</strong>条记录 页次：<strong style=""color:red"">"&page&"</strong>/"&pagec&" 每页：<strong style=""color:red"">"&pages&"</strong>条记录" & vbCrLf
  246.   pagenmin=page-pagenc
  247.   pagenmax=page+pagenc
  248.   if(pagenmin<1) then pagenmin=1
  249.   If ISHTML = 1 Then
  250.   If ID = "" Then
  251.   if(page>1) then response.write ("<a href="""&NewSortName&""&Separated&"1."&HTMLName&""" title=""回到第一页""><font face=""webdings"" color=""#000000"">9</font></a> ")
  252.   Else
  253.   if(page>1) then response.write ("<a href="""&NewSortName&""&Separated&""&ID&""&Separated&"1."&HTMLName&""" title=""回到第一页""><font face=""webdings"" color=""#000000"">9</font></a> ")
  254.   End If
  255.   Else
  256.   if(page>1) then response.write ("<a href="""& myself &"Page=1"" title=""回到第一页""><font face=""webdings"" color=""#000000"">9</font></a> ")
  257.   End If
  258.   if page-(pagenc*2+1)<=0 then
  259. pageprevious=1
  260.   else
  261. pageprevious=page-(pagenc*2+1)
  262.   end If
  263.   If ISHTML = 1 Then
  264.   If ID = "" Then
  265.   if(pagenmin>1) then response.write ("<a href="""&NewSortName&""&Separated&""&pageprevious&"."&HTMLName&""" title=""第"& pageprevious &"页""><font face=""webdings"" color=""#000000"">3</font></a> ")
  266.   Else
  267.   if(pagenmin>1) then response.write ("<a href="""&NewSortName&""&Separated&""&ID&""&Separated&""&pageprevious&"."&HTMLName&""" title=""第"& pageprevious &"页""><font face=""webdings"" color=""#000000"">3</font></a> ")
  268.   End If
  269.   Else
  270.   if(pagenmin>1) then response.write ("<a href="""& myself &"Page="& pageprevious &""" title=""第"& pageprevious &"页""><font face=""webdings"" color=""#000000"">3</font></a> ")
  271.   End If
  272.   if(pagenmax>pagec) then pagenmax=pagec
  273.   for i = pagenmin to pagenmax
  274. if(i=page) then
  275.   response.write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
  276. Else
  277. If ISHTML = 1 Then
  278. If ID = "" Then
  279. response.write ("[<a href="""&NewSortName&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
  280. Else
  281. response.write ("[<a href="""&NewSortName&""&Separated&""&ID&""&Separated&""&i&"."&HTMLName&""">"& i &"</a>]")
  282. End If
  283. Else
  284. response.write ("[<a href="""& myself &"Page="&i&""">"& i &"</a>]")
  285. End If
  286. end if
  287.   next
  288.   if page+(pagenc*2+1)>=pagec then
  289.     pagenext=pagec
  290.   else
  291.     pagenext=page+(pagenc*2+1)
  292.   end If
  293.   If ISHTML = 1 Then
  294.   If ID = "" Then
  295.   if(pagenmax<pagec) then response.write (" <a href="""&NewSortName&""&Separated&""&pagenext&"."&HTMLName&""" title=""跳转到第"&pagenext&"页""><font face=""webdings"" color=""#999999"">:</font></a> ")
  296.   if(page<pagec) then response.write (" <a href="""&NewSortName&""&Separated&""&pagec&"."&HTMLName&""" title=""跳转到第"&pagec&"页""><font face=""webdings"" color=""#000000"">:</font></a>")
  297.   Else
  298.   if(pagenmax<pagec) then response.write (" <a href="""&NewSortName&""&Separated&""&ID&""&Separated&""&pagenext&"."&HTMLName&""" title=""跳转到第"&pagenext&"页""><font face=""webdings"" color=""#999999"">:</font></a> ")
  299.   if(page<pagec) then response.write (" <a href="""&NewSortName&""&Separated&""&ID&""&Separated&""&pagec&"."&HTMLName&""" title=""跳转到第"&pagec&"页""><font face=""webdings"" color=""#000000"">:</font></a>")
  300.   End If
  301.   Else
  302.   if(pagenmax<pagec) then response.write (" <a href="""& myself &"Page="& pagenext &""" title=""跳转到第"&pagenext&"页""><font face=""webdings"" color=""#999999"">:</font></a> ")
  303.   if(page<pagec) then response.write (" <a href="""& myself &"Page="& pagec &""" title=""跳转到第"&pagec&"页""><font face=""webdings"" color=""#000000"">:</font></a>")
  304.   End If
  305.   Response.Write "    </td>"&VbCrLf
  306.   Response.Write "  </tr>"&VbCrLf
  307.   Response.Write "</table>"&VbCrLf
  308.   rs.close
  309.   set rs=nothing
  310. end function
  312. function Newshot(Num)
  313.   dim rs,sql,NewsName,NewFlag
  314.   set rs = server.createobject("adodb.recordset")
  315.   sql="select top "&Num&" * from Wygkcnflash_News where ViewFlag"&Language&" order by ClickNumber desc,id desc"
  316.   rs.open sql,conn,1,1
  317.   if rs.eof then
  318. Response.Write "    <li>暂无相关信息</li>"&VbCrLf
  319.   else
  320.   dim i 
  321.   i=1
  322.     do while not rs.eof
  323.   if now()-rs("AddTime")<=2 then 
  324.   if Getlen(rs("NewsName"&Language))>18 then
  325.     NewsName=StrLeft(rs("NewsName"&Language),18)&"..."
  326.     else
  327.     NewsName=rs("NewsName"&Language)
  328.     end if
  329.     NewFlag=" <img src=""Images/new.gif"" align=""absmiddle"">"
  330.   else
  331.     if Getlen(rs("NewsName"&Language))>18 then
  332.     NewsName=StrLeft(rs("NewsName"&Language),18)&"..."
  333.     else
  334.     NewsName=rs("NewsName"&Language)
  335.     end if
  336.     NewFlag=""
  337.   end If
  338. If ISHTML = 1 Then
  339. AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
  340. Else
  341. AutoLink = "NewsView.asp?ID="&rs("id")&""
  342. End If
  343. Response.Write "<li><img src=""images/"&i&".jpg"" width=""13"" height=""13"" align=""absmiddle"" />&nbsp;&nbsp;<a href="""&AutoLink&""">"&NewsName&"</a>"&NewFlag&"</li>"&VbCrLf
  345.       rs.movenext
  346.   i=i+1
  347.     loop 
  348.   end if
  349.   rs.close
  350.   set rs=nothing
  351. end Function
  352. %>