<% 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 %> 1000本金角模式计划表 <% set rs=server.createobject("adodb.recordset") %>
<%call wdim2()%>

    <% call showtime%>

信息查詢

 
標題:
內容:
排序:
   
 
<% sql="select top 10 id,name,yd,shijian from dzxinwen order by yd desc" rs.open sql,conn,0,2 if rs.eof and rs.bof then else datenow=now inum=0 do while not rs.eof inum=inum+1 xinwenname0=rs("name") xinwenname=xinwenname0 if len(xinwenname)>20 then xinwenname=left(xinwenname,20)&".." xinwenid=rs("id") yd=rs("yd") xinwensj0=rs("shijian") tt="新聞標題:"&xinwenname0 &" " tt=tt+"更新時間:"&xinwensj0 &" " tt=tt+"閱讀次數:"&yd strxinwen="" strxinwen=strxinwen+xinwenname & "("&yd&")" %> <% rs.movenext loop end if rs.close %>

閱讀排行

<%=inum%>.
<%=strxinwen%>
   
工作動態
<% '獲得新聞 '最新的20條 'bday=day(now) strxinwen="" sql="select top 26 * from dzxinwen order by shijian desc" rs.open sql,conn,0,2 if rs.eof and rs.bof then else datenow=now do while not rs.eof xinwenname0=rs("name") havepic=rs("nrpic") btc=rs("namecolor") xinwenname=xinwenname0 if btc=true then xinwenname=""& xinwenname0 &"" xinwenid=rs("id") xinwensj0=rs("shijian") yd=rs("yd") xinwensj=FormatDateTime(xinwensj0,2) dayinterval=datediff("d",xinwensj,datenow) if dayinterval>5 then newstr="" else newstr="new" end if pstr="" tt="新聞標題:"&xinwenname0 &" " tt=tt+"更新時間:"&xinwensj0 &" " tt=tt+"閱讀次數:"&yd if ( havepic<>null or havepic<>"") then pstr="" strxinwen="" strxinwen=strxinwen+xinwenname & ""& pstr &"("& xinwensj &")"& newstr &"" %> <% rs.movenext loop end if rs.close %>
·<%=strxinwen %>
<% rs.close sql="select top 20 id,dzztname,jieshao from dzzj order by shijian desc" rs.open sql,conn,0,2 if rs.eof and rs.bof then else do while not rs.eof id=rs("id") zjname=rs("dzztname") zjjs=rs("jieshao") zjjs=Replace(zjjs,vbcrlf,"     ") tt="——"&zjname &"——     " tt=tt+zjjs strzj="-- "& zjname &"" %> <% rs.movenext loop end if rs.close %>
<%=strzj%>
 
 
 
<% end if conn.close set conn=nothing %> 票时时开奖结果 腾讯分分彩计划网页版 三分彩网站 网上设计赚钱的网站有哪些 澳洲幸运8走势图计划软件 吉祥博网址 奔驰宝马送35彩金官网 棋牌娱乐斗地主 做公主家千百宠代理赚钱吗 重庆时时龙虎和坑爹 网上代理赚钱什么意思 手机捕鱼游戏赢钱技巧 鱼虾蟹透视仪 指到钱来怎么玩赚钱 福彩3d技巧规律绝密 888棋牌手机版本 4399游戏盒子赚钱