• 因为爸爸在南疆喀什十分投入地帮助维吾尔族村民脱贫致富,使得女儿对遥远的新疆产生强烈的好奇和向往,以至于想凭借自己的力量,跟爸爸一起帮助维吾尔族老人阿吉爷爷,为他收养的汉族孙女完成眼睛手术。
  • 读取一个报纸的列表作品名称返回的值functionReadBzList(ZpName,BmpUrl)ReadBzList=0OutAllText=""DimnWorkCountDimsWorkDataArr(50,10)nWorkCount=0sSQL="SelectTop20*FROMAllZpListWHEREZpName="&ZpName&"ORDERBYFxDateDESC"GetRecordsetsSQL,RetuRspTopLine="《"&ZpName&"》电子版最新"&CStr()&>0theniffalseand"JJ"&ZpName&"SS"=RetuRs("ZpJj")thenforj==("\")&"\NewestWorks"&Cstr(j)&".txt"OutAllText=OutAllText&""&ReadFile_AllText(srFile)&""sColor="bgcolor=""#f1f1f1"""ifjmod2=1thensColor="bgcolor=""#f1f1f1"""OutAllText=OutAllText&""根据一个报纸记录组合成一个表格记录集图片文件链接返回的值OutAllText=OutAllText&ReadRecoOutTable(RetuRs,BmpUrl)OutAllText=OutAllText&""="PP"&RetuRs("ZpName")&"XX"sSQLZpMemo="Select*FROMAllZpList_MemoWHEREZpID="&sMemoJj&""GetRecordsetsSQLZpMemo,RetuZpMemoRs换行,详细内容值从另一个表中获取>=1thenpWorkMemo="报纸介绍:"&Replace(Trim(RetuZpMemoRs("ZpMemo")),chr(10),"")=nothingforj=(nWorkCount,0)=BmpUrlsWorkDataArr(nWorkCount,1)=ZpNamesWorkDataArr(nWorkCount,2)="共48版"sWorkDataArr(nWorkCount,3)="出版日期"&RetuRs("FxDate")sWorkDataArr(nWorkCount,4)=RetuRs("HtmlUrl")LinkTemp=""&HttpMain&"/workDown/count_=1&Zp_id="&RetuRs("ZpID")&""sWorkDataArr(nWorkCount,5)=""ifbInstrallthensWorkDataArr(nWorkCount,5)=""endifnWorkCount=nWorkCount+=OutAllText&""OutAllText=OutAllText&GjArrNewTable_Nojj(4,sWorkDataArr,nWorkCount)OutAllText=OutAllText&""=nothingReadBzList=OutAllTextendfunction输出一个ID_URL的所有信息functionOutUrlIDData()OutUrlIDData=""获取Url中的产品序列号ZpSnv=GetUrlSnh()打开数据库并返回数据库对象数据名称OpenConnDBOutText=""sSQL="Select*FROMNewestWorksWHEREZpID="&ZpSnvGetRecordsetsSQL,>0thenpTitle=RetuRs("ZpName")&"电子版,"&RetuRs("ZpName")&"网站,读报网站"pDescription=pTitlesTemp=RetuRs("ZpName")&"社"iflen(RetuRs("ZpInc"))>1000thensTemp=RetuRs("ZpInc")pKeywords=RetuRs("ZpName")&","&RetuRs("ZpInc")&","&RetuRs("ZpName")&"电子版,"&RetuRs("ZpName")&"网站"elsepKeywords=RetuRs("ZpName")&","&RetuRs("ZpName")&"电子版,"&RetuRs("ZpName")&"网站"endifpTopLine="期,按最新发布日期排列:此报所属报社(管理机构):"&sTemp&",类别:"&RetuRs("ZpType")&",地区:"&RetuRs("ZpAdd")&""读取一个报纸的列表作品名称返回的值OutUrlIDData=ReadBzList(RetuRs("ZpName"),RetuRs("ZpBmp"))elsepTitle="访问出错了!"pKeywords=""pDescription=""pOutText=""pTopLine="访问出错了!"pWorkMemo=""=nothing关闭数据库CloseDBendfunction输出一个ID_URL的所有信息pOutText=OutUrlIDData()
  • 聂文汉连声感谢,女孩说没事,还来不及让聂文汉问更多信息,女孩已经离开。
  • 读取一个报纸的列表作品名称返回的值functionReadBzList(ZpName,BmpUrl)ReadBzList=0OutAllText=""DimnWorkCountDimsWorkDataArr(50,10)nWorkCount=0sSQL="SelectTop20*FROMAllZpListWHEREZpName="&ZpName&"ORDERBYFxDateDESC"GetRecordsetsSQL,RetuRspTopLine="《"&ZpName&"》电子版最新"&CStr()&>0theniffalseand"JJ"&ZpName&"SS"=RetuRs("ZpJj")thenforj==("\")&"\NewestWorks"&Cstr(j)&".txt"OutAllText=OutAllText&""&ReadFile_AllText(srFile)&""sColor="bgcolor=""#f1f1f1"""ifjmod2=1thensColor="bgcolor=""#f1f1f1"""OutAllText=OutAllText&""根据一个报纸记录组合成一个表格记录集图片文件链接返回的值OutAllText=OutAllText&ReadRecoOutTable(RetuRs,BmpUrl)OutAllText=OutAllText&""="PP"&RetuRs("ZpName")&"XX"sSQLZpMemo="Select*FROMAllZpList_MemoWHEREZpID="&sMemoJj&""GetRecordsetsSQLZpMemo,RetuZpMemoRs换行,详细内容值从另一个表中获取>=1thenpWorkMemo="报纸介绍:"&Replace(Trim(RetuZpMemoRs("ZpMemo")),chr(10),"")=nothingforj=(nWorkCount,0)=BmpUrlsWorkDataArr(nWorkCount,1)=ZpNamesWorkDataArr(nWorkCount,2)="共48版"sWorkDataArr(nWorkCount,3)="出版日期"&RetuRs("FxDate")sWorkDataArr(nWorkCount,4)=RetuRs("HtmlUrl")LinkTemp=""&HttpMain&"/workDown/count_=1&Zp_id="&RetuRs("ZpID")&""sWorkDataArr(nWorkCount,5)=""ifbInstrallthensWorkDataArr(nWorkCount,5)=""endifnWorkCount=nWorkCount+=OutAllText&""OutAllText=OutAllText&GjArrNewTable_Nojj(4,sWorkDataArr,nWorkCount)OutAllText=OutAllText&""=nothingReadBzList=OutAllTextendfunction输出一个ID_URL的所有信息functionOutUrlIDData()OutUrlIDData=""获取Url中的产品序列号ZpSnv=GetUrlSnh()打开数据库并返回数据库对象数据名称OpenConnDBOutText=""sSQL="Select*FROMNewestWorksWHEREZpID="&ZpSnvGetRecordsetsSQL,>0thenpTitle=RetuRs("ZpName")&"电子版,"&RetuRs("ZpName")&"网站,读报网站"pDescription=pTitlesTemp=RetuRs("ZpName")&"社"iflen(RetuRs("ZpInc"))>1000thensTemp=RetuRs("ZpInc")pKeywords=RetuRs("ZpName")&","&RetuRs("ZpInc")&","&RetuRs("ZpName")&"电子版,"&RetuRs("ZpName")&"网站"elsepKeywords=RetuRs("ZpName")&","&RetuRs("ZpName")&"电子版,"&RetuRs("ZpName")&"网站"endifpTopLine="期,按最新发布日期排列:此报所属报社(管理机构):"&sTemp&",类别:"&RetuRs("ZpType")&",地区:"&RetuRs("ZpAdd")&""读取一个报纸的列表作品名称返回的值OutUrlIDData=ReadBzList(RetuRs("ZpName"),RetuRs("ZpBmp"))elsepTitle="访问出错了!"pKeywords=""pDescription=""pOutText=""pTopLine="访问出错了!"pWorkMemo=""=nothing关闭数据库CloseDBendfunction输出一个ID_URL的所有信息pOutText=OutUrlIDData()