config_book.asp

鄂尔多斯建站网全站程序(冬季修正版)

<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%sub write_book
%>
<form method="post" action="add.asp?action=add_book">
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
  <tr>
    <td width="100%" bgcolor="#FFFFFF">
      <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
          <tr>
          <td width="18%" height="20" bgcolor="#626262">
            <p align="center"><font color="#FFFFFF">签写留言</font></td>
          <td width="50%" height="20" bgcolor="#EEEEEE">
            <p align="center">[ 注意：（<font color="#FF0000">*</font>）必须填写                                                 
            ]</td>                                                
        </tr>                                                
        <tr>                                                
          <td width="100%" colspan="2">&nbsp;</td>                                                
        </tr>                                                
        <tr>                                                
          <td width="100%" colspan="2">                                                
            <div align="center">                                                
              <center>                                                  
              <table border="0" cellpadding="0" cellspacing="0" width="95%" height="231">                                                
                                             
                <tr>                                                
                  <td width="20%" align="right" height="26">您的名字：</td>                                               
                  <td width="49%" height="26">&nbsp;<input type="text" name="d_webname" size="25" style="border-style: solid; border-width: 1">                                              
                    <font color="#FF0000">*</font></td>                                              
                  <td width="31%" height="189" rowspan="7"></td>                                              
                </tr>                                              
                <tr>                                              
                  <td width="20%" align="right" height="21">性&nbsp;&nbsp;&nbsp; 别：</td>                                               
                  <td width="49%" height="21">&nbsp;&nbsp; <input type="radio" value="0" name="d_sex">BOY&nbsp;&nbsp;&nbsp;                                                
                    <input type="radio" value="1" name="d_sex">GIRL <font color="#FF0000">*</font></td>                                              
                </tr>                                              
                <tr>                                              
                  <td width="20%" align="right" height="25">电子邮件：</td>                                              
                  <td width="49%" height="25">&nbsp;<input type="text" name="d_mail" size="25" style="border-style: solid; border-width: 1"></td>                                              
                </tr>                                              
                <tr>                                              
                  <td width="20%" align="right" height="25">您的主页：</td>                                              
                  <td width="49%" height="25">&nbsp;<input type="text" name="d_url" size="25" style="border-style: solid; border-width: 1" value="http://"></td>                                              
                </tr>                                              
                <tr>                                              
                  <td width="20%" align="right" height="25">来&nbsp;&nbsp;&nbsp; 至：</td>                                               
                  <td width="49%" height="25">&nbsp;<input type="text" name="d_place" size="25" style="border-style: solid; border-width: 1" value="CN"></td>                                               
                </tr>                                               
                <tr>                                               
                  <td width="20%" align="right" height="21" valign="top">您的留言：</td>                                               
                  <td width="49%" height="21">&nbsp;<textarea rows="7" name="b_text" cols="38"></textarea><font color="#FF0000">*</font></td>                                              
                </tr>                                              
                <tr>                                              
                  <td width="20%" align="right" height="25">O I C Q：</td>                                               
                  <td width="49%" height="25">&nbsp;<input type="text" name="d_oicq" size="25" style="border-style: solid; border-width: 1"></td>                                               
                </tr>                                               
                <tr>                                               
                  <td width="101%" align="left" colspan="3" height="21">&nbsp;</td>                                               
                </tr>                                               
                <tr>                                               
                  <td width="101%" colspan="3" height="21">                                               
                    <p align="center"><input type="submit" value="完成提交" name="B3" style="background-color: #FFFFFF">&nbsp;&nbsp;&nbsp;                                         
                    <input type="reset" value="重新填写" name="B3" style="background-color: #FFFFFF"></td>                                             
                </tr>                                             
                                                             
              </table>                                            
              </center>                                             
            </div>                                             
          </td>                                             
        </tr>                                             
        <tr>                                             
          <td width="100%" colspan="2">&nbsp;</td>                                             
        </tr>                                             
      </table>                                             
    </td>                                             
  </tr>                                             
</table>                                        
</form>                                              
<%end sub                                             
                                             
sub more_book                                   
Set rs = Server.CreateObject("ADODB.Recordset")                                 
sql="select * from book order by id desc"                                  
rs.open sql,conn,3,3                                 
if rs.eof and rs.bof then                                 
call write_book                                 
else                                 
pgsize=3                                 
page=request.querystring("page")                                 
rs.pagesize=pgsize                                 
pgnm=rs.pagecount                                 
if page=""or clng(page)<1 then page=1                                 
if clng(page)>pgnm then page=pgnm                                 
if pgnm>0 then rs.absolutepage=page                                 
count=0                                 
do while not rs.eof and count<rs.pagesize                                 
%>                                            
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">                                            
  <tr>