pro_modi_save.asp

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

<%
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(str)
douhao="'" & replace(str,"'","''") & "'"
end function
prtype=douhao(trim(request("prtype")))
pingming=douhao(trim(request("pingming")))
dengji=douhao(trim(request("dengji")))
baozhuang=douhao(trim(request("baozhuang")))
jinzhong=douhao(trim(request("jinzhong")))
pc=douhao(trim(request("pc")))
tel=douhao(trim(request("tel")))
email=douhao(trim(request("email")))
area=douhao(trim(request("area")))
company=douhao(trim(request("company")))
name1=douhao(trim(request("name")))
address=douhao(trim(request("address")))
comment=trim(request("comment"))
comment=replace(comment,vbcrlf,"<br>")
comment=douhao(comment)
yesno=trim(request("yesno"))
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

ip=request.servervariables("remote_addr")
reguser=trim(session("teausername"))
id=trim(request("id"))
opendataconn
sql= "update pro set prtype="&prtype&",pingming="&pingming&",dengji="&dengji&",baozhuang="&baozhuang&",jinzhong="&jinzhong&",comment="&comment&",company="&company&",name="&name1&",address="&address&",pc="&pc&",tel="&tel&",email="&email&",ip='"&ip&"',imgpath="&imgpath&",area="&area&" ,yesno="&yesno&" where id="&id&""
conn.execute sql
response.redirect "pro_modi.asp?id="&id&""

%>