通讯录源代码: 1、基本通讯录 odbc_connection.asp <% dim db set db=server.createobject("ADODB.CONNECTION") db.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &; server.mappath("address.mdb") %> Index.asp
我们的通讯录
| 电话 | email | 详细 |
<% '建立 Recordset 对象 Dim strSql,rs strSql ="Select name,tel,email,id From users" Set rs=db.execute(strSql)
1
Do While Not rs.Eof %> <%=rs("name")%> | <%=rs("tel")%> | <%=rs("email")%> | " target="_blank">详细 |
<% rs.MoveNext Loop %>
Particular.asp
详细资料
<% '利用 Request.QueryString 获取传过来的 ID 编号
2
Dim id id=Request.QueryString("id")
strSql ="Select * From users where id=" &; id Set rs=db.Execute(strSql) %>
: | <%=rs("name")%> |
电话: | <%=rs("tel")%> |
email: | <%=rs("email")%> |
简介: | <%=rs("intro")%> |
&;nbsp
xml:namespace prefix = a href="javascript />关闭窗口 2、通过链接详细页面---index.asp
3
我们的通讯录
| 电话 | email |
<% '建立 Recordset 对象 Dim strSql,rs strSql ="Select name,tel,email,id From users" Set rs=db.execute(strSql) Do While Not rs.Eof %>
" target="_blank"><%=rs("name")%> |
<%=rs("tel")%> |
<%=rs("email")%> |
<% rs.MoveNext Loop %>
4
3、详细页面在指定大小的窗口中打开—index.asp 我们的通讯录
| 电话 | email |
<% '建立 Recordset 对象 Dim strSql,rs strSql ="Select * From users" Set rs=db.execute(strSql) Do While Not rs.Eof %> ','','resizabl e=0,scrollbars=1,st atus=no,toolbar=no,menu=no,width=500,height=300,left=150,top=150')"><%=rs ("name")%> | <%=rs("tel")%> | <%=rs("email")%> |
5
<% rs.MoveNext Loop %>
4、按字段排序源代码:index.asp 我们的通讯录
编号 | | 电话 | email | 提交日期 |
<% '这一段主要来获取排序字段,第一次打开时默认按提交日期到序排列,客户选择 字段后按指定字段倒叙排列 Dim sortfield '定义一个排序字段变量
6
If Request.QueryString("sortfield")="" Then '该条件表示是第一次打开,则令排序字段为提交日期,并倒叙排列 sortfield="submit_date DESC" Else '如果选择了其它排序字段,则按指定字段倒叙排列 sortfield=Request.QueryString("sortfield") &; " DESC" End If '建立 Recordset 对象,并按指定字段排序 Dim strSql,rs strSql ="Select * From users Order By " &; sortfield 空格 Set rs=db.execute(strSql) Do While Not rs.Eof %> <%=rs("id")%> | <%=rs("name")%> | <%=rs("tel")%> | <%=rs("email")%> | <%=rs("submit_date")%> |
<% rs.MoveNext Loop %>
'请注意 By 后面要有一个
7
5、分页显示源代码---index.asp
p59
6、分页显示改进源代码---index.asp
p61-62
7、按单个关键字查询源代码---index.asp
p63
8、按多个关键字查询源代码---index.asp <% '这两个变量用来确定查找关键字和字段 Dim keyword,field If Trim(Request.Form("keyword"))<>"" Then '如果条件成立,表示客户输入了关键字。则令 keyword 为客户指定的关键字,并 令 field 为选定的字段 keyword=Request.Form("keyword") field=Request.Form("field") Else '如果条件不成立,表示是第一次打开或客户提交了空字符串。则令 keyword 为空, 并令 field 为默认的字段 name keyword="" field="name" End If %> 我们的通讯录
| 电话 | email |
<% '建立 Recordset 对象,如果输入了查询关键字,就查找记录,否则显示全部记录 Dim strSql,rs If keyword<>"" Then '这里的 keyword 其实是由空格隔开的多个关键字组成的,现在可以将其拆分 成一个数组 Dim arrKeyword,numKeyword,I,condition arrKeyword=Split(keyword," ") 'split 函数会把 keyword 拆分成一个数组 numKeyword=Ubound(arrkeyword) 'numKeyword 返回数组的最大下标,因 为从 0 开始,所以关键字个数为 numKeyword+1 '下面开始组织这个条件,先把第 1 个关键字写好 condition=field &; " like '%" &; arrKeyword(0) &; "%'" '下面再继续添加第 2 个、第 3 个……关键字。当然,如果只有一个关键字, 就不执行下面的循环了 For I=1 To numKeyword condition=condition &; " And " &; field &; " like '%" &; arrKeyword(I) &; "%'" Next '下面组成完整的 Select 语句 strSql="Select * From users Where " &; condition Else strSql="Select * From users" End If Set rs=db.execute(strSql) Do While Not rs.Eof %> " target="_blank"> <%=rs("name")%> | <%=rs("tel")%> | <%=rs("email")%> |
<% rs.MoveNext Loop %>
9
10
-
相关文章
-
最新文件
关于网学 |
万能工具 |
在线交流 |
会员中心 |
查询论文 |
招聘说明 |
精品资源 |
专题论文 |
会员中心 |
联系方式 |
下载目录
论文目录
Copyright 2005-2018 www.myeducs.cn All Rights Reserved 版权所有·网学网 提供大量原创论文 参考论文 论文资料 源代码 管理及投稿 E_mail:3710167@qq.com
郑重声明: 本网站论文均来自互联网,由本站会员上传或下载,仅供个人交流、学习、参考之用,版权归原作者所有
请下载完后24小时之内删除,任何人不得大幅抄录、在期刊上发表或作为商业之用。如涉及版权纠纷,本网站不承担任何法律及连带责任。