change.asp

来自「基于C#语言的一个物流信息网数据库系统开发案例的源代码 ,很实用」· ASP 代码 · 共 61 行

<!-- #include file="../check/check.asp" -->
<!-- #include file="../Conn/conn.asp" -->
<% 
   	id=request.form("id")
   	style=request.Form("style")
   	names=request.Form("name")
   	work=request.Form("work")
   	area=request.Form("area")
   	address=request.Form("address")
   	phone=request.Form("phone")
   	linkman=request.Form("linkman")
   	andset=request.Form("andset")
   	email=request.Form("email")
   	fax=request.Form("fax")
   	meg=request.Form("meg")
	if request.form("http")="" then
		http="http://"
	else
   		http=request.Form("http")
	end if
   	yonghu=session("name")
   	sql="select * from tb_EnterpriseMeg where EnterpriseSort='"&style&"' and EnterpriseName='"&names&"' and Operation='"&work&"' and WorkArea='"&area&"' and Address='"&address&"' and Phone='"&phone&"' and LinkMan='"&linkman&"' and HandSet='"&andset&"' and Fax='"&fax&"' and Intro='"&meg&"' and Http='"&http&"'and UserName='"&yonghu&"'" 
	rs.open sql,conn
   	if not rs.eof or not rs.bof then 
%>
		<script language="javascript">
			alert("您还没有对信息进行修改");
			history.back();
		</script>
<% 
		set rs=nothing
   		conn.close
   		set conn=nothing
   else 
   		set rs=nothing
   		conn.close
   		set conn=nothing
%>
<!-- #include file="../Conn/conn.asp" -->
<%
   		sql="update tb_EnterpriseMeg set EnterpriseSort='"&style&"',EnterpriseName='"&names&"',Operation='"&work&"',WorkArea='"&area&"',Address='"&address&"',Phone='"&phone&"',LinkMan='"&linkman&"',HandSet='"&andset&"',Fax='"&fax&"',Intro='"&meg&"',Http='"&http&"',UserName='"&yonghu&"',IssueDate='"&date()&"' where ID="&id
		rs.open sql,conn
   		set rs=nothing
   		conn.close
   		set conn=nothing
%>
<!-- #include file="../Conn/conn.asp" -->
<% 
  		sql="select * from tb_EnterpriseMeg where EnterpriseSort='"&style&"' and EnterpriseName='"&names&"' and Operation='"&work&"' and WorkArea='"&area&"' and Address='"&address&"' and Phone='"&phone&"' and LinkMan='"&linkman&"' and HandSet='"&andset&"' and Fax='"&fax&"' and Intro='"&meg&"' and Http='"&http&"'and UserName='"&yonghu&"'" 
   		rs.open sql,conn
   		if not rs.eof or not rs.bof then 
%> 
			<script language="javascript">
				alert("信息修改成功!");
				window.close();
				opener.location.reload();
			</script>
<%
   		end if 
	end if 
%>