jj_edit_save.asp

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

<!--#include file="../../inc/conn2.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<% 
     if instr(session("manager"),"manager")=0 then
     response.redirect "manage.asp"
     response.end
end if
%>
<%
OpenDataConn
Dim Jj_mc,Jj_Type,Jj_xh,Jj_GG,Jj_cd,Jj_money,pic,Jj_content,Jj_company
Dim Jj_Tel,Jj_add,Jj_Fax,Jj_email,Jj_post,Jj_com
Jj_mc = Trim(Request("Jj_mc"))
Jj_Type = Trim(Request("Jj_Type"))
Jj_xh = Trim(Request("Jj_xh"))
Jj_GG = Trim(Request("Jj_GG"))
Jj_cd = Trim(Request("Jj_cd"))
Jj_money = Trim(Request("Jj_money"))
if Request.form("pic") = "" then
pic = Request.querystring("Pic")
else
pic = Trim(Request.form("pic"))
end if
Jj_content = Trim(Request("Jj_content"))
Jj_company = Trim(Request("Jj_company"))
Jj_Tel = Trim(Request("Jj_Tel"))
Jj_add = Trim(Request("Jj_add"))
Jj_Fax = Trim(Request("Jj_Fax"))
Jj_email = Trim(Request("Jj_email"))
Jj_post = Trim(Request("Jj_post"))
Jj_com = Trim(Request("Jj_com"))
If Jj_mc = "" Then
Response.write"<script>alert('对不起！建材名称不能为空！');history.go(-1)</script>"
Response.end
End if
If Jj_Type = "" Then
Response.write"<script>alert('对不起！建材类别没有选择！');history.go(-1)</script>"
Response.end
End if
If Jj_content = "" Then
Response.write"<script>alert('对不起！详细参数不能为空！');history.go(-1)</script>"
Response.end
End if
If Jj_company = "" Then
Response.write"<script>alert('对不起！公司名称不能为空！');history.go(-1)</script>"
Response.end
End if
If Jj_Tel = "" Then
Response.write"<script>alert('对不起！联系电话不能为空！');history.go(-1)</script>"
Response.end
End if
SQL = "Update Jj Set Jj_mc='"&Jj_mc&"',Jj_Type='"&Jj_Type&"',Jj_xh='"&Jj_xh&"',Jj_GG='"&Jj_GG&"',"
SQL = SQL&"Jj_cd='"&Jj_cd&"',Jj_money='"&Jj_money&"',pic='"&pic&"',Jj_content='"&Jj_content&"',"
SQL = SQL&"Jj_company='"&Jj_company&"',Jj_Tel='"&Jj_Tel&"',Jj_add='"&Jj_add&"',Jj_Fax='"&Jj_Fax&"',"
SQL = SQL&"Jj_email='"&Jj_email&"',Jj_post='"&Jj_post&"',Jj_com='"&Jj_com&"' Where ID="&Request("ID")&""
Conn.Execute(SQL)
Response.write"<script>alert('修改成功！');location.href='Jj_Del.asp'</script>"
Response.end
%>