<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13)," ")," "," ")
changechr=replace(replace(replace(replace(changechr,"[img]",""),"[red]",""),"[big]","")
changechr=replace(replace(replace(replace(changechr,"[/img]",">"),"[/b]",""),"[/red]",""),"[/big]","")
end function
'============================
Addyes=trim(request.QueryString("myation"))
if Sm<>"" or sm="my_system2008" or Su<>"" then
set rsU=Server.CreateObject("Adodb.Recordset")
sql = "select * from UserInfo where Uname='"&Su&"'"
rsU.open sql,conn,1,1
if not rsu.eof then
Uid=rsU("id")
if rsU("Uname1")="" then
Uname=rsU("Uname")
else
Uname=rsU("Uname1")
end if
Ucom=rsU("Ucom")
Uadd=rsU("Uadd")
Utel=rsU("Utel")
Umtel=rsU("Umtel")
Ufax=rsU("Ufax")
Ucode=rsU("Ucode")
Uemail=rsU("Uemail")
rsU.close
set rsU=nothing
end if
end if
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"))
'===============================
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.update
rsw.close
set rsw=nothing
response.write ""
end if
%>
数控镗铣床
TOM-650
TOM-6363
业务咨询