📄 callok.asp
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="class/command.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck
Set ClassSystem = New System
Set ClassCheck = New CheckUser
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassSystem.Closedb()
Select Case Request.Querystring("type")
Case 1
BackUrl = Request.ServerVariables("HTTP_REFERER")
Case Else
BackUrl = "Index.asp"
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh" content="0; URL=<%=BackUrl%>">
<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"> </td>
<td colspan="2" align="center"> </td>
</tr>
<tr>
<td colspan="2" class=TableTop_Right>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="79" align="right"><img src="Images/loading.gif" width="64" height="64"></td>
<td width="321"> <p><strong> 恭喜!您的操作已执行成功...</strong></p>
<p> 系统将正在自动返回留言本首页.<a href="Index.asp"><u><font color="#0000FF">点此直接返回</font></u></a>..</p></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table></td>
</tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -