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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
8.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：5k
源码类别：

外挂编程

开发平台：

ASP/ASPX

8.asp：源码内容
  1. <!--#include file="../Inc/Cls_Conn.asp"-->
  2. <!--#include file="../Inc/Cls_Config.asp"-->
  3. <%
  4. '=====================================================================
  5. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  6. '=====================================================================
  7. ' 程序名称：蓝宇网络发布系统
  8. ' 软件版本：Version 3.3.0 Sp1
  9. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  10. '=====================================================================
  11. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  12. ' 程序开发：蓝宇,╲、随心゛
  13. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  14. '=====================================================================
  15. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  16. '=====================================================================
  17. dim id,rs3
  18. id=tee5.CheckStr(request("id"))
  19. if id="" or (not isnumeric(id)) then
  20. tee5.OutClertScript ("参数不正确！")
  21. end if
  22. set rs = server.createobject("adodb.recordset")
  23. sql="update Gq_article set art_count=art_count+1 where id="&id
  24. conn.execute sql
  25. sql="select * from Gq_article where id="&request.querystring("id")
  26. rs.open sql,conn,1,1 
  27. if rs.bof and rs.eof then 
  28. rs.close
  29. tee5.OutClertScript ("无此数据！")
  30. else
  31. start="浏览"&rs("art_title")&""
  32. tee5.head()
  33. %>
  34. <TABLE width=<%=tee5.TabWidth%> border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  35.   <tr>
  36.     <td width="72%" valign="top" style="border-right:1px dashed #d1d1d1;"><table width="99%" border="0" cellspacing="0" cellpadding="0">
  37.         <tr>
  38.           <th><%=rs("art_title")%></th>
  39.         </tr>
  40.         <tr>
  41.           <td height="3" bgcolor="#CCCCCC" width="195"></td>
  42.         </tr>
  43.         <tr>
  44.           <td height="37" align="center"><table width="90%" border="0" cellspacing="0" cellpadding="0">
  45.               <tr>
  46.                 <td align="right" valign="top"><font color="000000">文章作者:<%=rs("writer")%></font></td>
  47.                 <td align="center" valign="top"><font color="000000">文章来源:<%=rs("copyright")%></font></td>
  48.                 <td valign="top">更新时间：<%=rs("art_date")%><font color="000000">&nbsp;</font></td>
  49.               </tr>
  50.           </table></td>
  51.         </tr>
  52.         <tr>
  53.           <td height="1" bgcolor="#CCCCCC"></td>
  54.         </tr>
  55.         <tr>
  56.           <td height="5"></td>
  57.         </tr>
  58.         <TR>
  59.           <TD style="padding-left: 10px;"><div style="FONT-SIZE: 14px; line-height:150%;width:99%"><%=rs("content")%></div></TD>
  60.         </TR>
  61.         <TR>
  62.           <TD height="30" align="right" bgColor=#f7f7f7 style="padding-right: 10px;">浏览次数：<%=rs("art_count")%></TD>
  63.         </TR>
  64.     </table></td>
  65.     <td width="5"></td>
  66.     <td width="27%" valign=""top"" align="right"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  67.         <tr>
  68.           <th>最新文章</th>
  69.         </tr>
  70.         <tr height="3">
  71.           <td height="3" bgcolor="#CCCCCC" width="195"></td>
  72.         </tr>
  73.         <tr>
  74.           <td valign="top"><%
  75. set rs3=server.createobject("adodb.recordset")
  76. sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_date DESC"
  77. rs3.open sql,conn,1,1
  78. do while not rs3.eof
  79. %>
  80.               <TABLE cellSpacing=1 cellPadding=1 width="90%" border=0 align="center">
  81.                 <TR>
  82.                   <TD height="20" valign="middle">· <a href='/showarticle.asp?cat_id=<%=rs3("cat_id")%>&id=<%=rs3("id")%>' target='_blank' Title='文章标题：<%=rs3("art_title")%>&#13&#10发表时间：<%=rs3("art_date")%>&#13&#10阅读次数：<%=rs3("art_count")%>次'><font color="#333333"><%=left(rs3("art_title"),25)%>...</font></a></TD>
  83.                 </TR>
  84.               </TABLE>
  85.               <%
  86.    rs3.movenext
  87.    loop
  88.    if rs3.eof and rs3.bof then
  89.    response.write "<div align=center><br>当前没有热门文章<br><br></div>"
  90.    end if
  91.    rs3.close
  92.    set rs3=nothing
  93.    %>
  94.           </td>
  95.         </tr>
  96.       </table>
  97.         <table width="100%" border="0" cellspacing="0" cellpadding="0">
  98.           <tr>
  99.             <th>热门文章</th>
  100.           </tr>
  101.           <tr height="3">
  102.             <td height="3" bgcolor="#CCCCCC" width="195"></td>
  103.           </tr>
  104.           <tr>
  105.             <td valign="top"><%
  106. set rs3=server.createobject("adodb.recordset")
  107. sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_count DESC"
  108. rs3.open sql,conn,1,1
  109. do while not rs3.eof
  110. %>
  111.                 <TABLE cellSpacing=1 cellPadding=1 width="90%" border=0 align="center">
  112.                   <TR>
  113.                     <TD height="20" valign="middle">· <a href='/showarticle.asp?cat_id=<%=rs3("cat_id")%>&id=<%=rs3("id")%>' target='_blank' Title='文章标题：<%=rs3("art_title")%>&#13&#10发表时间：<%=rs3("art_date")%>&#13&#10阅读次数：<%=rs3("art_count")%>次'><font color="#333333"><%=left(rs3("art_title"),25)%>...</font></a></TD>
  114.                   </TR>
  115.                 </TABLE>
  116.                 <%
  117.    rs3.movenext
  118.    loop
  119.    if rs3.eof and rs3.bof then
  120.    response.write "<div align=center><br>当前没有热门文章<br><br></div>"
  121.    end if
  122.    rs3.close
  123.    set rs3=nothing
  124.    %>
  125.             </td>
  126.           </tr>
  127.       </table></td>
  128.   </tr>
  129. </TABLE>
  130. <%
  131. End If
  132. tee5.footer()
  133. CloseConn()
  134. %>