<%
Function decodeStr(str)
str = Trim(str)
str = Replace(str,"",vbCrLf&vbCrlf)
str = Replace(str,"
",vbCrLf)
str = Replace(str,"<","<")
str = Replace(str,">",">")
decodeStr = Replace(str," "," ")
End Function
%>
<%
ruleID = checkStr(Request("ruleID"))
sSql = "SELECT TITLE,KIND1,CONTENT,USERNAME FROM FILEDATABASE,USERINFO WHERE USERID = USERINFO.ID AND FILEDATABASE.ID="&ruleID
Set rsSel = sqlNoParamReturnRs(sSql)
If Not rsSel.Eof Then
title = rsSel("TITLE")
kind1 = CInt(rsSel("KIND1"))
content = rsSel("content")
Select Case kind1
Case 1
kindStr = "北京地方法规"
Case 2
kindStr = "北京现行政府规章"
Case 3
kindStr = "人大制度相关法律"
End Select
userName = rsSel("USERNAME")
Else
Response.Write ("")
End If
rsSel.Close
Set rsSel = Nothing
%>
| 北京人大常务委员会 >> 法规大全 >> <%=kindStr%>
|
<%=title%>
| 编辑：<%=userName%>
|
来源：北京市人大常委会门户网站 |
|
|
