位置: 首页 > 客户反馈
<%
if Addyes="addok" then
if request("VCodes")="" or (not IsNumeric(request("VCodes"))) then
response.write ""
response.end
else
if (int(session("VCodes"))<>int(request("VCodes"))) then
response.write ""
response.end
end if
end if
title=trim(request.Form("title"))
if title="" then
response.write ""
response.end
end if
comtont=trim(request.Form("comtont"))
comtont=trim(changechr(comtont))
linkman=trim(request.Form("linkman"))
company=trim(request.Form("company"))
address=trim(request.Form("address"))
tel=trim(request.Form("tel"))
mobiletel=trim(request.Form("mobiletel"))
fax=trim(request.Form("fax"))
code=trim(request.Form("code"))
email=trim(request.Form("email"))
SS=trim(request.Form("SS"))
’===============================
set rsw=Server.CreateObject("Adodb.Recordset")
sql="select * from Feedback where (id is null)"
rsw.open sql,conn,1,3
rsw.addnew
rsw("title")=title
rsw("comtont")=comtont
rsw("company")=company
rsw("address")=address
rsw("linkman")=linkman
if Uid<>0 then
rsw("Uid")=Uid
else
rsw("Uid")=0
end if
rsw("tel")=tel
rsw("mobiletel")=mobiletel
rsw("fax")=fax
rsw("code")=code
rsw("email")=email
rsw("SS")=SS
rsw.update
rsw.close
set rsw=nothing
response.write ""
end if
%>