index_body.asp
来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 311 行
ASP
311 行
<%
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="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#EFEBEF" class="chinese" align="center">
<form name="form1" method="post" action="savevote.asp?vt_id=<%=rs("vt_id")%>&vt_name=<%=rs("vt_name")%>" target="_blank">
<tr>
<td align="center" style="vertical-align: middle" bgcolor="#FFFFFF"><%=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
%><font color="#666666"> </font>
<tr>
<td align="center" bgcolor="#FFFFFF" style="line-height:180%">
<p align="left" ><font color="#666666">
<span style="background-color: #FFFFFF">
<input type="radio" name="item_id" value="<%=rs2("item_id")%>" class='radio'>
<%=rs2("item_name")%></span></td>
</tr>
<%rs2.movenext
loop
if rs2.eof and rs2.bof then%><font color="#666666"> </font> </font>
<tr>
<td align="center" bgcolor="#FFFFFF"><font color="#666666">当前没有投票选项！</td>
</tr>
<%end if
rs2.close
set rs2=nothing%><font color="#666666"> </font> </font>
<tr>
<td align="center" height="30" bgcolor="#FFFFFF">
<%if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rs("vt_name") then%><font color="#666666">
</font><font color="#666666">
<input type="submit" name="Submit" value="投票" style="color: #666666">
<input name="Submit" type="button" onClick="MM_openBrWindow('showvote.asp?vt_id=<%=rs("vt_id")%>','Vote','status=yes,scrollbars=yes,width=700,height=500')" value="结果" style="color: #666666">
<%else%> 您已经投过票了。</font><a href="showvote.asp?vt_id=<%=rs("vt_id")%>" target="_blank"><font color="#666666">查看结果</font></a><font color="#666666"><%end if%></font></td>
</tr>
<font color="#666666">
<input name="itemname" type="hidden" value="<%=rs("vt_name")%>">
</font>
</form>
</table>
<%
else
%>
<%
response.write "<div align='center' class='chinese'>当前没有投票主题！</div>"
end if
rs.close
set rs=nothing
end sub
sub index_body()
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td width="580" height="90" colspan="2" valign="top"> <table width="575" height="134" border="0" cellpadding="0" cellspacing="0">
<tr valign="top" >
<td height="155" colspan="2"><table width="575" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="157" height="155"><img src="images/girl.gif" width="200" height="150"></td>
<td width="398" valign="top"><%call index_article()%></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="180" rowspan="7" valign="top">
<table width="180" border="0" cellpadding="0" cellspacing="0">
<tr >
<td height="25" align="center" background="images/left01.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center" class="title_lefttxt"> <DIV align=center><STRONG>论 坛 登 录</STRONG></DIV></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="100" background="images/tdbg_left.gif" vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<FORM name=UserLogin onsubmit="return CheckForm();"
action=/bbs/login.asp?action=chk method=post>
<TBODY>
<TR>
<TD align=right height=25>用户名：</TD>
<TD height=25><INPUT id=UserName maxLength=20 size=12
name=UserName></TD></TR>
<TR>
<TD align=right height=25>密 码：</TD>
<TD height=25><INPUT id=Password type=password
maxLength=20 size=12 name=Password></TD></TR>
<TR>
<TD align=right height=25>Cookie：</TD>
<TD height=25><SELECT name=CookieDate><OPTION value=0
selected>不保存</OPTION><OPTION value=1>保存一天</OPTION>
<OPTION value=2>保存一月</OPTION><OPTION
value=3>保存一年</OPTION></SELECT></TD></TR>
<TR align=middle>
<TD colSpan=2 height=30><INPUT id=Login type=submit value=" 登录 " name=Login>
<INPUT id=Reset type=reset value=" 清除 " name=Reset>
<BR><BR><A href="http://www.AspEasy.com/bbs/Reg.asp"
target=_blank>新用户注册</A> <A
href="http://www.AspEasy.com/bbs/lostpass.asp">忘记密码？</A><BR></TD></TR></FORM></TBODY></TABLE>
<SCRIPT language=javascript>
function CheckForm()
{
if(document.UserLogin.UserName.value=="")
{
alert("请输入用户名！");
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Password.value == "")
{
alert("请输入密码！");
document.UserLogin.Password.focus();
return false;
}
}
function openScript(url, width, height)
{
var Win = window.open(url,"UserControlPad",'width=' + width + ',height=?椠?※)??Z' + height + ',resizable=1,scrollbars=yes,menubar=yes,status=yes' );
}
</SCRIPT>
<SCRIPT language=javascript>
function openScript(url)
{
var Win = window.open(url,"UserControlPad");
}
function openScript2(url, width, height)
{
var Win = window.open(url,"UserControlPad",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=yes,status=yes' );
}
</SCRIPT>
</td>
</tr>
<tr>
<td height="15" background="images/title_left2.gif"></td>
</tr>
<tr>
<td height="25" background="images/left02.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center" class="title_lefttxt"> <DIV align=center><STRONG>最 新 公 告</STRONG></DIV></td>
</tr>
</table></td>
</tr>
<tr>
<td height="130" background="images/tdbg_left.gif">
<TABLE border=0 cellPadding=0 cellSpacing=0>
<TR>
<TD width="178" height=140 align="center" ><div align="center">
<div id=rolllink style=overflow:hidden;height:130;width:170><div id=rolllink1>
<table width="90%" height="38" border="0" cellpadding="1" cellspacing="0">
<tr>
<td height="38">
<%call index_diary()%><br>-------------------------
</td>
</tr>
</table>
</div><div id=rolllink2></div></div>
<script>
var rollspeed=40
rolllink2.innerHTML=rolllink1.innerHTML //克隆rolllink1为rolllink2
function Marquee(){
if(rolllink2.offsetTop-rolllink.scrollTop<=0) //当滚动至rolllink1与rolllink2交界时
rolllink.scrollTop-=rolllink1.offsetHeight //rolllink跳到最顶端
else{
rolllink.scrollTop++
}
}
var MyMar=setInterval(Marquee,rollspeed) //设置定时器
rolllink.onmouseover=function() {clearInterval(MyMar)}//鼠标移上时清除定时器达到滚动停止的目的
rolllink.onmouseout=function() {MyMar=setInterval(Marquee,rollspeed)}//鼠标移开时重设定时器
</script>
</div>
</TD>
</TR></TABLE></td>
</tr>
<tr>
<td height="15" background="images/title_left2.gif"></td>
</tr>
<tr>
<td height="25" background="images/left03.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center" class="title_lefttxt"> <DIV align=center><STRONG>站 内 统 计</STRONG></DIV></td>
</tr>
</table></td>
</tr>
<tr>
<td height="130" align="center" background="images/tdbg_left.gif"><font color="#444444">文章数:<span class="newshead"><%=articlecount%></span>篇，文件数:<span class="newshead"><%=softcount%></span>个
<br>留言数:<span class="newshead"><%=gbcount%></span>篇，链接数:<span class="newshead"><%=friendlinkcount%></span>个<br>
新闻数:<span class="newshead"><%=newscount%></span>篇，酷站数:<span class="newshead"><%=coolsitescount%></span>个<br></font>
<!--#include file="online.asp"-->
<font color="#666666">当前在线:<span class="newshead"><%=total%></span>人</font>
<br>
<font color="#666666">峰值在<span class="newshead"><%=online_topdate%></span><br>
曾经有<span class="newshead"><%=online_topnum%></span>人在线</font>
</td>
</tr>
<tr>
<td height="15" background="images/title_left2.gif"></td>
</tr>
<tr>
<td height="25" background="images/left04.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center" class="title_lefttxt"> <DIV align=center><STRONG>最
新 调 查</STRONG></DIV></td>
</tr>
</table></td>
</tr>
<tr>
<td height="165" align="center" valign="top" background="images/tdbg_left.gif"><table width="90%" height="38" border="0" cellpadding="1" cellspacing="0">
<tr>
<td height="38"><%call index_vote()%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="15" background="images/title_left2.gif"></td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="10" colspan="2" valign="top"><hr align="left" width="575" size="1"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="290"> <table width="280" border="0" cellspacing="0" cellpadding="0">
<tr valign="top" >
<td height="27" valign="middle" background="images/title_main.gif"><strong> 下载更新 </strong>more</td>
</tr>
<tr valign="top">
<td height="155" valign="top"><%call index_soft()%></td>
</tr>
</table></td>
<td width="290"> <table width="285" border="0" cellspacing="0" cellpadding="0">
<tr valign="top" >
<td height="27" valign="middle" background="images/title_main.gif"><strong> 论坛新贴 </strong>more</td>
</tr>
<tr valign="top">
<td height="154" valign="top">
<script src=bbs/newtopic.asp?boardid=all&lock=0&bname=0&tlen=15&n=8&sdate=&orders=2&info=3&action=1&reply=0&showpic=0>
</script></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="140" colspan="2" valign="top">
<table width="575" border="0" cellspacing="0" cellpadding="0">
<tr valign="top" >
<td height="27" valign="middle" background="images/title_main.gif"><strong> 酷站赏析 </strong>more</td>
</tr>
<tr valign="top">
<td height="140" valign="middle">
<%call index_coolsites()%>
</td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="187" valign="top">
<table width="280" border="0" cellspacing="0" cellpadding="0">
<tr valign="top" >
<td height="27" valign="middle" background="images/title_main.gif"><strong> 网程新闻 </strong>more</td>
</tr>
<tr valign="top">
<td height="155" valign="top"><%call index_news()%></td>
</tr>
</table></td>
<td valign="top">
<table width="285" border="0" cellspacing="0" cellpadding="0">
<tr valign="top" >
<td height="27" valign="middle" background="images/title_main.gif"><strong> 最新留言 </strong>more</td>
</tr>
<tr valign="top">
<td height="154" valign="top"><%call index_gb()%></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="65" height="25" align="center" bgcolor="#F7F7F7">友情链接:</td>
<td width="692" bgcolor="#FFFFFF"><%call index_flink()%></td>
</tr>
</table>
<%
end sub
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?