DW MX实例：动态广告管理

来源：eNet硅谷动力 作者： 出处：巧巧读书 2006-05-10 进入讨论组

• 关 键 词：
• dreamweaver
• asp.net
• express
• server
• update

上一页 1 2 3 下一页 

　　步骤三　广告图片录入页面

　　（ 1 ） 修改“ admin.aspx ”页面。在 Dreamweaver 中打开“ admin.aspx ”，如图 95-8 所示，在第一行中插入“ asp ：文本框”，设 ID 为“ ADName ”；在第三行中插入“ asp ：文本框”，设 ID 为“ ADLinkr ”；在第四行中插入“ asp ：文本框”，设 ID 为“ Probaly ”；在第五行中插入“ asp ：文本框”，设 ID 为“ mostgree ”。然后在第六行中添加两个表单按钮，一个按钮的动作为“重设表单”，标签为“重置”，控件名称为“ Submit ”；一个按钮的动作为“无”，其标签为“预览”，控件名称为“ preview ”。接着在第六行中添加一个“ asp ：按钮”，设 ID 为“ goconver ”，文本为“上传”，结果如图 95-9 所示。

　　（ 2 ）保存“ admin.aspx ”，将其关闭。 运行 Visual Web Developer 2005 Express Edtion Beta 2 软件， 在该软件中执行【文件】｜【打开】｜【文件】菜单命令，打开 “ admin.aspx ” ，在设计视图中将工具箱中的“ FileUpload ”控件拖拉到 图 95-8 所示的第二 行中，效果如图 95-10 所示。

　　

　　

　　提示：“ 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 ”属性中。请保留地址 http://www.qqread.com/dreamweaver/2006/05/q712108022.html 更多内容请看网络管理实用手册专题，或进入讨论组讨论。

上一页 1 2 3 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：DW网页设计100例82：产品展示厅

较新的文章：Dreamweaver动态网页实例：验证用户注册