沈阳药科大学高等职业技术学院

<% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("username")) response.Write MM_valUsername 'response.end If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="newsadmin.asp" MM_redirectLoginFailed="index.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_connNews_STRING MM_rsUser.Source = "SELECT username, passwd,role" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM newsAdmin WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND passwd='" & Replace(Request.Form("passwd"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername Session("role")=MM_rsUser("role") If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If set rsnews = Server.CreateObject("ADODB.Recordset") rsnews.ActiveConnection = MM_connNews_STRING rsnews.Source = "SELECT top 10 news_title, news_time,news_id" rsnews.Source = rsnews.Source & " FROM newsData where news_type='新闻公告' order by news_time desc" rsnews.CursorType = 0 rsnews.CursorLocation = 2 rsnews.LockType = 3 rsnews.Open set rsnews1 = Server.CreateObject("ADODB.Recordset") rsnews1.ActiveConnection = MM_connNews_STRING rsnews1.Source = "SELECT top 10 news_title, news_time,news_id" rsnews1.Source = rsnews1.Source & " FROM newsData where news_type='教务信息' order by news_time desc" rsnews1.CursorType = 0 rsnews1.CursorLocation = 2 rsnews1.LockType = 3 rsnews1.Open %> <% if Session("Counter")=Empty Then Session("Counter")=Counts("Counter.txt") End if %>

站内导航

课程简介

　　《药用植物学》课程是沈阳药科大学高等职业技术学院，从 1983 年起设置的中药专业主干课程之一。

　　现有教师 7 人，其中副教授 2 人，副主任药师 1 人，讲师 2 人，实验技术人员(工程师) 1 人，助教 1 人。几年来主编和参编包括《药用植物学》、《北方常用药用植物》、《中药商品鉴定技术》、《现代中药炮制技术》、《药用植物学习题集》、《药用植物野外实习指导》和《药用植物学实验指导》等教材 8 部。承担省级、校级教学科研课题各 1 项；参与省级教学科研课题 1 项；承担技术服务项目 1 项。发表学术论文 20 余篇。有 1 位教师获得优秀教师称号。

　　现有教学用实验室面积 200 平方米，完全能够满足实验教学工作要求。

学院首页 |联系我们

沈阳药科大学高职学院版权所有 Copyright©2006All Rights Reserved