qiye_modi_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 62 行

<%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If
%><!--#include file="../inc/conn.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
function douhao(hj)
douhao="'" & replace(hj,"'","''") & "'"
end function
my_type=douhao(trim(request("my_type")))
company=douhao(trim(request("company")))
addr=douhao(trim(request("addr")))
pc=douhao(trim(request("pc")))
fax=douhao(trim(request("fax")))
co_tel=douhao(trim(request("co_tel")))
frdb=douhao(trim(request("frdb")))
gongshang=douhao(trim(request("gongshang")))
yesno=trim(request("yesno"))
lxr=douhao(trim(request("lxr")))
lx_tel=douhao(trim(request("lx_tel")))
email=douhao(trim(request("email")))
http=douhao(trim(request("http")))
jianjie=trim(request("jianjie"))
jianjie=douhao(replace(jianjie,vbcrlf,"<br>"))
fanwei=douhao(trim(request("fanwei")))
rongyu=douhao(trim(request("rongyu")))
place=trim(request("place"))
ip=request.servervariables("remote_addr")
imgname= replace(trim(request("imgpath")),"'","''") 
if imgname<>"" then
   if instr(imgname,"../admin/upload/upfile/")>0 then
   imgpath= "'" & imgname & "'"
   else
   imgpath="../admin/upload/upfile/" & imgname
   imgpath="'" & replace(imgpath,"'","''") & "'"
   end if
else
   imgpath="'" & imgname & "'"   
end if
opendataconn
id=trim(request("id"))
sql="update  qiyeinfo set my_type="&my_type&",company="&company&",addr="&addr&",pc="&pc&",fax="&fax&",co_tel="&co_tel&",frdb="&frdb&",gongshang="&gongshang&",lxr="&lxr&",lx_tel="&lx_tel&",email="&email&",http="&http&",jianjie="&jianjie&",fanwei="&fanwei&",rongyu="&rongyu&",place="&place&",ip='"&ip&"',imgpath="&imgpath&",yesno="&yesno&" where id="&id&""

conn.execute sql
response.redirect"qiye_modi.asp?id="&id&""
closedataconn
%>