?? adminmain.asp
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin") = "" then%>
<script language=vbscript>
alert ("系統超時或驗證錯誤,請重新登陸!")
location.href = "index.asp"
</script>
<%
End if
%>
<titleLMPEP聯盟管理后臺</title>
<link rel="stylesheet" type="text/css" href="main.css">
</head>
<body bgcolor="#FFD89D" topmargin="2">
<!--#include file="conn.asp"-->
<!--#include file="Search.asp"-->
<!--#include file="pageCls.asp"-->
<%
const MaxPerPage=100
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim idlist
dim title,scname
scname=Request.ServerVariables("SCRIPT_NAME")
title=request("txtitle")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
%>
<p align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFD89D">
<tr>
<td height="20" colspan="10" align="center">
<div id="bodyframe" style="VISIBILITY: hidden">
<IFRAME frameBorder=0 id=heads src="IP.asp" style="HEIGHT: 78px; LEFT: 250px; POSITION: absolute; TOP: 0px; WIDTH: 55%"></IFRAME>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFD89D">
<form name="form1" method="get" action="Search.asp">
</form>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFD89D">
<tr>
<td align=right width=20%>
<a href="ChangeMyPass.asp" target="_blank"><div style="cursor: hand;"><font color="#000000">[更改登陸密碼]</font></div></a>
</td>
<td align=right width=20%>
<a href="info.asp" target="_blank"><div style="cursor: hand;"><font color="#000000">[系統設置]</font></div></a>
</td>
<td align=right width=10%>
<a href="adminmain.asp">[收取信件]</a></font></strong>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFD89D">
<!--DWLayoutTable-->
<form name="form2" method="post" action="">
<tr>
<td height="24" colspan="8" align="center" bgcolor="#FFC671"><strong><font color="#000000">游戲帳號列表</font></strong></td>
</tr>
<%
dim mypage
Set Rs=Server.createobject("adodb.recordset")
Set mypage=new pageShow '創建對象
mypage.getconn=conn '得到數據庫連接
mypage.GetSQL=Sql
mypage.pagesize=20
mypage.ListNum=20
Set Rs=mypage.GetRs()
If mypage.isReady then
%>
<tr bgcolor="#FFFBEF">
<td height="22" colspan="8"><% mypage.pageNav()%></td>
</tr>
<tr align="center" bgcolor="#FFF8EC">
<td width="3%" height="25"><font color="Red"><STRONG>ID</STRONG></font></td>
<td width="155" valign="top"><font color="Red">帳號</font></td>
<td width="152" valign="top"><font color="Red">密碼</font></td>
<td width="154" valign="top"><font color="#FF0000">密保</font></td>
<td width="113" valign="top"><font color="#FF0000">問題</font></td>
<td width="146" valign="top"><font color="#FF0000">答案</font></td>
<td width="15%"><font color="Red">發送時間</font></td>
<td width="5%"><font color="Red"><input type='submit' class=buttonface value='刪 除'></font></td>
</tr>
<%
For i=1 To mypage.pagesize
If Rs.eof Then Exit For
id=rs("id")
bcolor="#FFF8EC"
%>
<tr align="center" bgcolor="<%=bcolor%>">
<td height="24"><%=rs("ID")%></td>
<td valign="top"><%=rs("user_name")%></td>
<td valign="top"><%=rs("user_pass")%></td>
<td valign="top"><%=rs("password")%></td>
<td valign="top"><%=rs("wt")%></td>
<td valign="top"><%=rs("aa")%></td>
<td><%=rs("user_sj")%></td>
<td width="5%" bgcolor="#FFF8EC">
<input type='checkbox' name='selAnnounce' value='<%=cstr(rs("ID"))%>'> </td>
</tr>
<%
Rs.movenext
Next
%>
<tr bgcolor="#FFFBEF">
<td height="22" colspan="8"><% mypage.pageNav()%></td>
</tr>
<%
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from list where id="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "刪除用戶失敗!<br>"
else
response.write "刪除用戶成功！<br>"
end if
End sub
%>
<%
Else
response.Write("<tr align='center'><td height='20'>對不起沒有找到符合要求的帳號</td></tr>")
End If
Set Rs=Nothing
Set mypage=Nothing
conn.close
Set conn=nothing
%>
</form>
</table>
</p>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -