📄 admin_webno.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="admin_popedom.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/css.css" rel="stylesheet" type="text/css">
<title>『驴友俱乐部』网站管理系统</title>
<style type="text/css">
<!--
body {
background-color: #efe8d7;
margin-left: 15px;
}
-->
</style>
</head>
<%if Request.QueryString("add")="yes" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from G_user where G_userid="&request("id")
rs.open sql,conn,1,3
rs("G_validate")="1"
rs.update
rs.close
response.redirect "admin_webno.asp?page="&request("page")
end if%>
<%if Request.QueryString("open")="yes" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from G_user where G_userid="&request("id")
rs.open sql,conn,1,3
rs("G_comein")="3"
rs.update
rs.close
response.redirect "admin_webno.asp?page="&request("page")
end if%>
<%
dim arrdel
dim sql
If Request.QueryString("del")="on" Then
arrdel=Request("id")
'Response.Write arrdel
sql="delete from G_user where G_userid in ("&arrdel&")"
'Response.Write sql
conn.Execute sql
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('亲爱的系统管理员，数据删除成功！请返回');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
End If
%>
<script>
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<SCRIPT language=javascript>
function ConfirmDel()
{
if(confirm("确定要删除选中的网站？一旦删除将不能恢复！"))
return true;
else
return false;
}
</SCRIPT>
<body><div align="center">
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width="780" align=center borderColorLight=#c89f7b border=1>
<tr>
<td height="30" align="center"><font color="#FF0000">『驴友俱乐部』</font>未审核网站列表</td>
</tr>
<tr>
<td height="30" align="center">
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr align="center"><form name="form" method="post" action="admin_webno.asp?del=on" onsubmit="return ConfirmDel();">
<td height="40" colspan="2">
<!--列表开始--><%
dim rs
dim page ,total
dim mypagesize
dim row_count
set rs=server.CreateObject("adodb.recordset")
rs.Source="select * from G_user where G_validate=0 order by G_userid desc"
rs.open rs.Source,conn,1,1
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
if rs.eof and rs.bof then
response.write "系统提醒您，暂无加盟网站！"
else
rs.pagesize =60
total = rs.RecordCount
mypagesize=rs.pagesize
rs.absolutepage = page%>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<%row_count=1 %>
<tr align="center">
<%dim i
i=1
do while not rs.eof and mypagesize>0%>
<td width="780" align="left"><table width="260" border="0" align="left" cellpadding="0" cellspacing="0">
<tr bgcolor="#C89F7B">
<td height="1" colspan="3" align="center"><!--表格高度1象素，谗嘴猫QQ：29771424--></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" colspan="3" align="center"><!--表格高度1象素，谗嘴猫QQ：29771424--></td>
</tr>
<tr>
<td width="25" height="24" align="center"><input name="id" type="checkbox" id="id" value="<%=rs("G_userid")%>"></td>
<td height="24"><span title="【QQ】<%=rs("G_userqq")%>【网站介绍】<%=rs("G_webinfo")%>"><a href="http://<%=rs("G_weburl")%>" target="_blank"><%=rs("G_webname")%></a></span></td>
<td width="35" height="24" align="center"><a href="admin_webno.asp?open=yes&id=<%=rs("G_userid")%>&page=<%=request("page")%>" onclick="{if(confirm('真的要直接开通该网站吗？')){return true;}return false;}" alt="直接开通该网站">开</a>|<a href="admin_webno.asp?add=yes&id=<%=rs("G_userid")%>&page=<%=request("page")%>" onclick="{if(confirm('真的要通过审核吗？')){return true;}return false;}" alt="审核该网站">审</a></td>
</tr>
</table></td>
<% if row_count mod 3 =0 then%>
</tr><%end if
row_count=row_count+1
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
end if%>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#C89F7B"></td>
</tr>
<tr>
<td height="1" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="24" align="center"><table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80" height="28" align="center">全部选中：</td>
<td width="50" height="28" align="center"><input type=checkbox name=chkall value=on onclick=CheckAll(this.form)>
</td>
<td width="120" height="28" align="center"><input type="submit" name="Submit" value="删除选中网站"></td>
<td height="28" align="center">
<!--分页开始-->
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TR>
<TD height=24 align=right>
<a href="admin_webno.asp?page=1">首页</a>
<%if page>1 then%>
<a href=admin_webno.asp?page=<%=page-1%>>上页</a>
<%else%>
上页
<%end if%>
<%=page%>
<%if page<rs.pagecount then%>
<a href=admin_webno.asp?page=<%=page+1%>>下页</a>
<%else%>
下页
<%end if%>
<a href=admin_webno.asp?page=<%=rs.pagecount%>>尾页</a>
</TD>
</TR>
</TABLE>
<!--分页结束--></td>
</tr>
</table></td>
</tr>
</table>
<!--列表结束-->
</td>
</form></tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -