?? admin_admin.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="tcconn.asp" -->
<%
if request.Cookies("flag")<>"loginok" then
response.write "<script language=JavaScript>{window.alert('網絡超時或你還未登錄，請重新登陸!');window.location.href='index.htm';}</script>"
response.end
end if
uid=request.Cookies("adminuser")
select case request("ac")
case "edit"
call admin_edit()
case "add"
call admin_add()
case "del"
call admin_del()
end Select
%>
<html>
<head>
<title>重慶文理學院教師業務管理系統</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta http-equiv="keywords" content="蘭州理工大學石油化工學院學院，明星設計，lyz.cn@126.com,L.Y.Z">
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body background="img/bg.gif" topmargin="0" leftmargin="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#99CC00">
<tr>
<td height="30"> </td>
</tr>
<tr>
<td><img src="img/admin_top.gif" width="778" height="66"></td>
</tr>
<tr>
<td> 您現在正在操作：<span class="style8">管理帳戶</span></td>
</tr>
<tr>
<td>
<table width="754" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/admin_admin.gif" width="754" height="27"></td>
</tr>
<tr>
<td background="img/table_bg.gif">
<form name="form1" method="post" action="">
<table width="754" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="115"> </td>
<td width="60"><input name="ac" type="hidden" id="ac" value="edit"></td>
<td width="130"> </td>
<td width="85"> </td>
<td width="153"> </td>
<td width="58"> </td>
<td width="65"> </td>
<td width="88"> </td>
</tr>
<%set rs=conn.execute("select * from admin where admin_name='"&uid&"'")%>
<tr>
<td> </td>
<td>用戶名:</td>
<td><input name="txt_id" type="text" id="txt_id" value="<%=rs("admin_name")%>" size="20"></td>
<td align="center">密碼：</td>
<td> <input name="txt_pwd" type="text" id="txt_pwd" value="<%=rs("admin_pwd")%>" size="20"></td>
<td><input name="btm01" type="submit" id="btm01" value="修改"></td>
<td><input name="btm02" type="reset" id="btm02" value="重置"></td>
<td> </td>
</tr>
<%set rs=nothing%>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td background="img/table_btom.gif"> </td>
</tr>
</table>
<table width="754" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/admin_add.gif" width="754" height="27"></td>
</tr>
<tr>
<td background="img/table_bg.gif">
<form name="form2" method="post" action="">
<table width="754" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="115"> </td>
<td width="60"><input name="ac" type="hidden" id="ac" value="add"></td>
<td width="130"> </td>
<td width="85"> </td>
<td width="153"> </td>
<td width="58"> </td>
<td width="65"> </td>
<td width="88"> </td>
</tr>
<tr>
<td> </td>
<td>用戶名:</td>
<td><input name="txt_id" type="text" id="txt_id" size="20"></td>
<td align="center">密碼：</td>
<td><input name="txt_pwd" type="text" id="txt_pwd" size="20"></td>
<td><input name="btm03" type="submit" id="btm03" value="添加"></td>
<td><input name="btm04" type="reset" id="btm04" value="重置"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td background="img/table_btom.gif"> </td>
</tr>
</table>
<table width="754" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/admin_del.gif" width="754" height="27"></td>
</tr>
<tr>
<td background="img/table_bg.gif">
<table width="754" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="113"> </td>
<td width="152"> </td>
<td width="119"><b>用戶名</b></td>
<td width="18"> </td>
<td width="138"><b>刪除</b></td>
<td width="56"> </td>
<td width="63"> </td>
<td width="95"> </td>
</tr>
<%
set rs=conn.execute("select * from admin")
while not rs.eof
%>
<tr>
<td> </td>
<td> </td>
<td><%=rs("admin_name")%></td>
<td align="center"> </td>
<td><input type="button" value="刪除" onClick="if (confirm('確實要此條記錄嗎？')) window.location='admin_admin.asp?ac=del&id=<%=rs("admin_id")%>'" style="font-family: 新細明體, 宋體, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver="this.style.backgroundColor='#FFC864'" onMouseOut="this.style.backgroundColor='#D4D0C8'"></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
rs.MoveNext
wend
set rs=nothing
%>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td background="img/table_btom.gif"> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
<%
sub admin_edit()
admin_name=request("txt_id")
admin_pwd=request("txt_pwd")
conn.execute("update admin set admin_name='"&admin_name&"',admin_pwd='"&admin_pwd&"' where admin_name='"&uid&"'")
response.write "<script language=JavaScript>{window.alert('修改成功,請重新登陸！');window.location.href='index.htm';}</script>"
response.end
end sub
sub admin_add()
admin_name=request("txt_id")
admin_pwd=request("txt_pwd")
conn.execute("insert into admin(admin_name,admin_pwd)values('"&admin_name&"','"&admin_pwd&"')")
response.write "<script language=JavaScript>{window.alert('添加成功!');window.location.href='admin_admin.asp';}</script>"
response.end
end sub
sub admin_del()
admin_id=request("id")
conn.execute("delete * from admin where admin_id="&admin_id&"")
if admin_id=uid then
response.write "<script language=JavaScript>{window.alert('成功刪除自身帳戶!請用另一帳號重新登陸!');window.location.href='index.htm';}</script>"
response.end
end if
response.write "<script language=JavaScript>{window.alert('成功刪除!');window.location.href='admin_admin.asp';}</script>"
response.end
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -