<% 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 If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If %> 北京赛车pk10 pk10开奖直播 北京赛车pk10开奖结果历史记录 - pk10直播网
<%=SiteDetail%>   详细 >>
公司简介
    <%=Products("0,",1,10)%>
<% Function Products(SortPath, trs, tds) Dim rs, sql, tr, td, ProductName, SmallPicPath Set rs = server.CreateObject("adodb.recordset") sql = "select top "&trs * tds&" * from Qianbo_Products where ViewFlag and CommendFlag order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" 'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and NewFlag order by id desc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "等待更新" Else Response.Write ""&vbCrLf For tr = 1 To trs Response.Write ""&vbCrLf For td = 1 To tds If StrLen(rs("ProductName"))<= 18 Then ProductName = rs("ProductName") Else ProductName = StrLeft(rs("ProductName"), 16) End If If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ProductView.Asp?ID="&rs("id")&"" End If SmallPicPath = HtmlSmallPic(rs("GroupID"), rs("SmallPic"), rs("Exclusive")) Response.Write "
  • "&vbCrLf rs.movenext If rs.EOF Then Exit For Next Response.Write ""&vbCrLf If rs.EOF Then Exit For Next Response.Write ""&vbCrLf End If rs.Close Set rs = Nothing End Function %> <% Function FriendLinks_pic(trs, tds) Dim rs, sql, tr, td, ProductName, SmallPicPath Set rs = server.CreateObject("adodb.recordset") sql = "select top "&trs * tds&" * from Qianbo_FriendLink where ViewFlag order by ID desc" rs.Open sql, conn, 1, 1 If rs.EOF Then response.Write "等待更新" Else Response.Write ""&vbCrLf For tr = 1 To trs Response.Write ""&vbCrLf For td = 1 To tds If StrLen(rs("LinkFace"))<= 18 Then LinkFace = rs("LinkFace") Else LinkFace = StrLeft(rs("LinkFace"), 16) End If If rs("LinkType") = 0 Then Response.Write "" Else Response.Write "
  • " End If rs.movenext If rs.EOF Then Exit For Next Response.Write ""&vbCrLf If rs.EOF Then Exit For Next Response.Write ""&vbCrLf End If rs.Close Set rs = Nothing End Function %> <% function Top_News_Nodate(SortPath) dim rs,sql,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select top 1 * from Qianbo_News where NoticeFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.open sql,conn,1,1 if rs.eof then Response.Write "等待更新"&VbCrLf else Response.Write ""&VbCrLf do while not rs.eof if now()-rs("AddTime")<=2 then NewsName=Left(rs("NewsName"),20) SeoDescription=StrLeft(rs("SeoDescription"),100) AddTime=rs("AddTime") NewFlag=" " else NewsName=Left(rs("NewsName"),20) SeoDescription=StrLeft(rs("SeoDescription"),100) AddTime=rs("AddTime") NewFlag="" end If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.asp?ID="&rs("id")&"" End If Response.Write "
  • "&NewsName&"
  • "&VbCrLf rs.movenext loop end if Response.Write ""&VbCrLf rs.close set rs=nothing end Function function Tu_News(SortPath) dim rs,sql,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select top 1 * from Qianbo_News where NoticeFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.open sql,conn,1,1 if rs.eof then Response.Write "等待更新"&VbCrLf else Response.Write ""&VbCrLf do while not rs.eof if now()-rs("AddTime")<=2 then NewsName=Left(rs("NewsName"),20) SeoDescription=StrLeft(rs("SeoDescription"),90) AddTime=rs("AddTime") NewFlag=" " else NewsName=Left(rs("NewsName"),20) SeoDescription=StrLeft(rs("SeoDescription"),90) AddTime=rs("AddTime") NewFlag="" end If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.asp?ID="&rs("id")&"" End If Response.Write ""&NewsName&"
    "&VbCrLf Response.Write ""&SeoDescription&"  更多>>"&VbCrLf rs.movenext loop end if Response.Write ""&VbCrLf rs.close set rs=nothing end Function function News_Date(SortPath) dim rs,sql,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select top 7 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.open sql,conn,1,1 if rs.eof then Response.Write "
  • 等待更新
  • "&VbCrLf else Response.Write ""&VbCrLf do while not rs.eof if now()-rs("AddTime")<=2 then NewsName=StrLeft(rs("NewsName"),85) AddTime=Left(rs("AddTime"),10) NewFlag=" " else NewsName=StrLeft(rs("NewsName"),80) AddTime=Left(rs("AddTime"),10) NewFlag="" end If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.asp?ID="&rs("id")&"" End If Response.Write "
  • "&NewsName&"   "&VbCrLf Response.Write "   "&AddTime&"
  • "&VbCrLf rs.movenext loop end if Response.Write ""&VbCrLf rs.close set rs=nothing end Function %> <% function Other_Date(SortPath) dim rs,sql,OthersName set rs = server.createobject("adodb.recordset") sql="select top 10 * from Qianbo_Others where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" rs.open sql,conn,1,1 if rs.eof then Response.Write "
  • 等待更新
  • "&VbCrLf else Response.Write ""&VbCrLf do while not rs.eof if now()-rs("AddTime")<=2 then OthersName=Left(rs("OthersName"),15) AddTime=Left(rs("AddTime"),10) else OthersName=Left(rs("OthersName"),15) AddTime=Left(rs("AddTime"),10) end If If ISHTML = 1 Then AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "OtherView.asp?Id="&rs("id")&"" End If Response.Write "
  • "&OthersName&"
  • "&VbCrLf rs.movenext loop end if Response.Write ""&VbCrLf rs.close set rs=nothing end Function %>