注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

中老年人学电脑摄影博客

摄影采风、摄影作品欣赏、摄影指导、摄影教程、后期制作教程

 
 
 

日志

 
 
关于我

我从事中老年人摄影、计算机教育行业,在哈尔滨老年人大学任教,在从事摄影、计算机教育13年当中11年从事中老年人摄影、计算机教育,是国内最早从事中老年人计算机教育者之一,给我的感觉是中老人学得快,忘的快,人非常好,乐观向上。是我学习的榜样,我非常感谢中老年朋友,让我在学习和工作中得到了宝贵财富。

网易考拉推荐

asp访客留言簿源代码  

2009-11-21 20:46:06|  分类: asp |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

8.5 访客留言簿源代码
GuestBook.asp
<%@ Language=VBScript %>
<html>
<head>
<title>访客留言簿</title>
</head>
<body bgcolor="#EDFFFF">
<p align="center"><img border="0" src="GuestBook.jpg"></p>
<%
'建立与GuestBook数据库的连接:
Set Conn = Server.CreateObject("ADODB.Connection")
P1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path1 = "Data Source="&Server.MapPath("GuestBook.mdb")
Conn.Open P1&Path1
'读取 GuestBook 表中的所有记录并按照留言时间顺序排列:
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From GuestBook Order By 时间 Desc"
rs.Open sql,Conn,1,2
'设置分页大小,可视实际情况设置其他数值:
rs.PageSize = 5
'生成用于表示页码数字的超级链接:
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
PageNo = Request("PageNo")
Response.Write "| "
For i = 1 To rs.PageCount
 If i = CInt(PageNo) Then
  Response.Write i & "&nbsp;|&nbsp;"
 Else
  '超级链接到GuestBook.asp,并将页码作为参数传递:
  Response.Write "<a href='GuestBook.asp?PageNo=" & i & "'>" &_
  i & "</a>" & "&nbsp;|&nbsp;"
 End if
Next
Response.Write "&nbsp;&nbsp;"
%>
<font face="宋体" size="3" color="#008000">
<a href="GuestBook.htm">[我要留言]</font></a>
<hr>
<%
'根据所指定的页码调用 ShowPage 子程序来显示该页留言,
'若未指定页码则默认显示第一页:
If PageNo <> "" Then
 ShowPage  rs, PageNo
Else
 ShowPage  rs, 1
End If
'关闭数据库连接并释放对象实例:
rs.close
Set Conn = Nothing
'定义ShowPage 过程用于显示 PageNo 参数所指定页码的留言记录:
Sub ShowPage(rs, PageNo)
'利用数组设置各条留言不同的背景颜色:
ReDim bg(rs.PageSize - 1)
bg(0) = "#d9d9ff"
bg(1) = "#ffcaee"
bg(2) = "#ffffcc"
bg(3) = "#b9eeb9"
bg(4) = "#b9e9ff"
'显示指定页的留言内容并以表格形式进行格式化:
Response.Write "<table align='center' width='90%'>"
rs.AbsolutePage = PageNo
For i = 1 To rs.PageSize
 Response.Write "<tr Bgcolor=" & bg(i - 1) & ">"
 Response.Write "<td>访客:" & rs("客户") & "<br>主题:" & rs("主题") &_
 "<br>时间:" & rs("时间") & "<br>" & rs("内容") & "<hr></td></tr>"
 rs.MoveNext
 If rs.Eof Then Exit For
Next
Response.Write "</table>"
End Sub
%>
<p style="line-height: 120%" align="center"><font size="2">
 Copyright 2004&copy&nbsp;&nbsp; All rights reserved.<br>
 新世纪网站&nbsp; 版权所有<br>
 网上经营许可证&nbsp; 京证XX0018号</font></p>
</body>
</html>

GuestBook.htm
<html>
<head>
<title>访客留言</title>
</head>
<body bgproperties="fixed" bgcolor="#CCFFFF">
<p align="center"><img border="0" src="GuestBook.jpg"></p>
<form method="POST" action="Post.asp">
   <table border="0" align="center" cellpadding="4" cellspacing="0" width="428">
      <tr height="40">
        <td width="51">
          <p align="center"><b>访客:</b></td>
        <td width="357"><input type="text" name="Cname" size="28"></td>
      </tr>
      <tr height="40">
        <td width="51">
          <p align="center"><b>主题:</b></td>
        <td width="357"><input type="text" name="Title" size="48"></td>
      </tr>
      <tr>
        <td width="51">
          <p align="center"><b>内容:</b></td>
        <td width="357"><textarea name="Content" cols="47" rows="5">
        </textarea></td>
      </tr>
      <tr>
      <td colspan="2" height="40" align="center" width="418">
        <input type="submit" value="张贴留言">&nbsp;
        <input type="reset" value="全部重写"></td>
      </tr>
   </table>
</form>
<hr>
<p style="line-height: 120%" align="center"><font size="2">
 Copyright 2004&copy&nbsp;&nbsp; All rights reserved.<br>
 新世纪网站&nbsp; 版权所有<br>
 网上经营许可证&nbsp; 京证XX0018号</font></p>
</body>
</html>

Post.asp
<%@ Language=VBScript %>
<%
Dim Cname, Title, Content, CurrentTime
Dim Conn, P1, Path1, rs
'读取留言簿表单中的各项数据:
Cname = Request("Cname")
Title = Request("Title")
Content = Request("Content")
CurrentTime = Now()
'建立与GuestBook数据库的连接:
Set Conn = Server.CreateObject("ADODB.Connection")
P1="Provider=Microsoft.Jet.OLEDB.4.0;"
Path1="Data Source="&Server.MapPath("GuestBook.mdb")
Conn.Open P1&Path1
'创建rs记录集并以读写方式打开 GuestBook表:
Set rs = Server.CreateObject("ADODB.Recordset")       
rs.Open "GuestBook", Conn, 3, 2
'利用数组元素方式增加新记录:
rs.AddNew Array("客户","主题","内容","时间"), _
 Array(Cname,Title,Content,CurrentTime)
'更新数据库的内容:
rs.Update
'关闭记录集并断开与数据库的连接:
rs.Close
Set rs=Nothing
Set Conn=Nothing
'重定向到GuestBook.asp页面:
Response.Redirect "GuestBook.asp"
%>

  评论这张
 
阅读(2591)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017