index.asp

手机网址导航网站手机网址导航网站手机网址导航网站

<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<table width="320" align="center" bgcolor="#CCCCCC">
  <tr>
    <td><TABLE cellSpacing=0 cellPadding=0 width="100%" 
              border=0>
      <SCRIPT language=Javascript>
<!--
function urlencode(str) {
	var ns = (navigator.appName=="Netscape") ? 1 : 0;
	if (ns) { return escape(str); }
	var ms = "%25#23 20+2B?3F<3C>3E{7B}7D[5B]5D|7C^5E~7E`60";
	var msi = 0;
	var i,c,rs,ts ;
	while (msi < ms.length) {
		c = ms.charAt(msi);
		rs = ms.substring(++msi, msi +2);
		msi += 2;
		i = 0;
		while (true)	{ 
			i = str.indexOf(c, i);
			if (i == -1) break;
			ts = str.substring(0, i);
			str = ts + "%" + rs + str.substring(++i, str.length);
		}
	}
	return str;
}
//-->
        </SCRIPT>
      <form action="search.asp" method="post" name="search" target="_blank" onSubmit="return check(this.form)">
        <TBODY>
          <TR>
            <TD align=middle width=252><P align=right><INPUT name=keyword class=login id="keyword" size="25" maxLength=25>
            </P></TD>
            <TD width=128>&nbsp;&nbsp;<input name="Submit2" type="submit" id="Submit2" value="网站搜索">  </TD>
            </TR>
        </FORM>
      

    </TABLE></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="13"><table width="320" border="0" cellpadding="0" cellspacing="0" align="center">
        <tr class="font"> 
          <td width="320" valign="top" bgcolor="#FFFFFF"> 
            <table border=0 cellpadding=0 cellspacing=0 width=320 height="74">
              <tbody> 
              <tr> 
                <td valign=top> 
                  <div align=center> 
                    
                    <table width="320" border="1" style="border-collapse: collapse"  cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="35" align="center" bordercolor="#CCCCCC">
                      <%
Set rs=Server.CreateObject("ADODB.RecordSet")
'判断classid开始
classid=request("classid")
If classid <> "" then
classid = cint(classid)
if err.number <> 0 then 
err.clear
classid = 1
end if
if classid < 1 then 
classid = 1
end if 
else
classid = 1
End if
'判断classid结束
if Request("classid")<>"" then
sql="Select * from music where class=" & classid & "and isview=1 order by id Desc"
else
sql="Select * from music where isview=1 order by id Desc"
end if


rs.open sql,conn,1,1
rs.pagesize=20  '每页显示数目
num=rs.recordcount
pagenum=rs.pagecount
page=request("page")

if rs.eof and rs.bof then
response.Write("此分类目前没有网站")
else

'判断页码开始
If page <> "" then
page = cint(page)
if err.number <> 0 then 
err.clear
page = 1
end if
if page < 1 then 
page = 1
end if 

else
page = 1
End if
if page*rs.pagesize > num and not((page-1)*rs.pagesize < num)then 
page=1
end if
'判断页码结束

rs.absolutepage = page 'absolutepage：设置指针指向某页开头
if page<>pagenum then
for i=1 to rs.pagesize
%>
                        <td   height="30" width="286"><a alt="网站简介：<%=rs("body")%>" href="<%=rs("address")%>" target="_blank"> &nbsp;<%=Left(rs("name"),10)%>                           </a>
						  <%if not rs("time") < date then%>
						  <font color="#FF0000">新</font> 
                          <%end if%>
                          <%if rs("d")>80 then%>
                          <font color="#FF0000">热</font> 
                          <%end if%>
						 <%if rs("isgood")=true then%>
        <font color="#FF0000">推荐
        <%end if%>
        </font>                          </td>
                      <%
if (i mod 2)=0 then response.write "</tr><tr>"
rs.movenext
next
else
for i=1 to num-(page-1)*rs.pagesize
%>
                        <td height="30" bgcolor="#FFFFFF" width="283"><a alt="网站简介：<%=rs("body")%>" href="<%=rs("address")%>" target="_blank">&nbsp;<%=Left(rs("name"),10)%>                          </a>
                          <%if not rs("time") < date then%>
                          <font color="#FF0000">新</font> 
                          <%end if%>
                          <%if rs("d")>80 then%>
                          <font color="#FF0000">热</font>
                          <%end if%>
                         
                        <%if rs("isgood")=true then%>
        <font color="#FF0000">推荐
        <%end if%>
        </font>                        </td>
                      <%
							if (i mod 2)=0 then response.write "</tr><tr>"
rs.movenext
next
end if
end if
rs.close
Set rs=nothing
%>
                    </table>
                    <table width="100%" border="0">
                      <tr>
                        <td>&nbsp;</td>
                      </tr>
                    </table>
                    <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" height="13">
                      <tr> 
                        <td> 
                          <div align="center" class="font"><font color="#333333">共有<%=num%> 个网站 | <a href="index.asp?page=1&classid=<%=request("classid")%>">首页</a> 
                            | 
                            <%if page>1 then%>
                             
                            <%end if%>
                            <a href="index.asp?page=<%=page-1%>&classid=<%=request("classid")%>">上页</a> | 
                            <%if page<pagenum then%>
                             
                            <%end if%>
                            <a href="index.asp?page=<%=page+1%>&classid=<%=request("classid")%>">下页</a>|  
                            <a href="index.asp?page=<%if pagenum=0 then%>1<%else%><%=pagenum%><%end if%>&classid=<%=request("classid")%>">末页</a></font></div>                        </td>
                      </tr>
                    </table>
                  </div>                </td>
              </tr>
            </table>          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--#include file="foot.asp"-->