ASP基础讲座(下)(2)
2008-02-23 05:35:02来源:互联网 阅读 ()
本文最后给出一个例子,这是基于数据库的ASP留言簿程序,数据库结构如下:
guestbook.mdb
表lyb:
xm char(100), ly char(255) , sj datetime
文件guestbook.asp:
<html>
<head>
<title>lyb</title>
</head>
<body bgcolor=“#ccccf0”>
<p>留言簿</p>
<form METHOD=“POST” action=“guestbook.asp”>
<input type=“hidden” name=“task” value=“insert”>
<p>姓名:<input TYPE=“text” SIZE=“20” NAME=“xm”></p>
<p>留言:</p>
<p><textarea ROWS=“5” COLS=“80” NAME=“ly”></textarea></p>
<p><input TYPE=“submit” VALUE=“记入留言簿” NAME=“B1”><input TYPE=“reset”
VALUE=“复原” NAME=“B2”></p>
</form>
<%
Set conn = Server.CreateObject(“ADODB.Connection”)
conn.Open “lybdsn”,“”,“”
If Request(“task”)=“insert” then
xm=Request(“xm”)
sj = Date()
sj = sj & “ ” & Hour(Time()) & “:” & Minute(Time())
If Request(“ly”)=“” then
Response.write(“留言不能不输吧”)
Response.end
else
ly=Request(“ly”)
end if
sql=“INSERT INTO lyb (xm,sj,ly) VALUES ('” & xm & “','” & sj & “','” & ly & “') ”
conn.execute sql
End If
sql = “SELECT * FROM lyb ORDER BY sj DESC”
Set rs = conn.Execute(sql) %>
<% On Error Resume Next
rs.MoveFirst
do while Not rs.eof %>
<hr>
姓名:<%=Server.HTMLEncode(rs.Fields(“xm”).Value)%><br>
留于:<%=Server.HTMLEncode(rs.Fields(“sj”).Value)%><br>
留言:<%=Server.HTMLEncode(rs.Fields(“ly”).Value)%>
<% rs.MoveNext
loop %>
</body>
</html>
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash
