<%
Dim s_RootID
'當然更改為其他跟欄目的時候，只需要適當的更改下面的值，就可以實現不同欄目。
s_RootID = "A"
Sub GetNewsCata()
Dim cRs, cSql, i, TempCataStr
Set cRs = Server.CreateObject( "ADODB.Recordset" )
cSql = "SELECT * FROM NewsCata WHERE C_ID <> 1 ORDER BY C_RootID"
cRs.Open cSql, oConn, 1, 3
Do While Not cRs.EOF
TempCataStr = ""
Response.Write TempCataStr
cRs.MoveNext
Loop
cRs.Close
Set cRs = Nothing
End Sub
' 傳入參數：新聞ID
Dim sNewsID
sNewsID = GetSafeInt(Trim(Request("id")),0)
' 新聞ID有效性驗證，防止有些人惡意的破壞此演示程序
If sNewsID < 1 Then
GoError "請通過頁面上的鏈接進行操作，不要試圖進行任何非法操作。"
End If
sSql="UPDATE NewsData SET D_Hits = D_Hits+1 WHERE D_ID="&sNewsID
oConn.Execute sSql
' 從數據庫中取初始值
Dim sCataID, sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFileName, sFrom, sAddTime, sHits
sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
sCataID = oRs("D_CataID")
sTitle = oRs("D_Title")
sContent = oRs("D_Content")
' sPicture = oRs("D_Picture")
' sOriginalFileName = oRs("D_OriginalFileName")
' sSaveFileName = oRs("D_SaveFileName")
' sSavePathFileName = oRs("D_SavePathFileName")
sFrom = oRs("D_From")
sAddTime = oRs("D_AddTime")
sHits = oRs("D_Hits")
Else
GoError "無效的新聞ID，請點頁面上的鏈接進行操作！"
End If
oRs.Close
Set oRs = Nothing
' 禁用某些標簽，如出于安全考慮的Script標簽，等
' 要使用此功能需要先包含"Include/DeCode.asp"文件。
' 此例只過濾SCRIPT標簽，即意味著內容中的客戶端腳本不會生效，您可根據實際的需要加入其它標簽。
' 當前支持過濾的標簽，可以查看DeCode.asp文件中的說明。
sContent = eWebEditor_DeCode(sContent, "SCRIPT")
%>
<%=Homepage_Title%>-青海萬澤信息技術有限公司
<![CDATA[<em id="fq6uf"></em>]]>
|
|
|
<![CDATA[<strike id="fq6uf"></strike>]]>
|
|
|
| <![CDATA[<font id="fq6uf"></font>]]>
<![CDATA[<del id="fq6uf"></del>]]>
|
