<% 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") %> 山东大学——药学院
Historical Changes
This program offers a four-year curriculum with a B.S. in engineering. Based on pharmaceutical science and engineering the program educates students in bio-pharmaceutical and chemo- pharmaceutical engineering training them in both product development and management.

Teaching Staff
Organization
Majors
Speciality of Pharmacy
Speciality of Pharmaceutical Engineering
Speciality of Clinical Pharmacy
更多 更多 更多 更多