<% 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 & "

無此文章信息或已被刪除！

" End If oRs.Close if FoundErr=True then WriteErrMsg() Response.End End If WebTitle=D_Title %> "> "" then%><%=ckey2%><%else%><%=W_WebSiteIntr%><%end if%>"> 色婷婷综合久久久中文字幕,国产无码av,精品国产三级A∨在线观看

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

聯(lián)系方式

全國運(yùn)營(yíng)電話：
400-6116-016
日照24小時(shí)熱線：
15898986870
聯(lián)系QQ:	10932726 1097430389
電　話:	0633-2979617 2979674
E-mail:	info@yishengfanyi.com

<% 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 top 20 * 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%>

熱門新聞

" title="<%=zRs("D_Title")&vbcrlf%>" class="link"><%=gotTopic(zRs("D_Title"),20)%>

公司新聞	首頁 > <% Call HoriNavi() %>

<%=D_Title%>

<%=D_Content%>