<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'** 版权所有：烈火工作室 演示网站http://www.strongfire.cn **
'** QQ:839225572 邮箱：strongfire2008@163.com **
'** 非正版用户不得擅自非法修改用于商业用途！查出必究。 **
'****************************************************************
%>
<%
act=Request("act")
id=Request("id")
user=Request("user")
password=Request("password")
if act="add" then
if (user<>"" and password<>"") then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="Select * From admin Where user='"&user&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.Write ""
else
rs.addnew
rs("user")=user
rs("password")=md5(password)
rs.update
end if
rs.close
set rs=nothing
end if
end if
if act="del" then
conn.execute("delete from admin where ID="&ID)
end if
if act="modify" then
sql="update Admin set password='" & md5(Password) & "' where id=" & id
conn.execute(sql)
end if
%>
修改信息列表
管理员列表
ID号
用户名
修改
删除
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from admin order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
%>