|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。window|菜单|递回<HTML>
<HEAD>
<METAcontent="text/html;charset=gb2312"http-equiv=Content-Type>
<SCRIPTlanuage="JScript">
functionturnit(ss,ii,aa)
{
if(ss.style.display=="none")
{ss.style.display="";
aa.style.display="";
ii.src=http://www.163design.net/a/q/"minus.gif";
}
else
{ss.style.display="none";
aa.style.display="none";
ii.src=http://www.163design.net/a/q/"plus.gif";}
}
functiononlyclose(ss,ii,aa)
{
ss.style.display="none";
aa.style.display="none";
ii.src=http://www.163design.net/a/q/"plus.gif";
}
</SCRIPT>
</HEAD>
<BODYbgColor=#99CCFF>
<%
dimdbConn
dimIDIndex
IDIndex=0
创建数据库毗连
SetdbConn=Server.CreateObject("Adodb.Connection")
dbConn.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("test.mdb")
天生文件范例树的递回函数,传进参数:NowItem为树节点的ID
SubDoItem(NowItem)
dimrsTest
dimYoungerBrother下一个兄弟节点的ID
dimOlderSon第一个字节点的ID
创建纪录集
setrsTest=Server.CreateObject("Adodb.recordset")
天生sql语句,操纵Doc_TypeTree表
strSql="select*fromtab_testwhereID="&NowItem&""
天生纪录集
rsTest.openstrSql,dbConn,1,3
ifrsTest.eofthen
rsTest.close
setrecDosType=nothing
exitsub
endif
YoungerBrother=trim(rsTest("BrotherNode")&"")
OlderSon=trim(rsTest("SonNode")&"")
NodeID=trim(rsTest("ID")&"")
NodeName=trim(rsTest("NodeName")&"")
显现子节点
ifOlderSon=""orOlderSon="00"then当此项无子项时,输入响应的代码
response.write"<TR>"&chr(10)
response.write"<TD></TD>"&chr(10)
response.write"<TD>"
response.write"<Ahref=test>"&NodeName&"</A>"
response.write"</TD>"&chr(10)
response.write"</TR>"&c</p>ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|