<%OPTION EXPLICIT If request.Form("Submit") = "提交表单" Then Application.Lock() %><% rs.Open "Select * From 留言", Conn, 1, 2 rs.AddNew: rs("姓名") = request.Form("Uname") rs("性别") = request.Form("sex") rs("地区") = request.Form("Add") rs("QQ") = request.Form("QQ") rs("信箱") = request.Form("Mail") rs("网址") = request.Form("Web") rs("表情") = request.Form("face") rs("内容") = request.Form("textfield") rs("地址") = IP(): rs("时间") = Now rs.UpDate: Call CloseAll() Application.UnLock() Call alert("恭喜，恭喜，信息提交成功！", "bbs.asp") End If %>

	您的姓名： 用户性别： 男 女 所在地域： 联系电话： 电子信箱： 网站地址： 用户表情： <%Dim i: For i = 1 To 9%> <%Next%> 留言内容：