<% 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 %> 斯米马赛
 
  <%=News("0,")%>   <%=SiteDetail%>
      更多 >>   更多 >>
 
<%=Newsa("0,")%>
網站地圖   |   法律聲明   |   聯系我們
◆二八杠是什么意思◆ <% 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 %>