guestbook.asp

这个也是一个功能强大的企业整站的ASP源代码

			   response.write " 首页 | 上一页 | "
		    else
		       response.write "<a href='?pageno=1'>首页</a> | <a href='?pageno="&curpage-1&"'>上一页</a> | "
		    end if 
		  
		    if curpage = rs.pagecount then
			   response.write "下一页 | 尾页"
		    else
		       response.write "<a href='?pageno="&curpage+1&"'>下一页</a> | <a href='?pageno="&rs.pagecount&"'>尾页</a>"
		    end if
           %>
&nbsp;&nbsp;&nbsp;转到：
           <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
             <% for i=1 to rs.pagecount 
			      if curpage=i then 
			         response.write "<option value='?pageno="&i&"' selected>第"&i&"页"
			      else
			         response.write "<option value='?pageno="&i&"'>第"&i&"页"
			      end if
			    next
		     %>
           </select>
                        </td>
                      </tr>
                    </table>
                      <% for i = 1 to rs.pagesize %>
                      <br>
                      <table width="100%" border="0" cellpadding="0" cellspacing="0" class="border2">
                        <tr>
                          <td width="79%"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                              <tr>
                                <td width="21%" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                      <td height="20" align="center" bgcolor="#CCCCCC"><strong><font color="#FFFFFF">NO.<%=rs("ID")%></font></strong></td>
                                    </tr>
                                    <tr>
                                      <td height="4" align="center"></td>
                                    </tr>
                                    <tr>
                                      <td align="center"><img src="head/<%=rs("Head")%>.gif"></td>
                                    </tr>
                                    <tr>
                                      <td height="4" align="center">&nbsp;</td>
                                    </tr>
                                    <tr>
                                      <td align="center"><%=rs("TrueName")&"["&rs("ComeFrom")&"]"%></td>
                                    </tr>
                                </table></td>
                                <td width="79%" bgcolor="#FFFFFF" class="font"><table width="100%" border="0" cellspacing="0" cellpadding="4">
                                    <tr>
                                      <td><%="<img src=face/"&rs("Face")&".gif>&nbsp;"&chtml(rs("content"))%></td>
                                    </tr>
                                </table></td>
                              </tr>
                              <tr bgcolor="#EFF3E7">
                                <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                      <td width="23" align="center"><a href="<%=rs("Url")%>" target="_blank"><img src="images/homepage.gif" alt="主頁" width="16" height="16" border="0"></a></td>
                                      <td width="23" align="center"><a href="mailto:<%=rs("Email")%>"><img src="email.gif" alt="電子郵箱" width="16" height="16" border="0"></a></td>
                                      <td width="23" align="center">
                                        <% if session("BookManage")<>"" then
			      response.write "<a href='restore.asp?id="&rs("id")&"&pageno="&pageno&"'>"
			   else
			      response.write "<a href=javascript:alert('你没有这个权限')>"
			   end if
			%>
                                        <img src="images/return.gif" alt="回復" width="16" height="16" border="0"></td>
                                      <td width="23" align="center">
                                        <% if session("BookManage")<>"" then
			      response.write "<a href=javascript:check_dele('"&rs("id")&"','"&pageno&"')>"
			   else
			      response.write "<a href=javascript:alert('你没有这个权限')>"
			   end if
			%>
                                        <img src="images/delete.gif" alt="刪除" width="16" height="16" border="0"></td>
                                      <td height="20" align="right">留言于：<%=rs("AddTime")%> </td>
                                    </tr>
                                </table></td>
                              </tr>
                              <%if rs("Answer")<>"" then%>
                              <tr bgcolor="#FFFFFF">
                                <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                      <td width="15%"><img src="images/vickey.gif" width="82" height="25"></td>
                                      <td width="5%" align="center">&nbsp;</td>
                                      <td width="80%" class="font1">&nbsp; <%=chtml(rs("Answer"))&" <font class=copyright>["&rs("AnswerTime")&"]</font>"%></td>
                                    </tr>
                                </table></td>
                              </tr>
                              <%end if%>
                          </table></td>
                        </tr>
                      </table>
                      <% rs.movenext
   if rs.eof then
     i = i + 1
     exit for
   end if
 next
%>
                      <br>
                      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#f6f6f6">
                        <tr>
                          <td width="37%"> 页次:<%=curpage%>/<%=rs.pagecount %>&nbsp;&nbsp;总共有<%=rs.recordcount %>条留言</td>
                          <td width="63%" align="right">
                            <% 
		    if curpage = 1 then 
			   response.write " 首页 | 上一页 | "
		    else
		       response.write "<a href='?pageno=1'>首页</a> | <a href='?pageno="&curpage-1&"'>上一页</a> | "
		    end if 
		  
		    if curpage = rs.pagecount then
			   response.write "下一页 | 尾页"
		    else
		       response.write "<a href='?pageno="&curpage+1&"'>下一页</a> | <a href='?pageno="&rs.pagecount&"'>尾页</a>"
		    end if
           %>
&nbsp;&nbsp;&nbsp;转到：
            <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
             <% for i=1 to rs.pagecount 
			      if curpage=i then 
			         response.write "<option value='?pageno="&i&"' selected>第"&i&"页"
			      else
			         response.write "<option value='?pageno="&i&"'>第"&i&"页"
			      end if
			    next
		     %>
           </select>
                          </td>
                        </tr>
                      </table>
                      <%end if%>
                      <br></td>
                </tr>
              </table></p>
              <br>
              <br></td>
                  <td width="3%" align="center" background="images/g2.jpg" class="zhengwen"><img src="images/g2.jpg" width="16" height="195"></td>
                </tr>
                <tr>
                  <td colspan="3" class="zhengwen"><img src="images/g3.jpg" width="568" height="34"></td>
                  </tr>
              </table>              
              </td>
          </tr>
        </table></td>
        </tr>
    </table></td>
    <td width="25" valign="bottom" background="../images/about_6.jpg"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="262" background="../images/about_6.jpg"><IMG SRC="../images/about_6.jpg" WIDTH=24 HEIGHT=52 ALT=""></td>
      </tr>
      <tr>
        <td height="459" valign="bottom"><IMG SRC="../images/about_8.jpg" WIDTH=24 HEIGHT=337 ALT=""></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="../include/bottom.asp"-->
<map name="Map">
  <area shape="rect" coords="365,85,429,108" href="BookWrite.asp">
</map>
</body>
</html>
  <map name="Map1111111111111" id="Map1111111111111">
    <area shape="rect" coords="18,62,71,116" href="../News/News.asp">
    <area shape="rect" coords="18,125,72,184" href="../aboutus/Cultrue.asp">
    <area shape="rect" coords="20,203,73,258" href="../product/Feedback.asp">
    <area shape="rect" coords="18,272,77,327" href="../Distribution/Distribution.asp">
    <area shape="rect" coords="14,334,81,359" href="../english/main.asp" target="_blank">
</map>