<%@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=""&sRightTable&"
" 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("X") %> <%=pTitle%>

足球外围投注网站|365足球外围网站|线上足球投注网站【实时比分】

<%=pOutText%>
<%=pTopLine%>