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_"MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 21pt">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]
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
更新日志
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]