用Dreamweaver打造在线音乐网站
作者:佚名    文章来源:不详    点击数:    更新时间:2008-4-26          ★★★【字体:

 本实例将详细介绍在线音乐网站的实现过程。

  效果说明

  图 94-1 所示是在线音乐网站的首页页面,用户勾选要播放的歌曲后单击【提交】按钮,将会弹出如图 94-2 所示的播放页面。

点击放大图片

  创作构思

  通过数据网络提交复选框的选择值,以此建立一个查询数据集,并通过该数据集生成播放列表“ asx ”文件,以实现在线音乐网站。

  操作步骤

  步骤一 应用程序的环境设置

  ( 1 )复制光盘中实例 94 的内容。将“光盘 \ 源文件 \ 实例 94 ” 目录下的所有文件复制到“ C:\ Inetpub\wwwroot\ ”目录下。在 IIS 服务器中设置默认网站的主目录为“ C:\ Inetpub\wwwroot\music ”(请参考实例 1 中的相关方法)。在 Dreamweaver 中新建站点“ music ”,其站点目录为“ C:\ Inetpub\wwwroot\music ”(建立站点的方法请参照实例 2 )。

  ( 2 )“ music ”表的数据结构。运行 Access ,打开“ C:\ Inetpub \wwwroot\music\data\data.mdb ”,可以看到数据库“ \data.mdb ”中只有“ music ”一个数据表,该表的数据结构如图 94-3 所示。

  ( 3 )建立数据库链接“ musicconn ”,链接数据库“ C:\ Inetpub\wwwroot \music\data\data.mdb ”,方法请参考实例 75 。

 步骤二 音乐网站首页的实现

  ( 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)

本新闻共3页,当前在第1页  1  2  3  

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    >> 专题栏目