chang.asp

这是一个关于企业物流平台的东东

<!--#include file="../../conn/adminconn.asp"-->
<!--#include file="login.asp"-->
<% 
	'接受传递值
	if  request("action")="chang1" then
	call pwd
	end if
	if request("action")="chang2" then
	call tit
	end if 
	'修改管理员信息
	function pwd
	if request("admin_pwd")<>request("admin_pwd2") then 
		response.Write("<script language=javascript>alert('两次输入密码不一致');location='javascript:history.go(-1)'</script>")
	else
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from admin where id=1"
		rs.open sql,conn,1,3
		rs("admin_name")=request("admin_name")
		rs("admin_pwd")=request("admin_pwd")
		rs.update
		rs.close
		response.Write("<script language=javascript>alert('修改成功');location='../adminconn.asp'</script>")
	end if 
	end function
	'修改系统名称
	function tit
	set rs1=server.CreateObject("adodb.recordset")
	sql1="select * from admin where id=1"
	rs1.open sql1,conn,1,3
	rs1("title")=request("title")
	rs1.update
	rs1.close
	response.Write("<script language=javascript>alert('修改成功');location='../adminconn.asp'</script>")
	end function
%>