<%
Dim ArtID,ArtClassID,D_Title,D_Content,D_Time,D_Count,FoundErr,ErrMsg,D_Source,D_Author,ContPageCount
ArtID=Trim(Request("ArtID"))
If IsNumeric(ArtID) = False Then
FoundErr=True
ErrMsg=ErrMsg & "
文章ID参数错误，请不要试图破坏此系统。
"
WriteErrMsg()
Response.End
End If
ContPageCount=Trim(Request("ContPageCount"))
If ContPageCount="" Then
ContPageCount=1
End If
If IsNumeric(ContPageCount) = False Then
FoundErr=True
ErrMsg=ErrMsg & "
内容分页ID参数错误，请不要试图破坏此系统。
"
WriteErrMsg()
Response.End
End If
'文章阅读记数
sSql="Select D_Count From NewsData Where D_ID="&ArtID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
oConn.execute "update NewsData set D_Count=D_Count+1 where D_ID="&ArtID
End If
oRs.Close
sSql="Select D_Title,D_Author,D_Source,D_Content,D_Time,D_Count,D_ClassID From NewsData Where D_ID="&ArtID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
D_Title=oRs("D_Title")
D_Author=oRs("D_Author")
D_Source=oRs("D_Source")
D_Content=oRs("D_Content")
D_Time=oRs("D_Time")
D_Count=oRs("D_Count")
ArtClassID=oRs("D_ClassID")
Else
FoundErr=True
ErrMsg=ErrMsg & "
无此文章信息或已被删除！
"
End If
oRs.Close
if FoundErr=True then
WriteErrMsg()
Response.End
End If
WebTitle=D_Title
%>
北京语言大学外国语学院
