<%
if Request.Form("submit") <> "" then
dim isok
isok = true
if Request("gbname") = "" then
isok = false
%>
<%
end if
if Request("gbtitle") = "" then
isok = false
%>
<%
end if
if Request("gbmsg") = "" then
isok = false
%>
<%
end if
if lysh=true then
check = false
else
check = true
end if
if isok then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from gbook"
rs.open sql,conn,1,3
rs.addnew
rs("gb_title") = Request("gbtitle")
rs("gb_name") = Request("gbname")
rs("gb_qq") = Request("gbqq")
rs("gb_web") = Request("gbweb")
rs("gb_pic") = "03"
rs("gb_msg") = Request("gbmsg")
rs("gb_email") = Request("gbemail")
rs("gb_time") = now()
rs("gb_check") = check
rs("gb_ip") = request.servervariables("remote_addr")
rs.update
rs.close
end if
if lysh=true then
response.write ""
else
response.Write ""
end if
end if
%>