indexnew.asp

本程序采用花香内核

<%sub index_news()
'============================================================站点新闻
sql="SELECT top "&indexnews&" cat_id,news_count,news_date,news_color,news_keyword,news_id, news_title,isimg FROM news ORDER BY news_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 newcat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1 
Response.Write "<img border=0 src='img/dot.gif' hspace=3 vspace=4 align=absmiddle>"&rscat("cat_name")&"｜<a href='shownews.asp?news_id="&rs("news_id")&"' target='_blank' Title='新闻名称："&rs("news_title")&"&#13&#10上传时间："&rs("news_date")&"&#13&#10浏览指数："&rs("news_count")&"'><font color="&rs("news_color")&">"&gotTopic(rs("news_title"),30)&"</font></a>" & vbCrLf
if rs("isimg")=1 then
Response.Write "<img src='img/img.gif' alt='图片新闻'>" & vbCrLf
end if
if DateDiff("h",rs("news_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新闻'>" & vbCrLf
end if 
Response.Write "["&year(rs("news_date"))&"-"&month(rs("news_date"))&"-"&day(rs("news_date"))&"]<BR>" & vbCrLf
rscat.close
set rscat=nothing  
rs.movenext      
loop
if rs.eof and rs.bof then
Response.Write "<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()
'============================================================公告
sql="SELECT top "&indexdiary&" d_content,d_date FROM diary ORDER BY d_date DESC"   
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<div>◎&nbsp;"&rs("d_content")&"</div><div align=""right"" class=table-xia>["&year(rs("d_date"))&"-"&month(rs("d_date"))&"-"&day(rs("d_date"))&"]</div>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<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_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
Response.Write "<script language=""JavaScript"" type=""text/JavaScript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "function MM_openBrWindow(theURL,winName,features) { //v2.0" & vbCrLf
Response.Write "  window.open(theURL,winName,features);" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "//-->" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<TABLE cellPadding=0 width=""100%""><TBODY><form name=""form1"" method=""post"" action=""savevote.asp?vt_id="&rs("vt_id")&"&vt_name="&rs("vt_name")&""" target=""vote"" onsubmit=""return vote()"">" & vbCrLf
Response.Write "   <TR>" & vbCrLf
Response.Write "   <TD><img src=""img/voteMenu1.gif"">&nbsp;<B>"&rs("vt_name")&"</B></TD>" & vbCrLf
Response.Write "   </TR>" & vbCrLf
Response.Write "   <TR>" & vbCrLf
Response.Write "   <TD>"
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
Response.Write "<input type=""radio"" name=""item_id"" value="""&rs2("item_id")&""">"&rs2("item_name")&"<br>"
rs2.movenext
loop
if rs2.eof and rs2.bof then
Response.Write "<TABLE cellSpacing=0 cellPadding=0 border=0><TR height=""120""><TD align=middle><font color=""#666666"">当前没有投票选项！</font></TD></TR></TABLE>"
end if
rs2.close
set rs2=nothing
Response.Write "</TD></TR>" & vbCrLf
Response.Write "<TR><TD align=middle>" & vbCrLf
Response.Write "<input name=""itemname"" type=""hidden"" value="""&rs("vt_name")&""">"
if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rs("vt_name") then
Response.Write "<input type=""submit"" name=""Submit"" value=""投票"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">"
else
Response.Write "<input type=""submit"" name=""Submit"" value=""投票"" disabled onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">"
end if
Response.Write "&nbsp;&nbsp;<a href=""javascript:;"" onFocus=""if(this.blur)this.blur()"" onClick=""window.open('showvote.asp?vt_id="&rs("vt_id")&"','_blank','menubar=no,toolbar=no,status=no,dependent=yes,scrollbars=no,Width=655,Height=375,top=98,left=72')""><input name=""Submit"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"" type=""button"" value=""结果""></a>" & vbCrLf 
Response.Write "</TD></TR>" & vbCrLf
Response.Write "</FORM></TBODY></TABLE>"
else
response.write "<TABLE cellSpacing=0 cellPadding=0 border=0><TR height=""160""><TD align=middle><font color=""#666666"">当前没有投票主题！</font></TD></TR></TABLE>"
end if
rs.close
set rs=nothing
end sub
'============================================================推荐图片
sub index_pic()
Response.Write "<TABLE cellSpacing=0 cellPadding=5 border=0><TBODY><TR align=middle>"
sql="select top "&indexpic&" * from pic where passed=0 ORDER by pic_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TD width=200>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>hx66img("""&rs("pic_spic")&""",""showpic.asp?pic_id="&rs("pic_id")&""",""图片名称："&rs("pic_name")&"&#13&#10点击次数："&rs("pic_count")&"&#13&#10文件大小："&rs("pic_url")&"&#13&#10上传时间："&rs("pic_date")&""");</SCRIPT>" & vbCrLf
Response.Write "</TD>"
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<td align=""center"" valign=""middle"">当前没有图片！</td>"
end if
rs.close
set rs=nothing
Response.Write "</TR></TBODY></TABLE>"
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
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=200 border=0>" & vbCrLf
Response.Write "<TBODY>" & vbCrLf
Response.Write "<TR>" & vbCrLf
Response.Write "<TD style=""PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px"" align=middle>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyuimg("""&rs("cs_pic")&""",""web.asp?action=go&cs_id="&rs("cs_id")&""",""站点地址："&rs("cs_url")&"&#13&#10点击次数："&rs("cs_count")&"次"");</SCRIPT>" & vbCrLf
Response.Write "<SPAN class=thumbnailTitle><div style=""padding-top:10px;"">["&rs("cs_name")&"]</div></SPAN>" & vbCrLf
Response.Write "</TD></TR></TBODY></TABLE>"
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "当前没有酷站！"
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,passed from soft where passed=0 order by soft_joindate 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='showdown.asp?soft_id="&rs("soft_id")&"' Title='文件名称："&rs("soft_name")&"&#13&#10下载次数："&rs("soft_dcount")&"&#13&#10上传时间："&rs("soft_joindate")&"'>"&gotTopic(rs("soft_name"),28)&"</a>" & vbCrLf
if DateDiff("h",rs("soft_joindate"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新软件'>" & vbCrLf
end if
Response.Write "</TD>" & vbCrLf
Response.Write "<TD align=right width=40 class=table-xia>" & vbCrLf
Response.Write "<SPAN class=gray>"&rs("soft_dcount")&"</SPAN>&nbsp;" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "暂时没有程序下载"
end if
rs.close
set rs=nothing
end sub
sub index_js()
'============================================================网页特效
sql="select top "&indexjs&" js_id,js_name,js_date,js_count from js order by js_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TR>" & vbCrLf