📄 accountlist.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("AdminName")="" then
Response.Redirect "admin_login.asp"
end if
%>
<%
if request("delid")<>"" then
dim delid
delid=request("delid")
sql = "Select * FROM account "
rs.open sql,conn,1,1
sql="delete from account where id like '"&delid&"'"
conn.execute(sql)
rs.close
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('删除成功,');" & VbCrlf
response.write "</script>" & VbCRLF
end if
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="">
<table width="684" border="0" align="center">
<tr>
<td> </td>
</tr>
<tr>
<td>
<table width="679" border="0" bgcolor="#E8E8F9">
<tr bgcolor="#000000">
<td width="53" height="18">
<div align="center"><b><font size="2" color="#FFFFFF">编号</font></b></div>
</td>
<td width="175" height="18">
<div align="center"><b><font size="2" color="#FFFFFF">帐户邮件</font></b></div>
</td>
<td width="114" height="18">
<div align="center"><b><font size="2" color="#FFFFFF">smartpit</font></b></div>
</td>
<td width="114" height="18">
<div align="center"><b><font size="2" color="#FFFFFF">帐户金额</font></b></div>
</td>
<td width="201" height="18">
<div align="center"><b><font size="2" color="#FFFFFF">帐户管理</font></b></div>
</td>
</tr>
<%
Sql="Select * FROM account"
Rs.Open Sql,Conn,3,3
do while not rs.eof
%>
<tr bgcolor="#F5F5F5">
<td width="53" height="12"><font size="2"><%=rs("id")%></font></td>
<td width="175" height="12"><font size="2"><%=rs("account_id")%></font></td>
<td width="114" height="12"><font size="2"><%=rs("smartpit")%></font></td>
<td width="114" height="12"><font size="2"><%=rs("amount")%></font></td>
<td width="201" height="12">
<table width="199" border="0" height="25" cellspacing="0" cellpadding="0">
<tr>
<td height="17"><font size="2"><img src="images/File.gif" width="20" height="20"><a href="account.asp?accountid=<%=rs("account_id")%>&act=search">察看</a></font></td>
<td height="17"><font size="2"><img src="images/code.gif" width="20" height="20"><a href="turnover.asp?id=<%=rs("account_id")%>" target="_blank">流水</a></font></td>
<td height="17"><font size="2"><img src="images/Delete.gif" width="20" height="20"><a href="accountlist.asp?delid=<%=rs("id")%>">删除</a></font></td>
</tr>
</table>
</td>
</tr>
<%
if not rs.eof then
rs.movenext
else
exit do
end if
loop
%>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -