我要评论upload.asp
<form action=http://<％= request. servervariables(server_name)>/wdread.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>
发往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>
wdread.asp
<form enctype=multipart/form－data action=http://<％= request.servervariables (server_name) ％>/scripts/cpshost.dll?publish?wdwriter.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 >
<input type=button name=upload value=确定>
</form>
<scripts language=vbscript>
' 在上载时应对表单域filename的值与upload.asp程序中的域值进行比较, 因为在upload.asp中输入的文件名在本程序中预置给表单域filename,一旦客户端重新输入新的文件名后提交确认,会使程序wdwriter.asp中写入数据库的文件名与实际上载的文件名不一样, 导致网页连接出错.此处进行判断,如果两者相等,则立即上载,否则取消操作.
<!－－
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>
wdwriter.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)
' 取文件名.
targeturl= session(targeturl)
' 取文件在服务器中存放的物理地址.
sqlstr=insert into wdlsb values( ＆ sn ＆ ,＆ subject ＆ ', ＆ date1 ＆ ',＆filename ＆ ', ＆ targeturl ＆', ＆ author ＆ ')
' 写数据库并保存.
mydata.execute(sqlstr)
％>
[1]
发表评论