<%
sql="select * from shuxing1_shuxing2 where class2id="&request.QueryString("class2id")
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
majorName=replace(rs("class2folder"),"/","")
class2name=rs("class2name")
'过滤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 "shuxing2","class2ID",Request.QueryString("class2ID"),"在职研究生专业介绍"%>
.css" rel="stylesheet" type="text/css">