<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
pTitle=""
pKeywords=""
pDescription=""
pOutText=""
pTopLine=""
pWorkMemo=""
'是否使用8dbhttp自定义协议联结下载引导文件
bInstrall=false
'是否已经安装了线上足球投注网站软件
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=""
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)&_
"| "&sDataArr(0)&" | "&chr(13)&chr(10)&_
" "&chr(13)&chr(10)&_
""&chr(13)&chr(10)&_
""&sDataArr(1)&" | "&chr(13)&chr(10)&_
" "&chr(13)&chr(10)&_
""&chr(13)&chr(10)&_
""&sDataArr(2)&" | "&chr(13)&chr(10)&_
" "&chr(13)&chr(10)&_
" | "&chr(13)&chr(10)&_
""&chr(13)&chr(10)&_
""&chr(13)&chr(10)&_
"| "&sDataArr(3)&" | "&chr(13)&chr(10)&_
" "&chr(13)&chr(10)&_
""&chr(13)&chr(10)&_
"| "&sPageJjText&" | "&chr(13)&chr(10)&_
" "&chr(13)&chr(10)&_
" | "&chr(13)&chr(10)&_
"
"&chr(13)&chr(10)&_
"
"&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)&_
""&sWorkDataArrTemp(nCurrSN,5)&" | "&chr(13)&chr(10)&_
"
"&chr(13)&chr(10)&_
"
"
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=""
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%>
<%=pTopLine%> |
|
<%=pOutText%>
| <%=pWorkMemo%> |