asp源码 上传图片 在线等 帮看看哪写错啦 传不上去
来源:百度知道 编辑:UC知道 时间:2024/06/14 11:37:20
<!--#include file="data_setup.asp" -->
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body>
<br>文件上传状态表<hr size=1 noshadow width=300 align=left><br><br>
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft ''建立上传对象
response.write upload.Version&"<br><br>" ''显示上传类的版本
if upload.form("filepath")="" then ''得到上传目录
HtmEnd "请输入要上传至的目录!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if
iCount=0
fo
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body>
<br>文件上传状态表<hr size=1 noshadow width=300 align=left><br><br>
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft ''建立上传对象
response.write upload.Version&"<br><br>" ''显示上传类的版本
if upload.form("filepath")="" then ''得到上传目录
HtmEnd "请输入要上传至的目录!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if
iCount=0
fo
如果你用的是netbox进行调试,那么直接调用原版upload_5xsoft.inc自然会出现这种错误提示。只要把upload_5xsoft.inc里的
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>...</script>语句改为<% ...%>应该就可以了!