<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% pTitle="" pKeywords="" pDescription="" pOutText="" pTopLine="" pWorkMemo="" '是否使用8dbhttp自定義協議聯結下載引導文件 bInstrall=false '是否已經安裝了6點報軟件 bInstBDB=CheckSetupBDBSoft() dim HttpMain '返回當前主站的域名 HttpMain=RetuHttpMain() if bInstrall then HttpMain="8dbhttp://1&/&"&RetuHttpMain() '獲取Url中的產品序列號 Function GetUrlSnh() On Error Resume Next Dim strTemp,strSub strTemp=Trim(LCase(Request.ServerVariables("URL"))) dim nStart,nEnd nStart=-100 nEnd=-100 for i=len(strTemp) to 0 step -1 strSub=mid(strTemp,i,1) if strSub="/" And nStart=-100 then nStart=i+1 exit for end if if strSub="." And nEnd=-100 then nEnd=i next GetUrlSnh=mid(strTemp,nStart,nEnd-nStart) End Function '讀取一個文件的所有內容 文件名 函數返回所有內容 Function ReadFile_AllText(FileName) on error resume next ReadFile_AllText="" Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(FileName, ForReading) ReadFile_AllText = f.ReadAll End Function '根據一個數組動態生成一個指定列值的表格 列數 2維數組 數組總個數 Function GjArrNewTable(Cols,sTextArr,sTextArrCount,nScDate,strUrl) GjArrNewTable="" sRightTable="" xf1=sTextArrCount/Cols xf2=sTextArrCount mod Cols sn=0 for i=1 to xf1 sRightTable=sRightTable&"" for j=1 to Cols if nScDate < 2 then sRightTable=sRightTable& _ "["&sTextArr(sn,0)&"]"&sTextArr(sn,1)&"" else sRightTable=sRightTable& _ "["&sTextArr(sn,0)&"]"&sTextArr(sn,1)&"" end if sn=sn+1 next sRightTable=sRightTable&"" next sRightTable=sRightTable&"" for j=sn to sTextArrCount-1 if nScDate < 2 then sRightTable=sRightTable& _ "["&sTextArr(sn,0)&"]"&sTextArr(sn,1)&"" else sRightTable=sRightTable& _ "["&sTextArr(sn,0)&"]"&sTextArr(sn,1)&"" end if sn=sn+1 next sRightTable=sRightTable&"" GjArrNewTable=""&sRightTable&"
" End Function '讀取本頁作品的詳細內容介紹 文件名 刊物名稱 函數返回重新組織好的所有內容 Function ReadPageJsText(FileName,nScDate,strUrl,nRetuPageCount) ReadPageJsText="" Dim sPageTextArr(1000,2) Dim sPageTextArrCount sPageTextArrCount=0 nRetuPageCount=0 Dim sSnNull '長度超過8字節不顯示 Dim sSnTextNull '所有內容沒有時不顯示 sSnNull=false sSnTextNull=false strFileText=ReadFile_AllText(FileName) if Len(strFileText) >10 then sComDataKf_Arr = Split(strFileText, "*XX*", -1, 1) sComDataKf_Arr_Count=ubound(sComDataKf_Arr) if sComDataKf_Arr_Count>=1 then nPageCount=sComDataKf_Arr(0) if Len(sComDataKf_Arr(1)) >10 then sPage_Arr = Split(sComDataKf_Arr(1), "#T#", -1, 1) sPage_Arr_Count=ubound(sPage_Arr) for i=0 to sPage_Arr_Count sTemp_Arr = Split(sPage_Arr(i), "#N#", -1, 1) sTemp_Arr_Count=ubound(sTemp_Arr) if sTemp_Arr_Count>=1 then sPageTextArr(sPageTextArrCount,0)=sTemp_Arr(0) sPageTextArr(sPageTextArrCount,1)=sTemp_Arr(1) if Len(sTemp_Arr(0)) < 8 then sSnNull=true if Len(sTemp_Arr(1)) >2 then sSnTextNull=true if Len(sPageTextArr(sPageTextArrCount,0)) >= 8 then sPageTextArr(sPageTextArrCount,0)=mid(sPageTextArr(sPageTextArrCount,0),1,7)&"版" sPageTextArrCount=sPageTextArrCount+1 end if next end if end if end if if sSnNull AND sSnTextNull then '長度<10字節 有內容 sPageTextArr(0,0)=Replace(Trim(UCase(sPageTextArr(0,0))),"STRONG", "") sPageTextArr(0,0)=Replace(Trim(UCase(sPageTextArr(0,0))),"STRO", "") '根據一個數組動態生成一個指定列值的表格 列數 2維數組 數組總個數 ReadPageJsText=GjArrNewTable(4,sPageTextArr,sPageTextArrCount,nScDate,strUrl) nRetuPageCount=sPageTextArrCount end if End Function '根據一個報紙記錄組合成一個表格 記錄集 圖片文件鏈接 返回的值 function ReadRecoOutTable(RetuRs,BmpFile) ReadRecoOutTable="" Dim nPageCount Dim sDataArr(20) MyShortDate=CDate(RetuRs("FxDate")) Diffval=DateDiff("d", MyShortDate,Now) '讀取本頁作品的詳細內容介紹 文件名 函數返回重新組織好的所有內容 sPageJjText=ReadPageJsText(RetuRs("HtmlFile")&"js",Diffval,RetuRs("HtmlUrl"),nPageCount) if len(sPageJjText) < 1 then sPageJjText="此期報紙各原版版面詳細內容導讀暫時無法提供,請直接閱讀查看報紙內容!" end if sDataArr(0)="" sDataArr(1)=RetuRs("ZpName")&"共"&Cstr(nPageCount)&"版" if nPageCount=0 then sDataArr(1)=RetuRs("ZpName")&"共8版" sDataArr(2)="出版日期 "&RetuRs("FxDate")&"" LinkTemp="'"&HttpMain&"/workDown/count_download.asp?get=1&Zp_id="&RetuRs("ZpID")&"'" sReadUrl="使用閱讀器閱讀" if bInstrall then sReadUrl="使用閱讀器閱讀" end if sDataArr(3)="閱讀《"&RetuRs("ZpName")&"》"&RetuRs("FxDate")&"期報紙的內容,本期報紙各原版版面內容導讀如下("&sReadUrl&"):" if Diffval=0 then sDataArr(3)="閱讀《"&RetuRs("ZpName")&"》今天報紙("&RetuRs("FxDate")&")最新發布的內容,本期報紙各原版版面內容導讀如下("&sReadUrl&"):" elseif Diffval=1 then sDataArr(3)="閱讀《"&RetuRs("ZpName")&"》昨天報紙("&RetuRs("FxDate")&")的內容,本期報紙各原版版面內容導讀如下("&sReadUrl&"):" elseif Diffval=2 then sDataArr(3)="閱讀《"&RetuRs("ZpName")&"》前天報紙("&RetuRs("FxDate")&")的內容,本期報紙各原版版面內容導讀如下("&sReadUrl&"):" end if ReadRecoOutTable=""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ "
"&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ "
"&sDataArr(0)&"
"&sDataArr(1)&"
"&sDataArr(2)&"
"&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ "
"&sDataArr(3)&"
"&sPageJjText&"
"&chr(13)&chr(10) end function Function OutInveldTable_Nojj(sWorkDataArrTemp,nCurrSN) sTemp=""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ ""&chr(13)&chr(10)&_ "
"&sWorkDataArrTemp(nCurrSN,1)&""&sWorkDataArrTemp(nCurrSN,2)&"
"&sWorkDataArrTemp(nCurrSN,3)&"
"&sWorkDataArrTemp(nCurrSN,5)&"
" OutInveldTable_Nojj=sTemp End Function '根據一個數組動態生成一個指定列值的表格(沒有簡介) 列數 2維數組 數組總個數 Function GjArrNewTable_Nojj(Cols,sTextArr,sTextArrCount) GjArrNewTable_Nojj="" sRightTable="" xf1=sTextArrCount/Cols xf2=sTextArrCount mod Cols sn=0 for i=1 to xf1 srFile=Server.MapPath("\")&"\NewestWorks"&Cstr(i)&".txt" sRightTable=sRightTable&""&ReadFile_AllText(srFile)&"" sRightTable=sRightTable&"" for j=1 to Cols sRightTable=sRightTable& _ ""&OutInveldTable_Nojj(sTextArr,sn)&"" sn=sn+1 next sRightTable=sRightTable&"" next if sn <= sTextArrCount-1 then sRightTable=sRightTable&"" for j=sn to sTextArrCount-1 sRightTable=sRightTable& _ ""&OutInveldTable_Nojj(sTextArr,sn)&"" sn=sn+1 next sRightTable=sRightTable&"" end if GjArrNewTable_Nojj=""&sRightTable&"
" End Function '讀取一個報紙的列表 作品名稱 返回的值 function ReadBzList(ZpName,BmpUrl) ReadBzList=0 OutAllText="" Dim nWorkCount Dim sWorkDataArr(50,10) nWorkCount=0 sSQL="Select Top 20 * FROM AllZpList WHERE ZpName='"&ZpName&"' ORDER BY FxDate DESC" GetRecordset sSQL,RetuRs pTopLine="《"&ZpName&"》電子版最新"&CStr(RetuRs.RecordCount)&pTopLine if RetuRs.RecordCount>0 then if false and "JJ"&ZpName&"SS"=RetuRs("ZpJj") then for j=1 to RetuRs.RecordCount if RetuRs.EOF then Exit For srFile=Server.MapPath("\")&"\NewestWorks"&Cstr(j)&".txt" OutAllText=OutAllText&""&ReadFile_AllText(srFile)&"" sColor=" bgcolor=""#f1f1f1""" 'if j mod 2=1 then sColor=" bgcolor=""#f1f1f1""" OutAllText=OutAllText&"" '根據一個報紙記錄組合成一個表格 記錄集 圖片文件鏈接 返回的值 OutAllText=OutAllText&ReadRecoOutTable(RetuRs,BmpUrl) OutAllText=OutAllText&"" RetuRs.MoveNext next else sMemoJj="PP"&RetuRs("ZpName")&"XX" sSQLZpMemo="Select * FROM AllZpList_Memo WHERE ZpID='"&sMemoJj&"'" GetRecordset sSQLZpMemo,RetuZpMemoRs '換行,詳細內容值從另一個表中獲取 if RetuZpMemoRs.RecordCount>=1 then pWorkMemo="報紙介紹:
"&Replace(Trim(RetuZpMemoRs("ZpMemo")), chr(10), "
") end if RetuZpMemoRs.Close set RetuZpMemoRs=nothing for j=1 to RetuRs.RecordCount if RetuRs.EOF then Exit For sWorkDataArr(nWorkCount,0)=BmpUrl sWorkDataArr(nWorkCount,1)=ZpName sWorkDataArr(nWorkCount,2)="共48版" sWorkDataArr(nWorkCount,3)="出版日期 "&RetuRs("FxDate") sWorkDataArr(nWorkCount,4)=RetuRs("HtmlUrl") LinkTemp="'"&HttpMain&"/workDown/count_download.asp?get=1&Zp_id="&RetuRs("ZpID")&"'" sWorkDataArr(nWorkCount,5)="使用閱讀器閱讀" if bInstrall then sWorkDataArr(nWorkCount,5)="使用閱讀器閱讀" end if nWorkCount=nWorkCount+1 RetuRs.MoveNext next OutAllText=OutAllText&"" OutAllText=OutAllText&GjArrNewTable_Nojj(4,sWorkDataArr,nWorkCount) OutAllText=OutAllText&"" end if end if RetuRs.close set RetuRs = nothing ReadBzList=OutAllText end function '輸出一個ID_URL的所有信息 function OutUrlIDData() OutUrlIDData="" '獲取Url中的產品序列號 ZpSnv=GetUrlSnh() '打開數據庫并返回數據庫對象 數據名稱 OpenConnDB OutText="" sSQL="Select * FROM NewestWorks WHERE ZpID="&ZpSnv GetRecordset sSQL,RetuRs if RetuRs.RecordCount>0 then pTitle=RetuRs("ZpName")&"電子版,"&RetuRs("ZpName")&"網站,讀報網站" pDescription=pTitle sTemp=RetuRs("ZpName")&"社" if len(RetuRs("ZpInc")) > 1000 then sTemp=RetuRs("ZpInc") pKeywords=RetuRs("ZpName")&","&RetuRs("ZpInc")&","&RetuRs("ZpName")&"電子版,"&RetuRs("ZpName")&"網站" else pKeywords=RetuRs("ZpName")&","&RetuRs("ZpName")&"電子版,"&RetuRs("ZpName")&"網站" end if pTopLine="期,按最新發布日期排列:
此報所屬報社(管理機構):"&sTemp&",類別:"&RetuRs("ZpType")&",地區:"&RetuRs("ZpAdd")&"" '讀取一個報紙的列表 作品名稱 返回的值 OutUrlIDData=ReadBzList(RetuRs("ZpName"),RetuRs("ZpBmp")) else pTitle="訪問出錯了!" pKeywords="" pDescription="" pOutText="" pTopLine="訪問出錯了!" pWorkMemo="" end if RetuRs.close set RetuRs = nothing '關閉數據庫 CloseDB end function '輸出一個ID_URL的所有信息 pOutText=OutUrlIDData() %> <%=pTitle%> 天津11选5开奖记录 <%=pOutText%>
<%=pTopLine%>
<%=pWorkMemo%>
天津11选5开奖记录 乐翻二人麻将 北京pk10遗漏统计 时时彩霸主 稳赚不赔 江西时时开奖结果表 彩票5码是什么 pt平台娱乐 精准3肖6码三肖六码公开 联众麻将下载 韩国宝乐 彩盈娱乐平台