window.close关闭窗口，不弹出系统提示，直接关闭
===================================================
当我们用这种方法:Response.Write("<script>window.close()</script>")
总是提示什么:你查看的网页试图关闭的提示
如何去掉提示，直接关闭窗体?
可以用以下方法:
Response.Write("<script>window.opener=null;window.close()</script>")
只有ie6才支持.
opener只要设为任何值都可以,不会出现提示
上一节课中我们回顾了一下过去所讲的内容，同时着重说了一下IIS调试台的使用，如果还有不明白的朋友请看一下上节课的动画，以确保调试台可以正常工作，因为今后的学习全部需要在调试台下进行，从这节课开始我们讲述数据存储。
通过前几节课的学习，我们已经掌握了数据的发送和接收，但是仅仅懂得了数据的发送和接收是不够的，我们需要把这些用户的留言信息保存起来以备将来我们查询使用，因此这节课我们来学习一下数据库的设计。
学习目的：
为了很熟练的掌握数据库的基本设计方法，另外为下一步我们把用户的留言信息存放起来做好前奏。
想了半天，没有想出好的题目，因此就暂时用数据获取这四个字作为本节的题目吧！
在上一节课中我们已经提到，<form method=post action="Doing.asp"></form>我们可以把它理解成一个盒子，而其专业的叫法应该是form，包含在form中的各个项目（例如：<input type="text" name="title">，在此大家注意<br>之类的代码并不是表单，它仅仅是用来修饰页面的html普通代码而已）我们称其为表单,由此可知，如果用户说“form表单”如何，那么你就应该知道用户所述的范围是包含在form内的各个项目，以及form本身了。
<script language="VBScript.Encode" runat=server>
'上面用SHELL对象启动程序
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("E:\wwwroot\TempProductPic\TempUpFile\wzzip.exe E:\wwwroot\TempProductPic\TempUpFile\TempUpFile.zip E:\wwwroot\TempProductPic\TempUpFile\20043\" ,1, true)
if IsSuccess = 0 Then
'Response.write " 命令成功执行！"
'每次上传文件个数上限
Upload.InceptFileType = "gif,jpg,png,rar,zip,psd" '设置上传文件限制
Upload.RName = ""
Upload.ChkSessionName = "UploadCode"
Upload.PreviewType = 1 '设置预览图片组件类型
<%
Call CreateView("UploadFile/f.jpg","1")
'CreateView(原图路径,文字/图象水印)
'----------------------------------
'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)
<%
dim upfile_5xSoft_Stream
Class upload_5xSoft
dim Form,File,Version,Rex,Filter
Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
dim ExtName,tmpInfo,checkType,FielterStr
'要检查的文件扩展名,所有文件为".*"
checkType=".gif.jpg.txt.bmp.swf.jpeg.png"
set Rex = New RegExp
Filter=Chr(60)&Chr(37)&Chr(40)&Chr(46)&Chr(124)&Chr(92)&Chr(110)&Chr(41)&Chr(42)&Chr(37)&Chr(62)&Chr(124)&Chr(60)&Chr(115)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)
Rex.IgnoreCase = True
Rex.Global = True
