<% 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 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 %> 持枪王者在线客服
时时彩大小单双稳赚技巧法 微信捕鱼来了辅助软件 亿宏国际彩票注册会不会被骗 上海时时乐彩开奖结果 2012单机捕鱼游戏 传奇国际娱乐平台官方网址 幸运飞艇怎么玩稳赚 pk10精准7码计划 苹果有什么游戏赚钱的 快3必中计划软件购买 排列三开奖 聚友贵州麻将开挂软件 必赢客幸运飞艇计划 新彊时时彩三星走势图 广东时时彩11选五现场直播 淘宝联盟团长招商怎么赚钱