show1.asp

2002年夏天为一个同学制作得班级同学录程序

<%@ LANGUAGE = "VBScript" %>
<%response.buffer=true

mytalk=trim(request.form("txtbox1"))
mytalk=replace(mytalk,"<","&lt;")

Expression=request.form("Expression")
SayToName=request.form("saytoname")

if Expression="说话" then
Expression=""
end if

Application.lock

Application("show")="<p><font size=2>("&time&")</font> "&session("UserName")&" <i>"&Expression&" 对 <font color=20b2aa>"&SayToName&"</font>  说</i>：" &mytalk &"</p>" &Application("show")

application.unlock

response.redirect "show.asp"

%>