ASP 缺少标识符 错误 急

来源:百度知道 编辑:UC知道 时间:2024/07/06 01:38:36
显示是:
行:16
字符:26
错误:缺少标识符
代码:0

上传图片时出现的错误
代码如下

<style type="text/css">
<!--
body {
FONT-SIZE: 9pt; color:#FF0000;
background-color: #f0f0f0;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;

}
.bt1 { font-size: 9pt; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; height: 16px; width: 60px; background-color:#ffffff; cursor: hand}
-->
</style><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%server.scripttimeout=9999%>
<!-- #include file="upload.inc" -->
<script>parent.document.form.Submit.disabled=false;</script>
<%

call upload_0()
sub upload_0()
dim upload,file,fpath,filename,fileext
set upload=new UpFile_Class '建立对像
n=5120
sizes=n*1024
'300k

谢谢楼上先
upload.inc文件代码如下:

<%

Dim oUpFileStream,FormData

Class UpFile_Class

Dim Form,File,Version,Err

Private Sub Class_Initialize
Version = "上传类 Version V1.0"
Err = -1
End Sub

Private Sub Class_Terminate
'清除变量及对像
If Err < 0 Then
Form.RemoveAll
Set Form = Nothing
File.RemoveAll
Set File = Nothing
oUpFileStream.Close
Set oUpFileStream = Nothing
End If
End Sub
Public Sub GetDate (RetSize)
'定义变量
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
Dim iFindStart,iFindEnd
Dim iFormStart,iFormEnd,sFormName
'代码开始
If Request.TotalBytes < 1 Then
Err = 1
Exit Sub
End If
If RetSize > 0 Then
If Request.TotalBytes > RetSize Then