recomco_modi_ok.asp

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

<%
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 ──┘
%>
<%
CoName =Trim(Request("CoName"))
 CoType=Trim(Request("CoType"))
CoAddress =Trim(Request("CoAddress"))
LinkMan =Trim(Request("LinkMan"))
CoTel =Trim(Request("CoTel"))
CoFax =Trim(Request("CoFax"))
CoZIP =Trim(Request("CoZIP"))
email =Trim(Request("email"))
CoHomeweb =Trim(Request("CoHomeweb"))
CoComment =Trim(Request("CoComment"))
CoComment = Replace(CoComment,vbcrlf,"<br>")
coid=trim(Request("coid"))
img=Trim(Request("imgname"))
img=Replace(img,",","")
 OpenDataConn
  Conn.Execute"update recomco set CoName='"&CoName&"',CoType='"&CoType&"',CoAddress='"&CoAddress&"',LinkMan='"&LinkMan&"',CoTel='"&CoTel&"',CoFax='"&CoFax&"',CoZIP='"&CoZIP&"',CoEmail='"&email&"',CoHomeweb='"&CoHomeweb&"',CoComment='"&CoComment&"',img='"&img&"' where coid="&coid&""
 CloseDataConn
 response.Write"<script>alert ('您已修改成功'); window.location.href='recomco_del.asp'</script>"
 'Response.Redirect("recomco_del.asp")
%>