悲剧,页面传值失败

如下,是该页面的代码:

--------------------------------------------------------------------------------------

<%@ 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")”怎么也获取不到这个值,之前能使用的,悲剧啊,各位帮忙找找原因啊,我要喷血了··

 

 

 

 

互换的青春
浏览 363回答 2
2回答

慕容森

代码太长。

慕虎7371278

提交过去了没有,asp的哦,乱。
打开App,查看更多内容
随时随地看视频慕课网APP