indexnew.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/i0.gif border='0'>&nbsp;<a href="javascript:news('shownews.asp?news_id=<%=rs("news_id")%>')" title="发表时间：<%=rs("news_date")%>"><%=rs("news_title")%></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"><%=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" onClick="MM_openBrWindow('showvote.asp?vt_id=<%=rs("vt_id")%>','vote','status=yes,scrollbars=yes,width=600,height=350')" value="结果" class="button">
<%else%><input type="submit" name="Submit" value="投票" disabled class="button">&nbsp;&nbsp;<input name="Submit" type="button" onClick="MM_openBrWindow('showvote.asp?vt_id=<%=rs("vt_id")%>','vote','status=yes,scrollbars=yes,width=600,height=350')" value="结果" class="button"><%end if%></td>
</tr>
</form>
</table>	  
<%else%>
<%
response.write "<div align='center'>当前没有投票主题！</div>"
end if
rs.close
set rs=nothing
end sub
'============================================================推荐图片
sub index_pic()%>
<table width="530" border="0" cellpadding="1" cellspacing="0" align="center">
<tr>
<%
sql="select top "&indexpic&" * from pic where isbest = 1 ORDER by pic_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>
<td align="center" valign="middle">

<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="#CCCCCC">
<tr> 
<td bgcolor="#FFFFFF"> 
<table width="150" height="110" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr> 
<td><a href="javascript:openwin('repic.asp?pic_id=<%=rs("pic_id")%>')">
<img src="<%=rs("pic_pic")%>" border="0" width="150" height="110" border="0" title="图片名称：<%=rs("pic_name")%><br>点击次数：<%=rs("pic_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>
</td>
<%
rs.movenext
loop
if rs.bof and rs.eof then
call br%>当前没有图片！
<%call br
end if
rs.close
set rs=nothing
%></tr></table><%
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/i3.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/i4.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 "&indexdj&" 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/i2.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()
'============================================================连接
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" >
<%do while not rs.eof%>
<tr><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></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%>当前没有链接
<%end if%>
</table>    
<%end sub
%>