articleshow.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 114 行

<!--#include file="inc/syscode.asp"-->
<!--#include file="top.asp"-->
<%
ShowSmallClassType=ShowSmallClassType_Article
dim ArticleID
ArticleID=trim(request("ArticleID"))
if ArticleId="" then
	response.Redirect("Product.asp")
end if

sql="select * from Product where ArticleID=" & ArticleID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	response.write"<SCRIPT language=JavaScript>alert('找不到此作品！');"
  response.write"javascript:history.go(-1)</SCRIPT>"
else	
	rs("Hits")=rs("Hits")+1
	rs.update
	if rs("hits")>=HitsOfHot then
		rs("Hot")=True
		rs.update
	end if
	BigClassName=rs("BigClassName")
	SmallClassName=rs("SmallClassName")
%>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
   <TR>
    <TD vAlign=top width=178 background=images/leftftbg.gif>
       <TABLE cellSpacing=0 cellPadding=0 width=178 border=0>
        <TBODY>
        <TR>
          <TD><!-- 作品列表 --><!--#include file="L_product.asp"--></TD></TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD width=178><!--#include file="index_ywjs.asp"--></TD>
        </TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 站内调查 --><!-- #include file="L_vote.asp" --></TD></TR>
        <TR>
          <TD background=images/leftbg.gif height=5></TD></TR>
        </TBODY>
       </TABLE>
    </TD>
<!--********************左栏部分结束**********************-->
    <TD  bgcolor="#FFFFFF" valign=top>				
     <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
      <tr> 
	<td height="24"><img src=images/r7.gif align=absbottom></td>
      </tr>
      <tr> 
	<td height="1" bgcolor="#c0c0c0"></td>
      </tr>
     </table>	
     <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>			
       <td>
<!--********************右栏部分开始**********************-->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
  <tr>
   <TD>
    <TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=0>
     <TR> 
      <TD width="100%" height=25>
<%
response.write "※作品类别:<a href='Product.asp?BigClassName=" & rs("BigClassName") & "'>" & rs("BigClassName") & "</a>&nbsp;&gt;&gt;&nbsp;"
if rs("SmallClassName") & ""<>"" then
response.write "<a href='Product.asp?BigClassName=" & rs("BigClassName")&"&SmallClassName=" & rs("SmallClassName") & "'>" & rs("SmallClassName") & "</a>&nbsp;&gt;&gt;&nbsp;"
end if
response.write "<b>"& rs("Title") &"</b>"
%>   </TD>
    </TR>
   </TABLE>    
   <TABLE border=0 align="center" cellPadding=0 cellSpacing=0 width=96%>
      <TD height=5 width=100%>
      </TD>
     <TR> 
      <TD height=1 width=100%>
      <%call ShowArticleContent()%> 
      </TD>
     </TR>
     <TR> 
      <TD width="100%" height=25 align=right>点击数：<%=rs("Hits")%>&nbsp; 录入时间：<%= FormatDateTime(rs("UpdateTime"),2) %>&nbsp;【<a href='javascript:window.print()'>打印此页</a
>】&nbsp;【<a href='javascript:history.back()'>返回</a>】
      </TD>
     </TR>
    </table>

   </td>
</table>
<!--********************右栏部分结束**********************-->
       </td>
      </tr>
      <tr>
       <td height=5></td>
      </tr>
     </table>
    </TD>
  <tbody>
 </tr>
</table>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>
<!-- 底部信息部分 --><!-- #include file="Foot.asp" -->