<% if err<>0 then response.write("
错误
") else dim id sub showtime() dim dat,tim,week,weekdex dat=formatdatetime(now(),1) response.write(dat) tim=(formatdatetime(time(),4)) response.write(tim) week=weekday(dat) select case week case 1 weekdex="星期日" case 2 weekdex="星期一" case 3 weekdex="星期二" case 4 weekdex="星期三" case 5 weekdex="星期四" case 6 weekdex="星期五" case 7 weekdex="星期六" END SELECT response.write(" "&weekDEX) tim=cint(hour(time())) If Tim>=6 And Tim <=9 Then Greeting = " 早上好!" ELSEIF TIM>9 AND TIM <=12 THEN Greeting = " 上午好!" ELSEIF TIM>12 AND TIM<=18 THEN Greeting = " 下午好!" Elseif tim>18 and tim <=23 then Greeting = " 晚上好!" ELSEif tim>23 AND TIM<=24 OR TIM>0 AND TIM <=5 then GREETING=" 夜深沉!" End If response.write(greeting) end sub %> 蔚山现代对战首尔Fc:地震专题 - 仁川联vs蔚山现代|悉尼fc蔚山现代现场直播 <% '获得图片 '判断文件存在 set fs=createobject("scripting.filesystemobject") strPath = Server.MapPath("/dizhenzt") 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 '分解图片 function vodname(fstr) dim fname() f1 = InStr(1, fstr, ",") if f1=0 then picnum=1 redim fname(picnum) fname(0)=fstr vodname=fname(0) exit function 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 vodname=fname(0) End function %>
<%call wdim2()%>
    <% call showtime%>

地震专题

震情概况
<% set rszj=Server.CreateObject("ADODB.RecordSet") sql="select id,dzztname,dzzjyear from dzzj where id<>39 order by shijian desc" rszj.open sql,conn,0,1 if rszj.eof and rszj.bof then else do while not rszj.eof zjyear=rszj("dzzjyear") zjname=rszj("dzztname") zjid=rszj("id") strzj=""& zjname & "" if zjyear<>year0 then %> <%end if%> <% year0=zjyear rszj.movenext loop end if rszj.close %>
<%=zjyear%>年
<%=strzj%>

历史地震专题
<%'地震专题 sql="select top 8 id,lbname from dzleibie where leibie=3 and jibie=1 order by lbname desc" rszj.open sql,conn,0,2 if rszj.eof and rszj.bof then else do while not rszj.eof ztname=rszj("lbname") ztid=rszj("id") strzt=""& ztname &"" %> <% rszj.movenext loop end if rszj.close %>
--<%=strzt %>  

地震知识
<% set rszs=server.createobject("adodb.recordset") sqlzs="select top 10 name,id,yd,shijian from dzzhishi where lbname like '%基本知识%' order by shijian" rszs.open sqlzs,conn,0,2 strzs=" " datenow=now if not rszs.eof or rszs.bof then do while not rszs.eof zsname=rszs("name") id=rszs("id") zssj=rszs("shijian") zssj=FormatDateTime(zssj,2) dayinterval=datediff("d",zssj,datenow) if dayinterval>5 then newstr="" else newstr="new" end if strzs=""& zsname &"" %> <% rszs.movenext loop else %> <% end if rszs.close %>
·<%=strzs%>
<%=strzs%>

地震问答
<% set rszs=server.createobject("adodb.recordset") sqlzs="select top 10 name,id,yd,shijian from dzzhishi where lbname like '%地震问答%' order by shijian" rszs.open sqlzs,conn,0,2 strzs=" " datenow=now if not rszs.eof or rszs.bof then do while not rszs.eof zsname=rszs("name") id=rszs("id") zssj=rszs("shijian") zssj=FormatDateTime(zssj,2) dayinterval=datediff("d",zssj,datenow) if dayinterval>5 then newstr="" else newstr="new" end if strzs=""& zsname &"" %> <% rszs.movenext loop else %> <% end if rszs.close %>
·<%=strzs%>
<%=strzs%>
<% 'set rszj=Server.CreateObject("ADODB.RecordSet") set rszjxw=Server.CreateObject("ADODB.RecordSet") set rszjpic=Server.CreateObject("ADODB.RecordSet") sql="select top 10 * from dzzj order by shijian desc" rszj.open sql,conn,0,1 if rszj.eof and rszj.bof then else do while not rszj.eof zjname=rszj("dzztname") zjname1=zjname zjid=rszj("id") zjjs=rszj("jieshao") zjjs=spastr & Replace(zjjs,vbcrlf,"
    ") zjjs=replace(zjjs,"VbV","'") zjsj=rszj("shijian") dayinterval=datediff("d",zjsj,datenow) if dayinterval>7 then newstr="" else newstr=" new" end if zjname=zjname&""& newstr &"" sqlpic="select * from dzzjnr where dzzjid="& zjid &" and logo=1" sqlxw="select top 3 * from dzzjnr where dzzjid="& zjid &" order by shijian desc" rszjpic.open sqlpic,conn,0,1 if rszjpic.eof and rszjpic.bof then picfile="nrpic/logo.jpg" else picid=rszjpic("id") strbt1="" nrpic=rszjpic("nrpic") picfile0=vodname(nrpic) picfile=getpic(picfile0) picfile="nrpic/"&picfile end if strimage="" strpicbt=""& zjname & "" strmore="仁川联vs蔚山现代" rszjpic.close %>
<%= strimage %>
<%=strpicbt%>
<% rszjxw.open sqlxw,conn,0,2 if rszjxw.eof and rszjxw.bof then else izj=0 do while not rszjxw.eof izj=izj+1 xwname=rszjxw("xwname") xwid=rszjxw("id") xwsj=FormatDateTime(rszjxw("shijian"),2) havepic=rszjxw("nrpic") pstr="" if ( havepic<>null or havepic<>"") then pstr="" xwstr=""& xwname &""& pstr &"("& xwsj &")" %> <% rszjxw.movenext zjname="" loop end if rszjxw.close %>
<%=strpicbt%>
    <%=zjjs%>

· <%=xwstr%>
<%=strmore%>
 
<% rszj.movenext loop end if rzzj.close %>

 
 
<% rszj.close rszjpic.close rszjxw.close set rszj=nothing set rszjpic=nothing set rszjxw=nothing conn.close set conn=nothing end if %>