📄 movenewstotop.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Const.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"),"P010500") then Call ReturnError1()'权限代码自行修改
'判断权限结束


'置顶操作
If Request.Form("action") = "submit" Then
   Dim NewsIDStr,actionStr
   if Request("NewsIDStr") <> "" Then
      NewsIDStr = Replace(Request("NewsIDStr"),"***","','")
	  actionStr = Request.Form("actionStr")'是否置顶
	  '置顶/反置顶
	  If actionStr <> "" then
		 Conn.Execute("Update FS_News set isTop="&actionStr&" where NewsID in ('" & NewsIDStr & "')")
	  End If 
      Set Conn = Nothing
      Response.Write("<script>window.close();</script>")
   End If
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>置顶/反置顶新闻</title>
</head>
<link href="/CSS/ModeWindow.css" rel="stylesheet">
<body topmargin="0" leftmargin="0">


<table width="96%" border="0" cellspacing="0" cellpadding="0" align=center>
 <form name="NewsForm" action="" method="post">
 <input type="hidden" name="NewsIDStr" value="<% = Request("NewsIDStr") %>">
 <input type="hidden" name="Action" value="submit">
 <tr> 
    <td height="30" width=18%>您要执行操作</td>
    <td width=82%> 
			  <select name="actionStr" id="actionStr" style="width:30%">
		        <option value="">选择</option>
                <option value="1">置顶</option>
                <option value="0">反置顶</option>
              </select>
		&nbsp;&nbsp; <input name="Submitfgsfd" type="submit" id="Submitfgsfd" value="确定">
	   &nbsp;&nbsp;
      <input name="Submit2fasd" type="button" id="Submit2fasd" onClick="window.close();" value="取消">
     </td>
</tr>

 </form>
</table>
</body>
</html>
<%
Set Conn = Nothing
%>
⌨️ 快捷键说明

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