<% 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
Presently the school has 103 staff members: 25 full professors, 27 associate professors and nine senior laboratory technicians. There are seven doctoral supervisors. Fifty-six percent of the teaching staff are under the age of 45 and 54 % have earned doctor ' s degrees. The school also employs one honorary professor, four guest professors, and one academician from the Chinese Academy of Engineering.

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