网站综合设计.docx

学生信息管理

搜索功能：

请输入查询内容：

与数据库连接：

DimS_Key,StrSQL

S_Key=Trim（Request（"key"））'得到搜索关键字的值

IfS_Key<>""then

Setrs=Server.CreateObject（"ADODB.RecordSet"）

StrSQL=AutoKey（S_Key）'此处使用自定义函数AutoKey（），该函数为实现智能搜索的核心

rs.openStrSQL,conn,3,2'得到搜索后的记录

Ifrs.BOFAndrs.EOFThen

%>

Sorry,未找到任何结果!

………………………….

搜索名称为“<%=S_Key%>”的项，共找到<%=rs.RecordCount%>项：

学号

姓名

性别

电话

………………………….

<%=rs（"xh"）%>

<%=rs（"xm"）%>

<%=rs（"xb"）%>

<%=rs（"dh"）%>…………………….

rs.MoveNext

Wend

rs.Close

Setrs=Nothing

……………….

FunctionAutoKey（strKey）

CONSTlngSubKey=2

DimlngLenKey,strNew1,i,strSubKey

'检测字符串的合法性，若不合法则转到出错页。

出错页你可以根据需要进行设定。

ifInStr（strKey,"="）<>0orInStr（strKey,"`"）<>0orInStr（strKey,"'"）<>0orInStr（strKey,""）<>0orInStr（strKey,""）<>0orInStr（strKey,"'"）<>0orInStr（strKey,chr（34））<>0orInStr（strKey,"\"）<>0orInStr（strKey,","）<>0orInStr（strKey,"<"）<>0orInStr（strKey,">"）<>0then

Response.Redirect"index3.asp"

EndIf

lngLenKey=Len（strKey）

SelectCaselngLenKey

Case0'若为空串，转到出错页

Response.Redirect"index3.asp"

Case1'若长度为1，则不设任何值

strNew1=""

CaseElse'若长度大于1，则从字符串首字符开始，循环取长度为2的子字符串作为查询条件

Fori=1TolngLenKey-（lngSubKey-1）

strSubKey=Mid（strKey,i,lngSubKey）

strNew1=strNew1&"orxhlike'%"&strSubKey&"%'"

Next

EndSelect

五、网站测试发布

（一）网站测试

测试方法：

在McromediaDreamweaver8环境下进行测试，单击F12进行全局调试。

测试结果：

整个网站发布之前的测试结果正常，显示出的效果如下：

六、设计心得体会

网络已经走进现代人的生活，成了生活中不可缺少的一部分，我们必须学习。

通过对此次课程设计的学习，我对计算机的了解更深了。

综合设计后，我对网站的布局、网站前后台之间的连接、信息的传递、网站的测试和发布等有了深刻的体会，同时各方面的能力也得到了加强，设计过程中，也遇到了各种问题，通过询问同学，解决了这些问题。

当然，我们学到的还只是较少的知识，以后还要更深入的学习，才能掌握更有用的知识。

我希望能有更多学习机会，这同时也能加强人与人之间的交流，为以后走上社会打下很好的基础。

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

下载	加入VIP,免费下载

还剩页未读，继续阅读

举报
版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：

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

特殊限制：

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

关 键  词：

网站 综合 设计

  冰豆网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。