📄 unregulateadd.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"),"P031401") then Call ReturnError1()
'============================
Dim TempClassID,KeyWord
TempClassID = Cstr(Request.QueryString("ClassID"))
KeyWord = NoCSSHackAdmin(Request.QueryString("SearchKey"),"关键字")
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
%>
<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>
</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> </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="submit" value="搜 索">
</td>
</tr>
</form>
<form name="GetNewsIDForm" action="SetUnRegulate.asp?Action=Add" method=post>
<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>
<%
Dim IDList : IDList = "," '列出不重复的新闻ID
Dim ListObj,ListSql
set ListObj = Server.CreateObject(G_FS_RS)
If KeyWord<>"" Then
If TempClassID<>"" Then
ListSQL = "select KeyWords,NewsID,Title,SubTitle,ID From [FS_News] where (KeyWords like '%"&KeyWord&"%' or Title like '%"&KeyWord&"%') and ClassID='"&TempClassID&"' and DelTF=0 and auditTf=1 Order By ID Desc"
Else
ListSQL = "select KeyWords,NewsID,Title,SubTitle,ID From [FS_News] where (KeyWords like '%"&KeyWord&"%' or Title like '%"&KeyWord&"%') and DelTF=0 and auditTf=1 Order By ID Desc"
End If
'response.write ListSQL
ListObj.open ListSQL,Conn,1,1
if Not ListObj.eof Then
do while not ListObj.eof
If Instr(IDList,","&ListObj("ID")&",")=0 Then
Response.write "<tr><td colspan=5 bgcolor=#DDDDDD></td></tr>"
Response.write "<tr><td align=center><input type='checkbox' name=""NewsID"" value="""&ListObj("NewsID")&"""></td><td><input title='修改不规则调用时使用的标题' type=text name='File_"&ListObj("NewsID")&"' size=16 value='"&ListObj("SubTitle")&"'></td><td> <a href='"&GetOneNewsLinkURL(ListObj("NewsID"))&"' target=_blank title=点击查看本条新闻>"&ListObj("Title")&"</a></td><td align=center><input type=radio name=MainNewsID value='"&ListObj("NewsID")&"'></td></tr>"&vbcrlf
End If
IDList = IDList & ListObj("ID") & ","
ListObj.movenext
Loop
Else
Response.write "<tr><td colspan=5 bgcolor=#DDDDDD></td></tr><tr><td colspan=5 height=23>没有与关键字相关的新闻</td></tr>"
End If
Response.write "<tr><td colspan=5 bgcolor=#DDDDDD></td></tr>"
ListObj.Close
End IF
%>
</table>
</div>
</td>
</tr>
</form>
</table>
</BODY>
</HTML>
<%
Set Conn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -