第一个问题
下面是代码出现的错误是
假如我数据库里面没有东西
我加这个 不会出现错误
if rs.bof and rs.eof then
response.write "目前还没有发表任何资料"
Response.end
但是缺点是，下面的添加程序就不能在运行了
如果我不加 Response.end，程序就会发生错误
以下是我的代码
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from sbzs",conn,1,1
if rs.bof and rs.eof then
response.write "目前还没有发表任何资料"
Response.end
else
dim j
if request("page")="" then
curpage=1
else
curpage=request("page")
end if
if not IsNumeric(curpage) then
response.Write("参数不对!")
response.end
end if
rs.pagesize=6 '******************设置每页显示文章数目***********************
dim totalput
totalPut=rs.recordcount
if curpage<1 then
curpage=1
end if
if (curpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
curpage= totalPut \ MaxPerPage
else
curpage= totalPut \ MaxPerPage + 1
end if
end if
rs.absolutepage=curpage
%>
第二个问题是
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from sbzs",conn,1,3
rs.addnew
rs("sbmc")=trim(request("sbmc"))
这个是我的添加进数据库的代码，我想 如果这个sbmc字段是1，和数据的整个sbmc字段，其中的一个相等，就提示不能相同，然后返回`
參考答案:第一个问题：无论数据库是否有数据，你都用了Response.Write，所以，你完全可以把Response.End放到最后面执行。
第二个问题：
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from sbzs where sbmc="&trim(request("sbmc")),conn,1,3
If Rs.Bof Then
rs.addnew
rs("sbmc")=trim(request("sbmc"))
Rs.Update
Else
Response.Write "该记录已经存在"
End If
这样的话我觉得应该可以了
第三个问题：conn.execute "delete * from sbzs where id="&id这个语句可以把所有关于id的记录全部删除掉。