<% 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 %> <% =SiteTitle %> '

夜夜橾观看橾b在线观看

  • melissa:
  • Purple:

<%=Products1(25)%>
<%=Products(20)%>
<% Function News2(ID,Num,LeftStr) Dim rs, sql, NewsName, NewFlag Set rs = server.CreateObject("adodb.recordset") sql = "select top "&Num&" * from Qianbo_News where ViewFlag and SortID="&ID&" order by id desc" 'response.Write sql 'response.End() rs.Open sql, conn, 1, 1 If rs.EOF Then Response.Write "
No relevant information
"&vbCrLf Else Do While Not rs.EOF If Now() - rs("AddTime")<= 2 Then NewsName = StrLeft(rs("NewsName"), LeftStr) NewFlag = " " Else NewsName = StrLeft(rs("NewsName"), LeftStr+2) NewFlag = "" End If If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.Asp?ID="&rs("id")&"" End If Addtime=formatdatetime(rs("Addtime"),2) response.Write""&vbCrLf response.Write"
"&vbCrLf response.Write"

"&split(Addtime,"-")(2)&"

"&vbCrLf response.Write"

"&yuefen(split(Addtime,"-")(1))&"

"&vbCrLf response.Write"

"&year(addtime)&"

"&vbCrLf response.Write"
"&vbCrLf response.Write"
"&vbCrLf response.Write"
"&NewsName&"
"&vbCrLf Response.Write "
"&left(DelHtml(rs("Content")),44)&"
"&vbCrLf response.Write"
"&vbCrLf response.Write"
"&vbCrLf rs.movenext Loop End If rs.Close Set rs = Nothing End Function Function Products(Num) dim rs,sql,ProName,AutoLink set rs=server.CreateObject("adodb.recordset") sql="select ID,ProductName,SmallPic from Qianbo_Image where ViewFlag and SortID=2 order by ID desc" rs.open sql,conn,1,1 if not rs.eof and not rs.bof then do while not rs.eof If ISHTML = 1 Then AutoLink = ""&ImageName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ImageView.Asp?ID="&rs("ID")&"" End If If StrLen(rs("ProductName"))<= 10 Then ProductName = rs("ProductName") Else ProductName = StrLeft(rs("ProductName"), 10) End If SmallPicPath =rs("SmallPic") response.Write"
" response.Write" " response.Write"
"&rs("ProductName")&"
" response.Write"
" rs.movenext loop else response.Write"No relevant information" end if rs.close set rs=nothing End Function Function Products1(Num) dim rs,sql,ProName,AutoLink set rs=server.CreateObject("adodb.recordset") sql="select ID,ProductName,BigPic from Qianbo_Image where ViewFlag and SortID=4 and BigPic<>'' order by ID desc" rs.open sql,conn,1,1 if not rs.eof and not rs.bof then do while not rs.eof If ISHTML = 1 Then AutoLink = ""&ImageName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ImageView.Asp?ID="&rs("ID")&"" End If If StrLen(rs("ProductName"))<= 22 Then ProductName = rs("ProductName") Else ProductName = StrLeft(rs("ProductName"), 20) End If SmallPicPath =rs("BigPic") response.Write"
" response.Write"
" response.Write"
" rs.movenext loop else response.Write"No relevant information" end if rs.close set rs=nothing End Function Function Products2(Num) dim rs,sql,ProName,AutoLink set rs=server.CreateObject("adodb.recordset") sql="select ID,ProductName,SmallPic from Qianbo_Image where ViewFlag and SortID=4 and SmallPic<>'' order by ID desc" rs.open sql,conn,1,1 if not rs.eof and not rs.bof then do while not rs.eof If ISHTML = 1 Then AutoLink = ""&ImageName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "ImageView.Asp?ID="&rs("ID")&"" End If If StrLen(rs("ProductName"))<= 22 Then ProductName = rs("ProductName") Else ProductName = StrLeft(rs("ProductName"), 20) End If SmallPicPath =rs("SmallPic") response.Write" " rs.movenext loop else response.Write"No relevant information" end if rs.close set rs=nothing End Function Function Partner(Num) Dim rs, sql, NewsName, NewFlag Set rs = server.CreateObject("adodb.recordset") sql = "select top "&Num&" * from Qianbo_News where ViewFlag and SortID=26 order by id desc" rs.Open sql, conn, 1, 1 If rs.EOF Then Response.Write "
No relevant information
"&vbCrLf Else Do While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "NewsView.Asp?ID="&rs("id")&"" End If 'Addtime=formatdatetime(rs("Addtime"),2) response.Write"
  • " rs.movenext Loop End If rs.Close Set rs = Nothing End Function %>