客户留言
<%
if(act="add") then
dim username,title,mail,tel,content
if Cstr(request.Form("checkcode")) <> Cstr(Session("GetCode")) then
response.Write("")
Response.End
end if
cpmc=request.Form("cpmc")
username=request.Form("username")
title=request.Form("title")
mail=request.Form("mail")
tel=request.Form("tel")
content=request.Form("content")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from t_guestbook where 1=0",conn,3,3
rs.addnew
rs("cpmc")=cpmc
rs("username")=username
rs("title")=title
rs("mail")=mail
rs("tel")=tel
rs("content")=content
rs("pubdate")=now()
rs("ip")=request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
Session("GetCode")=""
response.Write("")
else
%>
<%
end if
%>