📄 host_admin.asp
字号:
<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<!--#include file="admin.asp"-->
<%
if Trim(Request.QueryString("delid"))<>"" then
chk_admin_login(3)
sql="delete from host where id="&Request.QueryString("delid")
conn.execute(sql)
response.write "<SCRIPT language=JavaScript>alert('删除成功！');"
response.write"this.location.href='host_admin.asp';</SCRIPT>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../css/admin.css" rel="stylesheet" type="text/css">
<script language=javascript>
function ConfirmDel()
{
if(confirm("确定要删除吗？\n\n删除将造成所有此类型空间的用户网站无法登录及访问！"))
return true;
else
return false;
}
</script>
</head>
<body>
<%
rs.open "select * from host order by id asc",conn,1,1
if rs.eof and rs.bof then
response.write"<center><br><br>目前暂无记录，<a href=host_add.asp>在此增加！</a></center>"
response.end
end if
%>
<table width="95%" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
<tr align="center" class="td-title-color">
<td colspan="8"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="shadow">空间类型管理</td>
</tr>
</table> </td>
</tr>
<tr>
<td colspan="8"><a href="host_add.asp"><img src="images/addnew.jpg" width="126" height="24" border="0"></a></td>
</tr>
<tr class="td-title-color">
<td width="6%" height="17">
<div align="center">编号</div></td>
<td width="14%"><div align="center">名 称</div></td>
<td width="11%"><div align="center">类 型</div></td>
<td width="14%" align="center">空间大小</td>
<td width="13%"><div align="center">价格</div></td>
<td width="17%"><div align="center">可使用天数</div></td>
<td width="10%"><div align="center">修改</div></td>
<td width="15%" align="center">删除</td>
</tr>
<%
while not rs.eof
%>
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td> <div align="center"><font color="#FF0000"><%= rs("id") %></font></div></td>
<td><%= rs("name") %></td>
<td align="center"><% select case rs("type")
case "free"
Response.Write "免费空间"
case "vip"
Response.Write "收费空间"
End select
%></td>
<td align="center"><%= rs("space") %>M</td>
<td align="center"><font color="#FF0000"><%
if rs("price")<>"0" then
Response.Write ""&rs("price")&"元/年"
else
Response.Write "免费"
end if%></font></td>
<td align="center"><%
if rs("usedays")<>"0" then
Response.Write ""&rs("usedays")&"天"
else
Response.Write "无限制"
end if%>
</td>
<td align="center"><a href="host_edit.asp?id=<%= rs("id") %>">修改</a></td>
<td align="center"><a href="host_admin.asp?delid=<%=rs("id")%>" onClick="return ConfirmDel()">删除</a></td>
</tr>
<% rs.movenext
wend
rs.close %>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -