📄 web_body.asp

📁 不错的asp论坛,大家可以看看啊和呵呵.
💻 ASP
字号:
<%sub web_body()%>

<head>
<style type="text/css">a:hover img{border:solid 1px #ff9900}</style>
</head>

<TABLE bgcolor="#000000" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td height="24" align="right">
<%sql="select * from cscat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if request.querystring("cscat_id")<>Cstr(rs("cscat_id")) then%>
&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="web.asp?cscat_id=<%=rs("cscat_id")%>"><%=rs("cscat_name")%></a>
<%else%><font color="#ff6600"><%=rs("cscat_name")%></font>    
<%end if    
rs.movenext
loop
if rs.eof and rs.bof then%>
当前还没有作品分类    
<%end if
dim totalcs,Currentpage,totalpages,i
sql="select * from coolsites order by cs_id DESC"
if request.querystring("cscat_id")<>"" then
sql="select * from coolsites where cscat_id="&request.querystring("cscat_id")&" order by cs_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount%>&nbsp;
</TD>
</TR>
<TR>
<TD width="760" background="img/menu_bg2.gif" height="4"></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td width=553 align=left vAlign=top bgcolor="#000000"><%call br%>
<table width='530' height="25" border='0' align="center" cellspacing='0' background="img/mainbg.gif" cellpadding="2">
              <tr> 
                <td>&nbsp;&nbsp;<img src="img/biao.gif" align="absmiddle">&nbsp;当前共有<span><%=totalcs%></span>个作品</td>
              </tr>
            </table>
      <%
if not rs.eof then
rs.movefirst
rs.pagesize=coolsitesperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalcs=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*coolsitesperpage<totalcs then
	       rs.move(currentpage-1)*coolsitesperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod coolsitesperpage)=0 then
      totalpages=totalcs\coolsitesperpage
   else
      totalpages=totalcs\coolsitesperpage+1
   end if
i=0
do while not rs.eof and i<coolsitesperpage
%>
      <table width="530" border="0" cellspacing="0" cellpadding="10" align="center">
        <tr> 
          <td width="37%" align="right"><table width="154" height="114" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="170" align="center"> 
<table width="170" height="130" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
<tr> 
<td bgcolor="#000000"> 
<table width="150" height="110" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr> 
                              <td><a href="reweb.asp?cs_id=<%=rs("cs_id")%>" target="_blank" > <img src="<%=rs("cs_pic")%>" border="0" width="150" height="110" title="网站名称：<%=rs("cs_name")%><br>网站地址：<%=rs("cs_url")%><br>点击次数：<%=rs("cs_count")%>次"></a> 
                              </td>
</tr>
</table></td>
</tr>
</table></td>
<td width="17" align="center" valign="bottom"><img src="img/cool.gif" width="17" height="112" border="0"></td>
</tr>
</table>
          </td>
          <td width="63%">
<table width="100%" border="0" cellspacing="5" cellpadding="2">
<tr><td width="100"><strong><font color="FFA300">网站名称：</font></strong></td>
<td bgcolor="000000" width="260"><%=rs("cs_name")%></td></tr>
<tr><td><strong><font color="FFA300">网站地址：</font></strong></td>
<td bgcolor="000000"><a href="reweb.asp?cs_id=<%=rs("cs_id")%>" target="_blank"><%=rs("cs_url")%></a></td></tr>
<tr><td><strong><font color="FFA300">加入时间：</font></strong></td>
<td bgcolor="000000"><%=rs("cs_date")%></td></tr>
<tr><td><strong><font color="FFA300">点击次数：</font></strong></td>
<td bgcolor="000000"><%=rs("cs_count")%></td></tr>
<tr><td><strong><font color="FFA300">简单描述：</font></strong></td>
<td bgcolor="000000"><%=rs("cs_desc")%></td></tr>
</table>
</td>
</tr>
<tr><td colspan="2" height="1" background="img/xu2.gif"></td></tr>
</table>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
      <table width="530" border="0" cellspacing="0" cellpadding="10" align="center">
        <tr> 
          <td bgcolor="#000000" colspan="2" height="22" align="center">当前没有作品！</td>
        </tr>
      </table>
<%end if
end if
if not request("type")=1 then%>
<form name="form1" method="post" action="web.asp?cscat_id=<%=request.querystring("cscat_id")%>">
<TABLE cellSpacing=1 cellPadding=0 width="530" align=center border=0 bgcolor="#999999">
<TBODY>
<TR> 
<TD align=middle width="35%" height=25 bgcolor="#333333"><IMG height=14 src="img/cha.gif" width=14 align=absMiddle> <font color="#ffffff">共[<font color="#FF6666"><%=totalcs%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</font></TD>
<TD width="40%" align=middle bgcolor="#333333"><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='669999'>首页 上一页</font> "
else
response.write "<a href=web.asp?page=1&cscat_id="&request.querystring("cscat_id")&">首页</a> "
response.write "<a href=web.asp?page="&CurrentPage-1&"&cscat_id="&request.querystring("cscat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='669999'>下一页 尾页</font>"
else
response.write "<a href=web.asp?page="&CurrentPage+1&"&cscat_id="&request.querystring("cscat_id")
response.write ">下一页</a> <a href=web.asp?page="&totalpages&"&cscat_id="&request.querystring("cscat_id")&">尾页</a>"
end if
%>
 <IMG height=11 src="img/gt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%" bgcolor="#333333">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" class="button"> </TD>
</TR>
</FORM>
</TABLE>          
      <%end if%>
<%call br%><%call br%>
 
    </td>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=204 align=left vAlign=top background=img/left_bg2.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td width=204><img src=img/left_top.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="41, 11, 67, 24" href="book.asp" title="留言本"><area shape="rect" coords="106, 8, 169, 30" href="../ryxs/Default.asp" title="流星情缘纯文学网站"></map></td></tr>
</table>
<TABLE width=196 border=0 align=right cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>流星情缘排行榜</strong></td>
</tr>
<tr><td align="center"><%call br%>
<%sql="SELECT top 4 * FROM coolsites ORDER by cs_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><table width="154" height="114" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="170" align="center"> 
<table width="170" height="130" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
<tr> 
<td bgcolor="#000000"> 
<table width="150" height="110" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr> 
<td><a href="reweb.asp?cs_id=<%=rs("cs_id")%>" target="_blank" >
                                <img src="<%=rs("cs_pic")%>" border="0" width="150" height="110" title="网站名称：<%=rs("cs_name")%><br>网站地址：<%=rs("cs_url")%><br>点击次数：<%=rs("cs_count")%>次"></a></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="17" align="center" valign="bottom"><img src="img/cool.gif" width="17" height="112" border="0"></td>
</tr>
</table><%call br%>
              <%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有酷站<%end if%></td></tr>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>流星情缘美化设计</strong></td>
</tr>
<tr><td align="center"><%call br%>
<%sql="SELECT top 3 * FROM coolsites where isbest = 1 ORDER by cs_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><table width="154" height="114" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="170" align="center"> 
<table width="170" height="130" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
<tr> 
<td bgcolor="#000000"> 
<table width="150" height="110" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr> 
<td><a href="reweb.asp?cs_id=<%=rs("cs_id")%>" target="_blank" >
                                <img src="<%=rs("cs_pic")%>" border="0" width="150" height="110" title="网站名称：<%=rs("cs_name")%><br>网站地址：<%=rs("cs_url")%><br>点击次数：<%=rs("cs_count")%>次"></a></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="17" align="center" valign="bottom"><img src="img/cool.gif" width="17" height="112" border="0"></td>
</tr>
</table><%call br%>
              <%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有作品<%end if%>
</td></tr>
</table>

          </td>
        </tr>
      </table>
<%
rs.close
set rs=nothing
end sub%>
⌨️ 快捷键说明

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