荔园在线

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

[回到开始] [上一篇][下一篇]

发信人: Jobs (温少), 信区: Visual
标  题: 我的程序代码: 一个在ASP中使用TreeView的例子
发信站: BBS 荔园晨风站 (Mon Nov 29 21:58:53 1999), 转信

   这是我的视频点播程序的一个小部分的简化版，希望能够对大家学习
ASP编程有所帮助。我以后会继续公布我的一些程序的代码。

   希望大家提出建议，我希望我能够帮助对大家学习可视化编程有更多的帮助。

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub window_onload
    set mNode=tvwProgramList.Nodes.Add( ,,"root","视频点播")
        mNode.tag=""
        mNode.Expanded = true
    set mNode=tvwProgramList.Nodes.Add("root",4,"zbmg","走遍美国")
        mNode.tag=""
    set mNode=tvwProgramList.Nodes.Add("zbmg",4,"zbmg1","第一集")
        mNode.tag=""
    set mNode=tvwProgramList.Nodes.Add( "zbmg1",4,"zbmg1.1","第一节")
        mNode.tag="nsm://192.168.11.112/zbmg1.1"
    set mNode=tvwProgramList.Nodes.Add( "zbmg1",4,"zbmg1.2","第二节")
        mNode.tag="nsm://192.168.11.112/zbmg1.2"
    set mNode=tvwProgramList.Nodes.Add( "zbmg1",4,"zbmg1.3","第三节")
        mNode.tag="nsm://192.168.11.112/zbmg1.3"
End Sub

Sub tvwProgramList_Click

    strURL=tvwprogramlist.SelectedItem.Tag
    if strURL <> "" then
        document.location.href =strURL
    end if

End Sub

-->
</SCRIPT>
</HEAD>
<BODY>


<P style="BACKGROUND-COLOR: white">
<OBJECT classid=clsid:C74190B6-8589-11D1-B16A-00C0F0283628 height=202
id=tvwProgramList style="HEIGHT: 423px; LEFT: 10px; TOP: 15px; WIDTH: 166px"
width=295 VIEWASTEXT><PARAM NAME="_ExtentX" VALUE="4392"><PARAM NAME="_ExtentY"
VALUE="11192"><PARAM NAME="_Version" VALUE="393217"><PARAM NAME="HideSelection"
VALUE="1"><PARAM NAME="Indentation" VALUE="1005"><PARAM NAME="LabelEdit"
VALUE="0"><PARAM
NAME="LineStyle" VALUE="0"><PARAM NAME="PathSeparator" VALUE="\"><PARAM
NAME="Sorted" VALUE="0"><PARAM NAME="Style" VALUE="7"><PARAM NAME="Checkboxes"
VALUE="0"><PARAM NAME="FullRowSelect" VALUE="0"><PARAM NAME="HotTracking"
VALUE="0"><PARAM
NAME="Scroll" VALUE="1"><PARAM NAME="SingleSel" VALUE="0"><PARAM
NAME="ImageList" VALUE=""><PARAM NAME="BorderStyle" VALUE="0"><PARAM
NAME="Appearance" VALUE="0"><PARAM NAME="MousePointer" VALUE="0"><PARAM
NAME="Enabled" VALUE="1"><PARAM
NAME="OLEDragMode" VALUE="0"><PARAM NAME="OLEDropMode" VALUE="0"></OBJECT>
</P>


</BODY>
</HTML>

 --

   好好学习，天天向上！！！！

※ 修改:·Jobs 於 Nov 29 22:01:36 修改本文·[FROM: 192.168.11.111]
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.11.111]

[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店