gbook.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 224 行

<!--#include file="inc/syscode.asp"-->
<!--#include file="top.asp"-->
<LINK href="images/css.css" rel=stylesheet type=text/css>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
   <TR>
    <TD vAlign=top width=178 background=images/leftftbg.gif>
       <TABLE cellSpacing=0 cellPadding=0 width=178 border=0>
        <TBODY>
        <TR>
          <TD width=178><!--#include file="index_ywjs.asp"--></TD>
        </TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 作品列表 --><!--#include file="L_product.asp"--></TD></TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 站内调查 --><!-- #include file="L_vote.asp" --></TD></TR>
        <TR>
          <TD background=images/leftbg.gif height=5></TD></TR>
        </TBODY>
       </TABLE>
    </TD>
<!--********************左栏部分结束**********************-->
    <TD  bgcolor="#FFFFFF" valign=top>				
     <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
      <tr> 
	      <td height="24"><strong><font size="2">请您留言:</font></strong></td>
      </tr>
      <tr> 
	<td height="1" bgcolor="#c0c0c0"></td>
      </tr>
      <tr> 
	<td height="5"></td>
      </tr>
     </table>	
     <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>			
       <td align=center valign=top>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  width="560">
  <tr>
    <td width="560" height="100%">      
<%
sql2="select * from book  order by ID desc"        
set rs2=server.createobject("adodb.recordset")        
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
response.write "<center>现在还没有人留言！我要第一个留言</center>"
else
rs2.pagesize=4
rs2.absolutepage=1
if request("page")<>"" then rs2.absolutepage=request("page")
rowcount=rs2.pagesize
total=rs2.recordcount
do while not rs2.eof and rowcount>0
if request("page")<>"" then
t=rowcount-(rs2.pagesize*rs2.pagecount-total)+(rs2.pagecount-request("page"))*rs2.pagesize
else t=rowcount-(rs2.pagesize*rs2.pagecount-total)+(rs2.pagecount-1)*rs2.pagesize
end if
%>       
          
<CENTER>        
<table cellspacing="1" cellpadding="4" width="560" border="0" class="a2" align="center" height="134" bgcolor="#FFFFFF">          
          <tbody>         
          <tr>         
            <td height=16  width="560" colspan="2" bgcolor=#f1f1f1>　第 <font color=red><%=t%></font> 条&nbsp;&nbsp;留言时间:<%=rs2("时间")%> &nbsp;&nbsp;来自:<%=rs2("ip")%>   </td>        
          </tr> 
          <tr>      
                          <td bgcolor="#FFFFFF" align=center height=50 style="word-break:break-all" width=20%> 
                            <% if not rs2("sex")="女士" then %>
                            <img src=images/male.gif align=absMiddle>男士 
                            <%else%>
                            <img src=images/female.gif align=absMiddle>女士 
                            <%end if%>
                            <br>
                            <font color=red><%=rs2("昵称")%></font><br>
<img height=16 src="images/homepage.gif"      
            width=16><a href="<%=rs2("home")%>" target=_blank        
            title=访问<%=rs2("昵称")%>的主页> 我的主页</a><br>
<img height=16 src="images/email.gif"  width=16><a href="mailto:<%=rs2("email")%>"  title=写信> 写信给我</a><br>
<img height=16 src="images/oicq.gif" width=16> <% if not rs2("OICQ")="" then %><%=rs2("OICQ")%><%else%>没有号码
<%end if%>
           </td>     
            <td bgcolor="#FFFFFF" class=365ye style="word-break:break-all"><div style="line-height:150%">　 
                              <%if rs2("image")<>"" then%>
                              <font color=#999999>此留言为悄悄话,管理员才能查看内容……</font>
                              <%else%>
                              <%=left(rs2("内容"),1000)%>
                              <%end if%>
                              <% if not rs2("回复")="" then %>
                              <table cellspacing="0" cellpadding="0" width="94%" border="0"  align="center" bgcolor="#f0f0f0"> 
<tr><td style="word-break:break-all">  <p style="line-height: 150%"><font color=red>管理员回复:</font><%=rs2("回时")%><br>
                                      <font color="#999999"><%=rs2("回复")%></font></td></tr> 
   </table>
<%else%>  <%end if%>
        </div>    
          </td>
          </tr> 
</tbody>       
  </table> 
  <table cellspacing="0" cellpadding="0" width="560" border="0"  align="center" bgcolor="#f0f0f0"> 
  <tr><td height=10 bgcolor=#ffffff></td>
  </tr>
  </table>
    <%     
rs2.movenext     
rowcount=rowcount-1
loop     
%>
<table cellspacing="0" cellpadding="0" width="560" border="0"  align="center" bgcolor="#f0f0f0"> 
  <tr><td  bgcolor=#ffffff><div align="center">(<font color=red>4</font>条/页)总计<font color=red><%=rs2.recordcount%></font>条记录 
                            第 
                            <%
  if rs2.pagecount>0 then
  for i=1 to rs2.pagecount
  response.write "<a href=gbook.asp?page="& i &">[" & i & "]</a>"
  next
  end if%>
                            页</div></td>
  </tr>
  <tr><td height=10 bgcolor=#ffffff></td>
  </tr>
  </table>
   
 
<script>
function form_up(obj)
{
if(obj.name.value==""){alert('请填写您的姓名');obj.name.select();return false}
if(obj.text.value==""){alert('请填写留言内容');obj.text.select();return false}
}
</script>
<SCRIPT LANGUAGE="JavaScript">      
<!-- Begin
maxLen = 1000; // max number of characters allowed
function checkMaxInput(form) {
if (form.text.value.length > maxLen) // if too long.... trim it!
form.text.value = form.text.value.substring(0, maxLen);
// otherwise, update 'characters left' counter
else form.remLen.value = maxLen - form.text.value.length;
}
//  End -->
</script>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=560>
  <FORM action=addbook.asp  method=post align="center" onsubmit="return(form_up(this))">
  <TBODY>
      <TABLE border=0 
      cellPadding=4 cellSpacing=1  width=560 style="border-collapse: collapse" class=a2>
        <TBODY>  
        <TR>
          <TD height=100 width=280 bgcolor="#FFFFFF">&nbsp;注意：加 <font color="#FF0000">* </font>为必填选项
            <TABLE border=0 cellPadding=5 cellSpacing=0 height=100 
              width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY>
              <TR>
                <TD  width="30" height="24">昵称:</TD>
                <TD  width="" height="24"><INPUT class=input2 
                  maxLength=18 name=name size="18"> <select name=sex class=form >
                <option selected value="先生">男</option>
                <option value="女士">女</option>
              </select>
                  <font color="#FF0000">*</font>                        
                    </TD></TR>
              <TR>
                <TD  width="30" height="24">Email:</TD>
                <TD width="" height="24"><INPUT class=input2 maxLength=30 
                  name=email value="@" size="20">
                    </TD></TR>
              <TR>
                <TD  width="30" height="24">OICQ:</TD>
                <TD width="" height="24"><INPUT class=input2 maxLength=13 
                  name=oicq size="20">
                    </TD></TR>
              <TR>
                <TD  width="30" height="24">主页:</TD>
                <TD width="" height="24"><INPUT class=input2 maxLength=40 
                  name=home value=http:// size="20">
                    </TD></TR>
</TBODY></TABLE></TD>
                            <TD height=100 width=280 align="center" bgcolor="#FFFFFF"  > 
                              最大留言字数: <font color=green>1000</font> 你还可以留言 
                              <input readonly type=text name=remLen size=3 maxlength=3 value="1000">
                               字 <font color="#FF0000">* </font><Br>
                              <textarea class=input3 cols=35 name=text rows=6 wrap=PHYSICAL maxlength=1000 onKeyDown="checkMaxInput(this.form)" onKeyUp="checkMaxInput(this.form)"></textarea> 
                              <BR>
                              <input type="checkbox" name="image" value="ON">
                              此留言是否以悄悄话发表<font color="#FF0000">（仅管理员可见）</font> 
                            </TD>
                          </TR>
             
        <TR>  
          <TD colSpan=2 height="20" bgcolor="#FFFFFF">  
            <DIV align=center><INPUT class=input2 name=B1 type=submit value=签写留言>&nbsp;&nbsp;&nbsp;&nbsp;    
              <INPUT class=input2 name=B2 type=reset value=重新来过></DIV></TD></TR></FORM></TBODY></TABLE> 
  
</CENTER>     

</td>
</tr>
</table>
       </td>
      </tr>
      <tr>
       <td height=5></td>
      </tr>
     </table>
    </TD>
  <tbody>
 </tr>
</table>
<%  
rs2.close     
set rs2=nothing    
rs.close    
set rs=nothing   
end if 
conn.close    
set conn=nothing  
%>

<!-- 底部信息部分 --><!-- #include file="foot.asp" -->