📄 yp.asp
字号:
<!--#include file="../../include/conn.asp"-->
<!--#include file="../cook.asp"-->
<%
if request("Submit")="删 除" then
call ADSGM()
end if
response.Write"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
response.Write"<script>"
response.Write"function CheckAll(form) {"
response.Write" for (var i=0;i<form.elements.length;i++) {"
response.Write" var e = form.elements[i];"
response.Write" if (e.name != 'chkall') e.checked = form.chkall.checked; "
response.Write" }"
response.Write" }"
response.Write"</script>"
response.Write"<script>"
response.Write"function oa_tool1(){"
response.Write"window.parent.mm.rows=""200,10,*"";"
response.Write"}"
response.Write"</script>"
response.Write"<LINK href=""../css.css"" type=text/css rel=stylesheet>"
response.Write"<body style=""margin:5"">"
response.Write"<table width='99%' border='1' align='center' cellpadding='0' cellspacing='0' "
response.Write"bordercolorlight='#cccccc' bordercolordark='#FFFFFF'><form name='form1' method='post' action='yp.asp'>"
response.Write"<tr align=center bgcolor=#efefef><td height=25 align=center>请输入你要查找的用户名："
response.Write" <input name='word' type='text' size='40'> "
response.Write" <input type='submit' name='Submit' value='会员搜索'> "
response.Write" <a href='yp.asp?key=2'>已关闭</a> <a href='yp.asp?key=1'>推荐</a> <a href='yp.asp?key=0'>正常</a> "
response.Write"<a href='yp.asp'>所有</a></td></tr><tr align=center bgcolor=#efefef><td height=25 align=center> "
response.Write"</td></tr></form></table>"
response.Write"<table width='99%' border='1' align='center' cellpadding='0' cellspacing='0' bordercolorlight='#cccccc'"
response.Write" bordercolordark='#FFFFFF'><form name='from1' method='post' action='yp.asp?word="&request("word")&""
response.Write"&vip="&request("vip")&"&cha="&request("cha")&"&chag="&request("chag")&"&key1="&request("key1")&""
response.Write"&key2="&request("key2")&"'><tr align=center bgcolor=#efefef>"
sql="select * from "&WebSqlType&"_Member where "&WebSqlType&"_username like'%"&request("word")&"%' "
if clng(request("key"))<>"" then
sql=sql&" and "&WebSqlType&"_key="&trim(clng(request("key")))&""
end if
sql=sql&" order by "&WebSqlType&"_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无内容"
else
'分页的实现
listnum=23
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
response.Write"<td width='5%' height=30>编号</td><td width='21%' align='left'> 用户名</td><td width='5%'>性别</td>"
response.Write"<td width='9%'>注册时间</td><td width='16%' align='left'> 最后登录时间</td><td width='15%' align='left'>"
response.Write" 地区</td><td width='8%'>人气/登录</td><td width='5%'>积分</td><td width='6%'>状态</td>"
response.Write"<td width='5%'>操作</td><td width='5%'>选择</td></tr>"
do while not rs.eof and i<listnum
n=n+1
sql1="select * from "&WebSqlType&"_ypaddtwo where "&WebSqlType&"_addtwo_ID="&rs(""&WebSqlType&"_ypaddtwo")
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
else
addone=rs1(""&WebSqlType&"_addone")
addtwo=rs1(""&WebSqlType&"_addtwo")
rs1.close
end if
response.Write"<tr align=center height=22 "
if n mod 2=0 then
response.Write"bgcolor='#F4F4F4'"
end if
response.Write"> <td height='25'>"&n&"</td> <td align=left> "
response.Write" <a href='/space/index.asp?id="&rs(""&WebSqlType&"_id")&"' target='_blank'>"&rs(""&WebSqlType&"_username")&""
if rs(""&WebSqlType&"_realname")<>"" then
response.Write"(<font color=red>"&rs(""&WebSqlType&"_realname")&"</font>)"
end if
response.Write"</a></td> <td> "&rs(""&WebSqlType&"_sex")&"</td> <td> "&year(rs(""&WebSqlType&"_date"))&""
response.Write"-"&month(rs(""&WebSqlType&"_date"))&"-"&day(rs(""&WebSqlType&"_date"))&"</td>"
response.Write" <td align='left'> "&trim(rs(""&WebSqlType&"_Edate"))&"</td>"
response.Write"<td align='left'> "&addone&"、"&addtwo&"</td>"
response.Write" <td>"&rs(""&WebSqlType&"_htc")&" / "&rs(""&WebSqlType&"_Ehtc")&"</td> <td>"&rs(""&WebSqlType&"_"&WebSqlType&"")&"</td>"
response.Write"<td>"
if trim(rs(""&WebSqlType&"_key"))=0 then
response.Write"<font color=#000000>正常</font>"
end if
if trim(rs(""&WebSqlType&"_key"))=1 then
response.Write"<font color=#006600>推荐</font>"
end if
if trim(rs(""&WebSqlType&"_key"))=2 then
response.Write"<font color=red>关闭</font>"
end if
response.Write"</td> <td><a href=lx.asp?id="&rs(""&WebSqlType&"_id")&" onClick=""oa_tool1()"" target=top>操作</a></td>"
response.Write"<td><input type='checkbox' name='ID' value='"&rs(""&WebSqlType&"_id")&"' style=""border:0""></td></tr>"
rs.movenext
i=i+1
j=j-1
loop
response.Write"<tr>"
filename="yp.asp?word="&request("word")&""
response.Write"<td colspan=11 height=30 align=right bgcolor=#cccccc>"&Rs.recordcount&" 个会员 "&listnum&""
response.Write"个会员/页 共 "&Rs.pagecount&" 页 "
if page=1 then
else
response.Write"<a href="&filename&"><strong>|<<</strong></a> "
response.Write"<a href="&filename&"&page="&page-1&"><strong><<</strong></a> "
response.Write"<a href="&filename&"&page="&page-1&"><b>["&page-1&"]</b></a> "
end if
if Rs.pagecount=1 then
else
response.Write"<b>["&page&"]</b> "
end if
if Rs.pagecount-page <> 0 then
response.Write"<a href="&filename&"&page="&page+1&"><b>["&page+1&"]</b></a> "
response.Write"<a href="&filename&"&page="&page+1&"><strong>>></strong></a> "
response.Write"<a href="&filename&"&page="&Rs.pagecount&"><strong>>>|</strong></a> "
end if
response.Write" <input name='chkall' type='checkbox' id='chkall' value='select' onClick=""CheckAll(this.form)"" "
response.Write"style='border:0'> 全选 <input type='submit' name='Submit' value='删 除'> </td>"
end if
response.Write"</tr></form></table>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -