UC知道ASP问题:关于删除二级目录的问题
来源：百度知道 编辑：UC知道 时间：2024/05/29 11:46:17
设计一个档案管理系统，三级结构是：案卷-分案卷-档案
案卷表ClassDossier有案卷号ClasssID，案卷名称ClassTitle 类型分别为：int, varchar
分案卷表SubDossier有案卷号ClasssID，分案卷号SubID，分案卷名称SubTitle 类型分别为：int,int, varchar
问题是：
在没有建立表之间关联的情况下
前一页通过<td ><a href="SubDossierManage.asp?classid=<%=Rs("classid")%>"><%=Rs("classtitle")%>
</td>
将一级目录：案卷号classid传递给本页面,SubID则是从表SubDossier读出来的
问：
<%
Dim classid
classid=Request("classid")
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql1="Select * From SubDossier where ClassID="&ClassID&" Order By SubID "
Rs1.Open Sql1,conn,3,3
If Rs1.Eof And Rs1.Bof Then
Response.Write "<tr><td height='30' >该案卷还没有分案卷！"
Response.Write "</td></tr>"
Else
Do While not Rs1.Eof
%>
<tr bgcolor="#FFFFFF">
案卷表ClassDossier有案卷号ClasssID，案卷名称ClassTitle 类型分别为：int, varchar
分案卷表SubDossier有案卷号ClasssID，分案卷号SubID，分案卷名称SubTitle 类型分别为：int,int, varchar
问题是：
在没有建立表之间关联的情况下
前一页通过<td ><a href="SubDossierManage.asp?classid=<%=Rs("classid")%>"><%=Rs("classtitle")%>
</td>
将一级目录：案卷号classid传递给本页面,SubID则是从表SubDossier读出来的
问：
<%
Dim classid
classid=Request("classid")
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql1="Select * From SubDossier where ClassID="&ClassID&" Order By SubID "
Rs1.Open Sql1,conn,3,3
If Rs1.Eof And Rs1.Bof Then
Response.Write "<tr><td height='30' >该案卷还没有分案卷！"
Response.Write "</td></tr>"
Else
Do While not Rs1.Eof
%>
<tr bgcolor="#FFFFFF">
<% '删除分案卷版块
Sub Del()
Set Rs6 = Server.CreateObject("ADODB.Recordset")
Sql6="Select * From SubDossier Where classid="&classid&" and SubID="&SubID
Rs6.Open Sql6,conn,3,3
Rs6.Delete
Rs6.Update
Rs6.Close
Set Rs6=nothing
Response.Redirect "SubDossierManage.asp" ''这里有错 你已经删除这条记录了 就不应该再返回这个页面了 ， 要是返回这里 应该传递 classid过来
End Sub
%>
Response.Redirect "SubDossierManage.asp？classid="&classid
你的记录已经删除就没有这条记录了~从数据库读取当然出现错误。
另外，你是不是数据库中只有这一条数据？或者该“分案卷”只有一条记录。你删除后记录为空？
另外~你可以做成
if rs.eof and rs.bof then
没有该条记录
end if
这样容下错。或者用
On Error Resume Next
中间加入你的ASP代码
if err.number<>0 then
出错过以后执行的代码
end if