基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

静态网页、动态网页与ASP技术，包含相关PPT和源代码。

使用方法为：把该资源包复制到硬盘的任一分区中，然后为ASPExample目录创建一个名为“ASPE”的虚拟目录。

 set objCon=server.createobject("adodb.Connection")
  ConStr="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
  objCon.ConnectionString=ConStr & Server.MapPath("tsgl.mdb")
  objCon.Open
  set objRs=server.createobject("adodb.recordset")
  '没有执行筛选功能且记录出版社名的变量Session("Press")的值也为空
  if Session("Press")="" and len(request.Form("press"))=0 then
     strPrompt="<P align=center><FONT face=隶书 size=6>所有图书信息如下：</FONT></br>"
     Response.Write strPrompt
     strSql="Select * From tsxx"   '选取所有的图书信息
     Session("Pno")=1
  else  '执行了筛选功能或记录出版社名的变量Session("Press")值不为空
     strPrompt="<P align=center><FONT face=隶书 size=6>符合要求的图书信息如下：</FONT></br>"
     Response.Write strPrompt
     If Request.Form("Press") <> "" Then  '如果执行了筛选功能，即提交了出版社名
          '获取出版社名并存放到变量Session("Press")中
          Session("Press")=Request.Form("press")  
          Session("Pno")=1
     End If
     strsql="select * from tsxx where 出版社=" & _
             "'" &  Session("Press") & "'"   '选取符合条件的图书信息
  end if
  objRs.open strSql,objCon,1,2   '打开记录集
  if objRs.EOF then   '如果记录集为空
    Response.Write "暂无所要查找的图书信息!"
  else
    Response.write "<table border=1 align=center cellspacing=0 cellpadding=2>"
    Response.write "<tr align=center>"
    objRs.PageSize=8        ' 设置分页大小
    For I=1 To objRs.PageCount    
      ' 依次显示各页的超级链接，在超级链接中通过参数Page传送页号
      Response.write "<A HREF='RecSelect.asp?Page="& I & "'>" &_
        "第" & I & "页" & "</A>" & "&nbsp;&nbsp;&nbsp;&nbsp;"
    Next
    ' 读取表的字段名称以作为表格的标题
    for i=0 to objRs.fields.count-1
      Response.Write "<td>" & objRs.fields(i).name
    next
    Response.Write "</tr>"
    If Session("Pno")="" and Request.QueryString("Page") = "" Then  
    '如果记录当前页号的变量Session("Pno")的值为空
    '且没有通过参数Page传送数据（即没有单击页的超链接）
    Call ShowPage(objRS, 1)    '显示第一页
    else '单击了页号的超链接或记录当前页号的Session("Pno")值不为空
      If Request.QueryString("Page") <> "" Then   '单击了页号超链接
             Session("Pno")=Request.QueryString("Page")  '获取要显示的页的页号
      End If
      Call ShowPage(objRs, Session("Pno"))   '显示指定的页
    End If
    Response.Write "</table>"   '表格结束
  end if