步骤二 音乐网站首页的实现
（ 1 ）打开“ music ”站点下的“ index.apsx ”，这时“ index.apsx ”页面及站点文件如图 94-4 所示。
（ 2 ）添加数据集“ musicData ”。在【服务器行为】面板中添加数据集“ musicData ”，具体设置如图 94-5 所示。
（ 3 ）添加“ musicGrid ”数据网络。在【服务器行为】面板中添加“数据网络”，在【数据网络】对话框中设置 ID 为“ musicGrid ”，数据集为“ musicData ”，导航为“编号链接到每一页”，其他设置如图 94-6 所示。
（ 4 ） 添加“ playcheck ”复选框。切换到表单快捷菜单，在页面空白处添加表单复选框，设置其名称为“ playcheck ”。切换到代码视图，用数据集“ musicData ”下的字段“ id ”替换“ playcheck ”复选框源代码中的“ value ”值，如图 94-7 所示。
（ 5 ）选择“ playcheck ”复选框的源代码，将其剪切。在服务器行为面板中再次打开数据网络“ musicGrid ”，参照如图 83-5 所示的方法，编辑“ id ”标题为“编号”、“ name ”标题为“歌曲名称”、“ who ”为“歌唱者”、“ date ”为“发表时间”。选择“ url ”，单击【—】按钮，将“ url ”从列中删除，结果如图 94-8 所示。
（ 6 ）设置【自由格式列】。单击【 + 】按钮，在弹出的快捷菜单中选择【自由格式】菜单项。然后在弹出的【自由格式列】对话框中设置标题为“播放”，并将之前剪切的复选框源代码粘贴到【内容】文本区域中，具体操作可参考图 83-6 。
（ 7 ）添加【表单】按钮。在【数据网络】对话框中单击【确定】按钮，返回到页面。为页面添加一个【表单】按钮，保持其默认设置。
（ 8 ）定义“ Page_Load ”过程，该过程的代码如下所述。
Sub Page_Load(Sender As Object,e As EventArgs)
If Trim(Request.Form("playcheck"))＜＞nothing then
session("playch")=Trim(Request.Form("playcheck"))
Dim scriptString As String = "＜script language=JavaScript＞ function Page_Load() {"
scriptString += "window.open('play.aspx','','width=240,height=240')}"
scriptString += "＜"
scriptString += "/"
scriptString += "script＞"
If (Session("playch") ＜＞ Nothing) And (Trim(Request.Form("playcheck")) ＜＞ Nothing) Then
If (Not Me.IsStartupScriptRegistered(("Startup")) Then Me.RegisterStartup Script("Startup", scriptString)
End If
End If
End Sub
（读者可打开【光盘】｜【源文件】｜【实例 94 】｜【 94.1.txt 】文件，直接复制）
程序说明：
提交表单后当复选框“ playcheck ”的提交值非空时，则执行以下程序。
① 首先将复选框“ playcheck ”的提交值存储在“ session("playch") ”中。由于提交值可能不是单一的，所以该提交值的存储形式为选择歌曲 ID, 选择歌曲 ID ，选择歌曲 ID ……
② 通过变量“ scriptString ”定义客户端函数“ Page_Load ”，该函数与服务端过程“ Page_Load ”是同步的，就是当执行“ Page_Load ”过程时，同时也会执行客户端函数“ Page_Load ”。该客户端函数其实是一个弹出窗口函数。
③ 当复选框“ playcheck ”的提交值非空及“ session("playch") ”非空时，检测客户端函数是否注册成功（ Not Me.IsStartupScriptRegistered （ ("Startup") ），如果注册成功，则装载客户端函数后执行该函数。
（ 9 ）保存“ index.aspx ”文件。
打印文档
推荐好友 
返回顶部
增大字体 
减少字体