📄 filemodify.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../Inc/Cls_JS.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.5
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->

<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P060401") then Call ReturnError()
Dim TempSysRootDir
if SysRootDir = "" then
	TempSysRootDir = ""
else
	TempSysRootDir = "/" & SysRootDir
end if

dim FileID,FileObj,Types,FreeJSObj
if Request("JSID")<>"" then
	FileID = Request("JSID")
	Types = Cstr(Request("Types"))
else
	 Response.Write("<script>alert(""参数传递错误"");</script>")
	 response.end
end if
%>
<html>
<head>
<link href="../../../CSS/ModeWindow.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自由JS新闻图片修改</title>
</head>
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<body leftmargin="0" topmargin="0">
<% if Types = "Mod" then
	Set FileObj = Conn.Execute("Select PicPath,JSName from FS_FreeJsFile where ID="&Clng(FileID)&"")
	if FileObj.eof then
		 Response.Write("<script>alert(""参数传递错误"");</script>")
		 response.end
	end if
	Set FreeJSObj = Conn.Execute("Select Manner from FS_FreeJS where EName='"&FileObj("JSName")&"'")
%>
<form action="" name="FMForm" method="post" >
  <table width="100%" border="0" cellspacing="5" cellpadding="0">
    <tr> 
      <td height="8"></td>
    </tr>
    <tr> 
      <td><div align="center">
          <input name="PicPath" type="text" size="30" value="<%=FileObj("PicPath")%>">
          <input type="button" name="Submit" value="选择图片" onClick="OpenWindowAndSetValue('../inc/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window,document.FMForm.PicPath);">
      </div></td>
    </tr>
    <tr> 
      <td height="5"></td>
    </tr>
    <tr> 
      <td> <div align="center">
          <input type="submit" name="Submit2" value=" 修 改 ">
          <input name="action" type="hidden" id="action2" value="mod">
          <input type="button" name="Submit3" value=" 取 消 " onClick="window.close();">
      </div></td>
    </tr>
  </table>
</form>
<% elseif Types = "Del" then%>
<form name="JSDellForm" action="" method="post">
  <table width="100%" border="0" cellspacing="5" cellpadding="0">
    <tr> 
      <td><div align="center"><img src="../../Images/Question.gif" width="39" height="37"></div></td>
      <td width="76%">您确定要从JS中删除所选新闻?</td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"> 
          <input type="submit" name="Submit4" value=" 确 定 ">
          <input name="DAction" type="hidden" id="DAction" value="trues">
          <input type="button" name="Submit5" value=" 取 消 " onclick="window.close();">
      </div></td>
    </tr>
  </table>
</form>
  <% end if %>
</body>
</html>
<%
Dim JSClassObj,ReturnValue
Set JSClassObj = New JSClass
JSClassObj.SysRootDir = TempSysRootDir
if Request("action")="mod" then
     if Request.Form("PicPath")<>"" then
	     dim PicStr
		 PicStr = Cstr(Request.Form("PicPath"))
		 Conn.Execute("Update FS_FreeJsFile set PicPath='"&PicStr&"' where ID="&FileID&"")
	  '--------------------重新生成JS文件---------------------------------
		  Select case FreeJSObj("Manner")
			 case "1"   ReturnValue = JSClassObj.WCssA(FileObj("JSName"),True)
			 case "2"   ReturnValue = JSClassObj.WCssB(FileObj("JSName"),True)
			 case "3"   ReturnValue = JSClassObj.WCssC(FileObj("JSName"),True)
			 case "4"   ReturnValue = JSClassObj.WCssD(FileObj("JSName"),True)
			 case "5"   ReturnValue = JSClassObj.WCssE(FileObj("JSName"),True)
			 case "6"   ReturnValue = JSClassObj.PCssA(FileObj("JSName"),True)
			 case "7"   ReturnValue = JSClassObj.PCssB(FileObj("JSName"),True)
			 case "8"   ReturnValue = JSClassObj.PCssC(FileObj("JSName"),True)
			 case "9"   ReturnValue = JSClassObj.PCssD(FileObj("JSName"),True)
			 case "10"   ReturnValue = JSClassObj.PCssE(FileObj("JSName"),True)
			 case "11"   ReturnValue = JSClassObj.PCssF(FileObj("JSName"),True)
			 case "12"  ReturnValue = JSClassObj.PCssG(FileObj("JSName"),True)
			 case "13"   ReturnValue = JSClassObj.PCssH(FileObj("JSName"),True)
			 case "14"   ReturnValue = JSClassObj.PCssI(FileObj("JSName"),True)
			 case "15"   ReturnValue = JSClassObj.PCssJ(FileObj("JSName"),True)
			 case "16"   ReturnValue = JSClassObj.PCssK(FileObj("JSName"),True)
			 case "17"   ReturnValue = JSClassObj.PCssL(FileObj("JSName"),True)
	   End Select
	  FreeJSObj.Close
	  Set FreeJSObj = Nothing 
	 end if
	If ReturnValue <> "" then
		Response.write("<script>alert('" & ReturnValue & "');dialogArguments.location.reload();window.close();</script>")
	else
		Response.write("<script>dialogArguments.location.reload();window.close();</script>")
	End If
  end if
  
  if Request.Form("DAction")="trues" then
  	Dim DFArray,DF_i,CreaFileObj,CcreFileObj
	DFArray = Array("")
	DFArray = Split(FileID,"***")
	FileID = Replace(FileID,"***",",")
	For DF_i = 0 to UBound(DFArray)
		 Conn.Execute("update FS_FreeJsFile set DelFlag=1 where ID="&DFArray(DF_i)&"")
	Next
	Set CreaFileObj = Conn.Execute("Select distinct JSName from FS_FreeJsFile where ID in ("&FileID&")")
	Do while Not CreaFileObj.eof
		Set CcreFileObj = Conn.Execute("Select Manner,EName from FS_FreeJS where EName='"&CreaFileObj("JSName")&"'")
		If Not CcreFileObj.eof then
	  '--------------------重新生成JS文件---------------------------------
		  Select case CcreFileObj("Manner")
			 case "1"   ReturnValue = JSClassObj.WCssA(CreaFileObj("JSName"),True)
			 case "2"   ReturnValue = JSClassObj.WCssB(CreaFileObj("JSName"),True)
			 case "3"   ReturnValue = JSClassObj.WCssC(CreaFileObj("JSName"),True)
			 case "4"   ReturnValue = JSClassObj.WCssD(CreaFileObj("JSName"),True)
			 case "5"   ReturnValue = JSClassObj.WCssE(CreaFileObj("JSName"),True)
			 case "6"   ReturnValue = JSClassObj.PCssA(CreaFileObj("JSName"),True)
			 case "7"   ReturnValue = JSClassObj.PCssB(CreaFileObj("JSName"),True)
			 case "8"   ReturnValue = JSClassObj.PCssC(CreaFileObj("JSName"),True)
			 case "9"   ReturnValue = JSClassObj.PCssD(CreaFileObj("JSName"),True)
			 case "10"   ReturnValue = JSClassObj.PCssE(CreaFileObj("JSName"),True)
			 case "11"   ReturnValue = JSClassObj.PCssF(CreaFileObj("JSName"),True)
			 case "12"   ReturnValue = JSClassObj.PCssG(CreaFileObj("JSName"),True)
			 case "13"   ReturnValue = JSClassObj.PCssH(CreaFileObj("JSName"),True)
			 case "14"   ReturnValue = JSClassObj.PCssI(CreaFileObj("JSName"),True)
			 case "15"   ReturnValue = JSClassObj.PCssJ(CreaFileObj("JSName"),True)
			 case "16"   ReturnValue = JSClassObj.PCssK(CreaFileObj("JSName"),True)
			 case "17"   ReturnValue = JSClassObj.PCssL(CreaFileObj("JSName"),True)
	   End Select
	  End If
	  CcreFileObj.Close
	  Set CcreFileObj = Nothing
	  CreaFileObj.MoveNext
	Loop
	For DF_i = 0 to UBound(DFArray)
		 Conn.Execute("delete from FS_FreeJsFile where ID="&DFArray(DF_i)&"")
	Next
	If ReturnValue <> "" then
		Response.write("<script>alert('" & ReturnValue & "');dialogArguments.location.reload();window.close();</script>")
	else
		Response.write("<script>dialogArguments.location.reload();window.close();</script>")
	End If
 end if
Set JSClassObj = Nothing
%>
⌨️ 快捷键说明

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