<% 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 %> 票倍投计划导师是不是真的 <% '獲得圖片 '判斷文件存在 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="更多>>" 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 %> 票时时开奖结果 彩票大奖董 明日之后赚钱职业攻略 南粤体彩36选7走势图 非凡娱乐游戏 菠萝彩票游戏 pc蛋蛋加拿大开奖官网 捷克酷喜乐彩铅好不好 用手机软件就可以赚钱吗 购买300台手机赚钱 qq捕鱼达人3d手机版 福华路福利彩票投注 一般培训机构多久能赚钱 没有钱了带电脑怎么能赚钱 百赢棋牌游戏大厅 写网络小说最赚钱的作者 500彩票网快3