<%
if uid="vvkkll" then
zoneqstr="&zone="&zonepinyin
else
zoneqstr=""
set rs=server.createobject("ADODB.recordset")
sql="select top 1 truename,phone,uid,company,oicq,usermail,address from xfxtsf with (nolock) where uid='"&uid&"'"
set rs=conn.execute(sql)
truename=rs(0)
phone=rs(1)
company=rs(3)
oicq=rs(4)
usermail=rs(5)
address=rs(6)
end If
%>
VIP申请
<%
if request("act")="1" then
founderror=false
If CStr(Session("getcode"))<>CStr(Trim(Request("verifycode"))) Then
error1 = error1 + "" + "
您输入的验证码和系统产生的不一致，请重新输入。
"
founderror=true
end If
if Trim(Request("verifycode"))="" then
error1="
验证码为空
"
founderror=true
end if
if founderror then
response.write "由于以下错误您的留言不成功:
"
response.write error1
response.write "
"
response.write "返回"
response.end
end if
truename=htmlencode(left(request.form("truename")&" ",20))
phone=htmlencode(left(request.form("phone")&" ",30))
oicq=htmlencode(left(request.form("oicq")&" ",30))
usermail=htmlencode(left(request.form("usermail")&" ",30))
company=htmlencode(left(request.form("company")&" ",30))
uid=htmlencode(left(request.form("uid")&" ",25))
address=htmlencode(left(request.form("address")&" ",25))
address=htmlencode(left(request.form("address")&" ",25))
oktime=htmlencode(left(request.form("oktime")&" ",250))
busytime=htmlencode(left(request.form("busytime")&" ",250))
textarea=htmlencode(left(request.form("textarea")&" ",800))
ip=getip()
sql="insert into _vip(city,truename,phone,oicq,usermail,company,uid,address,oktime,busytime,ip,content) values('"&zone&"','"&truename&"','"&phone&"','"&oicq&"','"&usermail&"','"&company&"','"&uid&"','"&address&"','"&oktime&"','"&busytime&"','"&ip&"','"&textarea&"')"
If isdebug=1 Then response.write sql
If isdebug>1 Then response.end
conn.execute(sql)
%>
<%
set conn=nothing
response.write("")
else
%>