|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。数据|数据库|数据库布局Folder表:
Folderid:目次ID,主动编号
FolderParentID:下级目次ID,Int
FolderName:目次称号,Varchar
FolderDescription:目次申明,Varchar
File表:
FileID:文档ID,主动编号
FileFolderID:所属目次ID,Int
FileName:文档称号,Varchar
FileDescription:文档内容,Varchar或备注(ntext)
functionGetAllChildID(id)
获得FolderID为id的目次下一切子目次的FolderID,以半角逗号分隔
dimarrID
arrID=id
Setrsdir=Conn.Execute("SelectFolderID,FolderParentIDfrom[Folder]whereFolderParentID="&id&"")
ifrsdir.eofandrsdir.bofthen
setrsdir=nothing
GetAllChildID=arrID
exitfunction
else
whilenotrsdir.eof
arrID=arrID&","&GetAllChildID(rsdir("FolderID"))
rsdir.movenext
wend
endif
setrsdir=nothing
GetAllChildID=arrID
endfunction
从表File中获得某个目次下一切文档的Sql
dimAllChildID
AllChildID=GetAllChildID(5)获得FolderID为5下一切目次的FolderID
AllfileSql="SelectFileID,FileNamefrom[File]whereFileFolderIDin("&AllChildID&")"
?
functionFolderPath(id)
失掉一个目次的完全路径
dimPathstr,NewPathstr
Setrsdir=Conn.Execute("SelectFolderID,FolderName,FolderParentIDfrom[Folder]whereFolderID="&id)
ifrsdir.bofandrsdir.eofthen
Pathstr=""
else
Pathstr="<ahref=""Folder.asp?FolderID="&rsdir("FolderID")&""">"&rsdir("FolderName")&"</a>>"&Pathstr
ifrsdir("FolderParentID")0then
Pathstr=FolderPath(rsdir("FolderParentID"))&Pathstr
endif
endif
NewPathstr=Pathstr
setrsdir=nothing
FolderPath=NewPathstr
endfunction
dimfolderpathstr
folderpathstr=FolderPath(67)
response.writefolderpathstr输入(手艺文档>Web开辟>ASP>CodeSample>表单>)
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|