%
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
%>
<%=D_Title%>新闻动态-郑州科飞亚办公家具|文件柜|更衣柜|档案柜|保险柜|铁皮柜|密集架
<%
Dim D_ContStr
D_ContStr=Split(D_Content,"[---分页标志符---]")
If UBound(D_ContStr)
<%=D_ContStr(ContPageCount-1)%>
<%
Dim Pagei
If UBound(D_ContStr)<>0 Then
%>
<%
For Pagei=0 to UBound(D_ContStr)
If Pagei=ContPageCount-1 Then
Response.Write "["&Pagei+1&"] "
Else
Response.Write "["&Pagei+1&"] "
End If
Next
%>
<%
End If
%>
上一篇新闻:
<%
sSql="Select Top 1 d_id,d_classid,d_Title From NewsData Where D_Recycle=False and D_ID>" & ArtID &"and d_classid="&ArtClassID&" ORDER BY D_ID"
oRs.open sSql,oConn,1,1
if oRs.Eof then
response.write "没有了"
else
response.write ""&oRs("D_Title") & ""
end if
oRs.close
%>
下一篇新闻:
<%
sSql="Select Top 1 d_id,d_classid,d_Title From NewsData Where D_Recycle=False and D_ID<" & ArtID &"and d_classid="&ArtClassID&" ORDER BY D_ID DESC"
oRs.open sSql,oConn,1,1
if oRs.Eof then
response.write "没有了"
else
response.write ""&oRs("D_Title") & ""
end if
oRs.close
%>