📄 book.asp

📁 个人网站系统毕业论文大家可以借鉴下
💻 ASP
字号:

 <!--#include file ="conn.asp"-->
<!--#include file ="page.asp"-->
<!--#include file ="function.asp"-->
<!--#include file ="ubbcode.asp"-->
 
 
<script>
function runEx(cod1)  {
 cod=document.all(cod1)
  var code=cod.value;
  if (code!=""){
  var newwin=window.open('','','');  
  newwin.opener = null 
  newwin.document.write(code);  
  newwin.document.close();
}
}

 
</script>
 

<body oncontextmenu="return false"    leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
 
  
<table width="633" height="22" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
  <tr bgcolor="#FFFFFF"> 
      
    <td height="20" align="right" valign="middle" background="img/bg01.gif"><a href="write.asp"><img src="img/liuyan.gif" width="70" height="25" border="0"> </a>
    </td>
    </tr>
  </table>
<%set rs=server.CreateObject("adodb.recordset")
 sql="select * from gsbook order by new_id desc" 
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then %>
  
<table width="633" height="94" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
  <tr bgcolor="#FFFFFF"> 
     <td align="center">当前没有留言！！ </td>
  </tr>
</table>
<% else
page=request.querystring("page")   
rs.PageSize =8
 
if Not IsEmpty(page) then  
    if Not IsNumeric(page) then  
       page=1
    else
    Page = cint(page)  
    end if   
    if Page > rs.PageCount then  
        rs.AbsolutePage = rs.PageCount          
    elseif Page <= 0 then  
        rs.AbsolutePage = 1  
    else
        rs.AbsolutePage = Page  
    end if
else
rs.AbsolutePage=1
end if
Page = rs.AbsolutePage%>

<% 
For i = 1 to rs.PageSize  
 if rs.EOF then
  Exit For 
 end if 
%>
  
<table  style="TABLE-LAYOUT: fixed"  width="633" height="83" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
  <tr bgcolor="#FFFFFF"> 
      
    <td width="100" height="21" align="center" valign="middle" background="img/bg01.gif"><font color="#FF6633">　</font><font color="#FF6633"><%=rs("new_name")%></font></td>
      
    <td width="429" background="img/bg01.gif"><font color="#FF6633"><%=rs("new_time")%></font>&nbsp; <%if rs("new_qq")<>"" then
	
	 %> <img src="img/qq.gif" title="<%=rs("new_qq")%>"> 
      <%end if%> <%if rs("new_email")<>"" then
	
	 %> <img src="img/email.gif" title="<%=rs("new_email")%>"> 
      <%end if%> <%if rs("new_homepage")<>"" then
	
	 %>
        <a href="<%=rs("new_homepage")%>" target="_blank"><img src="img/homepage.gif" border="0" title="<%=rs("new_homepage")%>"></a> 
        <%end if%> <%if session("oursky")="oursky" then%> <a href="reply.asp?id=<%=rs("new_id")%>">回复</a> 
      <%end if%> <%if session("oursky")="oursky" then%> <script language="JavaScript">
<!--
function suredo(src,q)
    {
      var ret;
      ret = confirm(q);
      if(ret!=false)window.location=src;
    }
//-->
</script> <a href='javascript:suredo("delete.asp?id=<%=rs("new_id")%>","确定删除?")'>删除</a> 
      <%end if%>
    </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
      <td rowspan="2" align="center" background="img/forum_bgcolor.gif"><img src="<%=rs("new_img")%>"></td>
	 
      <td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word" align="left" valign="top"><%=ubb(th2(rs("new_content")))%>&nbsp;</td>
  </tr><%if rs("new_reply")<>"" then%>   
  <tr bgcolor="#FFFFFF"> 
      <td align="left" valign="top"><img src="img/reply.gif" width="36" height="16"><br><font color="red"><%=ubb(th(rs("new_reply")))%></font></td>
  </tr>
  <%end if%>
</table>
<%
rs.movenext
next
end if%>
<table width="633" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#993300">
  <tr>
      
    <td align="center" background="img/bg01.gif" bgcolor="#FFFFFF"> 
      <%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)
 rs.close
  set rs=nothing
  conn.close
  set conn=nothing %>
    </td>
  </tr>
</table>
 
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -