网页一：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form action='2.asp' method='post'>
<p>
<input type='file' name='upfilename'>
</p>
<p>
<input name="text1" type="text" id="text1">
</p>
<p>
<input type='submit'>
</p>
</form>
</body>
</html>
网页二：2.asp
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function
strFileName = Request.Form("upfilename")
If strFileName<>"" Then
response.Write(getfilename(strfilename))
end if
response.write request.Form("text1")
%>
评论