%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim D_ID,D_Title,D_Content,D_Time,D_Keywords,D_Description,FoundErr
D_ID=Trim(Request("D_ID"))
sSql="Select * From NewsData Where D_ID =" &D_ID&" and D_recycle=False Order By D_ID Desc"
'response.Write sSql
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
D_ID=oRs("D_ID")
D_Title=oRs("D_Title")
D_Content=oRs("D_Content")
D_Time=oRs("D_Time")
D_Keywords=oRs("D_Keywords")
D_Description=oRs("D_Description")
Else
FoundErr=True
'ErrMsg=ErrMsg & "
"
End If
if FoundErr=True then
'response.Redirect "index.asp"
end if
oRs.Close
' 禁用某些标签,如出于安全考虑的Script标签,等
' 使用此功能需要先包含"Include/DeCode.asp"文件。
' 此例只过滤SCRIPT标签,即意味着内容中的客户端脚本不会生效,您可根据实际的需要加入其它标签。
' 当前支持过滤的标签,可以查看DeCode.asp文件中的说明。
'sContent = eWebEditor_DeCode(sContent, "SCRIPT, OBJECT, TABLE, CLASS, STYLE, XML, NAMESPACE, FONT, MARQUEE")
'sSql = "update NewsData set D_BrowseCount = D_BrowseCount + 1 WHERE D_ID=" & D_ID
'oConn.Execute sSql
%>
<%= D_Title %>--Shanghai Shibang Machinery CO., LTD.