📄 admin_user.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>admin</title>
</head>
<body>
<p><font color="#0000FF"><%response.write "帐号管理:"%></font></p>
<form method="POST" action="admin_user.asp">
<%
set newconn=server.createobject("adodb.connection")
DBpath=server.mappath("football.mdb")
newconn.open"driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
newcmd="select * from key where name<>'Tony_2002sh' order by enddate"
set newrst=newconn.execute(newcmd)
%>
<table border="1" width="100%">
<tr>
<td width="25%">编号</td>
<td width="25%">帐号</td>
<td width="25%">密码</td>
<td width="25%">结束日期</td>
</tr>
<%do while not newrst.eof%>
<tr>
<td width="25%"><%=newrst(0)%></td>
<td width="25%"><%=newrst(1)%></td>
<td width="25%"><%=newrst(2)%></td>
<td width="25%"><%=newrst(3)%></td>
</tr>
<%newrst.movenext%>
<%loop%>
<%newrst.close%>
</table>
<p><input type="text" name="T1" size="15"><input type="text" name="T2" size="15"><input type="text" name="T3" size="15"><input type="submit" value="添加帐号" name="B1"></p>
<p><input type="text" name="T4" size="15"><input type="submit" value="删除帐号" name="B2"></p>
<p align="center"><input type="submit" value="刷 新" name="B3"></p>
</form>
<%
if request("B1")="添加帐号" then
aaa=request("T1")
aaa=aaa & "T1"
if aaa<>"T1" then
name=request("T1")
key=request("T2")
riqi=request("T3")
SQLcmd="Insert into key(name,key,enddate) values('" & name & "','" & key & "','" & riqi & "')"
newconn.execute SQLcmd
end if
end if
aaa=""
%>
<%
if request("b2")="删除帐号" then
aaa=request("T4")
aaa=aaa & "T16"
if aaa<>"T16" then
number=request("T4")
SQLcmd="delete * from key where ID=" & number
newconn.execute SQLcmd
end if
end if
aaa=""
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -