<%
if request("hiddenField")<>"" then
function k(str,name,size)'isSize
k=str
if str="" then
call errmsg("您好！请填写您的留言"&name&"！谢谢您的合作！")
end if
if len(str)>size then
call errmsg("您好！"&name&"字符宽度不能大于"& size)
end if
end function
zz=k(request("zz"),"姓名",10)
zt=k(request("zt"),"主题",25)
nr=k(request("nr"),"内容",10000)
sql="SELECT * from body"
rs.open sql,conn,1,3
rs.addnew
rs("writer")=zz
rs("title")=zt
rs("body")=nr
rs("ip")=request.servervariables("remote_addr")
rs.update
rs.close
session("user")=zz
response.redirect"over.asp"
response.end
end if
%>