<% 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, sPermission, sSTitle 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") sSTitle = oRs("D_STitle") 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") sPermission = oRs("D_Permission") Else GoError "无效的新闻ID，请点页面上的链接进行操作！" End If oRs.Close Set oRs = Nothing if Session("Sys_Admin")="" and session("uid")="" and sPermission=1 then GoError "该新闻需要登陆后才能浏览！" end if ' 禁用某些标签，如出于安全考虑的Script标签，等 ' 要使用此功能需要先包含"Include/DeCode.asp"文件。 ' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。 ' 当前支持过滤的标签，可以查看DeCode.asp文件中的说明。 sContent = eWebEditor_DeCode(sContent, "SCRIPT") %> @ @ 东营区人民法院 @ @
　

律师机构

　

 		山东地义律师事务所 淄博路西首
山东广胜律师事务所 广饶县城府前街43号供销社办公楼
　 山东诚正勤律师事务所 利津县利一路四号
　 山东恒源盛律师事务所 河口区中心路21号
　 山东城合律师事务所 西二路101号
　 山东鲁北律师事务所 西四路344号
山东利顺律师事务所 垦利县法院对面
　 山东达洋律师事务所 黄河路112号五楼
山东齐征律师事务所 府前街236号
山东天地恒律师事务所 西二路191-32-D
山东众旭律师事务所 西四路202号
山东黄河口律师事务所 东营报社四楼
　 山东正义之光律师事务所 黄河路48号（原公路局楼）
山东黄河律师事务所东营分所 西四路260号（海通大厦
　 山东法翰律师事务所 东营市审计局办公楼
　 百祥律师所 东营市经济开发区汇鑫大厦A座3楼
　 领先律师所 东营市黄河路48号
　 东胜律师所 东营市北二路448号
　 黄河分所

东营市西四路海通大厦901室
　 崇义律师所 东营市济南路333号4楼
　 高格律师所

东营市东城辽河路320号
　 鼎旭律师所 东营市广饶县乐安文化街商住楼A段23号
　 龙和律师所 东营市东三路111号都市中心写字楼A座五楼
　 胜东律师所 东营市黄河路48号
　 益权律师所

东营市河口区渤海路129号
　 众德律师所 东营市淄博路9号柏年大厦
　 山东法翰律师事务所 东营市审计局办公楼

 

 

<% Call Footer() %>

2006    东营律师协会版权所有