留言页面显示效果 到小天鹅留言簿 Microsoft Internet Explorer 文件()编辑(E查看(收藏(A工具①帮助(H ⊙后分·搜索次收藏夹创回,國 也址D)htp:/ localhost./yan/ INPUT. HTM ]转到‖链接” 小天鹅留言簿 姓名 , Email 留言 匚提交留言 查着留言 清除重写 本地 Intranet (广东学钱米职业学院
留言页面显示效果
留盲页面代码( input. htm) <htmI> stle>小天留言< title <body bgcolor="beige"> <table border rdercolor"orange"width=100%> td alIgn" CENTER'< ont color=whe><b>小天熟留言簿</b><ronp<td <table> sform Action=hand le. asp"Method="POST"> <table border 4" bord orange"width="100%> td姓名:<td std><input TYPE"TEXT"NAME"Name"SIZE"20"></td> <tr> <td>Email:/td> std><input TYPE"TEXT" NAME"Email"SIZE="40"></td> </tr> td主题:<td </trout TYPE="TEXT"NAME="Subject"SIZE"60"><td> <td><te xtarea NAME" ROWS=6 COLS=60"></te xtarea></td </table> <div align"center><center<table WDTH"100%"> <tr ALIGN"CENTER'> td< cinput TYPE"subm"NAME"SED"ⅤALUE"提交留言"></td ≮td<aHRE=" dis play. asp">查看留言<a>td td< nput TYP" RESET" VALUE清除置写"少<d> <tr> <center</div </body? (广东学钱米职业学院
留言页面代码(input.htm) <html> <head> <title>小天鹅留言簿</title> </head> <body bgcolor="beige"> <table border="4" bordercolor="orange" width=100%> <tr bgcolor="orange"> <td ALIGN="CENTER"><font color=white><b>小 天 鹅 留 言 簿</b></font></td> </tr> </table> <form Action="handle.asp" Method="POST"> <table border="4" bordercolor="orange" width="100%"> <tr> <td>姓名：</td> <td><input TYPE="TEXT" NAME="Name" SIZE="20"></td> </tr> <tr> <td>Email:</td> <td><input TYPE="TEXT" NAME="Email" SIZE="40"></td> </tr> <tr> <td>主题：</td> <td><input TYPE="TEXT" NAME="Subject" SIZE="60"></td> </tr> <tr> <td VALIGN="TOP">留言：</td> <td><textarea NAME="Memo" ROWS="6" COLS="60"></textarea></td> </tr> </table> <div align="center"><center><table WIDTH="100%"> <tr ALIGN="CENTER"> <td><input TYPE="Submit" NAME="SEND" VALUE="提交留言"></td> <td><a HREF="display.asp">查看留言</a></td> <td><input TYPE="RESET" VALUE="清除重写"></td> </tr> </table> </center></div> </form> </body> </html>
留盲处理页面( handle.asp) <-ttinclude file="adoybs inc"--> % Name Request( Name ") Email Request( Email Subject= Request("Subject) Memo= Request("Memo") If Name =Or Email =Or Subject="Or Memo="Then Response. Write"字段空白不接受!" Response. End不再处理以下的程序 End If Set conn= Server Create Object("ADODB Connection") DBPath=Server MapPath(lyb. mdb") conn Open"driver Microsoft Access Driver(. mdb)): dbq=& DBPath Set rs= Server CreateObject("ADODB. Recordset") rsOpen"GuestBook", conn, adOpenDynamic, adLockPessimistic rs AddNew rs(姓名")=Name rs(Email")=Email rs("主题")= Subject rs(留言")=Memo rs Update Response. Redirect"display. asp %> (广东学钱米职业学院
留言处理页面(handle.asp) <!--#include file="adovbs.inc" --> <% Name = Request("Name") Email = Request("Email") Subject = Request("Subject") Memo = Request("Memo") If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then Response.Write "字段空白不接受！" Response.End '不再处理以下的程序 End If Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("lyb.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "GuestBook", conn, adOpenDynamic, adLockPessimistic rs.AddNew rs("姓名") = Name rs("Email") = Email rs("主题") = Subject rs("留言") = Memo rs.Update Response.Redirect "display.asp" %>
留盲分页显示页面 display asp) #include file="adovbs inc"-> <L#include file="RsToGbk a <H#include file="GbookUtl asp"-> <html<body bgcolor=beige> <h2ALGN=" CENTER">小天鹅留言簿</2>< hr WIDTH="100%" color=oran sql=" Select* From Guest Book Order By时间DESC Set conn= Server CreateObject("ADODB Connection") connOpen"driver=(Microsoft Access Driver (. mdb)) dbq="& Server MapPath(lyb. mdb") Set rs= Server CreateObject(ADO DB Recordset") rs Open sql, conn, adOpen Static rs PageSize=2 Page=CLng( Request"Page")'CLng不可省略 If Page 1 Then Page =1 If Page >rs Page Count Then Page =rs Page Count ShowonePa <fom Action="display. asp"Method="GET" align="right"> < a HreF=" input. htm"><p>返回留言表单</a><% Response. Write"< A HREF= display. asp?Page="&Page1)&">上一页<A> End If If Page <>rs Page Count Then Response. Write"< A HREF= display. asp?Page="&(Page+1)&">下一页<A> Response. Write"< A HREF= display.asp?Page="&rs. Page Count&">最后一页</A> End If %>311: <font COLOR="Red"><%=Page%>/<%=rs Page Count%></font> </p> </form></body></html> (广东学钱米职业学院
留言分页显示页面(display.asp) <!--#include file="adovbs.inc" --> <!--#include file="RsToGbk.asp" --> <!--#include file="GbookUtl.asp" --> <html><body bgcolor=beige> <h2 ALIGN="CENTER">小 天 鹅 留 言 簿</h2><hr WIDTH="100%" color=orange> <% sql = "Select * From GuestBook Order By 时间 DESC" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("lyb.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, adOpenStatic rs.PageSize=2 Page = CLng(Request("Page")) ' CLng 不可省略 If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount ShowOnePage rs, Page %> <form Action="display.asp" Method="GET" align="right"> <a HREF="input.htm"><p>返回留言表单</a> <% If Page <> 1 Then Response.Write "<A HREF=display.asp?Page=1>第一页</A> " Response.Write "<A HREF=display.asp?Page=" & (Page-1) & ">上一页</A> " End If If Page <> rs.PageCount Then Response.Write "<A HREF=display.asp?Page=" & (Page+1) & ">下一页</A> " Response.Write "<A HREF=display.asp?Page=" & rs.PageCount & ">最后一页</A> " End If %>页码：<font COLOR="Red"><%=Page%>/<%=rs.PageCount%></font> </p> </form></body></html>
留言分页显示页面( gbookutl, asp) <% Sub ShowOnePage( rs, Page) rs. AbsolutePage= Page For iPage 1 To rs Page Size Rs ToGbook rs rs MoveNext If rs eoF Then Exit for Next End sub (广东学钱米职业学院
留言分页显示页面(gbookutl.asp) <% Sub ShowOnePage( rs, Page ) rs.AbsolutePage = Page For iPage = 1 To rs.PageSize RsToGbook rs rs.MoveNext If rs.EOF Then Exit For Next End Sub %>