⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_type.asp

📁 发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~
💻 ASP
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
'检查管理员是否登录
AdminName = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
	Response.Redirect "Admin_login.asp"
End If
dim paixu
%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<LINK href="image/style.css" rel=stylesheet>
<title><%=webname%></title>
<script language=javascript>
function ConfirmDel()
{
   if(confirm("确定要删除此分类吗?\n相关的私服务、家族信息均会被删除!\n此操作不可恢复哦!确定吗?!?"))
     return true;
   else
     return false;
}
</script>
</head>
<body leftMargin=0 bgcolor="#EFEFEF" topMargin=15>
<table width="320"  border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#333333">
  <tr align="center" bgcolor="#EFEFEF">
    <td><b>名称</b></td>
    <td><b>排序</b></td>
    <td><b>操作</b></td>
  </tr>
<%
set rs = server.CreateObject("adodb.recordset")
sql="select * from Gametype order by orderid"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write "<tr bgColor=#FFFFFF><td colspan=3 align=center>当前没有游戏类型,请添加后再操作。</td></tr>"
else
	do while not rs.eof
%>
  <form action=admin_type_edit.asp method=post language="javascript">
  <tr>
    <td align="center" bgcolor="#FFFFFF"><input name="game" type="text" id="game" value="<%=rs("game")%>"></td>
    <td align="center" bgcolor="#FFFFFF"><input name="orderid" type="text" id="orderid" value="<%=rs("orderid")%>" size="5" maxlength="5"></td>
    <td bgcolor="#FFFFFF"><input type="hidden" name="options"><input name="id" type="hidden" id="id" value="<%=rs("id")%>">
    <input name="edittype" type="submit" id="edittype" value="修改" onclick="form.options.value='edit'">
    <input name="deltype" type="submit" id="deltype" value="删除" onclick="form.options.value='del';return ConfirmDel();"></td>
  </tr>
  </form>
<%
	rs.movenext
	loop
	paixu=rs.RecordCount
	rs.close
end if
%>
  <tr bgcolor="#FFFFFF">
    <td height="5" colspan="3"></td>
  </tr>
  <form action=admin_type_edit.asp method=post>
  <tr bgcolor="#EFEFEF">
    <td align="center"><input name="game" type="text" id="game" maxlength="14"></td>
    <td align="center"><input name="orderid" type="text" id="orderid" value="<%=paixu+1%>" size="5" maxlength="5"></td>
    <td><input name="newtype" type="submit" id="newtype" value="添加类型" onclick="form.options.value='add'">
      <input type="hidden" name="options"></td>
  </tr>
  </form>
  <tr bgcolor="#FFFFFF">
    <td height="5" colspan="3"></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="3"><FONT color=red><b>注意:</b><br>
      &nbsp;&nbsp;&nbsp;&nbsp;1、“排序”栏一定<B>不能填写相同的序号</B>!<br>
      &nbsp;&nbsp;&nbsp;&nbsp;2、执行分类“删除”操作时,所有相关的私服、<br>
家族也将被删除,请慎重执行。</FONT></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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