如何从数据库中调出个人档案?.doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
如何从数据库中调出个人档案?.doc

如何从数据库中调出个人档案? 我正在开发一个档案管理系统,需要从数据库中同时调出图像及相关的文字说明,可我只做到了单纯地显示图片,像有一个数据库CHUNFENG,在数据库中有一个叫CHUNF_INFO的表,表中有一个WORK的NAME列,查出CHUNF_ID=6806的人的相片: %@ LANGUAGE=VBSCRIPT % % Response.Expires = 0 Response.Buffer = TRUE Response.Clear 清除存在的HTTP表头信息 Response.ContentType = image/gif 更改表头信息映射被选出的图片 Set cn = Server.CreateObject(ADODB.Connection) cn.Open DSN=myDSN;UID=sa;PWD=;DATABASE=chunfeng Set rs = cn.Execute(SELECT work FROM chunf_INFO WHERE chunf_id=6806) Response.BinaryWrite rs(work) Response.End % 显示图象需要CONTENT=IMAGE/GIF或CONTENT=IMAGE/JPEG语句,而显示文字信息HTML的HEAD中的语句为CONTENT=TEXT/HTML,显然,我们无法同时用一个ASP文件就把文字信息和图象都处理完。该如何做呢? 我们的处理技巧是,解决的办法是:用一个单独的ASP文件处理图象,然后在处理文字信息的ASP文件中调用这个处理图像的文件。假设SQL SERVER数据库CHUNFENG,存在表名CHUNF_TABLE,我们要从CHUNF_TABLE中查出ID=88510的人员的信息,包括姓名、年龄和照片: chunfeng.htm 创建查询表单 html head /head body form method=POST action=SEARCH.ASP p请输入编号:input type=text name=T1 size=20inputtype=submit value=提交 name=B1input type=reset value=重写 name=B2/p /form /body /html search.asp html head meta http-equiv=content-type content=text/html;charset=gb2312 title精彩春风之查询结果/title /head body bgColor=Azure % session(CHUNFENG_ID)=Request.Form(T1) 注意这个session变量,在images.asp图象处理文件中再次被调用 temp_id=session(CHUNFENG_ID) font size=4 color=OrangeRed查询结果:/font %set conntemp=server.createobject(adodb.connection) conntemp.open dsn=CHUNFENG;uid=sa;pwd=SA set rstemp=conntemp.execute(select * from CHUNF_TABLE where chunfeng=temp_id) % % put headings on the table of field names nobody=噢,数据库里没有您要找的资料!% 判断是否存在记录 %if rstemp.eof then % font size=5 color=OrangeRed %Response.Write(nobody)%/font %else% div align=center center table border=1 width=73% height=399 tr td width=21% height=49 align=centerp align=center姓名 /td td width=30% height=49 align=center font size=4 color=OrangeRed%=rstemp(0)%/font/td /td tr td width=21% height=47p align=center年龄/td td width=30% height=47 align=center font size=4 color=OrangeRed%=rstemp(0)%/font/td /tr tr td width=49% height=146 rowspan=3 colspan=2 img src=images.asp/td /tr

文档评论(0)

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档