<%@ Language=VBScript%>
<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
%>
<%
typeid=checkstr(request("typeid"))
if typeid="" then
Response.Write ""
response.end
else
if not IsNumeric(typeid) then
response.write ""
response.end
else
dim ttypename
set rs5=server.CreateObject("ADODB.RecordSet")
rs5.Source="select * from type where typeid=" & typeid &" order by typeorder"
rs5.Open rs5.Source,conn,1,1
ttypename=rs5("typename")
rs5.Close
set rs5=nothing
%>
<%
dim typeid
typeid=checkstr(request("typeid"))
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass where typeid="&typeid&" order by bigclassorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArrayBigClassID(10000),ArrayBigClassName(10000),ArrayBigClassView(10000)
if not rs.EOF then
rseof=1
end if
end if
while not rs.EOF
abcount=rs.RecordCount
BigClassView=rs("BigClassView")
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
BigClasszs=rs("BigClasszs")
ArrayBigClassView(i)=BigClassView
ArrayBigClassID(i)=BigClassID
ArrayBigClassName(i)=BigClassName
i=i+1
rs.MoveNext
wend
rs.close
%>
政府信息公开
当前位置: 