Dreamweaver实例：动态广告管理

　　提示：“ FileUpload ”服务器控件是 ASP.NET2.0 中新添加的服务器控件，该控件是用于上传文件的组件。

　　

　　（ 3 ）添加“ Page_Load ”过程。保存“ admin.aspx ”，将其关闭。在 Dreamweaver 中打开“ admin.aspx ”，切换到代码视图，单击 ASP.NET 快捷菜单中的【页面载入】按钮，为页面添加“ Page_Load ”过程，如图 95-11 所示。

　　（ 4 ）在“ ＜script runat="server"＞ ”中定义“ Goconver_Click ”过程，用于响应【上传】按钮的“ OnClick ”事件，该过程的代码如下所述。

　　Sub Goconver_Click(ByVal sender As Object, ByVal e As System.EventArgs)

　　Dim hpf As HttpPostedFile = FileUpload1.PostedFile

　　Dim AFilename As Array = hpf.FileName.Split("\")

　　Session("strFilename") = AFilename(AFilename.Length - 1)

　　hpf.SaveAs(Server.MapPath(".") + "\adimages\" + Session("strFilename"))

　　End Sub

　　程序说明：

　　 介绍程序前，先介绍 HttpPostedFile 类及 PostedFile 属性。 HttpPostedFile 类提供访问客户端上传的方法； PostedFile 属性用于访问要上传的文件。 HttpPostedFile 类的传递文件需要通过“ FileUpload ”控件来选择，该文件包括客户端的整个文件路径。通过“ Split ”方法将要上传的文件路径以“ \ ”分隔，存储在数组“ AFilename ”中，并将最后一个数组“ AFilename ”存储于“ Session("strFilename") ”中，最后通过 HttpPostedFile 类中的 SaveAs 方法将文件上传到目前服务器下的“ adimages ”目录中。

　　（ 5 ）添加【插入记录】服务器行为。在【服务器行为】面板中添加【插入记录】服务器行为，设置【连接】为“ ADconn ”，【插入到表格】为“ AD ”，其他选项保持默认设置，如图 95-12 所示。

　　

　　（ 6 ）添加数据集“ ADData ”。在【服务器行为】面板中添加数据集“ ADData ”，该数据集的设置如图 95-13 所示。

　　（ 7 ）调整 【插入记录】服务器行为的源代码。 切换到代码视图，找到该【插入记录】服务器行为的源代码，设置其 ID 为“ ADinsert ”，如图 95-14 中圆角方框①所示。删除图 95-14 中圆角方框②、③所示的代码，将图 95-14 中圆角方框④所示的值由“ true ”改为“ false ”。

　　（ 8 ）修改“ Page_Load ”过程，修改后该过程的源代码如下所述。

Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

　　If Session("strFilename") ＜＞ Nothing Then

　　Dim strADAddr As string

　　strADAddr="adimages/" + Session("strFilename")

　　Session("strFilename")=Nothing

　　ADinsert.CommandText = "INSERT INTO Ad (ADLinkr, ADName, mostgree, Probaly,ADAddr) VALUES ('" + Request.Form("ADLinkr") + "' ,'" + Request.Form("ADName") + "'," + Request.Form("mostgree") + ", " + Request.Form("Probaly") + ",'" + strADAddr+ "')"

　　ADinsert.SuccessURL = "admin.aspx?ADAddr="+strADAddr

　　ADinsert.Debug = True

　　End If

　　End Sub

　　

　　程序说明：

　　该过程主要是重新定义“ ADinsert ”插入记录服务器行为的“ SQL ”命令，执行成功后再次打开“ "admin.aspx ”页面，并将广告图片上传到网站上的地址“ strADAddr ”传递给 URL 参数“ ADAddr ”。

　　（ 9 ）找到【预览】按钮的源代码，设置其“ disable ”属性（设置按钮是否有效），在其代码中插入代码 ＜% =iif((ADData.RecordCount＞0),"","disabled='disabled'") %＞ ，结果如图 95-15 中圆角方框所示。

　　

　　（ 10 ）设置【打开浏览器窗口】对话框。切换到设计视图，选择【预览】按钮，在【行为】面板中单击【 + 】按钮，再在弹出的快捷菜单中选择【打开浏览器窗口】命令，打开【打开浏览器窗口】对话框，在该对话框中进行如图 95-16 所示的设置。

　　

　　（ 11 ）切换到代码视图，找到【预览】按钮，在“ OnClick ”属性中添加如图 95-17 中圆角方框所示的代码。

　　

　　（ 12 ）保存“ admin.aspx ”。“ preview.aspx ”页面是素材直接提供的，页面中只是添加了一个图像及一个数据集“ ADData ”，并绑定数据集“ ADData ”下的“ ADAddr ”字段到图像的“ src ”属性中。