📄 managenews.asp
字号:
<!--#include file="../common/conn.asp"-->
<!--#include file="util.asp"-->
<%
if request("delid")<>"" and request("act")="del" then
sql="delete from admin where id="&request("delid")
conn.execute(sql)
end if
if request("hidd")="ok" then
Products = Split(Request("checkUser"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
code = ProductList
sql="update admin set hits=0 where id in("& code &")"
'response.Write(productList)
'response.End()
conn.execute(sql)
end if
key=trim(request("key"))
if key<>"" then
sql="select * from admin where (company like '%"&key&"%') order by puttime desc"
else
sql="select * from admin where hits=1 order by id desc"
end if
PageSize = 30
If Request("page") ="" Then
page=1
Else
page=Int(Abs(Request("page")))
End if
rs.open sql,conn,3,2
if not rs.eof then
rs.PageSize = PageSize
TotalPage = rs.PageCount
rs.absolutepage = page
total= rs.RecordCount
end if
%>
<html>
<head>
<title>已审核用户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="Description" CONTENT="">
<link rel="stylesheet" href="../images/font.css" type="text/css">
<link href="../users/.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function CheckAll()
{
for(i=0;i<form1.length;i++)
if(form1[i].type=="checkbox")
form1[i].checked=true;
Compute();
}
function UnCheckAll()
{
for(i=0;i<form1.length;i++)
if(form1[i].type=="checkbox")
form1[i].checked=false;
Compute();
}
function nw(url)
{
window.open(url,'','top=10,left=20,width=450,height=400,scrollbars=0,resizable=0');
}
</script>
</head>
<body bgcolor="#FED17E" text="#ffffff" background="../images/bgpic.gif">
<br>
<table width="90%" border="0" cellspacing="2" cellpadding="0" align="center">
<tr>
<td bgcolor="">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="bottom">
<div align="center">
<p align="left"> <span class="unnamed1">已审核用户：</span></p>
</div>
</td>
</tr>
</table>
<br>
</td>
</tr>
<tr>
<td bgcolor="">
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="">
<form action="managenews.asp" method=post name="form1">
<tr>
<td width="15%" height="20" bgcolor="#E7E7E7" class="unnamed1"> <div align="center"><font color="#666666">用户名
<input name="hidd" type="hidden" id="hidd" value="ok">
</font></div></td>
<td width="32%" height="20" align="center" bgcolor="#E7E7E7" class="unnamed1"><font color="#666666">厂家名称</font></td>
<td width="21%" height="20" bgcolor="#E7E7E7" class="unnamed1"> <div align="center">厂家位置</div></td>
<td width="13%" height="20" bgcolor="#E7E7E7" class="unnamed1"><div align="center">注册日期
</div></td>
<td width="10%" height="20" bgcolor="#E7E7E7" class="unnamed1"> <div align="center"><font color="#666666">
<input type="submit" name="Submit" value="撤 消">
</font></div></td>
<td width="9%" bgcolor="#E7E7E7" class="unnamed1"> <div align="center">管理</div></td>
</tr>
<%
for i=1 to rs.pagesize
while not rs.eof
%>
<tr bgcolor="">
<td width="15%" height="20" align="center" class="unnamed1"><%=rs("name")%></td>
<td width="32%" height="20" align="center" class="unnamed1"><a href="#" onClick="nw('show.asp?id=<%=rs("id")%>')"><%=rs("company")%></a></td>
<td width="21%" height="20" align="center" class="unnamed1"><%=rs("address")%></td>
<td width="13%" height="20" align="center" class="unnamed1"> <%=rs("puttime")%></td>
<td width="10%" height="20" align="center" class="unnamed1">
<input name="checkUser" type="checkbox" value="<%=rs("id")%>"> </td>
<td width="9%" height="20" align="center" class="unnamed1"><a href="managenews.asp?delid=<%=rs("id")%>&act=del&page=<%=page%>" onClick="var a=confirm('确实要删除吗？');if(a==0) return(false);">删除</a></td>
</tr>
<%
rs.movenext
wend
next
%>
<tr bgcolor="">
<td height="18" colspan="8" class="unnamed1"> <%
If totalpage=1 Then
Response.write "·共有1页·"
End If
If Not Page=1 Then
Response.write "<a href=managenews.asp?page=1>首页</a> "
Response.write "<a href=managenews.asp?page="&Cstr(Page-1)&">前页</a> "
Else
Response.write "首页 "
Response.write "前页 "
End If
If Not Page=totalpage Then
Response.Write "<a href=managenews.asp?page="&Cstr(Page+1)&">后页</a> "
Response.Write "<a href=managenews.asp?page="&PageCount&">尾页</a>"
Else
Response.Write "后页 "
Response.Write "尾页"
End If
%> <%rs.close%> </td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td bgcolor="">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form method="post" action="managenews.asp">
<tr bgcolor="#E7E7E7">
<td width="20%" bordercolor="#FFFFFF" class="unnamed1">
<div align="center"><font color="#666666">搜索：</font></div>
</td>
<td class="unnamed1">
<input type="text" name="key" class="button">
<input type="submit" value="搜索" class="button">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -