科研项目网上申报管理系统

科研项目网上申报管理系统内容摘要：

进行辨别，保证用户的唯一性），进入个人申报模块后的个人将获得申报项目等权限。 而管理中心的管理员用户名与密码将由我们直接在系统中进行设置，并提供给卫生厅科教处。 确定该管理员人员名单后，将由该管理员在管理中心设置推荐单位与评审专家的用户帐号与密码并提供给相应的负责人。 系统流程图如下： 推荐单位模块 项目推荐 项目管理 管理中心模块 项目评审 申报年度 推荐单位 评审专家 项目查询打印 项目申请书模板 、数据库设计与实现 数据库名 : 数据库 用 户 : 项目申报 用户信息修改 退出登陆 管理员 项目管理 项目查询打印 用户信息管理 退出登陆 表 user username password type mingcheng sfz dizi youbian dianhua 表 xiangmu mingcheng xueke shengbaoren jinfei zhuangtai 所属推荐单位 是否推荐 是 否 将 结果返回到个人 管理中心 个人申报项目 审查 网上评审 不通过 通过 将结果返回到推荐单位 将结果返回到管理中心 第四章 科研项目网上申报 管理系统的实现 、数据库的连接 % dim db set db=() dbq=amp。 (data/)amp。 driver={microsoft access driver (*.mdb)}。 、 登录界面设计 、 系统用户 注册 管理模块 、 项 目 申 报 模块 、用户信息修改 模块包括 项目申报 管理 及评审 模块包括 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=Connections/ % Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = () = MM_conn_STRING = SELECT * FROM xiangmu = true Set Recordset1 = Recordset1_numRows = 0 % % Dim MM_paramName % % 39。 *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem 39。 create the list of parameters which should not be maintained MM_removeList = amp。 index= If (MM_paramName ) Then MM_removeList = MM_removeList amp。 amp。 amp。 MM_paramName amp。 = End If MM_keepURL= MM_keepForm= MM_keepBoth= MM_keepNone= 39。 add the URL parameters to the MM_keepURL string For Each MM_item In MM_nextItem = amp。 amp。 MM_item amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 MM_nextItem amp。 ((MM_item)) End If Next 39。 add the Form variables to the MM_keepForm string For Each MM_item In MM_nextItem = amp。 amp。 MM_item amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm amp。 MM_nextItem amp。 ((MM_item)) End If Next 39。 create the Form + URL string and remove the intial 39。 amp。 39。 from each of the strings MM_keepBoth = MM_keepURL amp。 MM_keepForm If (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) 1) End If If (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) 1) End If If (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) 1) End If 39。 a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = amp。 Else MM_joinChar = End If End Function % !DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN html head meta equiv=ContentType content=text/html。 charset=gb2312 title管理员后台 /title link href=img/ rel=stylesheet type=text/css /head body marginheight=0 marginwidth=0 topmargin=0 bottommargin=0 !include file= table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td align=center valign=toptable width=760 border=0 align=center cellpadding=0 cellspacing=0 class=x tr td height=25 colspan=7 align=center valign=middle项目管理及评审 /td /tr tr align=center valign=bottom td width=15%项目名称 /td td width=15%所属学科 /td td width=15%申报单位 /个人名称 /td td width=15%申请金费 /td td width=15%申报状态 /td td width=10%评审 /td td width=10%删除 /td /tr tr align=center valign=bottom td%=((mingcheng).Value)%/td td%=((xueke).Value)%/td td%=((shengbaoren).Value)%/td td%=((jinfei).Value)%/td td%=((zhuangtai).Value)%/td tdA HREF=?%= (MM_keepURL) amp。 MM_joinChar(MM_keepURL) amp。 id= amp。 (id).Value %评审 /A/td tdA HREF=?%= (MM_keepURL) amp。 MM_joinChar(MM_keepURL) amp。 id= amp。 (id).Value %删除 /A/td /tr /table/td /tr /table !include file= /body /html % () Set Recordset1 = Nothing % 、项目查询打印 模块 %@LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=Connections/ % Dim Recordset1__MMColParam Recordset1__MMColParam = 1 If ((mingcheng) ) Then Recordset1__MMColParam = (mingcheng) End If % % Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = () = MM_conn_STRING = SELECT * FROM xiangmu WHERE mingcheng = ? = true (param1, 200, 1, 50, Recordset1__MMColParam) 39。 adVarChar Set Recordset1 = Recordset1_numRows = 0 % % Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows % !DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN html head meta equiv=ContentType content=text/html。 charset=gb2312 title管理员后台 /title link href=img/ rel=stylesheet type=text/css style type=text/css ! .STYLE1 {color: FFFFFF} .STYLE2 {color: FFFFFF。 fontsize: 12px。 } /style /head body marginheight=0 marginwidth=0 topmargin=0 bottommargin=0 !include file= table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td align=center valign=topform name=form1 method=post action= table width=500 border=0 cellspacing=0 cellpadding=0 tr align=center valign=bottom td项目名称 /td td width=30%label input name=mingcheng type=text id=mingcheng /label/td tdlabel input type=submit name=Submit value=项目查询。