📄 admin_mov_manage.asp
字号:
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border" >
<tr>
<td colspan='2' height="20" align="center">该插件修改自亿翔网提供的采集插件,修改作者QQ:271513820</td>
</tr>
</table>
</body>
</html>
<%End Sub%>
<%Sub Del
ItemID=Trim(Request("ItemID"))
If ItemID="" Then
tFoundErr=True
tErrMsg=tErrMsg & "<br><li>请选择要删除的项目！</li>"
Else
If Instr(ItemID,",")>0 Then
ItemID=Replace(ItemID," ","")
ConnItem.Execute("Delete From [Item] Where ItemID In(" & ItemID & ")")
ConnItem.Execute("Delete From [Filters] Where ItemID In(" & ItemID & ")")
ConnItem.Execute("Delete From [Histroly] Where ItemID In(" & ItemID & ")")
ConnItem.Execute("Delete From [HistrolyNews] Where ItemID In(" & ItemID & ")")
Else
ItemID=Clng(ItemID)
ConnItem.Execute("Delete From [Item] Where ItemID=" & ItemID)
ConnItem.Execute("Delete From [Filters] Where ItemID=" & ItemID)
ConnItem.Execute("Delete From [Histroly] Where ItemID=" & ItemID)
ConnItem.Execute("Delete From [HistrolyNews] Where ItemID=" & ItemID)
End If
End If
End Sub
%>
<%Sub Copy
Dim rrs,sql,rrs1,sql1,ItemID
ItemID=Trim(Request("ItemID"))
If ItemID="" Then
tFoundErr=True
tErrMsg=tErrMsg & "<br><li>请选择要复制的项目！</li>"
Else
ItemID=Clng(ItemID)
set rrs=server.createobject("adodb.recordset")
set rrs1=server.createobject("adodb.recordset")
sql="select * from Item where ItemID="&ItemID&""
sql1="select top 1 * from Item"
rrs.open sql,ConnItem,1,1
rrs1.open sql1,ConnItem,1,3
rrs1.addnew
rrs1("ItemName")=rrs("ItemName")
rrs1("ChannelID")=rrs("ChannelID")
rrs1("ClassID")=rrs("ClassID")
rrs1("SpecialID")=rrs("SpecialID")
rrs1("WebName")=rrs("WebName")
rrs1("WebUrl")=rrs("WebUrl")
rrs1("ItemDemo")=rrs("ItemDemo")
rrs1("LoginType")=rrs("LoginType")
rrs1("LoginUrl")=rrs("LoginUrl")
rrs1("LoginPostUrl")=rrs("LoginPostUrl")
rrs1("LoginUser")=rrs("LoginUser")
rrs1("LoginPass")=rrs("LoginPass")
rrs1("LoginFalse")=rrs("LoginFalse")
rrs1("ListStr")=rrs("ListStr")
rrs1("LsString")=rrs("LsString")
rrs1("LoString")=rrs("LoString")
rrs1("ListPaingType")=rrs("ListPaingType")
rrs1("LPsString")=rrs("LPsString")
rrs1("LPoString")=rrs("LPoString")
rrs1("ListPaingStr1")=rrs("ListPaingStr1")
rrs1("ListPaingStr2")=rrs("ListPaingStr2")
rrs1("ListPaingID1")=rrs("ListPaingID1")
rrs1("ListPaingID2")=rrs("ListPaingID2")
rrs1("ListPaingStr3")=rrs("ListPaingStr3")
rrs1("HsString")=rrs("HsString")
rrs1("HoString")=rrs("HoString")
rrs1("HttpUrlType")=rrs("HttpUrlType")
rrs1("HttpUrlStr")=rrs("HttpUrlStr")
rrs1("TsString")=rrs("TsString")
rrs1("ToString")=rrs("ToString")
rrs1("CsString")=rrs("CsString")
rrs1("CoString")=rrs("CoString")
rrs1("AuthorType")=rrs("AuthorType")
rrs1("AsString")=rrs("AsString")
rrs1("AoString")=rrs("AoString")
rrs1("AuthorStr")=rrs("AuthorStr")
rrs1("UpdateTimeType")=rrs("UpdateTimeType")
rrs1("UsString")=rrs("UsString")
rrs1("UoString")=rrs("UoString")
rrs1("UpdateTimeStr")=rrs("UpdateTimeStr")
rrs1("CopyFromType")=rrs("CopyFromType")
rrs1("FsString")=rrs("FsString")
rrs1("FoString")=rrs("FoString")
rrs1("CopyFromStr")=rrs("CopyFromStr")
rrs1("KeyType")=rrs("KeyType")
rrs1("KsString")=rrs("KsString")
rrs1("KoString")=rrs("KoString")
rrs1("KeyStr")=rrs("KeyStr")
rrs1("NewsPaingType")=rrs("NewsPaingType")
rrs1("NPsString")=rrs("NPsString")
rrs1("NPoString")=rrs("NPoString")
rrs1("NewsPaingStr1")=rrs("NewsPaingStr1")
rrs1("NewsPaingStr2")=rrs("NewsPaingStr2")
rrs1("Flag")=rrs("Flag")
rrs1("DsStringbType")=rrs("DsStringbType")
rrs1("DsStringb")=rrs("DsStringb")
rrs1("DoStringb")=rrs("DoStringb")
rrs1("DsStringbb")=rrs("DsStringbb")
rrs1("DoStringbb")=rrs("DoStringbb")
rrs1("XsStringbType")=rrs("XsStringbType")
rrs1("XsStringb")=rrs("XsStringb")
rrs1("XoStringb")=rrs("XoStringb")
rrs1("XsStringbb")=rrs("XsStringbb")
rrs1("XoStringbb")=rrs("XoStringbb")
rrs1("HttpDownUrlType")=rrs("HttpDownUrlType")
rrs1("HttpDownUrlStr")=rrs("HttpDownUrlStr")
rrs1("BsStringbType")=rrs("BsStringbType")
rrs1("BsStringb")=rrs("BsStringb")
rrs1("BoStringb")=rrs("BoStringb")
rrs1("BoStringbstr")=rrs("BoStringbstr")
rrs1("YsStringbType")=rrs("YsStringbType")
rrs1("YsStringb")=rrs("YsStringb")
rrs1("YoStringb")=rrs("YoStringb")
rrs1("YoStringbstr")=rrs("YoStringbstr")
rrs1("PsStringbType")=rrs("PsStringbType")
rrs1("PsStringb")=rrs("PsStringb")
rrs1("PoStringb")=rrs("PoStringb")
rrs1("PoStringbstr")=rrs("PoStringbstr")
rrs1("HsStringbType")=rrs("HsStringbType")
rrs1("HsStringb")=rrs("HsStringb")
rrs1("HoStringb")=rrs("HoStringb")
rrs1("HoStringbstr")=rrs("HoStringbstr")
rrs1("JsStringbType")=rrs("JsStringbType")
rrs1("JsStringb")=rrs("JsStringb")
rrs1("JoStringb")=rrs("JoStringb")
rrs1("JoStringbstr")=rrs("JoStringbstr")
rrs1("SsStringbType")=rrs("SsStringbType")
rrs1("SsStringb")=rrs("SsStringb")
rrs1("SoStringb")=rrs("SoStringb")
rrs1("SoStringbstr")=rrs("SoStringbstr")
rrs1("ZsStringbType")=rrs("ZsStringbType")
rrs1("ZsStringb")=rrs("ZsStringb")
rrs1("ZoStringb")=rrs("ZoStringb")
rrs1("ZoStringbstr")=rrs("ZoStringbstr")
rrs1("LsStringbType")=rrs("LsStringbType")
rrs1("LsStringb")=rrs("LsStringb")
rrs1("LoStringb")=rrs("LoStringb")
rrs1("LoStringbstr")=rrs("LoStringbstr")
rrs1("MsStringbType")=rrs("MsStringbType")
rrs1("MsStringb")=rrs("MsStringb")
rrs1("MoStringb")=rrs("MoStringb")
rrs1("MoStringbstr")=rrs("MoStringbstr")
rrs1("QsStringbType")=rrs("QsStringbType")
rrs1("QsStringb")=rrs("QsStringb")
rrs1("QoStringb")=rrs("QoStringb")
rrs1("QoStringbstr")=rrs("QoStringbstr")
rrs1("Script_IFRAME")=rrs("Script_IFRAME")
rrs1("Script_OBJECT")=rrs("Script_OBJECT")
rrs1("Script_SCRIPT")=rrs("Script_SCRIPT")
rrs1("Script_Div")=rrs("Script_Div")
rrs1("Script_CLASS")=rrs("Script_CLASS")
rrs1("Script_Span")=rrs("Script_Span")
rrs1("Script_IMG")=rrs("Script_IMG")
rrs1("Script_FONT")=rrs("Script_FONT")
rrs1("Script_A")=rrs("Script_A")
rrs1("Script_HTML")=rrs("Script_HTML")
rrs1("Script_Table")=rrs("Script_Table")
rrs1("Script_Tr")=rrs("Script_Tr")
rrs1("Script_Td")=rrs("Script_Td")
rrs1("CollectionNum")=rrs("CollectionNum")
rrs1("CollectionType")=rrs("CollectionType")
rrs1("SkinID")=rrs("SkinID")
rrs1("TemplateID")=rrs("TemplateID")
rrs1("OnTop")=rrs("OnTop")
rrs1("Hot")=rrs("Hot")
rrs1("Elite")=rrs("Elite")
rrs1("Hits")=rrs("Hits")
rrs1("Stars")=rrs("Stars")
rrs1("ShowCommentLink")=rrs("ShowCommentLink")
rrs1("CollecOrder")=rrs("CollecOrder")
rrs1("Passed")=rrs("Passed")
rrs1("CreateImmediate")=rrs("CreateImmediate")
rrs1("SaveFiles")=rrs("SaveFiles")
rrs1("lasttimestr")=rrs("lasttimestr")
rrs1("FileSavebType")=rrs("FileSavebType")
rrs1("FileSavebNum")=rrs("FileSavebNum")
rrs1("FileSavebstr")=rrs("FileSavebstr")
rrs1("SaveNameTypeb")=rrs("SaveNameTypeb")
rrs1("SaveDir")=rrs("SaveDir")
rrs1("SoftPoint")=rrs("SoftPoint")
rrs1.update
rrs.close
rrs1.close
set rrs=nothing
set rrs1=nothing
End If
End Sub
%>
<%
Sub ShowName(ShowType,ID)
dim rrs,rsql
set rrs=server.createobject("adodb.recordset")
if ShowType=1 then
rsql="select * from PE_Channel where ChannelID="&ID&""
Elseif ShowType=2 then
rsql="select * from PE_Class where ClassID="&ID&""
Elseif ShowType=3 then
rsql="select * from PE_Special where SpecialID="&ID&""
End if
rrs.open rsql,Conn,1,1
if not(rrs.eof and rrs.bof) then
if ShowType=1 then
Response.Write rrs("ChannelName")
Elseif ShowType=2 then
Response.Write rrs("ClassName")
Elseif ShowType=3 then
Response.Write rrs("SpecialName")
End if
End if
rrs.close
set rrs=nothing
End Sub
Sub ShowChannelList(ChannelID)
dim rrs,rsql,rrs1,rsql1
set rrs=server.createobject("adodb.recordset")
rsql="select * from PE_Channel where ModuleType=2 and Disabled=0"
rrs.open rsql,Conn,1,1
Do While not rrs.eof
set rrs1=server.createobject("adodb.recordset")
rsql1="select ChannelID from Item where ChannelID="&rrs("ChannelID")&""
rrs1.open rsql1,ConnItem,1,1
if not rrs1.eof then
if rrs("ChannelID")=Clng(ChannelID) then
Response.Write " | <a href='Admin_mov_Manage.asp?iChannelID="&rrs("ChannelID")&"'><FONT style='font-size:12px;color:red'>"&rrs("ChannelName")&"</font></a>"
Else
Response.Write " | <a href='Admin_mov_Manage.asp?iChannelID="&rrs("ChannelID")&"'><FONT style='font-size:12px'>"&rrs("ChannelName")&"</font></a>"
End if
end if
rrs1.close
set rrs1=nothing
rrs.movenext
Loop
rrs.close
set rrs=nothing
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -