admsave.asp

it is a good thing i think you will like it

<%if session("jypxadmin")<>"ok" then
response.write("<script>alert('登陆超时!')</script>") 
response.write "<meta http-equiv='Refresh' content='0; URL=login.asp'>"
response.end
end if%>
<!--#include file="dbpath.asp"-->
<%
'### 一般设置修改 #######################
if request("type")="yb" then
set rs=server.createobject("adodb.recordset")
sql="select * from admin"
rs.open sql,conn,1,3
rs("pagesize")=request.form("pagesize")
rs("email")=request.form("email")
rs("webname")=request.form("webname")
rs.Update
rs.close
set rs=nothing
response.write("<script>alert('一般设置修改更改完成！')</script>")
response.write "<meta http-equiv='Refresh' content='0; URL=admmain.asp'>"
'### 管理员修改管理密码 ###############               
elseif request("type")="pwd" then
 if request.form("pwd")="" or request.form("user")="" then
 response.write("<script>alert('用户名和密码都不能为空!');history.go(-1)</script>")
 response.end
 end if               
set rs=server.createobject("adodb.recordset")               
sql="select * from admin"               
rs.open sql,conn,1,3               
rs("user")=request.form("user")               
rs("pwd")=request.form("pwd")               
rs.Update               
rs.close                
set rs=nothing               
response.write("<script>alert('密码修改完成！')</script>")               
response.write "<meta http-equiv='Refresh' content='0; URL=admmain.asp'>"
'### 修改页面/广告 ###############               
elseif request("type")="ads" then
set rs=server.createobject("adodb.recordset")               
sql="select * from admin"               
rs.open sql,conn,1,3               
rs("ad1")=request.form("ad1")               
rs("ad2")=request.form("ad2")               
rs.Update               
rs.close                
set rs=nothing               
response.write("<script>alert('页面/广告修改完成！')</script>")               
response.write "<meta http-equiv='Refresh' content='0; URL=admmain.asp'>"
'### 增加地区 #######################
elseif request("type")="add" then
if request.form("name")="" then errmsg=errmsg & "请填写要增加的类别名！\n"
if request.form("type_type")="" then errmsg=errmsg & "请填写要增加的类别编号！\n"
Set rsc = Conn.Execute("select * from type where name = '" & request.form("name") & "'")
if not rsc.eof then errmsg=errmsg & "类别名称已存在!\n"
Set rsc = Conn.Execute("select * from type where type = '" & request.form("type_type") & "'")
if not rsc.eof then errmsg=errmsg & "类别编号已存在!\n"
if errmsg<>"" then
    Conn.Close
    Set conn = nothing
    Set rsc = nothing
    response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
    response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from type where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("name")=request.form("name")
rs("type")=request.form("type_type")
rs.update
rs.close
conn.close
set conn=nothing
response.write("<script>alert('增加类别完成!')</script>")
response.write "<meta http-equiv='Refresh' content='0; URL=admmain.asp?type=type'>"
'### 修改类别 #######################
elseif request("type")="edit" then
  if request.form("type_type")="" or request.form("type_type")="" or request("type_type")="" then
  response.write("<script>alert('类别名/编号都不能为空!');history.go(-1)</script>")
  response.end
  end if
set rs=server.createobject("adodb.recordset")
sql="select * from type where type='"&request("type_type")&"'"
rs.open sql,conn,1,3
rs("name")=request.form("name")
rs("type")=request.form("type_type")
rs.Update
rs.close 
set rs=nothing
sql="select * from link where type='"&request("type_type")&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,3
do while not rs.eof
rs("type")=request.form("type_type")
rs.update
t=t+1
if t>=rs.recordcount then exit do
rs.movenext
loop
response.write("<script>alert('成功修改，已经有关编号为“"&request("type_type")&"”的网站全修改成编号:“"&request.form("type_type")&"”了!')</script>")
response.write "<meta http-equiv='Refresh' content='0; URL=admmain.asp?type=type'>"
'### 删除地区#################
elseif request("type")="del" then
set rs=server.CreateObject("ADODB.RecordSet")
			rs.open "delete * from type where id="+request("id"),conn,1
			rs.close
sqld="delete from link where type='"&request("type_type")&"'"
conn.execute sqld
response.write("<script>alert('成功删除有关编号“"&request("type_type")&"”的网站!')</script>")
response.write "<meta http-equiv='Refresh' content='0; URL=admmain.asp?type=type'>"
'### 操作错误 ###############
else
response.write("<script>alert('■操作错误!');history.go(-1)</script>")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>