asp 文件 网页生成了 过多的重定向
file1：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红头文件提交</title>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<body>
<form action="file2.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
<p>全文标题：
<textarea name="title" id="title"></textarea>
*<span class="STYLE1">注：如要换行请在后面加<br></span></p>
<p> </p>
<p>发文字号：
<input name="ad" type="text" id="ad" />
<label>
<input name="date" type="text" id="date" />
</label>
<input name="date2" type="text" id="date2" />
号*</p>
<p>文章标题：
<textarea name="title2" id="title2"></textarea>
*</p>
<p> </p>
<p>主送机关：
<input name="name1" type="text" id="name1" />
*</p>
<p>正文：
<textarea name="file" wrap="physical" id="file"></textarea>
*</p>
<p>附件：
<label></label>
<input name="file1" type="file" id="file1" />
* </p>
<p>
<input name="file2" type="file" id="file2" />
</p>
<p>
<input name="file3" type="file" id="file3" />
<p> </p>
<p>日期：
<input name="year" type="text" id="year" />
年
<input name="month" type="text" id="month" />
月
<input name="day" type="text" id="day" />
日 * </p>
<p>
<input type="submit" name="Submit" value="提交" />
<input type="reset" name="Submit2" value="取消" />
</p>
<p> </p>
</form>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红头文件</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:29px;
top:56px;
width:1061px;
height:3px;
z-index:1;
background-color: #FF0000;
}
#Layer2 {
position:absolute;
left:46px;
top:55px;
width:1044px;
height:2px;
z-index:1;
background-color: #FF0000;
}
.STYLE1 {font-family: "仿宋"}
.STYLE2 {
color: #000000;font-weight:bold;font-size:18pt;line-height: 150%;
}
.STYLE3{
color: #ff0000;font-weight:bold;font-size: 36pt;line-height:150%;
}
.STYLE4 {
color: #000000;font-size:18pt;line-height:normal
}
-->
</style>
</head>
<body>
<!--#include file="upload.asp"-->
<%
str1 = request.form("title")
str2 = request.form("ad")
str3 = request.form("date")
str4 = request.form("date2")
str5 = request.form("title2")
str6 = request.form("name1")
str7 = request.form("file")
str8 = request.form("file1")
str9 = request.form("file2")
str10 = request.form("file3")
str11 = request.form("year")
str12 = request.form("month")
str13 = request.form("day")
Session("s1") = str1
Session("s2") = str2
Session("s3") = str3
Session("s4") = str4
Session("s5") = str5
Session("s6") = str6
Session("s7") = str7
Session("s8") = str8
Session("s9") = str9
Session("s10") = str10
Session("s11") = str11
Session("s12") = str12
Session("s13") = str13
session("s14") = filename1
%>
<div align="center">
<p>
<span class="STYLE3">
<%
with response
.Write session("s1")&"<br>"
end with
%>
</span>
<span class="STYLE4">
<%
with response
.Write session("s2")
.Write "〔"
.Write session("s3")
.Write "〕"
.Write session("s4")
.write "号"&"<br>"
end with
%>
</span>
</p>
<p><img src="file_2.GIF" width="1034" height="3" /> </p>
</div>
<div align="center">
<span class="STYLE2">
<%
with response
.Write session("s5")&"<br>"
end with
%>
</span>
</div >
<br>
<div align="left">
<span class="STYLE4">
<%
with response
.Write session("s6")
.Write ":"
.Write "<br>"
end with
%>
<%
response.Write session("s7")
%>
<br>
附件：1.
<a href= download3.asp?FileName=<%= Session("s14") %>>
<% response.write filename1 %>
</a>
<br>
2.
<% response.write session("s9" )%>
<br>
3.
<% response.write session("s10" )%>
<br>
</span>
</div>
<div align="right" class="STYLE1">
<span class="STYLE4">
<% response.Write session("s11")%>年
<% response.Write session("s12")%>月
<% response.Write session("s13")%>日
</span>
</div>
<form id="form1" name="form1" method="post" action="file1.asp">
<label>
<input type="submit" name="Submit" value="返回" />
</label>
</form>
</body>
</html>
<!--#include file="UpLoad_Class.asp"-->
<%
dim upload
set upload = new AnUpLoad
upload.Exe = "*"
upload.MaxSize = 10 * 1024 * 1024 '2M
upload.GetData()
if upload.ErrorID>0 then
response.Write upload.Description
else
dim file,savpath,filename1,filepath1,filename2,filepath2,filename3,filepath3
savepath = "upload"
set file = upload.files("file1")
if file.isfile then
result = file.saveToFile(savepath,1,true)
if result then
response.Write "上传成功"
filename1 = file.LocalName '赋值给filename1
filepath1 = server.MapPath(savepath & "/" & file.filename)
end if
end if
set file = upload.files("file2")
if file.isfile then
result = file.saveToFile(savepath,1,true)
if result then
filename2= file.LocalName
filepath2= server.MapPath(savepath & "/" & file.filename)
end if
end if
set file = upload.files("file3")
if file.isfile then
file.UserSetName = "jo-test"
result = file.saveToFile(savepath,1,true)
if result then
filename3 = file.LocalName
filepath3= server.MapPath(savepath & "/" & file.filename)
end if
end if
set file = nothing
end if
set upload = nothing
response.Redirect "file2.asp"
%>
filepath3= server.MapPath(savepath & "/" & file.filename)
end if
end if
set file = nothing
end if
set upload = nothing
%>
<%
str1 = request.form("title")
str2 = request.form("ad")
str3 = request.form("date")
str4 = request.form("date2")
str5 = request.form("title2")
str6 = request.form("name1")
str7 = request.form("file")
str8 = request.form("file1")
str9 = request.form("file2")
str10 = request.form("file3")
str11 = request.form("year")
str12 = request.form("month")
str13 = request.form("day")
Session("s1") = str1
Session("s2") = str2
Session("s3") = str3
Session("s4") = str4
Session("s5") = str5
Session("s6") = str6
Session("s7") = str7
Session("s8") = str8
Session("s9") = str9
Session("s10") = str10
Session("s11") = str11
Session("s12") = str12
Session("s13") = str13
session("s14") = filename1%>
<a href = "file2.asp"> 请点击跳转</a>
[解决办法]
你改成这个组件的对象，我是猜的，组件一般都有收件表单和文件的对象。。
str1 = upload.forms("title")
str2 = upload.forms("ad")
str3 = upload.forms("date")
...
改成这样试试，不行贴出UpLoad_Class.asp的代码
