盗墓密码逢墓之夜阅读:HTTP 错误 500.100 - 内部服务器错误 - ASP 错误

来源：百度文库编辑：高校问答时间：2024/04/28 02:11:44

<body bgcolor=#F7FBFF topmargin=10 leftmargin=12>
<%
Server.ScriptTimeout=600
if Session("Admin")="" then
response.write "<script>alert('管理员登录超时,请重新登录!');top.location.replace('AdminLogin.asp')</script>"
response.end
end if

sql="Select Top 1 UpdateTime from PicNew order by UpdateTime desc"
set rsUpdateTime=conn.execute(sql)
if not rsUpdateTime.eof then
LastUpdateTime=rsUpdateTime("UpdateTime")
end if
set rsUpdateTime=nothing

set fso=Server.CreateObject("Scripting.FileSystemObject")
PicFolder_ABS=Server.Mappath("./"&PicFolder)

set obj=fso.GetFolder(PicFolder_ABS)
for each f in obj.Files
FileType=uCase(right(f.name,3))
if FileType="JPG" or FileType="TIF" then
PicNO=left(f.name,instr(f.name,".")-1)
FileUpdateTime=f.DateLastModified
if FileUpdateTime >= LastUpdateTime then
sql="Select * from PicNew where PicNO='"&PicNO&"' And DownType='"&FileType&"'"
set rsPic=conn.execute(sql)
if rsPic.eof then
sql="Insert into PicNew(PicNO,DownType,UpdateTime) values('"&PicNO&"','"&FileType&"','"&FileUpdateTime&"')"
else
sql="Update PicNew set UpdateTime='"&FileUpdateTime&"' where PicNO='"&PicNO&"' And DownType='"&FileType&"'"
end if
conn.execute(sql)
end if
end if
next
set rsPic=nothing
set fso=nothing
%>
<style type="text/css">

</style><BR><BR><BR><BR>
<table align="center">
<tr>
<td><span class="STYLE1" id="m">数据已经更新成功!</span></td>
</tr>
<tr>
<td align="right">
<table id="tab_sr" width="100%" height="8">
<tr><td bgcolor="#0066FF"></td></tr>
</table>
</td>
</tr>
</table>
<script>
var i=9;
window.setInterval("isExist()",1000);

function isExist(){
i--;
if(i>0)tab_sr.width= i*8;
if(i>0)m.innerText = '本页将在'+(i)+'秒后刷新...';
if(i==0){
tab_sr.width=1;
m.innerText='刷新中,请稍候...';
location.replace(location.pathname);
return;
}
}
</script>

上面是页面代码。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
下面是出错信息。
请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A004C)
路径未找到
/AdminUpload.asp, 第 21 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
GET /AdminUpload.asp

时间：
2006年6月8日, 下午 09:48:16
我试过用WINDOWS 2000 服务器版
WINDOWS XP SP2 家庭版
WINDOWS 2003 服务器版

都是同样21行出错啊！

set obj=fso.GetFolder(PicFolder_ABS) 这行出错,PicFolder_ABS变量指定的目录不存在

不知道你那里是什么系统

我的Win2003单独运行你那段便利文件的程序没有问题

HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误 HTTP 错误 500.100 - 内部服务器错误 - ASP 错误解决方案