edmin_save.asp

admin/admin.asp是WAP的后台管理登陆页面

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>2 then
		response.write "<br/><p align='center'>&#x60A8;&#x6CA1;&#x6709;&#x64CD;&#x4F5C;&#x7684;&#x6743;&#x9650;</p>"
		response.end
	end if
  end if

%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<!-- #include file="conn.asp" -->
<!-- #include file="char.asp" -->
<%
 if request("types")="addname" then
 if request("name1")="" then
  response.redirect "error1.asp?err_on=7"
 elseif request("pass1")="" then
  response.redirect "error1.asp?err_on=8"
 else
  set rs1=server.createobject("adodb.recordset")
  sql1="select * from admin"
  rs1.open sql1,conn,3,3
  rs1.addnew
  rs1("username")=request("name1")
  rs1("password")=request("pass1")
  rs1("flag")=request("flag1")
  rs1("shouji")=request("shouji1")
  rs1.update
  rs1.close
  set rs1=nothing
 end if
response.redirect "edmin.asp"
end if
%>
<%
if request("types")="mod" then
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id="&request("id")
rs.open sql,conn,3,3
rs("username")=request("username")
rs("password")=request("password")
rs("shouji")=request("shouji")
rs("flag")=request("flag")
rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
response.redirect "edmin.asp"
end if
if request("types")="del" then
 sql="delete from admin where id="&request("id")
 conn.execute(sql)
response.redirect "edmin.asp"
 end if
%>
<%
if request("types")="mymod" then
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id="&request("id")
rs.open sql,conn,3,3
rs("username")=request("username")
rs("password")=request("password")
rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
response.redirect "mjok.asp"
end if
%>