外挂编程

开发平台：
ASP/ASPX

showArticle.Asp：源码内容
							<!--#include file="Inc/Cls_Conn.asp"-->
<!--#include file="Inc/Cls_Config.asp"-->
<%
'=====================================================================
' 作者声明：转载请保留版权信息，鄙视不要脸的人
'=====================================================================
' 程序名称：蓝宇网络发布系统
' 软件版本：Version 3.3.0 Sp1
' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
'=====================================================================
' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
' 程序开发：蓝宇,╲、随心゛
' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
'=====================================================================
' Copyright 2004-2007 蓝宇 - All Rights Reserved.
'=====================================================================
Dim Rs2, Rs3, Rs4
founderr=false
if request.querystring("cat_id")<>"" then
  if not tee5.isInteger(request.querystring("cat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数不正确');javascript:history.back();</script>"
  End If
End If
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  End If
End If
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    founderr=true
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
  End If
End If
tee5.head()
dim totalart,totalpages,j,colname
sql="select id,cat_id,art_title,art_date,art_count,content,isbest from Gq_article order by id DESC"
if request("cat_id")<>"" then
sql="select id,cat_id,art_title,art_date,art_count,content,isbest from Gq_article where cat_id="&request("cat_id")&" order by id DESC"
elseif request("keyword")<>"" then
sql="select id,cat_id,art_title,art_date,art_count,content,isbest from Gq_article where "&request("select")&" like '%"&request("keyword")&"%'order by id DESC"
End If
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
else
start="浏览"&rs("title")&""
tee5.head()
%>
<TABLE width="1002" border=0 align=center cellPadding=0 cellSpacing=0>
<tr>
<td height="10" colSpan="9" align="center" bgcolor="#FFFFFF">
<TABLE cellSpacing=2 cellPadding=0 width=999 align=center border=0>
<TBODY>
<TR>
<TD width="755" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=7></TD>
<TD vAlign=top><TABLE cellSpacing=0 cellPadding=0 width=756 border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" class=bj><b><font size=3 color="FFFFFF"><%=rs("art_title")%></font></b></td>
</tr>
<tr>
<td height="3" bgcolor="#CCCCCC" width="195"></td>
</tr>
<tr>
<td height="37" align="center"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right" valign="top"><font color="000000">文章作者:<%=rs("writer")%></font></td>
<td align="center" valign="top"><font color="000000">文章来源:<%=rs("copyright")%></font></td>
<td valign="top">更新时间：<%=rs("art_date")%><font color="000000">&nbsp;</font></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=4></TD>
<TD>
<table width="100%" align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
<TBODY>
<TR>
<TD align=left><div style="FONT-SIZE: 14px; FONT-FAMILY: 宋体; word-break:break-all;table-layout:fixed;line-height:150%;width:99%"><%=rs("content")%></div></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=4></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD width="700" height="40" align="right"><font color="000000">浏览次数:<%=rs("art_count")%></font></TD>
</TR>
<TR>
<TD height="10" align="right"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=1 vAlign=top bgcolor="#CCCCCC"></TD>
<TD width="241" align="right" vAlign=top>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" class=bj width="195"><font color="FFF799">最新文章</font></td>
</tr>
<tr height="3">
<td height="3" bgcolor="#CCCCCC" width="195"></td>
</tr>
<tr>
<td valign="top">
<%
set rs3=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_date DESC"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="90%" border=0 align="center">
<TR>
<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>
</TR>
</TABLE>
<%
   rs3.movenext
   loop
   if rs3.eof and rs3.bof then
   response.write "<div align=center><br>当前没有热门文章<br><br></div>"
   end if
   rs3.close
   set rs3=nothing
   %>
</td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" class=bj width="195"><font color="FFF799">热门文章</font></td>
</tr>
<tr height="3">
<td height="3" bgcolor="#CCCCCC" width="195"></td>
</tr>
<tr>
<td valign="top">
<%
set rs3=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_count DESC"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="90%" border=0 align="center">
<TR>
<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>
</TR>
</TABLE>
<%
   rs3.movenext
   loop
   if rs3.eof and rs3.bof then
   response.write "<div align=center><br>当前没有热门文章<br><br></div>"
   end if
   rs3.close
   set rs3=nothing
   %>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
</table>
<%
call footer()
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>
<%tee5.footer()
CloseConn()
%>

						