qiye_update_save.asp

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

<%
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 ──┘
%>
<%
opendataconn
id=request("id")
name=rtrim(request("name"))
hangye=rtrim(request("hangye"))
addr=rtrim(request("addr"))
post=rtrim(request("post"))
d_tel=rtrim(request("d_tel"))
fax=rtrim(request("fax"))
frdb=rtrim(request("frdb"))
gongshang=rtrim(request("gongshang"))
lianxi=rtrim(request("lianxi"))
email=rtrim(request("email"))
l_tel=rtrim(request("l_tel"))
http=rtrim(request("http"))
fanwei=rtrim(request("fanwei"))
fanwei=replace(fanwei,vbcrlf,"<br>")
rongyu=rtrim(request("rongyu"))
rongyu=replace(rongyu,vbcrlf,"<br>")
jianjie=rtrim(request("jianjie"))
jianjie=replace(jianjie,vbcrlf,"<br>")
place=rtrim(request("place")) 
sql="update nanan_myself set my_name = '"&name&"',my_hangye = '"& hangye &"',my_addr='"&addr&"',my_post='"&post&"',my_d_tel='"&d_tel&"',my_fax='"&fax&"',my_frdb='"&frdb&"',my_gongshang='"&gongshang&"',my_lianxi='"&lianxi&"',my_email='"&email&"',my_l_tel='"&l_tel&"',my_http='"&http&"',my_fanwei='"&fanwei&"',my_meno='"&jianjie&"',my_rongyu='"&rongyu&"',my_place="& place&" where id='"&id&"'"
conn.execute sql
response.redirect"qiye_update.asp"		
closedataconn
%>