ASP+access WEB程序后台错误

yangluo 2008-04-12 09:12:28

我的这个简单内容管理系统,最近发现在部分电脑上面登陆后台之后,出现无法修改文章的情况.具体的情况就在截图上.
有朋友说我的UP.ASP上传文件有问题,希望CSDN的高手专家们能抽空看看.有什么需要提供的,Q我 86834340 谢谢大家.

...全文

60 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

yangluo 2008-04-25

打赏
举报

这么久了都没有人来看看

yangluo 2008-04-12

打赏
举报

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #F3008F; TEXT-DECORATION: underline
}
TD {
FONT-SIZE: 9pt; LINE-HEIGHT: 16px
}
.input {
BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 12px; BACKGROUND: #ffffff; BORDER-LEFT: #000000 1px solid; LINE-HEIGHT: 15px; BORDER-BOTTOM: #000000 1px solid; FONT-FAMILY: Verdana,Tahoma,宋体
}
.text {
FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #ffffff; LINE-HEIGHT: 21px
}
</STYLE>
</head>
<body bgcolor="#F1F3F5" leftmargin="0" topmargin="0">
<%
Dim Request2,uname,ff,ff_savename,SavePath,filename
const SaveUpFilesPath="../pic" '存放图片的文件夹名
SavePath = SaveUpFilesPath '存放上传文件的目录
if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)
Set Request2 = New Request2_Class '建立Request2对象
Request2.MaxSizePerFile = 1024*500 '当有文件上传的时候，MultiRead之前应当设置文件大小限制，这里设为80K
Request2.NotAllowedFileExt = "" '当有文件上传的时候，MultiRead之前应当设置黑名单
Request2.AllowedFileExt = "gif;jpg;rar;doc" '当有文件上传的时候，MultiRead之前应当设置白名单
On Error Resume Next 'MultiRead之前必须设置该句
Request2.MultiRead '分析表单数据，必须
If Err Then '捕获错误，必须
Select Case Err.Number '根据错误类型输出不同的提示信息
Case &H80047001
Response.Write "上传文件名无效"
Response.End
Case &H80047002
Response.Write "上传文件超过了" & Request2.MaxSizePerFile & "字节的限制,<a href=upload.asp><font color=#FF0000>重新上传</font></a>"
Response.End
Case &H80047003
Response.Write "该类型文件不允许上传"
Response.End
End Select
End If
On Error Goto 0

If Request2.Form("submit") <> "" Then '如果有表单数据提交

'*******************************************************************************************
uname = Request2.Form("uname")
Set ff = Request2.Form("ff") '注意这里是Set,因为ff为对象，ff的类型是FileInfo_Class
If ff.FileSize > 0 Then '如果有文件数据
On Error Resume Next '保存过程中可能会出现错误，这里必须捕获一下
ff_savename = Request2.AutoSave("ff",Server.Mappath(SavePath))
filename="pic/"&ff_savename
If Err Then
Response.Write Err.Description
Response.End
End If
response.write"<SCRIPT language=javascript>"
response.write"parent.document.addnews.pic_path.value='" & fileName & "';</script>"
response.write"上传成功"
'Response.Write uname & "上传的文件是：" & ff_savename & "<br>"
'Response.Write "<img src='" & ff_savename & "'>"
Else
Response.Write "您还没有选择上传文件阿"
End If
Set ff = Nothing
'*******************************************************************************************
End If
%>
<form name="fm1" method="post" action="up.asp" enctype="Multipart/Form-Data">
<input type="file" name="ff" size="20">
<input type="submit" name="Submit" value="上传"">
</form>
</body>
</html>
<%
Set Request2 = Nothing '销毁Request2对象
%>

yangluo 2008-04-12