我的上傳代碼 :
<%@ Language=vbscript %>
<html><head><title>FileList</title>
<!--#include file="errorclass.asp"-->
<!--#include file="class.asp"-->
<%
Dim fc_Class,ec_Class,objStream
Dim UpUser,JzName,CsName,Path,Remark
Set fc_Class = New MBClass
Set ec_Class = New ErrorClass
If Request.QueryString("action") = 1 Then
If getForm = 1 Then
If upFile(path) = 1 Then
Path = GetFileName(Path)
Call fc_Class.addmb(UpUser,JzName,CsName,Path,Remark)
If ERR.number <> 0 Then
ec_Class.Founderr = True
ec_Class.Message = ec_Class.Message&"向数据库添加记录失败<br>"
Call ec_Class.showMessage("add.asp","失败")
Else
ec_Class.Message = ec_Class.Message&"添加记录成功<br>"
Call ec_Class.showMessage("add.asp","成功")
End If
Else
Call ec_Class.showMessage("add.asp","失败")
End If
ElseIf ec_Class.Founderr = true Then
Call ec_Class.showMessage("add.asp","失败")
End If
End If
Function upFile(filepath)
if request.form("path")<>"" then
filepath = Request.Form("path")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile filepath
objStream.SaveToFile "d:\file\MB\"&GetFileName(filepath),2
objStream.Close
If Err.number <> 0 Then
ec_Class.Founderr = True
ec_Class.Message = ec_Class.Message&"文件上传失败<br>"
upFile = 0
Else
ec_Class.Message = ec_Class.Message&"文件上传成功<br>"
upFile = 1
End If
End If
End Function
Function GetFileName(filepath)
If filepath <> "" Then
GetFileName = mid(filepath,InStrRev(filepath, "\")+1)
Else
GetFileName = ""
End If
End function
Function getForm()
UpUser = trim(Request.Form("upuser"))
JzName = trim(Request.Form("jzname"))
CsName = trim(Request.Form("csname"))
Path = trim(Request.Form("path"))
Remark = trim(Request.Form("remark"))
If UpUser = "" Then
ec_Class.Founderr = True
ec_Class.Message = ec_Class.Message&"工程师名不能为空<br>"
End If
If JzName = "" Then
ec_Class.Founderr = True
ec_Class.Message = ec_Class.Message&"机种名不能为空<br>"
End If
If CsName = "" Then
ec_Class.Founderr = True
ec_Class.Message = ec_Class.Message&"修改程序名不能为空<br>"
End If
If Path = "" Then
ec_Class.Founderr = True
ec_Class.Message = ec_Class.Message&"上传路径不能为空<br>"
End If
If Remark = "" Then
ec_Class.Founderr = True
ec_Class.Message = ec_Class.Message&"修改原因不能为空<br>"
End If
If ec_Class.Founderr = True Then
getForm = 0
Else
getForm = 1
End If
End Function
%>
<body>
<table id="table1" width="80%" align="center">
<tr><td valign="top" height="38">
<table class="style8" id="table2" width="100%" border="0">
<tr>
<td width="70">文件上传</td>
<td align="right"></td></tr>
</table></td></tr>
<tr><td>
<hr color="#666666" size="1">
<form action="add.asp?action=1 "id="form1" name="form1" method="post">
<table width="500" border="1" align="center" bgcolor="#cccc99">
<tr><td width="250">
<font face="新细明体">工程师:</font></td>
<td><input id="text1" type="text" name="upuser"></td></tr>
<tr><td>
<font face="新细明体">机种名:</font></td>
<td><input id="text2" type="text" name="jzname"></td></tr>
<tr><td>
<font face="新细明体">修改程序名:</font></td>
<td><input id="text3" type="text" name="csname"></td></tr>
<tr><td>
<font face="新细明体">文件路径:</font></td>
<td><input id="text4" type="file" name="path"></font></td></tr>
<tr><td>
<font face="新细明体">修改原因:</font></td>
<td><font face="新细明体">
<textarea id="textarea1" name="remark" rows="7" cols="23">
</textarea></font></td></tr>
<tr><td colspan="2" align="center">
<input id="submit1" type="submit" value="提交" class="style1">
<input id="reset1" type="reset" value="重填" class="style1">
</td></tr>
</table></form></td></tr></table>
<hr width="80%" color="#666666" size="1">
</body>
</html>
我可以在服務器的IE上進行使用,但是在別的電腦上進行調用時卻報以下的錯誤:
這是什麼原因,高手們幫幫忙啊...........
技术信息 (供技术支援人员使用)
错误类型:
ADODB.Stream (0x800A0BBA)
无法开启档案。
/add.asp, line 36
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
页数:
POST 62 bytes to /add.asp
POST Data:
upuser=d&jzname=d&csname=d&path=C%3A%5Cconcole1df.exe&remark=d
时间:
2007年7月25日, 下午 03:33:56
其他信息:
Microsoft Support