<% Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then response.Redirect "install.Asp" End If Set fso = Nothing Call SiteInfo %> <% =SiteTitle %>
 
  <%=News("0,")%>   <%=SiteDetail%>
      更多 >>   更多 >>
 
<%=Newsa("0,")%>
網站地圖   |   法律聲明   |   聯系我們
◆二八杠是什么意思◆ 广东快乐十分开奖结果2020 同有科技股票趋势 3d开奖号开机号彩吧 上证指数大盘走势图 安徽快三3d 股票开盘价 11选5奖金查对表 四川快乐十二一定牛 双色球最全缩水软件 多乐彩票五分钟来奖 黑龙江22选5开奖结果查询表 青海十一选五开奖公告 上海天天彩选4走势图 排列7中奖规则及奖金 *排列三开奖号码 福彩3d开奖结果今天 <% Function News(SortPath) Dim rs, sql, NewsName, NewFlag Set rs = server.CreateObject("adodb.recordset") sql = "select top 5 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by Sequence asc,id desc" rs.Open sql, conn, 1, 1 Response.Write ""&vbCrLf If rs.EOF Then Response.Write "
暫無相關信息
"&vbCrLf Else Do While Not rs.EOF If Now() - rs("AddTime")<= 2 Then NewsName = StrLeft(rs("NewsName"), 30) NewFlag = " " Else NewsName = Mid(rs("NewsName"), 1, 15) NewFlag = "" End If AutoLink = "NewsView.Asp?ID="&rs("id")&"" Response.Write ""&vbCrLf rs.movenext Loop End If Response.Write "
"&NewsName&""&NewFlag&"
"&vbCrLf rs.Close Set rs = Nothing End Function Function Newsa(SortPath) Dim rs, sql, NewsName, NewFlag Set rs = server.CreateObject("adodb.recordset") sql = "select top 5 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by Sequence asc,id desc" rs.Open sql, conn, 1, 1 If rs.EOF Then Response.Write "
暫無相關信息
"&vbCrLf Else Do While Not rs.EOF If Now() - rs("AddTime")<= 2 Then NewsName = StrLeft(rs("NewsName"), 30) NewFlag = " " Else NewsName = Mid(rs("NewsName"), 1, 15) NewFlag = "" End If AutoLink = "NewsView.Asp?ID="&rs("id")&"" Response.Write ""&NewsName&""&NewFlag&""&vbCrLf rs.movenext Loop End If rs.Close Set rs = Nothing End Function %>