?? sk_getrc.asp
字號:
<%
option explicit
response.buffer=true
'================================================================================================
' 軟件名稱：清風信息自動采集生成系統
' 當前版本：CJ 1.0
' 更新日期：2008-7-18
' 程序版權：龍心數據
' 程序開發：龍心數據開發組
' 演示站點：http://cj.iising.com
' 官方網站：http://www.iising.com QQ：24387481 電話：13719316070
' 鄭重聲明:
' ①、沒有版權,你愛抄抄,愛搬搬,偶看不見!
' ②、不要用黑與白來衡量你我之間的距離,更不要讓生活磨滅我們的個性！
' ③、歡迎定做各種信息采集功能系統。
'================================================================================================
%>
<!--#include file="inc/setup.asp"-->
<!--#include file="inc/cj_cls.asp"-->
<!--#include file="SK_Session.asp"-->
<%
'--自定義變量
Dim Rs,Sql,FoundErr
Dim SqlItem,RsItem
Dim ItemID,ItemName,WebName,WebUrl,ChannelID,ChannelDir,ClassID,SpecialID,selEncoding,ItemDemo,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,Colleclx,ListStr,radio,LPsString,LPoString,ListPaingStr2 ,ListPaingID1,ListPaingID2,ListPaingStr3,Passed,SaveFiles,CollecOrder,ListPaingType,Flag,ListUrl,ItemCollecDate,LsString,LoString,HsString,HoString,imhstr,imostr,x_tp,Script_Iframe,Script_Object,Script_Script,Script_Div,Script_Class,Script_Table,Script_Tr,Script_Span,Script_Img,Script_Font,Script_A,Script_Html,Script_Td,Stars,ReadPoint,radioid,Hits,SaveFileUrl,HttpUrlStr,FilterType,CollecNewsNum,Timing,picpath,strReplace,IncludePic,UploadFiles,Downlist_s,Downlist_o,DownUrl_s,DownUrl_o,DownNewType,DownNewlist_s,DownNewlist_o,DownNewUrl_s,DownNewUrl_o,Zds_007
Dim Thumb_WaterMark,Thumbs_Create,DownUrls
Dim TsString,ToString,CsString,CoString,DateType,DsString,DoString,UpDateTime,AuthorType,AsString,AoString,AuthorStr,CopyFromType,FsString,FoString,CopyFromStr,KeyType,KsString,KoString,KeyStr,NewsPaingType,NPsString,NPoString,NewsPaingStr,NewsPaingHtml,Author,NewsUrlPaing_s,NewsUrlPaing_o
Dim PicUrls,ListTypeCode,ListTypeUrlCode,TypeUrlArray,TypeNewsUrl,NewsTypeCode
Dim CopyFrom,Key,SqlF,RSF,Arr_Filters,strInstallDir,strChannelDir
Dim photourls,photourlo,PhotoPaingType,PhotoType_s,PhotoType_o,PhotoLurl_s,PhotoLurl_o,Phototypefy_s,Phototypefy_o,Phototypefyurl_s,Phototypefyurl_o,Phototypeurl_s,Phototypeurl_o,Title,Content
dim UpDateType
dim temp_Fields
Dim tClass,tSpecial,CurrentPage,MaxPerPage,Allpage,ItemNum,iItem,NewsArrayCode,NewsArray,Testi,HttpUrlType,UrlTest,NewsCode,NewsUrl,NewsPaingNext,NewsPaingNext_Code,TypeArray_Url
dim Newsimage,Newsim
Dim i_Channel,i_Class,i_Special,tmpDepth,i,ArrShowLine(20)
Dim ClassName,SpecialName,Item_add,action,action1,ListCode
Dim rs_num
Dim ZdField(999)'--自定義
Colleclx=Skcj.ChkNumeric(Skcj.G("Colleclx"))
Colleclx=7
IF Colleclx=0 then
Response.Write ("模塊ID出錯!")
Response.End
End if
Response.Write(Trim(Request.Form("DClassID")))
ItemID=Skcj.G("ItemID")
action=Skcj.G("action")
action1=Skcj.G("action1")
Dim CjName : CjName=Skcj.GetItemConfig("CjName",Colleclx)
Dim CJFileName : CJFileName = Skcj.GetItemConfig("FileName",Colleclx)
'----------------------------------------------------------------------------------------------------------------------------
Call Skcj.Show_Top()
If action="edit" Or action1="edit" Or action="s1" And action1<>"add" Or action="s2" And action1<>"add" Then
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""tableBorder"">"
Response.Write "<tr class=""tdbg"">"
Response.Write "<td width=""65"" height=""30"" bgcolor=""#F3F3F3""><strong>管理導航：</strong></td>"
Response.Write "<td height=""30"" bgcolor=""#F3F3F3""> <font color=red><a href=?action=edit&ItemID="& ItemID &">基本設置</a></font> >> <a href=?action=s1&ItemID="& ItemID &">第一步</a> >> <a href=?action=s2&ItemID="& ItemID &">第二步</a> >> <a href=?action=demo&ItemID="& ItemID &">采樣測試</a> </td>"
Response.Write "</tr></table>"
End If
Select Case action
Case "config"
Call config'采集基本設置
Case "ClassCj"'批量采集
Call ClassCj
Case "BeginClasscj"'開始批量采集
Call BeginClasscj
Case "add"
Call addnew1()'初步
Case "edit"
Call addnew1()'初步
Case "s1"
Call setup1()
Case "s2"
Call setup2()
Case "demo"
Call demo()
Case "copy"
Call copy()
Case "Del"
Call Del()
Case else
Call Show_Manage()
End Select
Call CloseConnItem()
'=================================
'采集項目管理
'=================================
Sub Show_Manage
Dim MaxPerPage
MaxPerPage=Skcj.GetItemConfig("MaxPerPage",Colleclx)
IF MaxPerPage=0 Then MaxPerPage=10
%>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>購買詳細演示聯系QQ:24387481 </strong></div>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#cccccc" class="tableBorder">
<form name="myform" method="POST" action="<%= CJFileName %>">
<tr class="tdbg" style="padding: 0px 2px;">
<td width="33" height="22" align="center" bgcolor="#f3f3f3">選擇</td>
<td width="188" align="center" bgcolor="#f3f3f3">項目名稱</td>
<td width="153" height="22" align="center" bgcolor="#f3f3f3">所屬分類</td>
<td width="133" align="center" bgcolor="#f3f3f3">所屬專題</td>
<td width="32" align="center" bgcolor="#f3f3f3">狀態</td>
<td width="180" height="22" align="center" bgcolor="#f3f3f3">上次采集</td>
<td width="192" height="22" align="center" bgcolor="#f3f3f3">操作</td>
</tr>
<%
If Skcj.G("page")<>"" Then
CurrentPage=Cint(Skcj.G("Page"))
Else
CurrentPage=1
End If
Dim SqlTemp
ClassID=Skcj.ChkNumeric(Skcj.G("DclassID"))
If ClassID=0 Then
SqlTemp=""
Else
SqlTemp=" And ClassID='" &ClassID&"'"
End if
Set RsItem=server.createobject("adodb.recordset")
SqlItem="Select * from Item where Colleclx="& Colleclx &" "& SqlTemp &" order by ItemID DESC"
RsItem.open SqlItem,ConnItem,1,1
If Not RsItem.Eof Then
RsItem.PageSize=MaxPerPage
Allpage=RsItem.PageCount
If Currentpage>Allpage Then Currentpage=1
ItemNum=RsItem.RecordCount
RsItem.MoveFirst
RsItem.AbsolutePage=CurrentPage
iItem=0
Do While Not RsItem.Eof
ItemID=RsItem("ItemID")
ItemName=RsItem("ItemName")
WebName=RsItem("WebName")
ChannelID=RsItem("ChannelID")
ClassID=RsItem("ClassID")
SpecialID=RsItem("SpecialID")
ListStr=RsItem("ListStr")
ListPaingType=RsItem("ListPaingType")
ListPaingStr2=RsItem("ListPaingStr2")
ListPaingID1=RsItem("ListPaingID1")
ListPaingID2=RsItem("ListPaingID2")
ListPaingStr3=RsItem("ListPaingStr3")
Flag=RsItem("Flag")
If ListPaingType=0 Then
ListUrl=ListStr
ElseIf ListPaingType=1 Then
ListUrl=Replace(ListPaingStr2,"{$ID}",CStr(ListPaingID1))
ElseIf ListPaingType=2 Then
If Instr(ListPaingStr3,"|")>0 Then
ListUrl=Left(ListPaingStr3,Instr(ListPaingStr3,"|")-1)
Else
ListUrl=ListPaingStr3
End If
End If
%>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" style="padding: 0px 2px; " >
<td width="33" height="22" align="center" style=" border-bottom:#cccccc 1xp solid">
<input type="checkbox" value="<%=ItemID%>" name="ItemID" ></td>
<td width="188" align="center" style=" border-bottom:#cccccc 1xp solid"><a href="<%=ListUrl%>" target="_bank"><%=ItemName%></a></td>
<td width="153" align="center" style=" border-bottom:#cccccc 1xp solid" title="所屬頻道-<%Call Admin_ShowChannel_Name(ChannelID)%>"><%Call Admin_ShowClass_Name(ChannelID,ClassID)%></td>
<td width="133" align="center" style=" border-bottom:#cccccc 1xp solid"><%Call Admin_ShowSpecial_Name(ChannelID,SpecialID)%></td>
<td width="32" align="center" style=" border-bottom:#cccccc 1xp solid"> <b>
<%If Flag=True Then
Response.write "√"
Else
Response.write "<font color=red>×</font>"
End If
%>
</b> </td>
<td width="180" align="center" style=" border-bottom:#cccccc 1xp solid;">
<%
Set Rs=connItem.execute("Select Top 1 CollecDate From Histroly Where ItemID=" & ItemID & " Order by HistrolyID desc")
If Not Rs.Eof Then
ItemCollecDate=rs("CollecDate")
Else
ItemCollecDate=""
End If
Set Rs=Nothing
If ItemCollecDate<>"" Then
Response.Write "<font color=""#FF0000"">"& ItemCollecDate &"</font>"
Else
Response.Write "尚無記錄"
End If
%> </td>
<td width="192" align="center" style=" border-bottom:#cccccc 1xp solid"><a href=<%= CJFileName %>?Action=copy&ItemID=<%=ItemID%>&Colleclx=<%= Colleclx %>>復制</a> <a href=<%= CJFileName %>?Action=edit&ItemID=<%=ItemID%>&Colleclx=<%= Colleclx %>>編輯</a> <a href=Sk_Collection.asp?ItemID=<%=ItemID%>&ItemNum=1&ListNum=1&NewsSuccesNum=0&NewsFalseNum=0&ImagesNumAll=0&NewsNum_i=0>采集</a> <a href=<%= CJFileName %>?action=demo&ItemID=<%=ItemID%>&Colleclx=<%= Colleclx %>>測試</a> <a href=<%= CJFileName %>?Action=Del&ItemID=<%=ItemID%>&Colleclx=<%= Colleclx %> onClick='return confirm("確定要刪除此項目嗎？請您慎重選擇！這將刪除該項目的項目信息，歷史記錄及過濾信息 3 個項目類型數據。");'>刪除</a> </td>
</tr>
<%
iItem=iItem+1
If iItem>=MaxPerPage Then Exit Do
RsItem.MoveNext
Loop
%>
<tr class="tdbg">
<td colspan=7 height="30" >
<input name="Action" type="hidden" value="Del">
<input name="chkAll" type="checkbox" id="chkAll" onClick=CheckAll(this.form) value="checkbox" >
全選 </td>
</tr>
<tr class="tdbg">
<td colspan=7 height="30" align=center><input name="Del" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" value="快速采集">
<input name="Del" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" onClick='return confirm("確定要刪除選中的項目嗎？請您慎重選擇！這將刪除該項目的項目信息，歷史記錄及過濾信息 3 個項目類型數據。");' value=" 刪 除 ">
<input name="Del" type="submit" class="lostfocus" style="cursor: hand;background-color: #cccccc;" onClick='return confirm("您真的要確定要清空所有項目嗎？這將徹底格式化采集數據庫的所有信息，請您先備份再選擇?。?！");' value="清空所有記錄">
</td>
</tr>
<%Else%>
<tr class="tdbg">
<td colspan='7' class="tdbg" align="center"><br>
系統中暫無采集項目！</td>
</tr>
<%End If
RsItem.Close
Set RsItem=Nothing
%>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<tr>
<td height="22" colspan="2" class="tdbg">
<%
Response.Write ShowPage(CJFileName,ItemNum,MaxPerPage,True,True," 個項目")
%>
</td>
</tr>
</table>
<%
End Sub
'====================================
'批量采集
'====================================
Sub ClassCj
%>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
<tr>
<th height="22" colspan="2" class="title"> <div align="center"><b><% =ErrMsg_lx %>分類 管 理</b>
</div></th>
</tr>
<tr>
<td height="22" colspan="2" ><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<TR>
<TD width="19%" height=22 align=center bgcolor="#CAD7F7"> 編號
</DIV></TD>
<TD width="66%" height=22 align=center bgcolor="#CAD7F7"> 欄目分類名稱</TD>
<TD width="15%" height=22 align=center bgcolor="#CAD7F7"> 操作</TD>
</TR>
<%
Colleclx=Trim(Request("Colleclx"))
select case Colleclx
case 1
Sql="select * from SK_class where ChannelID=1 order by OrderID"
case 3
Sql="select * from SK_class where ChannelID=3 order by OrderID"
case 5
Sql="select * from SK_class where ChannelID=5 order by OrderID"
case 0
Call CloseConnItem
Response.end
end select
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -