如下,是该页面的代码:
--------------------------------------------------------------------------------------
<%@ Language=VBScript %>
<!--#include file="../sysparam.asp" -->
<!--#include FILE="./upload_5xsoft.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
</head>
<body>
<form name="frm1" action="ExtraServiceMmsAdd_ftpput.asp" method="post">
<!--附件上传代码---------------------------start--->
<%
set upload=new upload_5xsoft
set file=upload.file("mmsupfile")
if file.fileSize<1 then
response.write"<script language=javascript>alert('请选择文件!');history.back()</script>"
response.end
end if
if file.fileSize<10 or file.fileSize>500*1024 then '修改默认的数值 100 单位(KB)
response.write "<br><br><br><br><br>错误:上传的文件大小超过了500k限制! <a href='javascript:history.go(-1)'>退回上一步</a>"
response.end
end If
upfilename = split(file.FileName,".")
upfileext = upfilename(Ubound(upfilename))
if upfileext<>"rar" and upfileext<>"zip" and upfileext<>"txt" and upfileext<>"doc" and upfileext<>"RAR" and upfileext<>"ZIP" and upfileext<>"TXT" and upfileext<>"JPG" and upfileext<>"jpg" And upfileext<>"bmp" And upfileext<>"gif" And upfileext<>"png" then
response.write "<br><br><br><br><br>错误:上传的文件格式不对! <a href='javascript:history.go(-1)'>退回上一步</a>"
response.end
end if
ufp=Year(now)&Month(now)&Day(now)&Hour(now)&Minute(now)&Second(now)&"."&upfilename(UBound(upfilename))
file.saveas Server.mappath("../mmssendtemp/"&ufp)
tempfile=Server.mappath("../mmssendtemp/"&ufp)
If trim(upload.Form("mmssubject"))<>"" Then mmssubject=trim(upload.Form("mmssubject")) End If
If trim(upload.Form("priority"))<>"" Then priority=trim(upload.Form("priority")) End If
If trim(upload.Form("mmscontent"))<>"" Then mmscontent=trim(upload.Form("mmscontent")) End If
If Trim(upload.Form("remark"))<>"" Then Remark=Trim(upload.Form("remark")) End If
mmsfilepath="D:\MMS Attachment\send\"&ufp
mmsfilepath=Trim(mmsfilepath)
set file=nothing
set upload=nothing
Dim AppealNum,AppealCount
AppealNum=30 '页面60秒打开网页次数的限制
AppealCount=Request.Cookies("AppealCount")
If AppealCount="" Then
response.Cookies("AppealCount")=1
AppealCount=1
response.cookies("AppealCount").expires=dateadd("s",60,now())
Else
response.Cookies("AppealCount")=AppealCount+1
response.cookies("AppealCount").expires=dateadd("s",60,now())
End If
if int(AppealCount)>int(AppealNum) then
response.write "为防止恶意上传文件,请您等待60秒后再上传文件.<br>为您带来不便,请谅解!"
response.end
End If
%>
<script language="Javascript">
function minipic(smileface) {
window.opener.document.form1.minipic.value = smileface;
}
function pic(smileface) {
window.opener.document.form1.pic.value = smileface;
}
</script>
<!--附件上传代码---------------------------end----->
<%
response.Write(mmssubject&"----"&mmscontent&"----"&priority&"----"&Remark&"----"&tempfile&"----"&mmsfilepath&"----"&ufp)
'response.End
%>
</form>
<script type="text/javascript">
frm1.submit();
</script>
</body>
</html>
--------------------------------------------------------------------------------------
在页面“ExtraServiceMmsAdd_ftpput.asp” 用“request.form("mmssubject")”怎么也获取不到这个值,之前能使用的,悲剧啊,各位帮忙找找原因啊,我要喷血了··
代码太长。
提交过去了没有,asp的哦,乱。