ASP同学录设计asp+sql(六)

ASP同学录设计asp+sql(六) en                     
   
 
   myemote=""
   End If
   Dim sayStr
   sayStr="<small>" & user_name & Time & myemote & "说：</small>"
   sayStr=sayStr & "<font color='" & mycolor & "'>" &  say & "</font>"
   Application.Lock                     
   Application("show")= sayStr & "<br>" & Application("show")
   If Len(Application("show"))>10000 Then
    Application("show")=Mid(Application("show"),1,10000)
   End If
   Application.Unlock                 
  End If
  %>
 </body>
 </html>
 显示聊天信息文件main.asp
 这个文件很简单,就是将application中的信息写出来。页面每隔5秒自动控制刷新一次，程序如下：
 <%
  Response.Write Application("show")                  
 %>
 5.2.2留言板的设计
 add.asp---添加留言
 delete.asp-删除留言
 lyb.asp---留言板主页
 留言板主页程序主要加了个分页显示
 
 
 添加留言程序如下：
 <% option explicit%>
 <%Response.Buffer=True%>
 <%
 dim db
 set db=server.CreateObject("adodb.connection")
db.Open "driver={microsoft Access driver (*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb")
 %>
    <%
  Dim title,body,name,email                   
  title=Request.Form("title")                 
  body=Request.Form("body")                
  name=Request.Form("name")               
  email=Request.Form("email")               
  Dim Sql,sValues
  Sql = "Insert Into guest(name"
  sValues = "Values('" & name & "'"
  Sql = Sql & ",title"
  sValues = sValues & ",'" & title & "'"
  If body<>"" Then                         
   Sql = Sql & ",body"
   sValues = sValues & ",'" & body & "'"
  End If
  If email<>"" Then

首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/14/14

ASP同学录设计asp+sql(六)由毕业论文网（www.huoyuandh.com）会员上传。