<%@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="/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 ZpAdd like '"&AddName&"%' order by ZpListSn" 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("廣西") %> <%=pTitle%> 天津11选5开奖记录 <%=pOutText%>
<%=pTopLine%>
天津11选5开奖记录 鱼丸游戏qq版下载 四川时时地址 比分网足球 山东时时是什么意思是什么意思是什么意思是什么 时时彩玩家稳赚秘籍大全 吉林时时快三 时时彩后三包一胆技巧 百人棋牌aaa 宾利娱乐可以控制吗 二十一点玩法规则图解