indexnew.asp

本程序采用花香内核

Response.Write "<TD height='22' class=table-xia><FONT color=#b70000>&nbsp;<B>·</B></FONT>  <a href='showjs.asp?js_id="&rs("js_id")&"' Title='特效名称："&rs("js_name")&"&#13&#10查看次数："&rs("js_count")&"&#13&#10上传时间："&rs("js_date")&"'>"&gotTopic(rs("js_name"),30)&"</a>" & vbCrLf
if DateDiff("h",rs("js_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新特效'>" & vbCrLf
end if
Response.Write "</TD><TD align=right width=35 class=table-xia>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("js_count")&"</SPAN>&nbsp;" & vbCrLf
Response.Write "</TD></TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "暂时没有特效"
end if
rs.close
set rs=nothing
end sub
sub index_vid()
'============================================================影视
sql="select top "&indexvid&" vid_id,title,dateandtime,hits from vid order by dateandtime DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TR>" & vbCrLf
Response.Write "<TD height='22' class=table-xia><FONT color=#b70000>&nbsp;<B>·</B></FONT>  <a href='showvid.asp?vid_id="&rs("vid_id")&"' Title='影片名称："&rs("title")&"&#13&#10查看次数："&rs("hits")&"&#13&#10上传时间："&rs("dateandtime")&"'>"&gotTopic(rs("title"),30)&"</a>" & vbCrLf
if DateDiff("h",rs("dateandtime"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新影片'>" & vbCrLf
end if
Response.Write "</TD><TD align=right width=35 class=table-xia>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("hits")&"</SPAN>&nbsp;" & vbCrLf
Response.Write "</TD></TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "暂时没有影片"
end if
rs.close
set rs=nothing
end sub
sub index_article()
'============================================================文章
sql="select top "&indexarticle&" art_id,cat_id,art_title,art_date,art_count,passed,isimg from art where passed=0 order by art_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><FONT color=#b70000>&nbsp;<B>·</B></FONT>  <a href='showart.asp?art_id="&rs("art_id")&"' Title='文章标题："&rs("art_title")&"&#13&#10发表时间："&rs("art_date")&"&#13&#10阅读次数："&rs("art_count")&"次&#13&#10所属分类："&rscat("cat_name")&"'>"&gotTopic(rs("art_title"),26)&"</a>" & vbCrLf
if rs("isimg")=1 then
Response.Write "<img src='img/img.gif' alt='图片文章'>" & vbCrLf
end if
if DateDiff("h",rs("art_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新文章'>" & vbCrLf
end if
Response.Write "</TD><TD align=right width=35 class=table-xia>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("art_count")&"</SPAN>&nbsp;" & vbCrLf
Response.Write "</TD></TR>"
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "暂时没有文章！"
end if
rs.close
set rs=nothing
end sub
sub index_dj()
'============================================================舞曲
sql="select top "&indexdj&" dj_id,dj_name,dj_date,dj_pic,dj_count,passed from dj where passed=0 order by dj_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TR><TD height='22' class=table-xia><FONT color=#b70000>&nbsp;<B>·</B></FONT>  <a href='showdj.asp?dj_id="&rs("dj_id")&"' Title='歌曲名称："&rs("dj_name")&"&#13&#10视听次数："&rs("dj_count")&"&#13&#10上传时间："&rs("dj_date")&"'>"&gotTopic(rs("dj_name"),30)&"</a>" & vbCrLf
if DateDiff("h",rs("dj_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新歌曲'>" & vbCrLf
end if
Response.Write "</TD><TD align=right width=35 class=table-xia>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("dj_count")&"</SPAN>&nbsp;" & vbCrLf
Response.Write "</TD></TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "暂时没有舞曲"
end if
rs.close
set rs=nothing
end sub
sub index_book()
'============================================================留言
sql="select top "&indexbook&" id,zt,name,words,date from words order by date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<img border=0 src='img/dot.gif' hspace=5 vspace=4 align=absmiddle><a href='book.asp' title='留言姓名："&rs("name")&"&#13&#10留言时间："&rs("date")&"'>"&gotTopic(rs("zt"),20)&"</a><BR>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "暂时没有留言"              
end if
rs.close
set rs=nothing
end sub
sub index_flink()
'============================================================连接
sql="select top "&indexfriendlink&" fl_id,fl_name,flcat_id,fl_logo,fl_date,fl_url,count,passed from friendlink where fl_logo<>'' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE cellPadding=3><TBODY>" & vbCrLf
Response.Write "</TR><TR align=middle><TD><a href='http://www.26q.net/' target='_blank'><img border=0 src='img/logo.gif' width='88' height='31' Title='听雪资源网'></a></TD></TR>"
do while not rs.eof
Response.Write "<TR align=middle>" & vbCrLf
Response.Write "<TD><a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' width='88' height='31' title='网站名称："&rs("fl_name")&"&#13&#10网站地址："&rs("fl_url")&"&#13&#10加入时间："&rs("fl_date")&"&#13&#10点击次数："&rs("count")&"'></a>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "当前没有链接"
end if
Response.Write "</TBODY></TABLE>"  
end sub
sub index_flinkwz()
'============================================================连接
sql="select top 10 fl_id,fl_name,flcat_id,fl_logo,fl_url,count,passed from friendlink where fl_logo='' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<select name='titlelink' id='titlelink' class='input' onchange=""if(this.options[this.selectedIndex].value!=''){window.open(this.options[this.selectedIndex].value,'_blank');}"">" & vbCrLf
Response.Write "<option>文字友情连接</option>"
do while not rs.eof
Response.Write "<option value='link.asp?action=go&fl_id="&rs("fl_id")&"'>"&rs("fl_name")&"</option>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<option>当前没有链接</option>"
end if
Response.Write "</select>"  
end sub

sub index_art(id1)
'============================================================文章一级分类调用
sql="select top "&indexarticle&" art_id,cat_id,art_title,art_date,art_count,passed from art where passed=0 and (cat_id="&id1&" or cat_id in(select cat_id from a_cat where sid="&id1&")) order by art_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><FONT color=#b70000>&nbsp;<B>·</B></FONT>  <a href='showart.asp?art_id="&rs("art_id")&"' Title='文章标题："&rs("art_title")&"&#13&#10发表时间："&rs("art_date")&"&#13&#10阅读次数："&rs("art_count")&"次&#13&#10所属分类："&rscat("cat_name")&"'>"&gotTopic(rs("art_title"),30)&"</a>" & vbCrLf
if DateDiff("h",rs("art_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新文章'>" & vbCrLf
end if
Response.Write "</TD><TD align=right width=35 class=table-xia>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("art_count")&"</SPAN>" & vbCrLf
Response.Write "</TD></TR>"
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "暂无此分类文章！"
end if
rs.close
set rs=nothing
end sub
%>