📄 ontop.asp

📁 有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大

💻 ASP

字号:

<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/savegsbook.asp" -->
<!--#include file="class/showpage.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassSave,ClassPage
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassSave = New Savegsbook
Set ClassPage = New ShowPage
ClassSystem.CheckLockIp()
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
ClassPage.CheckGsbookId Request.QueryString("Id")
ClassPage.ShowGsbookInfo ClassPage.Id
ClassSave.SetRequest_Method Request.ServerVariables("Request_Method")
Select Case ClassSave.Request_Method
	Case "POST"
		ClassSave.SaveOntop ClassPage.ArrRs(15,0),ClassPage.Id
		ClassCheck.CallOk 2
End Select
ClassSystem.Closedb()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file=Include/Top.asp -->
<div class="div"> 
  <table Class=TableTop border=0 cellpadding="0" cellspacing="0">
    <tr> 
    <td class=TableTop_Left rowspan="11">&nbsp;</td>
    <td colspan="2" align="center">&nbsp;</td>
  </tr>
  <tr> 
      <td colspan="2" class=TableTop_Right>&nbsp;
        <table width="400" height="100%" align="center">
          <form method="post" action="?Id=<%=ClassPage.Id%>" style="margin:0">
            <tr>
              <td align=center> <p><strong>系统提示：
                  <%If ClassPage.ArrRs(15,0) = True Then response.write "你确认<font color=red>取消</font>该留言的置顶吗？" else response.write "您确认把该留言信息置顶吗？"%>
                  </strong></p>
                <p>当前状态：<strong>
                  <%If ClassPage.ArrRs(15,0) = True Then response.write "<font color=red>已置顶</font>" else response.write "未置顶"%>
                  </strong></p>
                <input type="submit" name="Submit" value="=> 是的!Do It" class=put2>
                <input type=reset name="Reset" value="No！我要返回一页" onClick="javascript:history.back()" class=put3> 
              </td>
            </tr>
          </form>
        </table></td>
  </tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -