indexnew.asp

不错的asp论坛,大家可以看看啊和呵呵.

<%sub index_news()
'============================================================站点新闻
sql="SELECT top "&indexnews&" news_ahome, news_author, news_date, news_id, news_title FROM news ORDER BY news_date DESC"   
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
&nbsp;<img src="img/none.gif" border="0"><img src="img/icon.gif" border="0">&nbsp;<a href="javascript:news('shownews.asp?news_id=<%=rs("news_id")%>')" title="发表时间：<%=rs("news_date")%>"><%if len(Rs("news_title"))>14 then
response.write left(Rs("news_title"),40)&"..."
else
response.write Rs("news_title")
end if%></a><span style="font-size: 6pt">&nbsp;<%=rs("news_date")%></span></a><br>  
<%rs.movenext
loop
if rs.eof and rs.bof then%>
<font color="#666666">目前尚无任何新闻！</font>
<%end if
if not rs.eof or not rs.bof then
end if
rs.close
set rs=nothing
end sub%>
<%sub index_diary()
'============================================================公告
dim totaldiary,Currentpage,totalpages,i
sql="select * from diary order by d_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.Movefirst
rs.pagesize=diaryperpage
if trim(request("page"))<>"" then
    currentpage=clng(request("page"))
	if currentpage>rs.pagecount then
	   currentpage=rs.pagecount
	end if
else
    currentpage=1
end if
    totaldiary=rs.recordcount
	if currentpage<>1 then
	   if(currentpage-1)*diaryperpage<totaldiary then
	      rs.move(currentpage-1)*diaryperpage
		  dim bookmark
		  bookmark=rs.bookmark
	   end if
	end if
	if (totaldiary mod diaryperpage)=0 then
	   totalpages=totaldiary\diaryperpage
	else
	   totalpages=totaldiary\diaryperpage+1
	end if
i=0
do while not rs.eof and i<diaryperpage
url="showdiary.asp?id="&rs("d_id")%>
<%=ubb2html(cutstr(formatStr(autourl(rs("d_content"))),700,true,url), true, true)%> <font color=ff6600>[<%=rs("d_date")%>]</font>
<%
i=i+1
rs.movenext
loop
else
If rs.EOF And rs.BOF Then%>目前还没有记录！
<%end if
end if
rs.close
set rs=nothing
end sub%>
<%
sub index_vote()
'============================================================投票
sql="select top 1 * from votetopic where datediff('d',Now(),vt_expiredate)>0 order by vt_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
%> 
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<table width="130" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="savevote.asp?vt_id=<%=rs("vt_id")%>&vt_name=<%=rs("vt_name")%>" target="vote" onsubmit="return vote()">
<tr> 
<td align="center" style="vertical-align: middle" bgcolor="#000000"><%=rs("vt_name")%></td>
</tr> 
<%sql="select * from voteitem where vt_id="&rs("vt_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<tr> 
<td valign="baseline" height="20">
<input type="radio" name="item_id" value="<%=rs2("item_id")%>"><%=rs2("item_name")%></td>
</tr>
<%rs2.movenext
loop
if rs2.eof and rs2.bof then%>
<tr><td align="center">当前没有投票选项！</td></tr>
<%end if
rs2.close
set rs2=nothing%>
<tr> 
<td align="center" height="30"><input name="itemname" type="hidden" value="<%=rs("vt_name")%>">
<%if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rs("vt_name") then%>
<input type="submit" name="Submit" value="投票" class="button">&nbsp;&nbsp;<input name="Submit" type="button" class="button" onClick="MM_openBrWindow('showvote.asp?vt_id=<%=rs("vt_id")%>','vote','status=yes,scrollbars=yes,width=600,height=350')" value="结果">
<%else%><input type="submit" name="Submit" value="投票" disabled class="button">&nbsp;&nbsp;<input name="Submit" type="button" class="button" onClick="MM_openBrWindow('showvote.asp?vt_id=<%=rs("vt_id")%>','vote','status=yes,scrollbars=yes,width=600,height=350')" value="结果"><%end if%></td>
</tr>
</form>
</table>	  
<%else%>
<%
response.write "<div align='center'>当前没有投票主题！</div>"
end if
rs.close
set rs=nothing
end sub%>
<%'============================================================酷站推荐
sub index_coolsites()
sql="select top "&indexcoolsite&" * from coolsites where isbest=1 order by cs_date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%><table width="154" height="114" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="170" align="center"> 
<table width="170" height="130" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr> 
<td bgcolor="#000000"> 
<table width="150" height="110" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr> 
<td><a href="reweb.asp?cs_id=<%=rs("cs_id")%>" target="_blank" >
                                <img src="<%=rs("cs_pic")%>" border="0" width="150" height="110" title="网站名称：<%=rs("cs_name")%><br>网站地址：<%=rs("cs_url")%><br>点击次数：<%=rs("cs_count")%>次"></a></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="17" align="center" valign="bottom"><img src="img/cool.gif" width="17" height="112" border="0"></td>
</tr>
</table>
<%call br
rs.movenext
loop
if rs.bof and rs.eof then
call br%>当前没有酷站！
<%call br
end if
rs.close
set rs=nothing
end sub%>

<%sub index_soft()
'============================================================下载中心
sql="select top "&indexsoft&" soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount from soft order by soft_joindate DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a href="javascript:down('showdown.asp?soft_id=<%=rs("soft_id")%>')" title="程序名称：<%=rs("soft_name")%><br>下载次数：<%=rs("soft_dcount")%><br>上传时间：<%=rs("soft_joindate")%>"><%=rs("soft_name")%></a><br>
  <%rs.movenext
loop
if rs.eof and rs.bof then%>暂时没有程序下载
<%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 from art 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%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a href="javascript:art('showart.asp?art_id=<%=rs("art_id")%>&cat_id=<%=rs("cat_id")%>')" title="文章标题：<%=rs("art_title")%><br>发表时间：<%=rs("art_date")%><br>阅读次数：<%=rs("art_count")%>次<br>所属分类：<%=rscat("cat_name")%>"><%=left(rs("art_title"),30)%></a><br>
  <%
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
%>
暂时没有文章！
<%end if
rs.close
set rs=nothing
end sub
sub index_dj()
'============================================================舞曲
sql="select top 10 dj_id,dj_name,dj_date,dj_count from dj order by dj_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a href="javascript:openwin('play.asp?dj_id=<%=rs("dj_id")%>')" title="舞曲名称：<%=rs("dj_name")%><br>视听次数：<%=rs("dj_count")%><br>上传时间：<%=rs("dj_date")%>"><%=rs("dj_name")%></a><br>
  <%rs.movenext
loop
if rs.eof and rs.bof then%>暂时没有舞曲
  <%end if
rs.close
set rs=nothing
end sub

sub index_flink()
'============================================================LOGO连接
sql="select top "&indexfriendlink&" * from friendlink where fl_logo<>'' and passed=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1 %>
<table border="0" cellpadding="0" cellspacing="5" background="../img/db.gif" ><tr><td width="100" align="center"><a href="<%=homeurl%>" target="_blank"><img src="<%=logo%>" width="88" height="31" border="0" title="站点名称：<%=WebName%><br>站点地址：<%=homeurl%>"></a></td>
<%do while not rs.eof%>
<td width="105" align="center"><a href="<%=rs("fl_url")%>" target="_blank"><img src="<%=rs("fl_logo")%>" width="88" height="31" border="0" title="<%=rs("fl_name")%>"></a></td>
<%rs.movenext
loop
if rs.eof and rs.bof then%><td width="100%" align="center">暂时没有LOGO连接</td>
<%end if%>
</tr></table>  
<%
rs.close
set rs=nothing
end sub

sub index_title()
'===========================================================文字连接
sql="select top "&indexfriendlink&" * from friendlink where flcat_id=2 and passed=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1 %>
<table border="0" cellpadding="0" cellspacing="5" >
<tr>
  <%do while not rs.eof%>
    <td width="105" align="center"><a href="<%=rs("fl_url")%>"  title="<%=rs("fl_name")%>" target="_blank"><%=rs("fl_name")%></a></td><%rs.movenext
loop
if rs.eof and rs.bof then%><td width="100%" align="center"><a href="http://www.cs33.cn">:/ 
	流星情缘/:</a></td>
<%end if%>
  </tr>
</table> 
<%end sub
%>