<% '获得图片 '判断文件存在 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 %>
阅读?#21028;?#27036;
<%=inum%> <%=strfg%>
 
 
 
   
 
持枪王者在线客服
qq分分彩计划软件 重庆时时彩个位定胆方法 AG开心农场计划 买六肖中奖看哪个 时时彩组三组六杀号计划 重庆时时彩稳赚平台 时时彩双面计划不倍投 推荐几款靠谱能赚钱的网站 彩金捕鱼季下载手机版 七星彩选号技巧及预测 琼崖海南麻将2019 重庆快乐10分外挂软件下载 重庆时时彩开奖网站 幸运飞艇稳赢计划回血 金游戏棋牌游戏大全 卖原味卫生巾赚钱吗 <% set rsfg=nothing set rs=nothing conn.close set conn=nothing %>