📄 movenewstosystem.asp
字号:
<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" -->
<!--#include file="inc/Function.asp" -->
<%
Dim DBC,Conn,CollectConn
Set DBC = New DataBaseClass
Set CollectConn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
'判断权限
%>
<%
'判断权限结束
Sub ShowInfo(InfoStr)
%>
<!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="inc/ModeWindow.css" rel="stylesheet">
<body topmargin="0" leftmargin="0" scroll=no>
<div align="center">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30">
<div align="center">
<% = InfoStr %>
</div></td>
</tr>
<tr>
<td height="50"><div align="center">
<input onClick="dialogArguments.location.reload();window.close();" type="button" name="Submit2" value=" 关 闭 ">
</div></td>
</tr>
</table>
</div>
</body>
</html>
<%
End Sub
Dim MoveNewsList,RsSysNewsObj,SysNewsSql,MoveNewsNum
Dim SysTemplet,RsTempObj,Sql,RsNewsObj
MoveNewsNum = 0
MoveNewsList = Replace(Request("NewsIDStr"),"*",",")
if MoveNewsList = "" then
ShowInfo "没有选择新闻"
Response.End
end if
Sql = "Select * from News where ID in (" & MoveNewsList & ")"
'On Error Resume Next
Set RsNewsObj = CollectConn.Execute(Sql)
if Not RsNewsObj.Eof then
SysNewsSql = "Select * from [article] where 1=0"
Set RsSysNewsObj = Server.CreateObject("ADODB.RecordSet")
RsSysNewsObj.Open SysNewsSql,Conn,3,3
do while Not RsNewsObj.Eof
RsSysNewsObj.AddNew
'RsSysNewsObj("NewsID") = GetRandomID18
RsSysNewsObj("Title") = RsNewsObj("Title")
RsSysNewsObj("titlecolor") = "black"
RsSysNewsObj("Content") = RsNewsObj("Content")
RsSysNewsObj("boardid") = RsNewsObj("boardid")
RsSysNewsObj("boardname") = RsNewsObj("boardname")
RsSysNewsObj("classid") = RsNewsObj("classid")
RsSysNewsObj("classname") = RsNewsObj("classname")
RsSysNewsObj("FromSite") = RsNewsObj("sitename")
RsSysNewsObj("writer") = "胖胖"
RsSysNewsObj("username") = "胖胖"
RsSysNewsObj("ifshow") = RsNewsObj("SysTemplet")
RsSysNewsObj("addtime") = RsNewsObj("adddate")
RsSysNewsObj("updatetime") = RsNewsObj("adddate")
RsSysNewsObj("Fpath") = year(date())&"-"&month(date())
RsSysNewsObj("Fname") = "20"&GetRandomID18&".htm"
RsSysNewsObj("reviewname") = "胖胖"
RsSysNewsObj("about") = RsNewsObj("sitename")
RsSysNewsObj("demoid") = RsNewsObj("demoid")
MoveNewsNum = MoveNewsNum + 1
RsNewsObj.MoveNext
loop
RsSysNewsObj.UpDate
RsSysNewsObj.Close
Set RsSysNewsObj = Nothing
end if
Set RsNewsObj = Nothing
if Request("DelNews") = "true" then
Sql = "Delete from News where ID in (" & MoveNewsList & ")"
else
Sql = "Update News Set History=true where ID in (" & MoveNewsList & ")"
end if
CollectConn.Execute(Sql)
if Err.Number = 0 then
ShowInfo "转移成功" & MoveNewsNum & "条新闻"
else
ShowInfo "转移失败"
end if
Set CollectConn = Nothing
Set Conn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -