📄 jsview.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim KSCls
Set KSCls = New JSVIEW
KSCls.Execute()
Set KSCls = Nothing
Class JSVIEW
Private KSCMS
Private JSObj,JSID, JSdir,JSUrlStr
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Sub Execute()
JSID=Trim(Request.QueryString("JSID"))
JSDir = KSCMS.GetConfig("JSdir")
If Left(JSDir, 1) = "/" Or Left(JSDir, 1) = "\" Then JSDir = Right(JSDir, Len(JSDir) - 1)
Set JSObj=Server.CreateObject("Adodb.Recordset")
JSObj.OPEN "Select JSConfig,JSType,JSFileName From KS_JSFile Where JSID='" & JSID & "'",Conn,1,1
IF JSObj.EOf AND JSObj.BOF THEN
Response.Write("参数传递出错!")
JSObj.Close
Set JSObj=Nothing
Response.End
ELSE
IF (trim(Split(JSObj("JSConfig"),",")(0))="GetExtJS" Or JSObj("JSType")=0) or (Request.QueryString("CanView")="1") Then
JSUrlStr="<script language=""javascript"" src=""" & KSCMS.GetDomain & JSDir & Trim(JSObj("JSFileName")) & """></script>"
Else
JSObj.Close
Set JSObj=Nothing
Response.Redirect "JSFreeView.asp?JSID=" &JSID
End IF
END IF
JSObj.close
Set JSObj=Nothing
%>
<html>
<head>
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Inc/Admin_Style.CSS" rel="stylesheet">
<title>JS预览</title>
<script language="JavaScript" src="../JS/Common.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#F1FAFA">
<br>
<table width="100%" height="70%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><table width="90%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><%=JSUrlStr%></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"><strong> 说明:</strong></td>
</tr>
<tr>
<td height="25"> １．如果JS中有设置样式,那么这里的预览效果可能会与实际有点差距</td>
</tr>
<tr>
<td height="25"> ２．如果看不到效果，请单击刷新按钮 <input type="button" value="刷新" onClick="window.location.reload()"><input type="button" value="关闭" onClick="window.parent.close()">
<%if Request.QueryString("CanView")="1" then
Response.Write("<INPUT TYPE=BUTTON value=""返回"" onclick=""history.back();"">")
End IF
%></td>
</tr>
</table>
</body>
</html>
<% End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -