model2.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
  <tr>
    <td  bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">&nbsp;</td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C">
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="200" valign="top" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><!--#include file="../include/blog_leftprv.asp"--></td>
        <td width="510" valign="top">
		<%	
		dim Page,thePageSize,ttlPage,ttlRdCnt
		Page=request("Page")
		if request.Form("select")<>0 then page=request.Form("select")
		thePageSize=10
		if not isnumeric(page) then page=1 else page=clng(page)
		if page<1 then page=1
	
		strSQL="select * from blog_friend where user_id="& userid
		objRS.open strSQL,objConn,1,1	
		
		if not objRS.eof then
			objRS.pagesize=thePageSize
			ttlPage=objRS.pagecount
			ttlRdCnt=objRS.Recordcount
			if Page>ttlPage then Page=ttlPage
			objRS.AbsolutePage=Page
		end if%>
		
		加循环
<table width="480" border="0" cellspacing="2" cellpadding="2" align="center" <%if i mod 2 =0 then response.Write("bgcolor='#EFEBEF'")%>style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
          <%
	  	for i=1 to thePageSize
	  	if objRS.eof then exit for 
		%><tr>
            <td align="right">&nbsp;
              </td>
          </tr><%
	  	objRs.movenext
	  	next%>
        </table>
		
        
普通
<table width="480" border="0" cellspacing="2" cellpadding="2" align="center" bgcolor="#EFEBEF" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
  <tr>
    <td align="right">&nbsp; </td>
  </tr>
</table></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center">&nbsp;</td>
  </tr>
</table>

<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->