olive小女孩照片:为什么少END语句

来源:百度文库 编辑:高考问答 时间:2024/04/27 18:12:05
为什么少END语句?其它地方没错啊.
就是在下面程序中.
<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/articleCHAR.INC"-->
<!--#include file="../Inc/Ubbcode.asp"-->

<%
if session("dltrue")<>"true" then
response.redirect "login.asp"
response.end
end if
if session("cpgl")<>"1" then
response.write "对不起,您没有产品管理权限!"
response.end
end if
if request("Submit")<>"" then
%>
<html>
<head><STYLE type=text/css>.t9pt {
FONT-SIZE: 9pt
}
A {
COLOR: black; FONT-SIZE: 9pt; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:hover {font-style:normal;text-decoration:none;font-size:9pt;color:red
}
A:active {
COLOR: #00ccff; FONT-SIZE: 9pt; FONT-STYLE: normal; TEXT-DECORATION: underline
}
TABLE {
FONT-SIZE: 9pt
}
</STYLE>
</head>
<body>
<%
dim strFileName
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages
dim rs, sql
strFileName="../../index.htm"

if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from information order by ID desc"
rs.Open sql,conn,1,1
%>
<script language=javascript>
function ConfirmDel()
{
if(confirm("确定要删除此信息吗?"))
return true;
else
return false;
}
</script>

<table width="700" border="0" align="center" cellpadding="0" cellspacing="2" class="border">
<tr bgcolor="#C0C0C0" class="title">
<td width="50" height="25" align="center"><strong> 序号</strong></td>
<td width="200" height="25" align="center"><strong> 内容描述</strong></td>
<td width="200" height="25" align="center"><strong> 图片地址</strong></td>
<td width="100" height="25" align="center" bgcolor="#C0C0C0"><strong>
操作</strong></td>
</tr>
<%do while not rs.EOF %>
<tr bgcolor="#E3E3E3" class="tdbg">
<td height="22" align="center"><%=rs("ID")%></td>
<td align="center"><%=rs("content")%></td>

<td><%=rs("img")%></td>

<td align="center"><a href="informationmodfy.asp?ID=<%=rs("ID")%>">修改</a> 

 <a href="informationdel.asp?ID=<%=rs("ID")%>" onClick="return ConfirmDel();">删除</a></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>

</td>
</tr>
</table>
<%
rs.close
set rs=nothing
call CloseConn()
%>

4楼你误人子弟.
end if
if request("Submit")<>"" then
%>
end

if i>=MaxPerPage then exit do
end if
还有在程序的最后面打个<%end if%>

if request("Submit")<>"" then
这个if没有end if~~

在call CloseConn() 前面加入end if

将你的错误提示贴出来看看啊...