<% '獲得圖片 '判斷文件存在 set fs=createobject("scripting.filesystemobject") set rs=server.createobject("adodb.recordset") strPath = Server.MapPath(".") picpath="nrpic" filepath=strpath &"\"& picpath &"\" 'response.write filepath function getpic(pp) if pp<>"" or pp<>null then getpic=filepath & pp if not fs.fileexists (getpic) then picstr="圖片不存在,請檢查圖像文件" getpic= "" else getpic=pp picstr="圖片" end if else picstr="無圖片" getpic="" end if end function dim fname() '分解圖片 Sub vodname(fstr) f1 = InStr(1, fstr, ",") if f1=0 then picnum=1 redim fname(picnum) fname(0)=fstr exit sub end if Do While f1 <> 0 picnum = picnum + 1 ReDim Preserve fname(picnum) fname(picnum - 1) = Left(fstr, f1 - 1) fstr = Right(fstr, Len(fstr) - f1) f1 = InStr(1, fstr, ",") If f1 = 0 Then picnum = picnum + 1 ReDim Preserve fname(picnum) fname(picnum - 1) = fstr Exit Do End If Loop End Sub strpicbt="" sql="select id,logotxt,nrpic from dzfagui where logo=1" rs.open sql,conn,0,2 if rs.eof and rs.bof then '無圖片新聞 ' else picid=rs("id") picbt=rs("logotxt") strpicbt="" nrpic=rs("nrpic") call vodname(nrpic) picfile=getpic(fname(0)) picfile="nrpic/"&picfile strimage=strpicbt+"" strpicbt=strpicbt+picbt & "" end if rs.close %>
<%call wdim2()%>
 
<% datenow=now set rsfg=server.createobject("adodb.recordset") sql="select id, lbname from dzleibie where leibie=2 and jibie=1 order by id " rs.open sql,conn,0,2 if rs.eof and rs.bof then else do while not rs.eof lbname=rs("lbname") strlb=""& lbname &"" %> <% rs.movenext loop end if rs.close %>
<%=strlb%>
<% sql="select name,id,shijian from dzfagui where jibie like '%"& lbname &"%' order by iftop desc,shijian" rsfg.open sql,conn,0,2 if rsfg.eof and rsfg.bof then %> <% else do while not rsfg.eof id=rsfg("id") name=rsfg("name") sj=rsfg("shijian") sj=FormatDateTime(sj,2) dayinterval=datediff("d",sj,datenow) if dayinterval>5 then newstr="" else newstr="new" end if strname="" select case id case 69 strurl="http://www.cea.gov.cn/publish/dizhenj/125/234/237/100551/index.html" strname= ""& name &" " case 70 strurl="http://www.cea.gov.cn/publish/dizhenj/125/234/237/100552/index.html" strname= ""& name &"" case 71 strurl="http://www.cea.gov.cn/publish/dizhenj/125/234/237/100553/index.html" strname= ""& name &"" case 72 strurl="http://www.cea.gov.cn/publish/dizhenj/125/234/237/100554/index.html" strname= ""& name &"" case 73 strurl="http://www.cea.gov.cn/publish/dizhenj/125/234/237/100555/index.html" strname= ""& name &"" case else strname=""& name &""& newstr &"" end select %> <% rsfg.movenext loop end if rsfg.close %>
更新中
<%=strname%>



<% sql="select top 10 id,yd,name from dzfagui order by yd desc" rs.open sql,conn,0,2 if rs.eof and rs.bof then else inum=0 do while not rs.eof inum=inum+1 id=rs("id") yd=rs("yd") name=rs("name") if len(name)>7 then name=left(name,7)&"..." strfg=" ·"& name &" ("&yd&")" %> <% rs.movenext loop end if rs.close %>
閱讀排行榜
<%=inum%> <%=strfg%>
 
 
 
   
 
票时时开奖结果 24日3d彩票开奖号码 时时彩免费软件 内蒙古快三预测软件 打副本 赚钱吗 极速飞艇怎么玩 北京pk10稳赚心得技巧 飞艇计划软件苹果手机下载 龙王捕鱼 公众号广告赚钱吗 婴儿用品卖什么最赚钱 快乐10分任选走势图 高佣联盟app能赚钱是真的 新倩女幽魂 职业 赚钱攻略 重庆百变王牌走势图链接 梦幻西游赚钱厉害的门派 波克捕鱼千炮版下载 <% set rsfg=nothing set rs=nothing conn.close set conn=nothing %>