📄 index.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 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'><table width='99%' border='1' align='center' cellpadding='0' cellspacing='0'"
response.Write" bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
response.Write"<form name='form1' method='post' action='index.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='index.asp?key=2'>关闭</a>　<a href='index.asp?key=1'>推荐</a>　<a href='index.asp?key=0'>正常</a>　"
response.Write"<a href='index.asp'>所有</a></td></tr><tr align=center bgcolor=#efefef><td height=25 align=center>&nbsp;"
response.Write"</td></tr></form></table><table width='99%' border='1' align='center' cellpadding='0' cellspacing='0' "
response.Write"bordercolorlight='#cccccc' bordercolordark='#FFFFFF'>"
response.Write"<form name='from1' method='post' action='index.asp?word="&request("word")&"'>"
response.Write"<tr align=center bgcolor=#efefef>"
if request("key")<>"" then
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_key="&request("key")&" order by "&WebSqlType&"_date desc"
elseif request("word")<>"" then
sql="select * from "&WebSqlType&"_club where "&WebSqlType&"_title like '%"&request("word")&"%' order by "&WebSqlType&"_date desc"
else
sql="select * from "&WebSqlType&"_club order by "&WebSqlType&"_date desc"
end if
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='4%' height=30>编号</td><td width='33%' align='left'>&nbsp;名称</td>"
response.Write"<td width='5%'>积分</td><td width='5%'> 人气</td><td width='5%'>成员</td>"
response.Write"<td width='19%' align='left'>&nbsp;地区</td><td width='16%' align='left'>&nbsp;注册时间</td>"
response.Write"<td width='5%'>状态</td><td width='4%'>操作</td><td width='4%'>选择</td></tr>"
do while not rs.eof and i<listnum
n=n+1
goname=rs(""&WebSqlType&"_webname")
goid=rs(""&WebSqlType&"_id")
if trim(rs(""&WebSqlType&"_addtwo"))<>0 then
sql1="select *  from "&WebSqlType&"_ypaddtwo where "&WebSqlType&"_addtwo_id="&rs(""&WebSqlType&"_addtwo")
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")
end if
rs1.close
end if 
%>
<!--#include file="../../dns/dns.asp"-->
<%
response.Write"<tr align=center height=22><td height='25'>"&n&"</td><td align=left>&nbsp;<a href='"&usertwourl&"' target='_blank'"
response.Write">"&rs(""&WebSqlType&"_title")&"</a></td><td>&nbsp;"&rs(""&WebSqlType&"_club")&"</td>"
response.Write"<td>&nbsp;"&rs(""&WebSqlType&"_htc")&"</td><td>&nbsp;"
call htc("select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&rs(""&WebSqlType&"_id")&"")
response.Write"</td> <td align='left'>&nbsp;"&addone&"/"&addtwo&"</td> <td align='left'>&nbsp;"&rs(""&WebSqlType&"_date")&"</td>"
response.Write"<td>"
if rs(""&WebSqlType&"_key")=1 then
response.write("<font color=#FF0000>推荐</font>")
elseif rs(""&WebSqlType&"_key")=2 then 
response.write("<font color=#0000FF>关闭</font>")
elseif rs(""&WebSqlType&"_key")=0 then 
response.write("<font color=#339966>正常</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="index.asp?word="&request("word")&""
response.Write"<td colspan=10 height=30 align=right bgcolor=#cccccc>"&Rs.recordcount&" 个圈子&nbsp;&nbsp;"&listnum&""
response.Write" 个圈子/页&nbsp;&nbsp;共 "&Rs.pagecount&" 页 "
if page=1 then
else
response.Write"<a href="&filename&"><strong>|<<</strong></a>&nbsp; "
response.Write"<a href="&filename&"&page="&page-1&"><strong><<</strong></a>&nbsp; "
response.Write"<a href="&filename&"&page="&page-1&"><b>["&page-1&"]</b></a>&nbsp; "
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>&nbsp; "
response.Write"<a href="&filename&"&page="&page+1&"><strong>>></strong></a>&nbsp; "
response.Write"<a href="&filename&"&page="&Rs.pagecount&"><strong>>>|</strong></a>&nbsp; "
end if
response.Write"<input name='chkall' type='checkbox' id='chkall' value='select' "
response.Write"onClick=""CheckAll(this.form)"" style='border:0'>"
response.Write"全选　　<input type='submit' name='submit' value='删 除'>&nbsp;</td>"
end if
response.Write"</tr></form></table>"
%>
⌨️ 快捷键说明

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