table分页(转)

htmlheadmeta “Content-Type” content=”text/html; charset=gb2312″/headbody
bgcolor=”#CCCCCC” text=”#000000″h2
align=”center”星河影动之查看数据库构造/h2p %on error resume
nexttable=request(“table”卡塔尔’ 得到表名.

是独立自己作主八个数据集
前方应该先定义此数据集
dim rs as adodb.recordset
下一场就足以用
set rs=server.CreateObject(“adodb.recordset”)
来确立叁个数据集的实例,当然那时多少汇总是从未多少的
rs.open ……
来展开多少个记录集
rs.append只怕rs.insert来增多记录
rs.edit来修正记录
对此增长或涂改的记录,能够用
rs.fields(“字段名”)=xxx
来进展赋值
rs.update
把校订过的值更新回数据库
当你增添三个数目(rs1)进数据库时:
rs.addnew
rs(“rs1″卡塔尔(قطر‎=”增添的数额”
rs.update
rs.close
set rs=nothing
下边我们来个实例:
Set mRs= Server.CreateObject(“adodb.recordSet”)
mRs.open “Select * from book”, conn, 1, 3
mRs.addnew
mRs(“Name”) = Name
mRs(“Mail”) = Mail
mRs(“Qq”) = Qq
mRs(“Info”) = Info
mRs(“time”) = now()
mRs.update
mRs.close
Set mRs = nothing
//上面是调用html输入框

  <table   width=”100%”   border=”0″   align=”center”  
cellspacing=”0″   bgcolor=”#006666″>  
                                                  <tr>    
                                                      <td  
height=”142″   align=”left”   valign=”top”   bgcolor=”#D9D9D9″>  
  <table   width=”100%”   height=”76″   border=”0″   align=”center”  
cellspacing=”0″>  
                                                              <tr>
   
                                                                  <td
  height=”72″   valign=”top”>    
                                                                     
<%  
  leixing=”chengshijingguan”  
  set   rs=server.createobject(“adodb.recordset”)  
  strl2=”select   *   from   diaosutu   where   leixing='”&leixing&”‘  
order   by   riqi   desc   ”  
  rs.open   strl2,conn,3,2  
  %>  
                                                                     
<%  
  if   not   rs.eof   then  
  count=rs.recordcount  
  if   not   isempty(request(“page”))   then        
  pagecount=cint(request(“page”))        
  else        
  pagecount=1        
  end   if  
  rs.pagesize=4  
  if   pagecount>rs.pagecount   or   pagecount<=0   then          
                   
  pagecount=1                              
  end   if                              
  rs.AbsolutePage=pagecount  
  page_start=(pagecount-1)*rs.pagesize    
  if   pagecount=1   then    
  page_start=1    
  end   if  
  page_澳门新葡萄京娱乐场 ,end=rs.pagesize*pagecount    
  if   pagecount*rs.pagesize=>rs.recordcount   then  
    page_end=rs.recordcount    
  end   if  
   
  %>  
                                                                     
<table   width=”100%”>  
                                                                       
  <tr   width=”100%”>    
                                                                       
      <%  
        i=0  
        do   while   not   rs.eof  
                            %>  
                                                                       
      <td   valign=”top”   bgcolor=”#D9D9D9″>    
                                                                       
          <table   width=”180″   border=”0″   align=”center”  
cellspacing=”1″   bgcolor=”#006666″>  
                                                                       
              <tr>    
                                                                       
                  <td   width=”174″   bgcolor=”#D2D8DF”>  
  <div   align=”center”>  
                                                                       
                          <%Response.Write(“<img  
src=’tupian/diaosu/”&rs(“mingcheng”)&”‘>”)%>  
                                                                       
                      </div></td>  
                                                                       
              </tr>  
                                                                       
              <tr>    
                                                                       
                  <td   bgcolor=”#D2D8DF”>  
  <div  
align=”center”><%=rs(“chenghu”)%>-<%=rs(“dizhi”)%></div></td>
 
                                                                       
              </tr>  
                                                                       
              <tr>    
                                                                       
                  <td   bgcolor=”#D2D8DF”>  
  <div  
align=”center”><%=rs(“caizhi”)%>-<%=rs(“chicun”)%></div></td>
 
                                                                       
              </tr>  
                                                                       
              <tr>    
                                                                       
                  <td   bgcolor=”#D2D8DF”>  
  <div  
align=”center”><%=rs(“jianjie”)%></div></td>  
                                                                       
              </tr>  
                                                                       
          </table></td>  
                                                                       
      <%  
       
              i=i+1  
      if   i>=rs.pagesize   then     exit   do  
              if   i   mod   2   =0   then    
                                          response.write   “</tr>”
 
              end   if  
              rs.movenext  
  loop  
  %>  
                                                                       
      <% response.write   “共寻觅到”&count&”条图片新闻”    
                            response.write”<form   name=form1  
method=Post  
action=’DS_CP_CSJG.asp?”+”&speciality=”+speciality+”‘>”    
            response.write   “<font  
color=’#000064′>◆ </font>”                              
                                                                 
            if   pagecount=1   then                                    
                                                                       
       
    response.write   “<font   color=’#000064′>首页  
上一页</font> ”    
    else                                                                
                                                   
                            response.write   “<a  
href=DS_CP_CSJG.asp?page=1><font  
color=’0000BE’>首页</font></a> ”      
                    response.write   “<a  
href=DS_CP_CSJG.asp?page=”+cstr(pagecount-1)+”&name=”+name+”&corpname=”+corpname+”&homeplace=”+homeplace+”&speciality=”+speciality+”><font
  color=’0000BE’>上一页</font></a> ”    
    end   if                                                            
                                 
                            if   rs.PageCount-pagecount<1   then    
                                                                       
                                       
                            response.write   “<font  
color=’#000064′>下一页   尾页</font>”                        
                                                                       
           
    else                                                                
                                                   
                            response.write   “<a  
href=DS_CP_CSJG.asp?page=”+cstr(pagecount+1)+”&name=”+name+”&corpname=”+corpname+”&homeplace=”+homeplace+”&speciality=”+speciality+”><font
  color=’0000BE’>下一页</font></a> ”    
    response.write   “<a  
href=DS_CP_CSJG.asp?page=”+cstr(rs.PageCount)+”&name=”+name+”&corpname=”+corpname+”&homeplace=”+homeplace+”&speciality=”+speciality+”><font
  color=’0000BE’>尾页</font></a>”                        
 
                            end   if      
    response.write   “<font   color=’000064′> 页次:<font  
color=blue>”&pagecount&”</font>/”&rs.pagecount&”页</font>”
     
  response.write   “<font   color=’000064′>   转到第<input  
type=’text’   name=’page’   size=2   maxLength=3   style=’font-size:  
9pt;   color:#00006A;   position:   relative;   height:   18′  
value=”&PageCount&”>页</font> ”                          
                                       
  response.write   “<input   class=button   type=’submit’   value=’确
  定’   style=’font-family:   宋体;   font-size:   9pt;   color:  
#000073;   position:   relative;   height:   19′>”    
  response.write   “</form>”  
  %>  
                                                                       
      <%   end   if     %>  
                                                                     
</table></td>  
                                                             
</tr>  
                                                          </table>
 
                                                          <table  
width=”83%”   border=”0″   align=”center”   cellspacing=”0″>  
                                                              <tr>
   
                                                                  <td
  height=”20″>   <font   size=”2″>    
                                                                     
<%    
  rs.close  
          set   rs   =   nothing  
  %>  
                                                                     
</font>   </td>  
                                                             
</tr>  
                                                         
</table></td>  
                                                  </tr>  
                                              </table>   
   

if table”” thenresponse.write “数据表:”&tableSet primary =
con.OpenSchema(adSchemaPrimaryKeys, _Array(empty, empty, table))if
primary(“COLUMN_NAME”)”” thenprimarykey=primary(“COLUMN_NAME”)end
ifprimary.closeset primary=nothing%/pcentertable width=”650″ border=”1″
cellpadding=”0″ cellspacing=”0″tr bgcolor=”#CCCCCC” th width=”61″ div
align=”center”字段/div/thth width=”131″ div align=”center”类型/div/thth
width=”105″ div align=”center”设定大小/div/thth width=”69″ div
align=”center”允许空值/div/thth width=”69″ 自动编号/thth
width=”81″主键/th/tr%sql=”select * from [“&table&”] “set
rs=con.execute(sql)for i=0 to rs.fields.count-1%tr bgcolor=”#CCCCCC” td
height=”2″ width=”61″ div align=”center”%=rs(i).name%/div

<table border=”0″ cellpadding=”0″ style=”border-collapse: collapse”
width=”100%”>
<form name=”form1″ method=”post” action=”admin/<% =filename
%>?action=Reply&id=<% =id %>”>
<tr>
<td width=”118″ height=”37″ align=”center”
bgcolor=”#EFEFEF”>昵称:</td>
<td width=”640″>
<input name=”Name” type=”text” class=”input” value=”<%
=mRs(“Name”) %>”>
</td>
</tr>
<tr>
<td width=”118″ height=”37″ align=”center”
bgcolor=”#EFEFEF”>内容是还是不是公开:</td>
<td width=”640″>
<input type=”radio” name=”Qq” value=”1″ <%if mRs(“qq”)=1 then
response.write ” checked ” end if%> >

<input name=”Qq” type=”radio” value=”0″ <%if mRs(“qq”)=0 then
response.write ” checked ” end if%> >
否 </td>
</tr>
<tr>
<td width=”118″ height=”37″ align=”center”
bgcolor=”#EFEFEF”>邮箱:</td>
<td width=”640″>
<input name=”Mail” type=”text” class=”input” value=”<%
=mRs(“Mail”) %>”>
</td>
</tr>
<tr>
<td width=”118″ height=”37″ align=”center”
bgcolor=”#EFEFEF”>留言:</td>
<td width=”640″>
<textarea name=”Info” rows=”9″ cols=”57″ class=”button”><%
=mRs(“Info”) %></textarea>
</td>
</tr>
<tr>
<td height=”25″ align=”center” bgcolor=”#EFEFEF”
width=”118″>回复:</td>
<td height=”100″ rowspan=”2″ bgcolor=”#EFEFEF” width=”640″>
<textarea name=”Reply” rows=”6″ cols=”50″ class=”button”><%
=Reply %></textarea>
</td>
</tr>
<tr>
<td height=”70″ bgcolor=”#EFEFEF” width=”118″></td>
</tr>
<tr>
<td height=”20″ colspan=”2″ align=”center” bgcolor=”#EFEFEF”>
<input name=”Submit1″ type=”submit” id=”Submit” value=” 回复留言 ”
class=”button”>
<input name=”reSet” type=”reSet” id=”reSet4″ value=” 重新输入 ”
class=”button”>
</td>
</tr>
</form>
</table>


‘ 字段名.

/tdtd height=”2″ width=”131″ div align=”center”
%field_type=rs(i).typeselect case field_typecase adEmptytyp =
“Empty”case adTinyInttyp = “TinyInt”case adSmallInttyp = “SmallInt”case
adIntegertyp = “Integer”case adBigInttyp = “BigInt”case
adUnsignedTinyInttyp = “UnsignedTinyInt”case adUnsignedSmallInttyp =
“UnsignedSmallInt”case adUnsignedInttyp = “UnsignedInt”case
adUnsignedBigInttyp = “UnsignedBigInt”case adSingletyp = “Single”case
adDoubletyp = “Double”case adCurrencytyp = “Currency”case adDecimaltyp =
“Decimal”case adNumerictyp = “Numeric”case adBooleantyp = “Boolean”case
adErrortyp = “Error”case adUserDefinedtyp = “UserDefined”case
adVarianttyp = “Variant”case adIDispatchtyp = “IDispatch”case
adIUnknowntyp = “IUnknown”case adGUIDtyp = “GUID”case adDATEtyp =
“DATE”case adDBDatetyp = “DBDate”case adDBTimetyp = “DBTime”case
adDBTimeStamptyp = “DBTimeStamp”case adBStrtyp = “BStr”case adChartyp =
“Char”case adVarChartyp = “VarChar”case adLongVarChartyp =
“LongVarChar”case adWChartyp = “WChar”case adVarWChartyp =
“VarWChar”case adLongVarWChartyp = “LongVarWChar”case adBinarytyp =
“Binary”case adVarBinarytyp = “VarBinary”case adLongVarBinarytyp =
“LongVarBinary”case adChaptertyp = “Chapter”case adPropVarianttyp =
“PropVariant”case elsetyp =
“Unknown”—————————————————————————————————————-

end selectresponse.write typ%’ 字段类型. /div/tdtd height=”2″
width=”105″ div align=”center”%=rs(i卡塔尔(قطر‎.definedsize%/div/td’ 字段长度.td
height=”2″ width=”69″ div align=”center” %attrib=rs(iState of Qatar.attributesif
(attrib and adFldIsNullableState of Qatar=0 thenresponse.write “No”elseresponse.write
“Yes”end if%/div/td


‘ 是不是同意空值.td height=”2″ width=”69″div align=”center” %if
rs(i卡塔尔.Properties(“ISAUTOINCREMENT”State of Qatar = True then%input type=”checkbox”
name=”autoincrement” value=”checkbox” checked%else%input type=”checkbox”
name=”autoincrement” value=”checkbox”%end if%
/div/td—————————————————————————————————————-

‘ 是或不是为机关编号.td height=”2″ width=”81″ div align=”center” %if
rs(i卡塔尔(قطر‎.name=primarykey then%input type=”checkbox” name=”primarykey”
value=”checkbox” checked%else%input type=”checkbox” name=”primarykey”
value=”checkbox”%end
if%/div/td—————————————————————————————————————-

‘ 主健./tr%next %/table/center

[1]

发表评论

电子邮件地址不会被公开。 必填项已用*标注