📄 unregulateedit.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../Refresh/Function.asp" -->
<%
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"),"P031402") then Call ReturnError1()

Dim TempClassID,KeyWord,ItemID
TempClassID = Cstr(Request.QueryString("ClassID"))
ItemID = Cstr(Request.QueryString("ItemID"))
KeyWord = NoCSSHackAdmin(Request.QueryString("SearchKey"),"关键字")
If Not IsNumeric(Replace(ItemID,",","")) Then
	REsponse.write "<script>alert('错误的编辑内容');</script>"
	response.end
End If

Dim ClassCache
Set ClassCache = New Cls_FsCache
ClassCache.Name="ClassCache"

Dim TempSysRootDir
If SysRootDir<>"" then
	TempSysRootDir = "/" & SysRootDir
Else
	TempSysRootDir = ""
End If

Dim TempClassListStr,TempTPLStr,TempClassName
TempClassListStr = ClassCache.ClassListOption("0",0,0)
Set ClassCache=Nothing

Function GetArrID(CurNewsID)
	Dim tmp
	GetArrID = 0
	For tmp=Lbound(NewsID) to Ubound(NewsID)
		if NewsID(tmp) = CurNewsID Then GetArrID = tmp : Exit Function
	Next
End Function

Dim ListObj,ListSql
set ListObj = Server.CreateObject(G_FS_RS)
'初始化编辑的新闻
Dim NewsID,NewsTitle,MainNewsID
ListObj.open "Select UnregulatedMain,NewsIndexTitle,MainUnregNewsID from [FS_UnRGLNews] Where ID in ("&ItemID&")",Conn,1,1
do while not ListObj.eof
	NewsID = NewsID &","& ListObj(2)
	MainNewsID = ListObj(0)
	NewsTitle = NewsTitle &","& ListObj(1)
	ListObj.MoveNext
loop
ListObj.close

%>
<html>
<head>
<LINK href="../../../Css/FS_css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="../../SysJS/PublicJS.js"></script>
<title>不规则新闻设置</title>
<script language="javascript">
function SubmitValue(v){
	document.SearchForm.SearchKey.value = v;
	document.getElementById("ShowKeyWords").style.display='none';
}
function ShowKeyWords()
{
	var obj = document.getElementById("ShowKeyWords");
	obj.style.display = '';
	obj.style.width = parseInt(document.body.clientWidth)-20;
	obj.style.height = parseInt(document.body.clientHeight)*0.85;
	obj.style.top = parseInt(document.body.clientHeight)*0.11;
	obj.style.left = 4;
}
</script>
</head>

<body topmargin="2" leftmargin="2" style="overflow-Y:auto;">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#EEEEEE"> 
    <td height="26" colspan="5" valign="middle">
      <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width=35 align="center" alt="保存" onClick="document.GetNewsIDForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
		  <td width=2 class="Gray">|</td>
		  <td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
		  <td>&nbsp; </td>
        </tr>
      </table>
	  </td>
  </tr>
</table>

<table><tr><td height=1></td></tr></table>
<table width="100%" height="94%"  border="0" align=center cellpadding="0" cellspacing="2" bgcolor="#EDEDED">
<form name='SearchForm' method="get" target='_self' action="?">
  <tr height="21" bgcolor="#FFFFFF">
    <td align="center" width="*">栏目列表</td>
    <td align="center" width="48%"><select name="ClassID" style="width:100%"><option value="">所有栏目</option><%=TempClassListStr%></select></td>
    <td align="center" width="40%">
	<input type="text" name="SearchKey" value="<%=KeyWord%>">
	<input type="hidden" name="ItemID" value="<%=ItemID%>">
	<input type="submit" value="搜 索">
	</td>
  </tr>
</form>
<form name="GetNewsIDForm" action="SetUnRegulate.asp?Action=Add" atarget="tempFrame" method=post>
<input type="hidden" name="MainNewsID" value="<%=MainNewsID%>">
  <tr height="*" bgcolor="#FFFFFF">
    <td colspan=3>
	<div style="border:1px groove;width:100%;height:100%;overflow:auto;padding:4px;">
	 <table width="100%" cellpadding=0 cellspacing=1 align=center>
	   <tr>
	     <td width="*" align=center>选择</td>
		 <td width="20%">　不规则标题</td>
		 <td width="60%">　新闻标题</td>
		 <td width="10%" align=center>主新闻</td>
	   </tr>
	<%
	NewsID = split(NewsID,",")
	NewsTitle = split(NewsTitle,",")
	Dim i
	For i = LBound(NewsID) to UBound(NewsID)
		ListSQL = "select KeyWords,NewsID,Title,SubTitle,ID From [FS_News] where NewsID ='"&NewsID(i)&"' and DelTF=0 and auditTf=1"
		ListObj.open ListSQL,Conn,1,1
		If Not ListObj.Eof Then
			Response.write "<tr><td align=center><input type='checkbox' name=""NewsID"" value="""&ListObj("NewsID")&""" checked></td><td><input title='修改不规则调用时使用的标题' type=text name='File_"&ListObj("NewsID")&"' size=16 value='"&NewsTitle(i)&"'></td>"
			If MainNewsID = ListObj("NewsID") Then
				Response.Write "<td>　<a href='"&GetOneNewsLinkURL(ListObj("NewsID"))&"' target=_blank title=点击查看本条新闻>"&ListObj("Title")&"</a></td><td align=center><input type=radio name=MainNewsID value='"&ListObj("NewsID")&"' checked disabled></td></tr>"&vbcrlf
			Else
				Response.Write "<td>　<a href='"&GetOneNewsLinkURL(ListObj("NewsID"))&"' target=_blank title=点击查看本条新闻>"&ListObj("Title")&"</a></td><td align=center><input type=radio name=MainNewsID value='"&ListObj("NewsID")&"' disabled></td></tr>"&vbcrlf
			End If
		End If
		Response.write "<tr><td colspan=5 bgcolor=#DDDDDD></td></tr>"
		ListObj.Close
	Next
	
%>
	 </table>
	</div>
	</td>
  </tr>
</form>
</table>
</BODY>
</HTML>
<%
Set ListObj = Nothing
Set Conn = Nothing
%>
⌨️ 快捷键说明

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