ASP网站后台程序运行时出现：Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' 如何解决啊！
错误提示：Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0e7d'
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
/admin/Admin_Navigation.asp，行174
。请求大师教教我是什么原因运行不了了。我一点修改想隐藏导航的时候就出现这个错误。无法修改。
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 >> 导航管理</title>
<link href="../HXinclude/HX_Style.css" rel="stylesheet" type="text/css">
<script src='../HXinclude/HX_Function.js'></script>
</head>
<body topmargin='20' leftmargin='0' bottommargin='0'>
<%
if WS_S.MemberPriv("WS_FrontSetSystem")<>1 then HX_GoBack "对不起,您的权限不够!",""
dim RsModify,SqlSort,RsSort
if Request("Action")<>"Modify2" then%>
<table width='596' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>导航管理</font></td></tr></table>
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
<form name="form1" method="post" action="?Action=Add">
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td align="center">
添加：<input name="a125_names" type="text" id="a125_names" size="16" maxlength="30">
连接网址：<input type="text" name="daohang" size="15">
排列：<input name="a125_Order" type="text" id="a125_Order" size="2" maxlength="5">
<input type="submit" name="Submit" value="添 加">
</td>
</tr>
</form>
</table>
<% end if
if Request("Action")="Modify2" then%>
Id=Request("Id")
SqlModify = "Select * from a125_type where Id="&Id&" "
Set RsModify = Conn.Execute(SqlModify)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="Modify" id="Modify" method="post" action="Admin_Navigation.asp?Action=Modify">
<tr>
<td align="center">
栏目说明：<input type="text" name="explain" size="60" value="<%=RsModify("explain")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<input name="ID" type="hidden" id="ID3" value="<%=RsModify("ID")%>" size="1" >
<input type="submit" name="Submit" value="修 改">
</td>
</tr>
</form>
</table>
<%
RsModify.close
set RsModify=nothing
end if%>
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
<tr bgcolor='#A1BBE0' class='td4'>
<td width="50" height="20" ><div align="center">排序</div></td>
<td width="80" height="20" ><div align='center'>栏目名</div></td>
<td width="220" height="23"><div align='center'>网 址</div></td>
<td width="60" height="20"><div align='center'>是否隐藏</div></td>
<td width="90" height="23"><div align='center'>操作</div></td>
</tr>
<%
SqlSort = "Select * from a125_type where a125_big_id=0 or a125_big_id=-1 order by a125_order"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有一级栏目.......</div>")
response.end
else
do while not RsSort.eof
%>
<form name="a125_setting" method="post" action="?Action=a125_setting">
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td height="19" align="center" bordercolorlight="#C0C0C0"> <input name="Order" type="text" id="Order" value="<%=RsSort("a125_order")%>" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" ></td>
<td align="left"> <% if RsSort("daohang")<>"" then %>
<input name="a125_names" type="text" value="<%=RsSort("a125_names")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<%else%>
<input name="a125_names" type="text" value="<%=RsSort("a125_names")%>" size="12" maxlength="25" readonly style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: #808080; BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<% end if %>
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>"></td>
<td align="left"> <% if RsSort("daohang")<>"" then %>
<input type="text" name="daohang" size="25" value="<%=RsSort("daohang")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<%else%>
<font color="#800080"> </font><input type="text" onfocus=this.select() onmouseover=this.focus() size="25" value="<a href='type.asp?a125id=<%=RsSort("ID")%>&<%=RsSort("a125_names")%>'><%=RsSort("a125_names")%></a>" readonly style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: #808080; BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<% end if %></td>
<td align="center"><input name="hide" type="checkbox" id="hide" style="border:0px" value="True" <% if RsSort("hide")=True then%>checked<%end if%>></td>
<td height="23" align="left" bordercolorlight="#c0c0c0" bgcolor="#FFFFFF"><div align="left"> <input name="Submit2" type="submit" id="Submit2" value="修改"><% if RsSort("daohang")<>"" then %>
<input type="button" value="删除" onClick=location.href='?action=B_Del&id=<%=RsSort("ID")%>' name=del>
<% end if %></div></td>
</tr>
</form>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
conn.close
Set conn=nothing
%>
</table></td></tr></table><br>
<%
'删除大类
if Request.QueryString("Action")="B_Del" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from a125_type where Id="& ID
DelAll="delete from a125_type where a125_big_id="& ID
rs.open DelBig,conn,3,3
rs.open DelAll,conn,3,3
rs.close
set rs=nothing
conn.close
Set conn=nothing
response.redirect "Admin_Navigation.asp"
end if
%>
<%
'分类添加
if Request.QueryString("Action")="Add" then
If Request("a125_names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from a125_type"
rs.open sql,conn,1,3
rs.addnew
rs("a125_names")=Request("a125_names")
rs("a125_order")=Request("Order")
rs("daohang")=Request("daohang")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=False
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=False
end if
rs.update
rs.close
conn.close
Set conn=nothing
response.redirect "Admin_Navigation.asp"
end if
%>
<%
'栏目说明修改
if Request.QueryString("Action")="Modify" then
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from a125_type where ID="&ID&""
rs.open sql,conn,1,3
rs("explain")=Request("explain")
rs.update
rs.close
conn.close
Set conn=nothing
response.redirect "Admin_Navigation.asp"
end if
%>
<%
'一般修改
if Request.QueryString("Action")="a125_setting" then
If Request("a125_names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from a125_type where ID="&ID&""
rs.open sql,conn,1,3
rs("a125_names")=Request("a125_names")
rs("a125_order")=Request("Order")
rs("daohang")=Request("daohang")
rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=False
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=False
end if
rs.update
rs.close
conn.close
Set conn=nothing
response.redirect "Admin_Navigation.asp"
end if
%>
[ 本帖最后由 meteormin 于 2012-7-24 17:11 编辑 ]
