📄 index_article_content.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="DT_inc/SQL_injection.asp"-->
<!--#include file="Connections/connDB.asp" -->
<!--#include file="Advert.asp"-->
<!--#include file = "editor/Include/DeCode.asp"-->
<%
if(Request.QueryString("fID_ArticleContent") <> "") then CommArticleContentHits__MM_ArticleContentID = Request.QueryString("fID_ArticleContent")
%>
<%
Dim RsSiteConfig
Dim RsSiteConfig_numRows
Set RsSiteConfig = Server.CreateObject("ADODB.Recordset")
RsSiteConfig.ActiveConnection = MM_connDB_STRING
RsSiteConfig.Source = "SELECT * FROM tSiteConfig"
RsSiteConfig.CursorType = 0
RsSiteConfig.CursorLocation = 2
RsSiteConfig.LockType = 1
RsSiteConfig.Open()
RsSiteConfig_numRows = 0
%>
<%
Dim RsNotice
Dim RsNotice_numRows
Set RsNotice = Server.CreateObject("ADODB.Recordset")
RsNotice.ActiveConnection = MM_connDB_STRING
RsNotice.Source = "SELECT * FROM tNotice"
RsNotice.CursorType = 0
RsNotice.CursorLocation = 2
RsNotice.LockType = 1
RsNotice.Open()
RsNotice_numRows = 0
%>
<%
Dim RsArticleContent__MMColParam
RsArticleContent__MMColParam = "1"
If (Request.QueryString("fID_ArticleContent") <> "") Then
RsArticleContent__MMColParam = Request.QueryString("fID_ArticleContent")
End If
%>
<%
Dim RsArticleContent
Dim RsArticleContent_numRows
Set RsArticleContent = Server.CreateObject("ADODB.Recordset")
RsArticleContent.ActiveConnection = MM_connDB_STRING
RsArticleContent.Source = "SELECT * FROM tArticleContent WHERE fID_ArticleContent = " + Replace(RsArticleContent__MMColParam, "'", "''") + ""
RsArticleContent.CursorType = 0
RsArticleContent.CursorLocation = 2
RsArticleContent.LockType = 1
RsArticleContent.Open()
RsArticleContent_numRows = 0
%>
<%
Dim RsChannelBottomUrlContent__MMColParam
RsChannelBottomUrlContent__MMColParam = "1"
If (Request.QueryString("fID") <> "") Then
RsChannelBottomUrlContent__MMColParam = Request.QueryString("fID")
End If
%>
<%
Dim RsChannelBottomUrlContent
Dim RsChannelBottomUrlContent_numRows
Set RsChannelBottomUrlContent = Server.CreateObject("ADODB.Recordset")
RsChannelBottomUrlContent.ActiveConnection = MM_connDB_STRING
RsChannelBottomUrlContent.Source = "SELECT * FROM tChannelBottomUrl WHERE fID = " + Replace(RsChannelBottomUrlContent__MMColParam, "'", "''") + ""
RsChannelBottomUrlContent.CursorType = 0
RsChannelBottomUrlContent.CursorLocation = 2
RsChannelBottomUrlContent.LockType = 1
RsChannelBottomUrlContent.Open()
RsChannelBottomUrlContent_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style_index.css" rel="stylesheet" type="text/css">
<title><%=(RsArticleContent.Fields.Item("fTitle").Value)%></title>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=2>
<!--#include file="index_top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=765 align=center border=0>
<TR>
<TD width=765></TD>
<TR>
<TD width=765 height="35" align=middle vAlign=top bgColor=#f9f9f9><br>
<TABLE width=97% border=0 align="center" cellPadding=0 cellSpacing=0>
<TR>
<TD width="16"><IMG height=41
src="images/index1_1.gif" width=16></TD>
<TD width=250 background=images/index1_2.gif
height=41><div align="left"><IMG src="images/d5.gif"> </div></TD>
<TD width=30 background=images/index1_5.gif><IMG
height=41 src="images/index1_4.gif"
width=30></TD>
<TD background=images/index1_5.gif></TD>
<TD width=14><IMG height=41
src="images/index1_7.gif" width=14></TD>
</TR>
<TR>
<TD background=images/index1_8.gif></TD>
<TD vAlign=top background=images/index1_9.gif
colSpan=3>
<% If Not RsArticleContent.EOF Or Not RsArticleContent.BOF Then %>
<table width="95%" align="center" cellpadding="10">
<tr>
<td><p align="center"> <span class="tittleName"><%=(RsArticleContent.Fields.Item("fTitle").Value)%></span> </p>
<p align="center">作者：<%=(RsArticleContent.Fields.Item("fAuthor").Value)%> 来源：<%=(RsArticleContent.Fields.Item("fCopyFrom").Value)%> 阅读次数：<%=(RsArticleContent.Fields.Item("fHits").Value)%></p>
<hr>
</td>
</tr>
<tr>
<td><div align="left"><br>
<%=(RsArticleContent.Fields.Item("fContent").Value)%><br>
</div></td>
</tr>
<tr>
<td><table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#336699">
<tbody>
<tr>
<td bgcolor="#c8d0ff" height="20"><div align="left"><strong> 相关内容</strong> </div></td>
</tr>
<tr>
<td height="40" align="middle" bgcolor="#ffffff"><div align="left"> <a href="http://search.union.3721.com/click/search.htm?fw=union&m=211827&p=1006&name=<%=(RsArticleContent.Fields.Item("fTitle").Value)%>" target=_blank>查看更多关于“<%=(RsArticleContent.Fields.Item("fTitle").Value)%>”的文章</a>
<br />
<a href="http://search.union.3721.com/click/search.htm?fw=union&m=211827&p=1006&name=<%=(RsArticleContent.Fields.Item("fKey").Value)%>" target=_blank>查看更多内容...</a>
<br />
</div></td>
</tr>
</tbody>
</table>
</tr>
<tr>
<td><table width="98%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#c6d3e7">
<tbody>
<tr bgcolor="#ffffe7">
<td><p align="left"><span class="redtext">版权申明</span>：除部分特别声明不要转载，或者授权我站独家播发的文章外，大家可以自由转载我站点的原创文章，但原作者和来自我站的链接必须保留（非我站原创的，按照原来自一节，自行链接）。文章版权归我站和作者共有。 </p>
<p align="left"><span class="redtext">转载要求</span>：转载之图片、文件，链接请不要盗链到本站，且不准打上各自站点的水印，亦不能抹去我站点水印。 </p>
<p align="left"><span class="redtext">特别注意</span>：本站所提供的网友原创作品，如需使用，请与原作者联系，版权归原作者所有。 </p></td>
</tr>
</tbody>
</table>
</tr>
</table>
<% End If ' end Not RsArticleContent.EOF Or NOT RsArticleContent.BOF %>
</TD>
<TD width=14 background=images/index1_10.gif
height=100></TD>
</TR>
<TR>
<TD><IMG height=18
src="images/index1_11.gif" width=16></TD>
<TD width=250 background=images/index1_12.gif
colSpan=3></TD>
<TD width=14><IMG height=18
src="images/index1_13.gif"
width=14></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
<%Call Advert ("首页底部横条")%>
<!-- #include file="FrendSite_bottom.asp"-->
<!-- #include file="index_bottom.asp"-->
<%
set CommArticleContentHits = Server.CreateObject("ADODB.Command")
CommArticleContentHits.ActiveConnection = MM_connDB_STRING
CommArticleContentHits.CommandText = "UPDATE tArticleContent SET fHits = fHits + 1 WHERE fID_ArticleContent = " + Replace(CommArticleContentHits__MM_ArticleContentID, "'", "''") + " "
CommArticleContentHits.CommandType = 1
CommArticleContentHits.CommandTimeout = 0
CommArticleContentHits.Prepared = true
CommArticleContentHits.Execute()
%>
<%
RsArticleContent.Close()
Set RsArticleContent = Nothing
%>
<%
RsSiteConfig.Close()
Set RsSiteConfig = Nothing
%>
<%
RsNotice.Close()
Set RsNotice = Nothing
%>
<%
RsChannelBottomUrlContent.Close()
Set RsChannelBottomUrlContent = Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -