Question

这段ASP代码什么意思？

这是我下载的一个滑动菜单，我不太清楚过程Show_TabADSMenu起什么作用，为什么要用for循环？后面输出的那段代码又表示什么意思？(后面因为太长没有全部贴出来。
<script language="javascript" type="text/javascript">
//<![CDATA[
function Show_TabADSMenu(tabadid_num,tabadnum){
for(var i=0;i<4;i++){document.getElementById("tabadcontent_"+tabadid_num+i).style.display="none";}
for(var i=0;i<4;i++){document.getElementById("tabadmenu_"+tabadid_num+i).className="";}
document.getElementById("tabadmenu_"+tabadid_num+tabadnum).className="TasADSOn";
document.getElementById("tabadcontent_"+tabadid_num+tabadnum).style.display="block";
}
//]]>
</script>
<!-- Tabs begin -->
<table height=30 width="298" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF">
<tr>
<td width="67" bgcolor="#CCCCCC" id="tabadmenu_10" onMouseOver="setTimeout('Show_TabADSMenu(1,0)',200);">网校动态</td>
<td width="68" bgcolor="#CCCCCC" id="tabadmenu_11" onMouseOver="setTimeout('Show_TabADSMenu(1,1)',200);">学习方法</td>
<td width="68" bgcolor="#CCCCCC" id="tabadmenu_12" onMouseOver="setTimeout('Show_TabADSMenu(1,2)',200);"><span class="STYLE1">学习资料</span></td>
<td width="70" bgcolor="#CCCCCC" id="tabadmenu_13" onMouseOver="setTimeout('Show_TabADSMenu(1,3)',200);"><span class="STYLE1">家长学校</span></td>
</tr>
</table>
<div class="TabADSCon">
<%
set rs1=server.createobject("adodb.recordset")
sql1="select top 7 * from 101news where fenlei='"&"网校动态"&"'"
rs1.open sql1,conn,1,1
If rs1.eof and rs1.bof then
response.write "<p align='center'>还没任何新闻</p>"
else
%>

<dl style="background-color:#E1F4FF" id="tabadcontent_10">
<%do while not rs1.eof%>
<dt><a href="NewsInfo.asp?id=<%=rs1("id")%>"><%=rs1("title")%></a></dt>
<%
rs1.movenext
loop
%>
</dl>
<%end if
%>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select top 7 * from 101news where fenlei='"&"学习方法"&"'"
rs2.open sql2,conn,1,1
If rs2.eof and rs2.bof then
response.write "<p align='center'>还没任何新闻</p>"
else
%>
<dl id="tabadcontent_11" style="display:none;">
<%do while not rs2.eof%>
<dt><a href="NewsInfo.asp?id=<%=rs2("id")%>"><%=rs2("title")%></a></dt>
<%
rs2.movenext
loop
%>
</dl>
<%end if
%>
<%
set rs3=server.createobject("adodb.recordset")
sql3="select top 7 * from 101news where fenlei='"&"学习资料"&"'"
rs3.open sql3,conn,1,1
If rs3.eof and rs3.bof then
response.write "<p align='center'>还没任何新闻</p>"
else
%>
<dl id="tabadcontent_12" style="display:none;">
<%do while not rs3.eof%>
<dt><a href="NewsInfo.asp?id=<%=rs3("id")%><%=rs3("title")%></a></dt>
<%
rs3.movenext
loop
%>
</dl>
<%end if
%>
</div>

Answer 1

这个过程就是用来显示你要的菜单的.它有两上参数tabadid_num,tabadnum.下面这段旁游就是调用它的代码,<tr>
<td width="67" bgcolor="#CCCCCC" id="tabadmenu_10" onMouseOver="setTimeout('Show_TabADSMenu(1,0)',200);">网校动态</td>
<td width="68" bgcolor="#CCCCCC" id="tabadmenu_11" onMouseOver="喊启纤setTimeout('Show_TabADSMenu(1,1)',200);">学习方法</td>
<td width="68" bgcolor="#CCCCCC" id="tabadmenu_12" onMouseOver="setTimeout('Show_TabADSMenu(1,2)',200);"><span class="STYLE1">学习资料</span></td>
<td width="70" bgcolor="#CCCCCC" id="tabadmenu_13" onMouseOver="setTimeout('Show_TabADSMenu(1,3)',200);"><span class="STYLE1">家长学校</span></td>
</tr>
其中关键是
Show_TabADSMenu(1,1)
Show_TabADSMenu(1,2)
Show_TabADSMenu(1,3)
这些句,就是调郑仿用它的了.

Answer 2

这个应该是登录时的校验。
在登录的那个页面，用户登录的时候，输入用户名和密码后，会把用户输入的放入session中。而这扰旅迅段程序，就是对它进入校镇嫌验。
if
session("search")<>"//admin"
then
response.redirect
"../index.htm"
response.end
end
if
这段if语句的意思是在session中找一下是否有包含"admin"的字段，如果没有，就把页面转向到"../index.htm"。
username=trim(request.form("username"))
password=trim(request.form("password"))
这两行代码，是接收表单里的"username"和"password"，并且去掉空格，然后分别赋给username和password。
if
username="admin"
and
password="admin"
then
session("admin")="isadmin"
response.redirect
("admin.asp")
else
response.redirect
"../index.htm"
end
if
这段if语句，就是对刚刚接收来的username和password进行校验，如果username和password都等于"admin"，然后就把session中的"admin"赋值为"缓此isadmin"，并且页面转向到"admin.asp"，否则就转回"../index.htm"。

Answer 3

如果搏孝cookies
BsSkins
为空则给
BsSkins
赋值为
BsSkins_Default变量
Style_Copy
是一个保存版权信息的变基空稿量，具体内容如下：
版权所有
$BsCompanyName
Copyright
©
2002-2005
$BsWeb
All
rights
reserved
Powered
By
：BossiWebMIB
Version
3.3
页面执行时间：亏辩$ExecutionTime
毫秒

Answer 4

直译
<%
if
Request.Cookies("BsSkins")=empty
then
Response.Cookies("BsSkins")=BsSkins_Default
Style_Copy
=
"
O74,
$BsCompanyName
Copyright
©
2002-2005
$BsWeb
All
rights
reserved
Powered
By
：
BossiWebMIB
Version
3.3
-<)/5C：$ExecutionTime
E<
"
%>
显示内容
O74,
$BsCompanyName
Copyright
©
2002-2005
$BsWeb
All
rights
reserved
Powered
By
：迟简BossiWebMIB
Version
3.3
-<纳咐)/洞旦纯5C：$ExecutionTime
E<