new.asp

视频点播系统

<!--#include file="inc/db_inc.asp"-->
<%
'Snowman Forum 2.0 首页调用 —— 帖子调用
dim bbsurl
bbsurl="http://192.168.0.88/phpbbs2/";
'请将 http://www.xinboard.net/forum/ 改为你的论坛地址。
'注意：论坛地址后边必须有一个 / 符号。
'****************************************
'
'将本文件上传到与index.asp同级的目录下
'以上地址一定要更改，否则将去了上面那个论坛
'本程序由风云剑客制作，此前参考了 韦林 的程序，感谢他的支持
'
'****************************************
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
if request("id")=0 then
sql="select top "&request("n")&" * from sf_thread order by threadid desc"
else
sql="select top "&request("n")&" * from sf_thread where forumid="&request("id")&" order by threadid desc"
end if
set rs=conn.execute(sql)
if rs.eof then
strjs="<table border=0 cellpadding=3 cellspacing=0>"
strjs=strjs + "<tr><td align=center>暂时无内容!</td></tr>"
strjs=strjs + "</table>"
else
strjs=strjs + "<table border=0 cellpadding=3 cellspacing=0> "
While (NOT rs.EOF)
strjs=strjs + "<tr><td>"
if rs("pollid") > 0 then
strjs=strjs + "[投票]"
end if
strjs=strjs + "<a href="&bbsurl&"showthread.asp?threadid="&rs("threadid")&" target=_blank>"&rs("title")&"</a>"
strjs=strjs + "</td></tr>"
rs.MoveNext()
Wend
rs.Close
Set rs = Nothing
strjs=strjs + "</table>"
end if
response.write "document.write('"&strjs&"');"
%>