<%
sql="select * from proclass1_proclass2 where class2id="&request.QueryString("class2id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
MapMarker=rs("MapMarker")
class2name=rs("class2name")
address=rs("address")
'过滤html
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
%>
<%ShowMetaSchoolNR "proclass2","class2ID",Request.QueryString("class2ID"),"在职研究生简介"%>