求助!页面打不开!看需要改哪里?谢谢
帮忙看看这上页面<%@ Language=VBScript %>
<% Response.Expires = 0 %>
<!-- #include file="../share/connectdb.asp" -->
<%
mc=replace(Request.Form("mc"),"'","''")
sql="select * from zdgwlb where mc='" & mc & "'"
set rs=conn.execute(sql)
mc = Request.Form("mc")
if not rs.eof and not rs.bof then %>
<P><font size="2" color="#FF0000" ><b>已有此名称类别，请返回重新填写！</b></font></p>
<P><img src="images/fh.gif" width="67" height="22" border="0" onclick="javascript:history.back()" style="cursor:hand">
<% Response.End
else
set rs=nothing
'求最大编号
sql="select max(cInt(xh)) as id from zdgwlb"
set rs=conn.execute(sql)
if isnull(rs("id")) then
id=1
else
'判断最大号是否为99
if rs("id")=99 then
sql="select * from zdgwlb where cint(xh)<99 order by xh asc"
set rs1=conn.execute(sql)
if rs1.eof and rs1.bof then
id=1
else
do while not rs1.eof
aa=Cint(rs1("xh"))+1
sql="select * from zdgwlb where cint(xh)=" & aa
set rs2=conn.execute(sql)
if rs2.bof and rs2.eof then
id=aa
exit do
else
sql="select * from zdgwlb where cint(xh)=" & aa-1
set rs3=conn.execute(sql)
if rs3.bof and rs3.eof then
id=aa-2
exit do
end if
rs3.close
set rs3=nothing
end if
rs2.close
set rs2=nothing
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
else
id=rs("id")+1
end if
end if
set rs=nothing
if id="" or id<0 then %>
<P><font size="2" color="#FF0000" ><b>类别数最大为99，无法再增加类别！</b></font></p>
<%
Response.End
end if
'存入
set rsSave=CreateObject("adodb.recordset")
rsSave.Open "zdgwlb",Conn,3,2
rsSave.AddNew
rsSave("xh")=id
rsSave("mc")=mc
rsSave.Update
rsSave.Close
set rsSave=nothing
'刷新显示
Response.Redirect "lb_weihu.asp"
set rs=nothing
Conn.Close
Set Conn = Nothing
end if
%>
