<% function regexptest(patrn, strng) dim regex ' 建立变量。 set regex = new regexp ' 建立规范表达式。 regex.pattern = patrn ' 设置模式。 regex.ignorecase = true ' 设置是否区分字母的大小写。 regex.global = true ' 设置全程性质。 regexptest = regex.execute(strng) ' 执行搜索。 end function If request.QueryString("action")="add" then ucode = Trim(request.form("ucode")) If ucode <> Trim(Session("Code")) then Call Msg("请输入正确的验证码!",1) End if webtitle = Replace_Text(request.form("webtitle")) t1 = Replace_Text(request.form("t1")) t2 = Replace_Text(request.form("t2")) t3 = Replace_Text(request.form("t3")) t4 = Trim(request.form("t4")) t5 = Replace_Text(request.form("t5")) t6 = Replace_Text(request.form("t6")) t7 = Replace_Text(request.form("t7")) ip = GetIP if t1="" or t2="" or t3="" or t5="" or t6="" or t7="" then Call Msg("必填内容不能为空!",1) end if if regexptest("(^[0-9]{3,4}\-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^\([0-9]{3,4}\)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)", tel)=false then Call Msg("电话号码不正确!",1) end if SQL = "Select * from buy" Call Rs_Open(Rs,SQL,Conn,3,2) Rs.Addnew Rs("t1") = t1 Rs("t2") = t2 Rs("t3") = t3 Rs("t4") = t4 Rs("t5") = t5 Rs("t6") = t6 Rs("t7") = t7 Rs("ip") = ip Rs.update Call Rs_end(Rs) Call Msg (webtitle&"成功,我们会尽快回复您!$$/index.html",4) Else %> <% carid=cint(request.QueryString("id")) ty=request.QueryString("ty") if ty=1 then webtitle="租车" SQLz = "Select * from Cars where id ="&carid else webtitle="买车" SQLz = "Select * from Cared where id ="&carid end if Call Rs_Open(Rsz,SQLz,Conn,1,1) If Rsz.eof or Rsz.bof then Call Msg("请正确选择车型!",1) Else cartitle=Rsz("title") end if %> 在线<%=webtitle%>_<%=webname_cn%>

在线<%=webtitle%>

上海零距离 > 在线<%=webtitle%>

*车型名称: <%=cartitle%>  
 <%=webtitle%>内容:
*公司名称: (个人购买请填写个人)
*联系人:
*联系电话:
验证码:  
 
<%end if%>