提出问题

笔者曾在建设企业内部信息网工程中开发过基于Web的文档资源共享信息网站。该网站要求上载的文档能自动在主页中
根据文档的类别按文档标题连接到对应的栏目里。针对这种需求，笔者利用IIS的文档上载控件Posting Acceptor
Components，结合数据库和Web技术，开发出了一套自动化程度很高的文档自动网页发布系统和文档自动网页生成系统。在
开发该系统的过程中，笔者发现IIS下的上载控件cpshost.dll在使用中存在一定的问题。例如，为完成上载，笔者开发了
两个程序：程序一（Upload.asp）提供基于Web的信息文档上载录入界面；程序二（wd_writer.asp）把程序一录入的信息
记录到数据库中。其中相关代码如下：

程序一（upload.asp）：

……

’提供文档上载的客户界面

<form enctype=“multipart/form－data” action=“http://<％= Request.ServerVariables

(“SERVER_NAME”)％>/scripts/cpshost.dll?PUBLISH?wd_writer.asp” method=“post”>

<p>文档主题: <input type=“text” name=“subject”><br>

作者:<input name=“author” type=“text”><br>

发布时间: <input name=“date1” type=“text”><br>

上载文档名（点击浏览按钮可进行选择）：<input type=“file” name=“filename”>

Destination URL: <input type=“hidden” name=“TargetURL”

value=“http://<％= Request.ServerVariables(“SERVER_NAME”)％>/users/wdls ”>

<input type=“submit” value=“发布确定”> </p>

　 </form>

……

程序二（wd_writer.asp）：

<％'打开数据库

Set mydata = Server.CreateObject

(“ADODB.Connection”)

mydata.Open “DSN=xczh;UID=sa;PWD=;”

'从表单中取出各项内容

date1=Request.form(“date1”) '取时间

'取文档主题

subject=Request.form(“subject”)

'取作者

author=Request.form(“subject”)

'取文档文件名

filename=Request.form(“filename”)

'取文档在Web服务器中存放的物理地址

TargetURL=Request.form(“filename”)

'写数据库

sqlstr=“insert into wdlsb values(” ＆ sn ＆ “,‘” ＆ subject ＆ “',‘” ＆ date1 ＆ “',‘”＆
filename ＆ “',‘” ＆ TargetURL ＆ “',‘” ＆ author ＆ “')”

Mydata.Execute(sqlstr)

％>

上述程序的语法结构和逻辑结构都正确无误，但在使用时却出现了问题。当在程序一中表单的subject 、Author、
filename 域中填写汉字后，在程序二中用Request取出的表单域值为乱码，即不能正确从表单中取出域值。此时，表单进
行POST请求服务时的域值的封装模式（enctype）为“multipart/form－data”，即RFC 1867。于是笔者把程序一进行POST
请求服务时的封装模式修改为“text”,但却出现了“无法上载文档”的错误。笔者分析后发现，文档上载控件
cpshost.dll只能在表单的“multipart/form－data”封装模式（既RFC 1867格式）下才能在浏览器与服务器之间进行文档
上载。

解决问题

笔者采用改变操作流程的方法，解决了上述问题。首先，由用户填写表单（程序三Upload.asp）,并提交给程序四
（wd_read.asp）进行预处理。在程序四中利用session对象暂时保存subject、author、date1、filename、targetUrl等表
单域的输入值。向用户输出一个确认页面，由用户再次确认表单。然后，设置表单的封装模式为
“multipart/form－data”,并进行上载操作。最后，由cpshost.dll调用程序五（wd_writer.asp）。由程序五取出存储于
内建对象session中的域值，进行数据库操作和操作确认。如果程序四出现不可预测的错误，则文档上载失败，不会调用程
序五，因此保持了数据库的完整性。相关代码如下：

程序三（upload.asp）：

　 <form action=“http://<％= Request.

ServerVariables(“SERVER_NAME”)>/wd_read.asp” method=“post">

　 <p>文档主题: <input type=“text” name=“subject”><br>

作者:<input name=“author” type=“text”><br>

发布时间: <input name=“date1” type=“text”><br>

上载文档名（点击浏览按钮可进行选择）：<input type=“file” name=“filename”>

Destination URL: <input type=“hidden” name=“TargetURL” value=“http://<％= Request

.ServerVariables(“SERVER_NAME”)％>/users/<％=Request.ServerVariables(“LOGON_USER”) ％>” size=“20”
><br>

<input type=“submit” value=“发布确定”> </p>

</form>

程序四（wd－read.asp）：

　 <％ '取出程序三中的表单域值并保存在session中

session(“subject”)=Request.form(“subject”)

session(“date1”)=Request.form(“date1”)

session(“author”)=Request.form(“author”)

session(“filename”)=Request.form(“filename”)

session(“TargetURL”)=Request.form(“TargetURL”)

％>

……

　 <form enctype=“multipart/form－data” action=

“http://<％= Request.ServerVariables

(“SERVER_NAME”) ％>/scripts/cpshost.dll?PUBLISH?wd_writer.asp” method=“post”>

上载文件名(点击浏览按钮可进行选择)：<input type=“file” name=“filename” value=“<％=session
(“filename”)％>”>

<input type=“hidden” name=“TargetURL”

　value=“http://<％= Request.ServerVariables(“SERVER_NAME”) ％>/users/wdls” >

<input type=“submit” value=“发布确定”> </p>

　</form>

程序五（wd_writer.asp）：

<％ '打开数据库

Set mydata = Server.CreateObject

(“ADODB.Connection”)

mydata.Open “DSN=xczh;UID=sa;PWD=;”

’取各表单域的值

date1=session(“date1”) '取时间

subject=session(“subject”) '取文档主题

author=session(“subject”) '取作者

filename=session(“filename”) '取文档名

'取文档在Web服务器中存放的物理地址

TargetURL= session(“TargetURL”)

'写数据库，保存文档记录

sqlstr=“insert into wdlsb values(” ＆ sn ＆ “,‘”＆ subject ＆ “',‘” ＆ date1 ＆ “',‘”＆
filename ＆ “',‘” ＆ TargetURL ＆“',‘” ＆ author ＆ “')”

Mydata.Execute(sqlstr)

％>

完善程序

上述程序虽然已经能满足设计时的要求,但还是有需要完善的地方。例如，由于在程序三中输入的文件名在程序四中会
预置给表单域filename，所以，一旦客户端重新输入新的文件名后提交确认，会使程序五中写入数据库的文件名与实际上
载的文件名不一致，造成网页连接时出错。为避免出现此类错误，在进行文档上载时，应对表单域filename的值与程序三
中的域值进行比较，如果两者相等，立即进行文件上载，否则取消操作。相关代码如下：

修改程序四（wd_read.asp）：

<form enctype=“multipart/form－data” action=“http://<％= Request.ServerVariables

(“SERVER_NAME”) ％>/scripts/cpshost.dll?PUBLISH?wd_writer.asp” method=“post” name=“form1”>

上载文档名(点击浏览按钮可进行选择)：<input type=“file” name=“filename” value=“<％=session
(“filename”)％>”>

<input type=“hidden” name=“TargetURL” value=“http://<％= Request.ServerVariables

(“SERVER_NAME”) ％>/users/wdls” >

’把表单中的按钮改为‘button’模式，变成普通按钮，当点击时，执行脚本程序upload_onclick

　 <input type=“button” name=“upload” value=“发布确定”>

</form>

’对表单域filename的值进行判断

<scripts language=“VBScript”>

<!－－

sub upload_onclick()

set myform=window.document.form1

tmp=myform.filename.value

　 if strcomp(tmp,<％=session

(“filename”)％>)=0 then

form1.submit

else

msgbox “输入的文件名有误，请返回重新输入！！！”

end if

　end sub

－－>

</scripts>