在好例子网,分享、交流、成长!
您当前所在位置:首页ASP 开发实例ASP网页编程 → ASP动态网页设计实用教程(源码+PPT)

ASP动态网页设计实用教程(源码+PPT)

ASP网页编程

下载此实例
  • 开发语言:ASP
  • 实例大小:6.51M
  • 下载次数:6
  • 浏览次数:64
  • 发布时间:2021-08-27
  • 实例类别:ASP网页编程
  • 发 布 人:angh
  • 文件格式:.rar
  • 所需积分:1
 相关标签: 网页设计 asp 动态 设计 教程

实例介绍

【实例简介】

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

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

【实例截图】

from clipboard

from clipboard

【核心代码】

 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

实例下载地址

ASP动态网页设计实用教程(源码+PPT)

不能下载?内容有错? 点击这里报错 + 投诉 + 提问

好例子网口号:伸出你的我的手 — 分享

网友评论

发表评论

(您的评论需要经过审核才能显示)

查看所有0条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。
;
报警