利用ASP改进文档上载控件 (转)

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