文档主题:

作者:

发布时间:

上载文档名（点击浏览按钮可进行选择）：

Destination URL:

value=“http:///users/wdls ”>

……

程序二（wd_writer.ASP）：

上述程序的语法结构和逻辑结构都正确无误，但在使用时却出现了问题。当在程序一中表单的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）：

文档主题:

作者:

发布时间:

上载文档名（点击浏览按钮可进行选择）：

Destination URL:

程序四（wd－read.ASP）：

……

“http:///scripts/cpshost.dll?PUBLISH?wd_writer.asp” method=“post”>

上载文件名(点击浏览按钮可进行选择)：

　value=“http:///users/wdls” >

程序五（wd_writer.ASP）：

完善程序

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

修改程序四（wd_read.ASP）：

上载文档名(点击浏览按钮可进行选择)：

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

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

sub upload_onclick()

set myform=window.document.form1

tmp=myform.filename.value

　if strcomp(tmp,)=0 then

form1.submit

else

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

end if

end sub

－－>

经过上述改进后，系统运转平稳可靠，缩短了信息上网周期，大大地提高了文档的上网效率。该系统完整的程序中还包括对用户口令和权限的验证、文档主题是否为空的验证、作者域验证、文档的分类选择、上载文档重名的验证、数据库操作的异常处理等。