manage_lssave.asp

来自「汽车销售系统毕业设计」· ASP 代码 · 共 57 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=../DataBase/conn.asp-->

<%
if session("admin_name")="" then
response.Redirect("login.asp")
end if
%>
<%
if request("post")<>"true" then
if request("name")<>"" and request("address")<>"" and request("phone")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Enterprise where id="&request("post")
rs.open sql,conn,1,3

rs("Name")=request("name")
rs("Address")=request("address")
rs("Phone")=request("phone")
rs.update
rs.close
response.Write("<br><br><br>")
response.Write("<div align=center>  <img src=images/succ.gif width=95 height=97></div>")
response.Write("<div align=center>提交成功!</div>")
response.Write("<div align=center><a href='javascript:' onclick=opener.location.reload();window.close()>关闭</a></div>")
else 
response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>")
end if

else

if request("name")<>"" and request("address")<>"" and request("phone")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Enterprise "
rs.open sql,conn,1,3

rs.addnew
rs("Name")=request("name")
rs("Address")=request("address")
rs("Phone")=request("phone")
rs("Style")=request("type")
rs.update
rs.close
response.Write("<br><br><br>")
response.Write("<div align=center>  <img src=images/succ.gif width=95 height=97></div>")
response.Write("<div align=center>提交成功!</div>")
response.Write("<div align=center><a href='javascript:' onclick=opener.location.reload();window.close()>关闭</a></div>")
else 
response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>")
end if
end if
%><style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>