您所在位置：主题：数据传递的问题
luankk
[专家分：80] 发布于 2008-07-15 10:37:00
<%@Language=VBScript%>
<%
Option Explicit
Response.Buffer = True
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Dim FormPath
FormPath = "TempUpload/" ''定义上传路径
Upload_0
Sub Upload_0()
Dim Upload
Dim File,FormName,FileName,FileExt,SaveFile
Dim CountSize,UseTime
Set File = Upload.File(FormName) ''生成一个文件对象
FileExt = File.FileExt ''获取上传文件后缀名
FormPath = FormatPath(FormPath) ''格式化上传路径
[color=00FF00]FileName[/color] = FormatName(FileExt) ''定义文件名
SaveFile = FormPath & FileName
Upload.SaveToFile Server.Mappath(SaveFile),FormName ''保存文件
'Upload.FileData(FormName) ''获取单个文件内容数据
''输出信息：
Response.Write "原文件名：" & File.FileName
Response.Write "<BR>"
Response.Write "文件表单名：" & File.FormName
Response.Write "<BR>"
Response.Write "文件来源路径：" & File.FilePath
Response.Write "<BR>"
Response.Write "文件名：" & FileName
Response.Write "<BR>"
Response.Write "保存路径：" & SaveFile
Set Upload=Nothing
End Sub
%>
<form method="POST" enctype="multipart/form-data" action="22.asp">
<tr>
<td Class=TdBg>
<input name="" type="text" class="input" value="[color=FF0000]<%=File.FileName%>[/color]" size="30" readonly>
<input name="" type="text" class="input" value="[color=FF0000]<%=FileName%>[/color]" size="30" readonly>
<input name="" type="text" class="input" value="[color=FF0000]<%=saveFile%>[/color]" size="30" readonly>
</td>
</tr>
</form>
</BODY>
</HTML>
怎样将绿色标记的filename的值,调用到form中红色的区域...我写的不对,,,,请大家指点.
<%
Option Explicit
Response.Buffer = True
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Dim FormPath
FormPath = "TempUpload/" ''定义上传路径
Upload_0
Sub Upload_0()
Dim Upload
Dim File,FormName,FileName,FileExt,SaveFile
Dim CountSize,UseTime
Set File = Upload.File(FormName) ''生成一个文件对象
FileExt = File.FileExt ''获取上传文件后缀名
FormPath = FormatPath(FormPath) ''格式化上传路径
[color=00FF00]FileName[/color] = FormatName(FileExt) ''定义文件名
SaveFile = FormPath & FileName
Upload.SaveToFile Server.Mappath(SaveFile),FormName ''保存文件
'Upload.FileData(FormName) ''获取单个文件内容数据
''输出信息：
Response.Write "原文件名：" & File.FileName
Response.Write "<BR>"
Response.Write "文件表单名：" & File.FormName
Response.Write "<BR>"
Response.Write "文件来源路径：" & File.FilePath
Response.Write "<BR>"
Response.Write "文件名：" & FileName
Response.Write "<BR>"
Response.Write "保存路径：" & SaveFile
Set Upload=Nothing
End Sub
%>
<form method="POST" enctype="multipart/form-data" action="22.asp">
<tr>
<td Class=TdBg>
<input name="" type="text" class="input" value="[color=FF0000]<%=File.FileName%>[/color]" size="30" readonly>
<input name="" type="text" class="input" value="[color=FF0000]<%=FileName%>[/color]" size="30" readonly>
<input name="" type="text" class="input" value="[color=FF0000]<%=saveFile%>[/color]" size="30" readonly>
</td>
</tr>
</form>
</BODY>
</HTML>
怎样将绿色标记的filename的值,调用到form中红色的区域...我写的不对,,,,请大家指点.
