html.asp

视频源代码 视频源代码

Attribute VB_Name = "Module1"
<%response.expires=0%>
<!--#include file="../admin/inc/conn.asp"-->
<%
sql = "categoryid,id,path,title,pic,otime,hits from news"
id = strFilter(Request("id"), 10)
If id <> "" Then
  If IsNumeric(id) Then
    sql=sql&" where categoryid like '%."&id&".%'"
  End If
End If


num = strFilter(Request("num"), 2)
If num <> "" Then
  If IsNumeric(num) Then
    sql="select top "&num&" "&sql
  Else
    sql = "select top 10 " & sql
  End If
Else
  sql = "select top 10 " & sql
End If

only = strFilter(Request("only"), 6)
If only <> "" Then
  If only = "today" Then
    lasttime = DateDiff("s", "2001-1-1 00:00:00", Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " 00:00:00")
  End If
  If only = "week" Then
    lasttime = DateDiff("s", "2001-1-1 00:00:00", Year(Now() - 7) & "-" & Month(Now() - 7) & "-" & Day(Now() - 7) & " 00:00:00")
  End If
  If only = "month" Then
    lasttime = DateDiff("s", "2001-1-1 00:00:00", Year(Now() - 30) & "-" & Month(Now() - 30) & "-" & Day(Now() - 30) & " 00:00:00")
  End If
  If only = "month" Then
    lasttime = DateDiff("s", "2001-1-1 00:00:00", Year(Now() - 90) & "-" & Month(Now() - 90) & "-" & Day(Now() - 90) & " 00:00:00")
  End If
  If lasttime <> "" Then
    sql=sql&" and filenum>"&lasttime
  End If
End If

cont = strFilter(Request("sort"), 3)
Order = strFilter(Request("order"), 4)
If cont <> "" Then
  If cont = "top" Or cont = "pic" Then
    If cont = "top" Then
      If Order = "time" Then
        sql=sql&" order by otime DESC, hits DESC"
      Else
        sql=sql&" order by hits DESC"
      End If
    Else
      sql=sql&" and pic=1 order by otime DESC"
    End If
  Else
    sql=sql&" order by otime DESC"
  End If
Else
  If Order = "hits" Then
    sql=sql&" order by otime DESC, hits DESC"
  Else
    sql=sql&" order by otime DESC"
  End If
End If


ncate = Len(strFilter(Request("cate"), 1))
nheight = strFilter(Request("height"), 2)
nsize = strFilter(Request("size"), 2)
ndate = Len(strFilter(Request("date"), 1))
ntime = Len(strFilter(Request("time"), 1))
nhits = Len(strFilter(Request("hits"), 1))

sql = Replace(sql, "news and", "news where")
rs.open sql, conn, 1, 1
If Not rs.EOF Then
  newslist = rs.getrows()
End If
rs.Close

serverpath = "http://" & Request.ServerVariables("HTTP_HOST") & "/"

response.write "var html='';" & vbCrLf
If IsArray(newslist) Then
  For i = 0 To UBound(newslist, 2)
    response.write "html+='"
    If id = "" Then
      category = Split(newslist(0, i), ".")
      catedir = Split(newslist(2, i), "\")
      If ncate = 0 Then
        response.write "[<a href=""" & serverpath & "news/" & catedir(1) & "/"" style=""color:8c2000"">" & Replace(category(2), "新闻", "") & "</a>] "
      Else
        response.write "·"
      End If
    Else
      response.write "·"
    End If
    response.write "<a href=""news.asp?id="& newslist(1, i) & """ style=""color:000000;"
    If nheight <> "" Then
      If IsNumeric(nheight) Then
        response.write "line-height:"&nheight&"pt"
      End If
    End If
    response.write """ title=""" & newslist(3, i) & """>"
    If nsize <> "" Then
      If IsNumeric(nsize) Then
        If newslist(4, i) = True Then
          newslist(3, i) = GetWord(newslist(3, i), CCur(nsize) - 4, "")
        Else
          newslist(3, i) = GetWord(newslist(3, i), CCur(nsize), "")
        End If
      End If
    End If
    response.write Replace(newslist(3, i), "'", "\'") & "</a>"
    If newslist(4, i) = True Then
      response.write "[<font color=D669A5>图</font>]"
    End If
    If ndate = 1 And ntime = 1 Then
      response.write "　<font color=aaaaaa>(" & newslist(5, i) & ")</font>"
    Else
      newslist(5, i) = Split(newslist(5, i), " ")
      If ndate = 1 Then
        response.write "　<font color=aaaaaa>(" & newslist(5, i)(0) & ")</font>"
      End If
      If ntime = 1 Then
        response.write "　<font color=aaaaaa>(" & newslist(5, i)(1) & ")</font>"
      End If
    End If
    If nhits = 1 Then
      response.write "　<font color=aaaaaa>(<font color=red>" & newslist(6, i) & "</font>)</font>"
    End If
    response.write "<br>';" & vbCrLf
  Next
Else
  response.write "html+='暂时没有新闻！';"
End If

response.write "document.write(html);"
response.end
%>