📄 host_admin.asp

📁 九酷网络个人主页系统破解版
💻 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 
%>
<a href="host_add.asp">添加空间类型</a>
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <tr class="a1"> 
    <td width="6%" height="25" align="center"> ID</td>
    <td width="14%" align="center">名 称</td>
    <td width="11%" align="center">类 型</td>
    <td width="14%" align="center">空间大小</td>
    <td width="13%" align="center">价格</td>
    <td width="17%" align="center">可使用天数</td>
    <td width="10%" align="center">修改</td>
    <td width="15%" align="center">删除</td>
  </tr>
  <% 
  j=0
  do while not rs.eof  
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
   %>
  <tr class="<%=a%>"> 
    <td align="center"><font color="#FF0000"><%= rs("id") %></font></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>
  <%
  j=j+1
  rs.movenext
  loop
  rs.close
  set rs=nothing%>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -