程序说明：
介绍程序前，先介绍 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 所示的设置。
[NextPage]
（ 11 ）切换到代码视图，找到【预览】按钮，在“ OnClick ”属性中添加如图 95-17 中圆角方框所示的代码。
