<% '獲得圖片 '判斷文件存在 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%>
 
 
 
   
 
北京pk10开奖网址平安 怎么在哔哩哔哩上赚钱 2018年大乐透停售时间 我要努力反奋斗赚钱 北京pk拾开奖直播 棋牌游戏大全 股票配资论坛找象泰配资服务出色GO 管家婆四期三肖期期准期期准 手机捕鱼可换现金捕鱼 福建十一选五基本走势图 新疆时时彩玩法 11选5任3秘密选号法 2013上证指数走势图 <% set rsfg=nothing set rs=nothing conn.close set conn=nothing %>