<% Sub Content() ' 传入参数：新闻ID Dim sNewsID sNewsID = Trim(Request("id")) ' 新闻ID有效性验证，防止有些人恶意的破坏此演示程序 If IsNumeric(sNewsID) = False Then GoError "请通过页面上的链接进行操作，不要试图破坏系统。" End If ' 从数据库中取初始值 Dim sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFileName sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID oRs.Open sSql, oConn, 0, 1 If Not oRs.Eof Then sTitle = oRs("D_Title") sContent = oRs("D_Content") sPicture = oRs("D_Picture") sOriginalFileName = oRs("D_OriginalFileName") sSaveFileName = oRs("D_SaveFileName") sSavePathFileName = oRs("D_SavePathFileName") sTime = oRs("D_pubtime") Else GoError "无效的D，请点页面上的链接进行操作！" End If oRs.Close ' 禁用某些标签，如出于安全考虑的Script标签，等 ' 要使用此功能需要先包含"Include/DeCode.asp"文件。 ' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。 ' 当前支持过滤的标签，可以查看DeCode.asp文件中的说明。 sContent = eWebEditor_DeCode(sContent, "SCRIPT") ' 输出新闻 Response.Write "" & _ "" & _ "" & _ "
" & sTitle & "
发布时间："& sTime &"
" & sContent & "
" End Sub %>
北京律师
友情连接    

 

GOOGLE BAIDU YAHOO SOGOU 163 减肥 国际快递 扫描仪 工作服 北京律师

申请交换友情连接


如希望在本站申请友情连接，请首先在贵站做好本站的友情连接。您的网站如果无违反中华人民共和国法律法规，未被搜索引擎惩罚过，只要做上了本站连接，本站定将在三个工作日内做好贵站连接。但随着贵站删除我站连接后，我站将立即删除贵站连接！谢谢合作。


本站连接内容如下：

文字连接： 北京律师

连接文字： 北京律师

连接网址： http://www.lan-chou.com

LOGO连接： http://www.lan-chou.com/images/logo.jpg

连接网址： http://www.lan-chou.com

做好本站连接后，请发送邮件到seaman123@sohu.com