不知道 为什么 就是不能吧前一页的值传到这个页面 下面是2个网页的代码！！！！ 请大家帮我看一下！
upload.asp
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<%
Session("HuodongID")= Request("HuodongID")
sql="select map from huodong where huodongID="&cint(request("HuodongID"))
rs.open sql,conn,1,1
%>
<center>
<%%>
<table width="750" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" background="images/hline_bg.gif"></td>
</tr>
</table>
<table width="750" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="31" colspan=2 align=center valign="bottom"><b>活
动 地 图 上 传 修 改</b></td>
</tr>
<tr>
<td width="100%" height="20" colspan=2 align=center> </td>
</tr>
<tr align="center" valign="middle">
<td>
<%
if rs.eof then
response.write "此活动还没有地图信息"
else
response.write "此活动已经有地图 <a href='"&rs("map")&"'>"&rs("map")&"（点击查看》》）</a>"
end if
%>
</td>
</tr>
<tr>
<td width="100%" height="20" colspan=2 align=center> </td>
</tr>
<form name="form1" method="post" action="Huodong_Upmap_Save.asp" enctype="multipart/form-data">
<tr align="center" valign="middle">
<td> 地图文件（400X400象素，最大300K）：
<input type="file" name="file1" style="width:300" Class="tx1">
</td>
</tr>
<tr align="center" valign="middle">
<td height="24">
<input type="submit" name="Submit" value="上 传" Class="bt">
<input type="reset" name="Submit2" value="重 来" Class="bt">
</td>
</tr>
</form>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="156" align="center" bgcolor="#FFFFFF">
<table width="479" border="0" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF">
<tr>
<td>提示：</td>
</tr>
<tr>
<td>1.活动图片最大300K，不要选择太大的文件，以免超时。 <br>
2.请按提示象素进行处理，以免出现显示变形。 <br>
2.新文件将覆盖老文件 </td>
</tr>
</table>
</td>
</tr>
</table>
</table>
<%set rs=nothing%>
</center>
<!--#include file="Inc_bot_z.asp" -->
Huodong_Upmap_Save.aspv
---------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->
<%
dim upload,file,formName,formPath,iCount,newsid
set upload=new upload_5xSoft ''建立上传对象
formPath= LifeRootPath & "/maps/"
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.fileName = "" then
if instr("gif,bmp,jpg,png",lcase(getFileExtName(file.fileName)))=0 then '在此添加许可上传的文件格式。
Response.Write "<script>alert('图片格式错误！请返回！');history.back();</script>"
response.end
else
if file.FileSize > 0 and file.FileSize < 310000 then ''如果 FileSize > 0 说明有文件数据
mapfilename = "Huodong-"& Session("HuodongID") &"."& getFileExtName(file.fileName)
file.SaveAs Server.mappath(formPath& mapfilename) ''保存文件
sql = "update huodong set map='maps/"&mapfilename&"' where huodongID="& cint(Session("huodongID"))
conn.execute sql
else
response.write "<br>文件大小:"&file.FileSize
response.write "<br>文件路径:"&file.FilePath
response.end
end if
end if
else
Response.Write "<script>alert('您没有选择图片！请返回！');history.back();</script>"
response.end
end if
set file=nothing
next
set upload=nothing ''删除此对象
'获得文件的后缀名
function getFileExtName(fileName)
dim pos
pos=instrrev(filename,".")
if pos>0 then
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=""
end if
end function
Response.Write "<script>alert('图片上载成功！请查看活动信息！');location.replace('Huodong_Show.asp?HuodongID="&Session("HuodongID")&"');</script>"
response.end
%>
为什么前一页的表单 什么值也没有传过来！
[此贴子已经被作者于2007-9-13 11:27:15编辑过]
