📄 article_addtojs.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#Include File="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../SysCls/KS_RefreshCls.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.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim KSCls
Set KSCls = New Article_AddToJS
KSCls.Execute()
Set KSCls = Nothing
Class Article_AddToJS
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
'主体部分
Public Sub Execute()
DIM JSNameList,JSObj,NewsID
If Not KSCMS.ReturnPowerResult(1, "KMA10007") Then '文章加入JS权限检查
Call KSCMS.ReturnErr(0, "")
End If
NewsID=Trim(Request("NewsID"))
Set JSObj=Server.CreateObject("Adodb.Recordset")
JSObj.Open "Select JSName,JSID From KS_JSFile Where JSType=1 And JSConfig NOT LIKE 'GetExtJS%'",Conn,1,1
IF NOT JSObj.EOF THEN
JSNameList="<Option Value='0'></Option>"
DO While NOT JSObj.EOF
JSNameList=JSNameList & "<Option value=" & JSObj("JSID") &">" & Trim(JSObj("JSName")) & "</Option>"
JSObj.MoveNext
LOOP
Else
JSNameList=JSNameList & "<Option value=0>---您没有建自由JS---</Option>"
END IF
JSObj.Close
Set JSObj=Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; chaRSet=gb2312">
<title>文章加入自由JS</title>
<link href="../Inc/Admin_Style.css" rel="stylesheet">
<link href="../Inc/ModeWindow.css" rel="stylesheet">
<script language="JavaScript" src="../JS/Common.js"></script>
</head>
<body topmargin="0" leftmargin="0" scroll=no>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="myform" action="Article_AddToJS.asp" method="post">
<input type="hidden" value="Add" Name="Action">
<input type="hidden" name="JSName">
<input type="hidden" value="<%=NewsID%>" Name="NewsID">
<tr>
<td height="18"> </td>
</tr>
<tr>
<td height="30" align="center"> <strong>请选择JS名称</strong>
<select name="JSID">
<%=JSNameList%>
</select>
</td>
</tr>
<tr align="center">
<td height="30"> <input type="button" class="buttonStyle" name="button1" value="加入JS" onClick="CheckForm()">
<input type="button" class="buttonStyle" onClick="window.close();" name="button2" value=" 取消 ">
</td>
</tr>
</form>
</table>
</body>
</html>
<Script>
function CheckForm()
{
if (document.myform.JSID.value=='0')
{ alert('对不起,您没有选择JS名称!');
document.myform.JSID.focus();
return false;
}
document.myform.JSName.value=document.myform.JSID.options[document.myform.JSID.selectedIndex].text
document.myform.submit();
return true
}
</Script>
<%IF Request.Form("Action")="Add" Then
Dim ArticleRS,OldJSID,JSID,NewsIDArr,K
JSID=Trim(Request.Form("JSID"))
NewsIDArr=Split(NewsID,",")
Set ArticleRS=Server.CreateObject("Adodb.RecordSET")
For K=Lbound(NewsIDArr) To Ubound(NewsIDArr)
ArticleRS.Open "Select JSID From KS_Article Where NewsID='" & NewsIDArr(K) & "'",Conn,1,3
IF Not ArticleRS.Eof THEN
OldJSID=Trim(ArticleRS("JSID"))
IF Trim(ArticleRS(0))="0" or Trim(ArticleRS(0))="" or isnull(ArticleRS(0)) Then
ArticleRS(0)=JSID & ","
Elseif InStr(OldJSID,JSID)=0 then
ArticleRS(0)=ArticleRS(0) & JSID & ","
End if
ArticleRS.UPDate
'刷新JS
Dim KSRObj,JSName
JSName=Trim(Request.Form("JSName"))
Set KSRObj=New Refresh
KSRObj.RefreshJS(JSName)
Set KSRObj=Nothing
End IF
ArticleRS.Close
Next
Set ArticleRS=Nothing
Conn.Close
Set Conn=Nothing
Response.Write("<script>alert('操作成功!');window.close();</script>")
End IF
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -