<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
pTitle=""
pKeywords=""
pDescription=""
pOutText=""
pTopLine=""
'根据一个数组动态生成一个指定列值的表格 列数 2维数组 数组总个数
Function GjArrNewTable_AddBz(Cols,sTextArr,sTextArrCount,nheight)
GjArrNewTable_AddBz=""
sRightTable=""
xf1=sTextArrCount/Cols
xf2=sTextArrCount mod Cols
sn=0
for i=1 to xf1
sRightTable=sRightTable&""
for j=1 to Cols
sRightTable=sRightTable& _
"![]()
"&sTextArr(sn,0)&"
| "&chr(13)&chr(10)
sn=sn+1
next
sRightTable=sRightTable&"
"
next
sRightTable=sRightTable&""&chr(13)&chr(10)
for j=sn to sTextArrCount-1
sRightTable=sRightTable& _
"![]()
"&sTextArr(sn,0)&"
| "&chr(13)&chr(10)
sn=sn+1
next
sRightTable=sRightTable&"
"
GjArrNewTable_AddBz=""
End Function
'根据一个报纸名称返回相关的URL值
function BzNameRetuUrl(BzName)
BzNameRetuUrl=""
sSQL="Select * FROM NewestWorks WHERE ZpName='"&BzName&"'"
GetRecordset sSQL,RetuRs
if RetuRs.RecordCount>0 then
'sMainHttp="http://localhost/NewestWorks/"
sMainHttp="/NewestWorks/Works/"
BzNameRetuUrl=sMainHttp&Cstr(RetuRs("ZpID"))&".html"
end if
RetuRs.close
set RetuRs = nothing
end function
'分析报纸名称输出表格
function FxBzNameOutTable(SfBzData)
FxBzNameOutTable=""
Dim strBzUrl(500,3)
Dim strBzUrl_Count
strBzUrl_Count=0
'分解省份名称
SfNameArr = Split(SfBzData, ";", -1, 1)
SfNameArr_Count=ubound(SfNameArr)
for ix=0 to SfNameArr_Count
SfNameArr(ix)=Replace(Trim(SfNameArr(ix)), chr(10), "") '换行
SfNameArr(ix)=Replace(SfNameArr(ix), chr(13), "") '回车
if SfNameArr(ix)<>"" then
strBzUrl(strBzUrl_Count,0)=SfNameArr(ix)
'根据一个报纸名称返回相关的URL值
strBzUrl(strBzUrl_Count,1)=BzNameRetuUrl(SfNameArr(ix))
strBzUrl_Count=strBzUrl_Count+1
end if
next
'根据一个数组动态生成一个指定列值的表格 列数 2维数组 数组总个数
FxBzNameOutTable=GjArrNewTable_AddBz(8,strBzUrl,strBzUrl_Count,"30")
End function
'读取推荐报纸的列表 作品名称 返回的值
function ReadTjTable(AddName)
ReadTjTable=""
OutAllText=""
sSQL="Select * FROM NewstWorksAdd WHERE AddName='"&AddName&"'"
GetRecordset sSQL,RetuRs
if RetuRs.RecordCount>0 then
if len(RetuRs("TjText1")) > 0 then
sTemp1=FxBzNameOutTable(RetuRs("TjText1"))
if Len(sTemp1) > 0 then
OutAllText=OutAllText&"| 适合全国读者阅读的报纸: |
| "
'分析报纸名称输出表格
OutAllText=OutAllText&sTemp1
OutAllText=OutAllText&" |
"
end if
end if
if len(RetuRs("TjText2")) > 0 then
sTemp2=FxBzNameOutTable(RetuRs("TjText2"))
if Len(sTemp2) > 0 then
OutAllText=OutAllText&"| 最近热门报纸: |
| "
'分析报纸名称输出表格
OutAllText=OutAllText&sTemp2
OutAllText=OutAllText&" |
"
end if
end if
if len(RetuRs("TjText3")) > 0 then
sTemp3=FxBzNameOutTable(RetuRs("TjText3"))
if Len(sTemp1) > 0 then
OutAllText=OutAllText&"| 本地区推荐报纸: |
| "
'分析报纸名称输出表格
OutAllText=OutAllText&sTemp3
OutAllText=OutAllText&" |
"
end if
end if
end if
RetuRs.close
set RetuRs = nothing
ReadTjTable=OutAllText
end function
'输出一个ID_URL的所有信息
function OutUrlIDData(AddName)
OutUrlIDData=""
Dim nWorkCount
Dim sWorkDataArr(500,5)
nWorkCount=0
'打开数据库并返回数据库对象 数据名称
OpenConnDB
'sSQL="Select * FROM NewestWorks WHERE upper(ZpAbc)='"&UCase(AddName)&"'"
sSQL="Select * FROM NewestWorks WHERE ZpAbc='"&UCase(AddName)&"'"
GetRecordset sSQL,RetuRs
if RetuRs.RecordCount>0 then
pTitle="开头字母 "&AddName&" 的电子版报纸"
pDescription=pTitle
pKeywords="电子版报纸"
pTopLine="以字母 "&AddName&" 开头的电子版报纸,共有"&RetuRs.RecordCount&"份报纸:"
sMainHttp="/NewestWorks/Works/"
for j=1 to RetuRs.RecordCount
if RetuRs.EOF then Exit For
sWorkDataArr(nWorkCount,0)=RetuRs("ZpName")
sWorkDataArr(nWorkCount,1)=sMainHttp&Cstr(RetuRs("ZpID"))&".html"
sWorkDataArr(nWorkCount,2)=RetuRs("ZpBmp")
nWorkCount=nWorkCount+1
RetuRs.MoveNext
next
OutUrlIDData=OutUrlIDData&"| "
OutUrlIDData=OutUrlIDData&GjArrNewTable_AddBz(5,sWorkDataArr,nWorkCount,"220")
OutUrlIDData=OutUrlIDData&" |
"
OutUrlIDData=OutUrlIDData&"| "
OutUrlIDData=OutUrlIDData&ReadTjTable(AddName)
OutUrlIDData=OutUrlIDData&" |
"
else
pTitle="访问出错了!"
pKeywords=""
pDescription=""
pOutText=""
pTopLine="访问出错了!"
pWorkMemo=""
end if
RetuRs.close
set RetuRs = nothing
'关闭数据库
CloseDB
end function
'输出一个ID_URL的所有信息
pOutText=OutUrlIDData("D")
%>
<%=pTitle%>
| <%=pTopLine%> |
|
<%=pOutText%>
|