<% Dim ArtID,ArtClassID,D_Title,D_Content,D_Time,D_Count,FoundErr,ErrMsg,D_Source,D_Author ArtID=Trim(Request("ArtID")) If IsNumeric(ArtID) = False Then GoError "文章ID參數(shù)錯(cuò)誤，請(qǐng)不要試圖破壞此系統(tǒng)。" End If '文章閱讀記數(shù) 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,nkey1,nkey2 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") ckey1=ors("nkey1") ckey2=ors("nkey2") Else FoundErr=True ErrMsg=ErrMsg & "
  • 無(wú)此文章信息或已被刪除！
    • " End If oRs.Close if FoundErr=True then WriteErrMsg() Response.End End If WebTitle=D_Title %> ,<%=W_WebSiteKeyword%>"> "" then%><%=ckey2%><%else%><%=W_WebSiteIntr%><%end if%>"> 国内A∨免费播放,久久久久久成人毛片免费看,日韩精品一区二区三区视频

    野外吮她的花蒂,国产精品久久久久久久久久久久午衣片,欧美猛少妇色xxxxx猛叫,YYY6080韩国三级理论

    <% Set oRs=Server.CreateObject("ADODB.Recordset") sSql="Select ClassID,ClassName,ParentPath,Child From NewsClass Where ClassID=1" oRs.Open sSql,oConn,1,1 if oRs("ClassID")>0 then if oRs("Child")>0 then ChildID="" set tClass=oConn.execute("select ClassID from NewsClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'") do while not tClass.eof if ChildID="" then ChildID=tClass(0) else ChildID=ChildID & "," & tClass(0) end if tClass.movenext loop else ChildID=oRs("ClassID") end if end if oRs.close Set zRs=Server.CreateObject("ADODB.Recordset") zSql="Select * From NewsData Where D_ClassID in (" & ChildID & ") and d_recycle=false ORDER BY d_id DESC" zRs.Open zSql,oConn,1,1 %> <%do while not zrs.eof %> <%zrs.movenext loop%> <%zrs.close%>
    熱門(mén)新聞
       " title="<%=zRs("D_Title")&vbcrlf%>" class="link"><%=gotTopic(zRs("D_Title"),20)%>

     

     

     

     
    翻譯地區(qū) 首頁(yè) > 翻譯地區(qū)

    <%=D_Title%>
    <%=D_Content%>