书签 分享 收藏 举报 版权申诉 / 58

类型ASP大作业报告1Microsoft Word 文档.docx

  • 文档编号:5580951
  • 上传时间:2023-05-08
  • 格式:DOCX
  • 页数:58
  • 大小:220.06KB

--DWLayoutTable-->

 

 

 

 

用户名:

密  码:


 

 

判断用户名及密码的程序代码:

<%

ifrequest.Form("username")="liu"andrequest.Form("userpassword")="123456"then

response.Redirect"hospitaldljm6.html"

response.Write"你的密码错误"

endif

%>

<%

ifrequest.Form("username")=""andrequest.Form("userpassword")=""then

response.Redirect"kuangjia.html"

endif

%>

 

八、信息管理模块

信息管理模块主要包括医师信息管理、患者信息管理、库存信息管理、处方备索管理4个部分组成

1、医师信息管理设计

医师信息管理主要用于显示医师信息,添加医师信息、修改或删除医师信息,可以通过登录后的主页面打开详细信息界面,可以进行相应的操作,设计效果如图6-1所示:

图8-1

医师信息管理页面所涉及到的程序代码如下:

--#Includefile="conn.asp"-->

<%CPageName=Request.servervariables("SCRIPT_NAME")%>

医院门诊信息管理系统

Subgopage()

Ifwindow.event.keycode=13Then'若按回车键

pno=document.frmPage.pageno.value'获得文本框中输入的页号

window.location.href="<%=CPageName%>?

pageno="&pno

EndIf

EndSub

医师详细信息

<%

DimstrSql,rs

strSql="select*fromysxx"

SetRs=Server.CreateObject("ADODB.RecordSet")

Rs.OpenstrSql,Conn,1,3

dimCpage_no'当前页号

Rs.PageSize=5'设置每页显示的记录数

IfRequest.Querystring("pageno")=""Then'查询所要显示的页号

Cpage_no=1'若未指定,则显示第1页

Else

Cpage_no=Cint(Request.Querystring("pageno"))'设置所要显示的页号

EndIf

Rs.AbsolutePage=Cpage_no

%>

第<%=Cpage_no%>/<%=Rs.PageCount%>页

共<%=Rs.RecordCount%>条记录

<%IfCpage_no>1Then'若当前页号大于1,则上一页有效%>

?

pageno=<%=Cpage_no-1%>">上一页

<%Else%>

上一页

<%Endif%>

<%IfCpage_no

?

pageno=<%=Cpage_no+1%>">下一页

<%Else%>

下一页

<%EndIf%>

<%IfCpage_no>1Then%>

?

pageno=1">首页

<%Else%>

首页

<%EndIf%>

<%IfCpage_no

?

pageno=<%=Rs.PageCount%>">尾页

<%Else%>

尾页

<%EndIf%>

姓名

性别

出生日期

专业

联系电话

详细地址

修改

删除

<%

LineNo=1

DoWhileNOTRs.EOFANDLineNo<=Rs.PageSize'输出当前页的内容

Response.write""

Fori=1ToRs.Fields.count-1'id自动编号字段不输出

fdvalue=Rs(i)

Ifisnull(fdvalue)Then

Response.write" "

Else

Response.write""&Rs(i)&""

EndIf

Next

Response.write"

v_id="&Rs("id")&"'>修改"

Response.write"

v_id="&Rs("id")&"'>删除"

Rs.MoveNext

Response.write""

LineNo=LineNo+1

Loop

%>

添加医师信息

第<%=Cpage_no%>/<%=Rs.PageCount%>页共<%=Rs.RecordCount%>条记录

<%

RS.close

setrs=Nothing

Conn.close

setConn=Nothing

%>

删除医师信息所涉及的程序代码:

<%

DimConn

SetConn=Server.CreateObject("ADODB.Connection")

Conn.ConnectionString="DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&_

Server.MapPath("hospital.mdb")

Conn.Open

%>

<%

dimstrSql,rs,V_id

V_id=Request.QueryString("V_id")

strSql="select*fromysxxwhereid="&V_id

SetRs=Server.CreateObject("ADODB.RecordSet")

Rs.OpenstrSql,Conn,1,3

Rs.Delete

Rs.update

Response.Redirect"index1.asp"'删除成功,则返回首页

%>

修改医师信息所涉及的程序代码:

--#Includefile="conn.asp"-->

修改记录表单

修改新记录

<%

DimstrSq,rs,V_id

V_id=Request.QueryString("V_id")

strSq="select*fromysxxwhereid="&V_id

Setrs=Server.CreateObject("ADODB.RecordSet")

rs.OpenstrSq,Conn,1,3

%>

姓   名

">*

性   别

<%if

举报
举报
版权申诉
版权申诉
word格式文档无特别注明外均可编辑修改;预览文档经过压缩,下载后原文更清晰! 立即下载
配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
ASP大作业报告1Microsoft Word 文档 ASP 作业 报告 Microsoft
提示  冰点文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:ASP大作业报告1Microsoft Word 文档.docx
链接地址:https://www.bingdoc.com/p-5580951.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2


收起
展开