手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp编程>列表

ASP基础讲座(下)

来源:互联网 作者:west263.com 时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

  本文最后给出一个例子,这是基于数据库的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>

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!