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
