📄 admin_getarticle.asp
字号:
<td colspan="2" valign="bottom"><span lang="zh-cn">
<%=Title%></span></td>
</tr>
<tr align="center" class="tdbg">
<td colspan="2">
<strong>作者：</strong><%=Author%> <strong>来源：</strong><%=CopyFrom%> <strong>更新时间：</strong><%=UpDateTime%>
</td>
</tr>
<tr class="tdbg">
<td colspan="2">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height="200" valign="top">
<%
If x_tp=1 Then
Response.Write "<font color=blue>列表缩略图地址:</font>"
Response.Write "<a href="& picpath &" target=""_blank"">"& picpath &"<a/>"
End If
Response.Write "<br><br><strong>内容:</strong>" & Server.HtmlEncode(Content) &"<br>"
Response.Write "<br><b>关键字：</b>" & Server.HtmlEncode(Key) &"<br>"
%>
</td>
</tr>
</table>
</td>
</tr>
<form method="post" action="Admin_GetArticle.asp" name="form1">
<tr class="tdbg">
<td colspan="2" align="center">
<input name="Cancel" class="lostfocus" type="button" value=" 上 一 步 " onClick="window.location.href='javascript:history.go(-1)'"> <input type="submit" name="Submit" class="lostfocus" value=" 设置完成 ">
</td>
</tr>
</form>
</table>
<%
else
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<tr class="tdbg">
<td colspan="2">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height="30" valign="top"><a href="?action=demo&ItemID=<%= ItemID %>">点击查看测试页</a></td>
</tr>
</table> </td>
</tr>
<form method="post" action="Admin_GetArticle.asp" name="form1">
<tr class="tdbg">
<td colspan="2" align="center">
<input name="Cancel" class="lostfocus" type="button" value=" 上 一 步 " onClick="window.location.href='javascript:history.go(-1)'"> <input type="submit" name="Submit" class="lostfocus" value=" 设置完成 "> </td>
</tr>
</form>
</table>
<%
End If
End If
End Sub
Sub copy
ItemID=CGet.G("ItemID")
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要删除的项目！</li>"
Else
Dim copy_s,copyitem(99999)
SqlItem="Select top 1 * from Item where ItemID="& ItemID
Set RsItem=server.CreateObject("adodb.recordset")
RsItem.Open SqlItem,Conn_C,3,3
copy_s =Cint(RsItem.Fields.count)
for i=1 to copy_s - 1
copyitem(i)=RsItem(i)
next
RsItem.AddNew
for i=1 to copy_s - 1
RsItem(i)=copyitem(i)
RsItem(1)=copyitem(1) & " 复制"
next
RsItem.update
RsItem.close
Call show_Manage()
End If
End Sub
Sub Del
ItemID=CGet.G("ItemID")
If CGet.G("Del")="快速采集" Then
Response.redirect "Admin_CollectionFast.asp?ItemID="&ItemID&"&ItemNum=1&ListNum=1&NewsSuccesNum=0&NewsFalseNum=0&ImagesNumAll=0&NewsNum_i=0"
Elseif CGet.G("Del")="稳定采集" Then
Response.redirect "Admin_Collection.asp?ItemID="&ItemID&"&ItemNum=1&ListNum=1&NewsSuccesNum=0&NewsFalseNum=0&ImagesNumAll=0&NewsNum_i=0"
Else
If CGet.G("Del")="清空所有记录" Then
Conn_C.Execute("Delete From Item where ModuleID=1")
Conn_C.Execute("Delete From Filters where ModuleID=1")
Else
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要删除的项目！</li>"
Else
ItemID=Replace(ItemID," ","")
Conn_C.Execute("Delete From [Item] Where ItemID In(" & ItemID & ")")
Conn_C.Execute("Delete From [Filters] Where ItemID In(" & ItemID & ")")
End If
End If
End If
Call show_Manage()
End Sub
'================================================
'函数名：Req_Err_msg
'作 用：检查提交设置并保存
'参 数：erron ----第几步
'================================================
Public Sub Req_Err_msg(erron)
select case erron
case 1
ItemName=Trim(Request.Form("ItemName"))
ChannelID=Cl.GetClng(Request.Form("ChannelID"))
ClassID=Cl.GetClng(Request.Form("ClassID"))
SpecialID=Trim(Request.Form("SpecialID"))
Encoding=Trim(Request.Form("Encoding"))
ModuleID=Cl.GetClng(Request.Form("ModuleID"))
ListStr=Trim(Request.Form("ListStr"))
ListPaingType=Trim(Request.Form("ListPaingType"))
ListPaingStr2=Trim(Request.Form("ListPaingStr2"))
ListPaingID1=Trim(Request.Form("ListPaingID1"))
ListPaingID2=Trim(Request.Form("ListPaingID2"))
ListPaingStr3=Trim(Request.Form("ListPaingStr3"))
LPoString=Trim(Request.Form("LPoString"))
LPsString=Trim(Request.Form("LPsString"))
Passed=Trim(Request.Form("Passed"))
SaveFiles=Trim(Request.Form("SaveFiles"))
if trim(request.form("GetClassPurview"))="yes" then
InfoGroup=5
else
InfoGroup=Trim(request.form("InfoGroup"))
end if
LoginType=Cl.GetClng(Request.Form("LoginType"))
LoginUrl=Trim(Request.Form("LoginUrl"))
LoginPostUrl=Trim(Request.Form("LoginPostUrl"))
LoginUser=Trim(Request.Form("LoginUser"))
LoginPass=Trim(Request.Form("LoginPass"))
LoginFalse=Trim(Request.Form("LoginFalse"))
PaginationType = Cl.GetClng(request.form("PaginationType"))
MaxCharPerPage = Cl.GetClng(request.form("MaxCharPerPage"))
Thumb_WaterMark=Request.Form("Thumb_WaterMark")
SaveFileUrl=Trim(Request.Form("SaveFileUrl"))
Script_Iframe=Trim(Request.Form("Script_Iframe"))
Script_Object=Trim(Request.Form("Script_Object"))
Script_Script=Trim(Request.Form("Script_Script"))
Script_Div=Trim(Request.Form("Script_Div"))
Script_Class=Trim(Request.Form("Script_Class"))
Script_Span=Trim(Request.Form("Script_Span"))
Script_Img=Trim(Request.Form("Script_Img"))
Script_Font=Trim(Request.Form("Script_Font"))
Script_A=Trim(Request.Form("Script_A"))
Script_Html=Trim(Request.Form("Script_Html"))
Script_Table=Trim(Request.Form("Script_Table"))
Script_Tr=Trim(Request.Form("Script_Tr"))
Script_Td=Trim(Request.Form("Script_Td"))
Stars=Trim(Request.Form("Stars"))
InfoPoint=Trim(Request.Form("InfoPoint"))
Hits=Trim(Request.Form("Hits"))
ModuleID=Request.Form("ModuleID")
CollecNewsNum=Request.Form("CollecNewsNum")
Timing=Trim(Request.Form("Timing"))
strReplace=Trim(Request.Form("ReplaceList"))'内容替换
If ItemName="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>项目名称不能为空</li>"
End If
If ClassID=0 Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>未指定栏目分类</li>"
End If
If ListStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>远程列表URL不能为空</li>"
End If
If ListPaingType="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择列表索引分页类型</li>"
Else
ListPaingType=Clng(ListPaingType)
Select Case ListPaingType
Case 0
Case 1
If ListPaingStr2="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>批量生成字符不能为空</li>"
End If
If isNumeric(ListPaingID1)=False Or isNumeric(ListPaingID2)=False Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>批量生成的范围只能是数字</li>"
Else
ListPaingID1=Clng(ListPaingID1)
ListPaingID2=Clng(ListPaingID2)
If ListPaingID1=0 And ListPaingID2=0 Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>批量生成范围设置不正确</li>"
End If
End If
Case 2
If ListPaingStr3="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>列表索引分页不能为空，请手动添加</li>"
Else
ListPaingStr3=Replace(ListPaingStr3,CHR(13),"|")
End If
Case 3
IF LPsString="" or LPoString="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>索引分页开始或结束不能为空!</li>"
End if
Case Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择列表索引分页类型</li>"
End Select
End If
If Stars="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择文章评分等级！</li>"
Else
Stars=Clng(Stars)
End If
If InfoPoint="" Then
InfoPoint=0
Else
InfoPoint=Clng(InfoPoint)
End If
If Hits="" Then
Hits=0
Else
Hits=Clng(Hits)
End If
'-----------------保存数据设置---------------------------------
Dim Sqllx
If FoundErr<>True Then
If action1="add" Then sqllx="add"
If action1="edit" Then sqllx="edit"
If sqllx <> "" And sqllx="edit" Or sqllx="add" Then
If sqllx="add" Then
Sql="Select top 1 * from Item"
Else
Sql="select top 1 * from Item where ItemID="& ItemID
End If
Set RsItem=server.CreateObject("adodb.recordset")
RsItem.Open Sql,Conn_C,1,3
If sqllx="add" Then RsItem.AddNew
RsItem("ItemName")=ItemName
RsItem("ChannelID")=ChannelID
RsItem("ClassID")=ClassID
RsItem("SpecialID")=SpecialID
Cl.Get_ChannelSetting(ChannelID)
RsItem("ChannelDir")=Cl.ChannelDir
RsItem("Encoding")=Encoding
RsItem("ListStr")= ListStr
RsItem("ListPaingType")=ListPaingType
RsItem("LPsString")=LPsString
RsItem("LPoString")=LPoString
RsItem("ListPaingStr2")=ListPaingStr2
RsItem("LoginType")=LoginType
If Logintype=1 Then
RsItem("LoginUrl")=LoginUrl
RsItem("LoginPostUrl")=LoginPostUrl
RsItem("LoginUser")=LoginUser
RsItem("LoginPass")=LoginPass
RsItem("LoginFalse")=LoginFalse
End If
RsItem("PaginationType")=PaginationType
RsItem("MaxCharPerPage")=MaxCharPerPage
RsItem("InfoGroup")=InfoGroup
Select Case ListPaingType
Case 0
ListUrl=ListStr
Case 1
RsItem("ListPaingStr2⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -