⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
<!--#include file="../../include/conn.asp"-->
<!--#include file="../cook.asp"-->
<%
if request("Submit")="删 除" then
call ADSGM()
end if%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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>
function oa_tool1(){
window.parent.mm.rows="200,10,*";
}
</script>
<LINK href="../css.css" type=text/css rel=stylesheet>
<body style="margin:5">
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="index.asp?key=5">
<tr align=center bgcolor=#efefef>
  <td height=30 align=center>请输入你要查找的文章名称:
    <input name="word" type="text" size="50">  
  <input type="submit" name="Submit" value="博客搜索"> 
<!--  <a href="index.asp?key=2">火爆</a> <a href="index.asp?key=1">推荐</a> <a href="index.asp?key=0">正常</a> <a href="index.asp?key=5">所有</a> --></td>
</tr>
</form>
</table>
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="from1" method="post" action="index.asp?word=<%=request("word")%>">
<tr align=center bgcolor=#efefef>

<%sql="select * from TaoJin2008_blog where TaoJin2008_blogTitle like'%"&request("word")&"%' "

'if clng(request("key"))<>5 then
'sql=sql&" and mxsport_key="&trim(clng(request("key")))&""
'end if

sql=sql&" order by TaoJin2008_blogId 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%>
 <td width="4%" height=25>编号</td>
 <td width="52%" align="left">&nbsp;文章名称</td>
 <td width="11%">来源</td>
 <td width="9%"> 发布人 </td>
 <td width="5%" align="left">&nbsp;人气</td>
 <td width="15%" align="left">&nbsp;发布时间</td>
 <td width="4%">选择</td>
</tr>
<%do while not rs.eof and i<listnum
n=n+1 
 
%>
<tr align=center height=22>
 <td height="25"><%=n%></td>
 <td align=left>&nbsp;<%=rs("TaoJin2008_blogTitle")%></td>
 <td>&nbsp;<%=rs("TaoJin2008_blogWeb")%></td>
 <td>&nbsp;<%=rs("TaoJin2008_blogUserName")%></td>
 <td align="left">&nbsp;<%=rs("TaoJin2008_blogHtc")%></td>
 <td align="left">&nbsp;<%=rs("TaoJin2008_blogdate")%></td>
 <td><input type="checkbox" name="ID" value="<%=rs("TaoJin2008_blogId")%>" style="border:0"></td>
</tr>
<%rs.movenext 
i=i+1 
j=j-1
loop%>
<tr>
<%filename="index.asp?word="&request("word")&""%>
<td colspan=7 height=30 align=right bgcolor=#cccccc><%=Rs.recordcount%> 个文章&nbsp;&nbsp;<%=listnum%> 个文章/页&nbsp;&nbsp;共 <%=Rs.pagecount%> 页 
      <% if page=1 then %>
      <%else%>
      <a href=<%=filename%>><strong>|<<</strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>><strong><<</strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page-1%>><b>[<%=page-1%>]</b></a>&nbsp; 
      <%end if%><% if Rs.pagecount=1 then %><%else%><b>[<%=page%>]</b><%end if%>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>&page=<%=page+1%>><b>[<%=page+1%>]</b></a>&nbsp; 
      <a href=<%=filename%>&page=<%=page+1%>><strong>>></strong></a>&nbsp; 
      <a href=<%=filename%>&page=<%=Rs.pagecount%>><strong>>>|</strong></a>&nbsp; 
	  <%end if%>	   &nbsp;&nbsp;
	  <input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form)" style="border:0">
全选 
<input type="submit" name="submit" value="删 除">
&nbsp;&nbsp;&nbsp;</td>
<%end if%></tr>
</form>
</table>


⌨️ 快捷键说明

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