学习一下ASP

三年前,当我为网页三剑客这个词而激动不已的时候的,开始接触这个编程语言,在动网一统天下的时候,这个语言是非常流行的,那时纯粹是为了好玩,而如今当我差不多都忘记这门语言的时候,却需要它来混学分,真是可笑~~

好了,不说了,就算我在这里写上万言书,明天下午依然要奔赴考场,去拿我的那三个必修课的学分,虽然我一直怀疑学校这个时候开这门课是因为教师的思维和水平严重固化和滞后导致他们无法教授其他的编程语言,但在知识都是相通的幌子下,我只能默默的去考试,能及格强于一切理由。

用ASP写个分页吧,就算回忆一下“童年”的记忆Set conn = Server.CreateObject(“ADODB.Connection”)
conn.ConnectionString = “driver ={Microsoft Access Driver (*.mdb)};dbq”& _Server.MapPath(“personal.mdb”)
conn.open()
Set rs = conn.excute(“select * from abc”)
rs.pageSize = 5
curPage = Request.QueryString(“page”) =”" ? 1 :Request.QueryString(“page”)
rs.absolutepage = curPage
For i = 1 To rs.pagesize
If rs.eof Then
Exit For
End If
response.write(rs(“info_content”))
rs.moveNext
Next
If curPage = 1 Then
Response.Write(“首页”)
Response.Write(“上一页”)
Else
Response.Write(“<a href=\” ?page=1\” 首页</a>”)
Response.Write(“<a href=\” ?page=curPage-1\” 上一页</a>”)
End If
If rs.pageCount<curPage+1 Then
Response.Write(“下一页”)
Response.Write(“尾页”)
Else
Response.Write(“<a href=\” ?page=curPage+1\” 下一页</a>”)
Response.Write(“<a href=\” ?page=rs.pageCount\” 尾页</a>”)
End If
粗糙了点,考试应该够用了,老天保佑明天考试有一题是分页,阿门~~

此条目发表在 Programming 分类目录,贴了 , 标签。将固定链接加入收藏夹。

发表评论

电子邮件地址不会被公开。 必填项已用 * 标注

*

您可以使用这些 HTML 标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped="" highlight="">