<% Function GetCode() Dim TestObj On Error Resume Next Set TestObj = Server.CreateObject("Adodb.Stream") Set TestObj = Nothing If Err Then Dim TempNum Randomize timer TempNum = cint(8999*Rnd+1000) Session("GetCode") = TempNum GetCode = Session("GetCode") Else GetCode = "" End If End Function VerifyCode = Replace(Trim(Request("VerifyCode")),"'","") cname=request.form("cname") ctel=request.form("ctel") cmail=request.form("cmail") caddress=request.form("caddress") cword=replace(request.form("cword"),vbcrlf,"
") if cmail<>"" then if instr(cmail,"@")=0 then response.write"" response.end end if if instr(cmail,".")=0 then response.write"" response.end end if end if if request.form("psaveok")="psaveok" then if VerifyCode <> CStr(Session("GetCode")) then Response.Write("") Response.End end if if request("VerifyCode") = "" then Response.Write("") Response.End elseif Session("GetCode") = "9999" then Session("GetCode")="" elseif Session("GetCode") = "" then Response.Write("") Response.End elseif cstr(Session("GetCode"))<>cstr(Trim(Request("VerifyCode"))) then Response.Write("") Response.End end if Session("GetCode")="" sql="select * from gbook" set rs=server.createobject("adodb.recordset") rs.open sql,connstr,3,2 rs.addnew rs("name")=cname rs("tel")=ctel rs("mail")=cmail rs("address")=caddress rs("word")=cword rs.update response.redirect "lyok.asp" rs.close end if %> 留言本__北汽吉普直营店
北汽直营店在线答疑
姓名:

(*)

电话:
(*)
邮箱:
地址:
(*)
留言内容:

(200字以内*)

验证码: <% = GetCode() %>
 

      (*)为必填内容