| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 446 人关注过本帖
标题:各位.....救人拉..急....
只看楼主 加入收藏
ysjhbukn
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-9-16
收藏
 问题点数:0 回复次数:0 
各位.....救人拉..急....

Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\wwwroot\admin\Link_Info_List.asp, line 29


Host by NetBox Version 2.8 Build 4128


源码如下...小弟实在是找不出来是哪里的问题了..
请教高手指点...多谢了..


<!--#include file="conn.asp"-->
<!--#include file="Error.asp"-->
<!--#include file="MyRequest.asp"-->
<!--#include file="Pages.asp"-->
<html>
<link href=images/admin.css rel=stylesheet>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script src="Editor/edit.js" type="text/javascript"></script>
<script language = "JavaScript">
//全选操作
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}

</script>
<%
action=my_request("action",0)
if action="删除" then
call del()
end if

//过程:批量删除
sub del()
id=my_request("id",0)
if id<>"" then
pp=ubound(split(id,","))+1 '判断数组id中共有几维
for v=1 to pp
id=request("id")(v)


sql="select link_info_detail,link_info_type from link_info where id="&id
set rs=conn.execute (sql)
link_info_detail=rs("link_info_detail")
link_info_type=rs("link_info_type")
rs.close
set rs=nothing

conn.execute ("delete from [link_info] where id="&id)

//删除相应logo图片
if link_info_type=1 then
Dbpath="../uploadpic/"&link_info_detail
Dbpath=server.mappath(Dbpath)
bkfolder="../uploadpic"
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
If CheckDir(bkfolder) = True Then
fso.DeleteFile dbpath
end if
end if
Set fso = nothing
end if

next

call ok("所选信息已成功删除!","link_info_list.asp")
end if
end sub

Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
CheckDir = True
Else
CheckDir = False
End if
Set fso1 = nothing
End Function
%>
</head>

<body>

<table cellspacing="1" cellpadding="4" width="100%" class="tableborder" bordercolorlight="#000000" bordercolordark="#FFFFFF" border="1" style="border-color: #FFFFFF">
<tbody class="altbg2">
<tr>
<td colspan="6" class="header">-管理</td>
</tr>
<tr>
<td class="altbg1">选中</td>
<td class="altbg1">类型</td>
<td class="altbg1">名称</td>
<td class="altbg1">网址</td>
<td class="altbg1">是否首页显示</td>
<td class="altbg1" align="center">修改</td>
</tr>
<form name="form1" action="Link_info_List.asp" method="post">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from link_info order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td colspan=6 align=center>目前暂无信息,<a href=link_info_add.asp>请添加!</a></td></tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=1
while not rs.eof and i<=rs.pagesize
%>

<tr>
<td><input type="checkbox" name="id" value="<%=rs("id")%>"> </td>
<td> <%
Select Case rs("link_info_type")
Case "1"
response.write "<font color=""#008000"">[一厅]</font>"
Case "2"
response.write "<font color=""#FF00FF"">[二厅]</font>"
Case "3"
response.write "<font color=""#FF0000"">[综合]</font>"
End Select
%></td>
<td><%=rs("link_in")%></td>
<td><a href="<%=rs("link_info_url")%>" target=_blank title="<%=rs("link_info_url")%>"><%=left(rs("link_info_url"),30)%></a></td>
<td><%if rs("link_info_IndexShow")=1 then response.write "否" else response.write "是"%></td>
<td align="center"><a href="link_info_modi.asp?id=<%=rs("id")%>">修改</a></td>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr>
<td colspan="6">
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>全选
<input type="submit" name="action" value="删除" onClick="{if(confirm('删除后将无法恢复,您确定要删除选定的信息吗?')){this.document.form1.submit();return true;}return false;}">&nbsp;
<input type="button" value="添加音乐" name="action1" onClick="window.location='link_info_add.asp'"></td>
</tr>
<input type=hidden name=pagenow value=<%=page%>>
<%
call PageControl(iCount,maxpage,page)
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</form>
</tbody>
</table>


</body>

</html>

搜索更多相关主题的帖子: 救人 
2007-09-16 13:16
快速回复:各位.....救人拉..急....
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047489 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved