qiye_add_ok.asp

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

<%
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")))
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"))
yesno=trim(request("yesno"))
ip=request.servervariables("remote_addr")
imgname= replace(trim(request("imgpath")),"'","''") 
if imgname<>"" then
imgpath="../admin/upload/upfile/" & imgname
end if
imgpath="'" & replace(imgpath,"'","''") & "'"
opendataconn
sql="insert into qiyeinfo (my_type,company,addr,pc,fax,co_tel,frdb,gongshang,lxr,lx_tel,email,http,jianjie,fanwei,rongyu,place,ip,imgpath,yesno) values("&my_type&","&company&","&addr&","&pc&","&fax&","&co_tel&","&frdb&","&gongshang&","&lxr&","&lx_tel&","&email&","&http&","&jianjie&","&fanwei&","&rongyu&","&place&",'"&ip&"',"&imgpath&","&yesno&")"

conn.execute sql
response.redirect"qiye_del.asp"
closedataconn
%>