<%
Function ReplaceTest(strr)
Dim regEx, str1
str1 =strr
Set regEx = New RegExp
regEx.Pattern = "<[^>]*>"
regEx.IgnoreCase = True
regEx.Global = True
ReplaceTest = regEx.Replace(str1,"")
End Function
dim rs
dim stt
set rs=Server.CreateObject("ADODB.Recordset")
%>
山东大学——药学院