|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。特性:
1、无穷级节点。
2、间接发生html代码,简单修正。
3、目次分明,相似于资本办理器,(csdn论坛的,层数多了就不简单分分明条理了)。
4、影象节点形态,人道化。
演示:
http://www.yemaweb.com/demo/tree/
下载:
http://www.yemaweb.com/demo/tree/tree.rar
中心代码以下:
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<%
time11=timer()
setconn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
conn.openconnstr
functionmenu(id)
setrs=server.CreateObject("adodb.recordset")
sql="select*frommenuwhereid1="&id&"orderbyurl,id"
rs.opensql,conn,1,1
ifrs.recordcount=0then
rs.close
setrs=nothing
exitfunction
endif
response.write("<tableborder=0cellspacing=0cellpadding=0>")
i=1
whilenotrs.eof
iflen(rs("url"))>0then
ifi=rs.recordcountthen
menutype="file1"
else
menutype="file"
endif
menuname="<ahref="&rs("url")&"target=_blank>"&rs("menuname")&"</a>"
onmouseup=""
else
ifi=rs.recordcountthen
menutype="menu3"
listtype="list1"
onmouseup="chengstate("&rs("id")&")"
else
menutype="menu1"
listtype="list"
onmouseup="chengstate("&rs("id")&")"
endif
menuname=rs("menuname")
endif
%>
<tr>
<tdid="pr<%=rs("id")%>"class="<%=menutype%>"onMouseUp="<%=onmouseup%>"><%=menuname%></td>
</tr>
<trid="item<%=rs("id")%>"style="display:none">
<tdclass="<%=listtype%>"><%menu(rs("id"))%></td>
</tr>
<%
rs.movenext
i=i+1
wend
response.write("</table>")
rs.close
setrs=nothing
endfunction
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>=========目次树forasp1.0=========</title>
<linkhref="menu.CSS"rel="stylesheet"type="text/css">
<scriptsrc="menu.js"type="text/javascript"></script>
</head>
<bodyonLoad="initialize()">
<!--
/******************************************************************************
*程序称号:目次树forasp
*程序功效:基于asp+access的静态树形目次
*触及函数:menu;chengstate;setupcookie;initialize;objExists;saveCookie;getCookie;checkCookieExist;deleteCookie
*函数意义:
menu:vbscrptrunserverCreatemenu;
chengstate:切换节点形态(open/close);
setupcookie:将节点形态存进Cookie;
initialize:初始化节点形态(读取Cookie);
objExists:考证工具是不是存在;
saveCookie:实行保留Cookie;
getCookie:实行读取Cookie;
checkCookieExist:考证Cookie是不是存在;
deleteCookie:删除Cookie;
*于恩水
*接洽体例:
QQ:46163020
msn:yuenshui@hotmail.com
Email:woaini4651@yahoo.com.cn
撑持网站:www.yemaweb.com
若有成绩,请与作者接洽!!!
*制造日期:2004年5月21日
*修正次数:1
*最初修正:2004年5月21日
*备注:此程序为无偿使用的代码,能够由任何人用作任何正当的用处。
**********************************************一下为修正版本修正信息
*******************************************************************************/-->
=========无穷级目次树=========<br>
<%
menu0
conn.close
setconn=nothing
time12=timer()
%>
</body>
</html>
服务器实行工夫<%=FormatNumber((time12-time11)*1000,1)%>毫秒<br>
</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|