<%
dim rsa
OpenDB()
CreateRS(2)
httpid=Trim(Request("id"))
function conleft(content,i)
if len(content)>i then
content=left(content,i)
response.write (content)
else
response.write (content)
end if
end function
if request.Form("submit")="确认提交" then
httpid=request.Form("httpid")
email=request.Form("email")
tel=request.Form("tel")
biaoti=request.Form("biaoti")
msn=request.Form("msn")
bw="0"
bc=""
if tel="" then
bw="1"
bc="请填写手机号码"
end if
if biaoti="" then
bw="1"
bc=bc&" 请选择反馈类型"
end if
if msn="" then
bw="1"
bc=bc&" 请填写反馈内容"
end if
if bw="0" then
msn=msn&"/客户手机："&tel
msn=msn&"/email："&email
msn=msn&"/来源网址："&httpid
sSQL="insert tbl_msg (fromuser,touser,content,isread,sdel,rdel,fromshop,toshop,title,cat) values ('在线反馈','admin','"&msn&"',0,0,0,'BJY','BJY','"&biaoti&"','任务')"
'response.Write(sSQL)
OpenRS 0,sSQL,0
bw="2"
end if
end if %>
【二手房交易流程】-百居易网
