<% 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%>新闻动态-郑州科飞亚办公家具|文件柜|更衣柜|档案柜|保险柜|铁皮柜|密集架
    新闻动态
    新闻动态
    电  话:0371-87090559
                 87091687
    传  真:0371-87090559
    手  机:15517199900
     新闻动态  现在的位置:首 页 > 新闻动态
    <% Dim D_ContStr D_ContStr=Split(D_Content,"[---分页标志符---]") If UBound(D_ContStr) <% Dim Pagei If UBound(D_ContStr)<>0 Then %> <% End If %>
    <%=D_Title%>
    作者:<%=D_Author%> 出处:<%=D_Source%>

    加入时间:<%=D_Time%> 点击数:<%=D_Count%>
    <%=D_ContStr(ContPageCount-1)%>
     
    <% For Pagei=0 to UBound(D_ContStr) If Pagei=ContPageCount-1 Then Response.Write "["&Pagei+1&"] " Else Response.Write "["&Pagei+1&"] " End If Next %>
     

  • 上一篇新闻: <% 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 %>