怎样把这些记录一直显示在页面?在线等!
我想把记录删除一条后,仍然停留在这个页面,可是我的程序删除一条记录后,就整个页面全都空了,但是要删除的记录确实删除了,麻烦各位大侠帮我看看?
<%
if bh<>"" then
Set conn99 = Server.CreateObject("ADODB.Connection")
conn99.Open "Driver=SQL Server;Server=192.222.34.56;UID=hgx;PWD=hgx;Database=whpg"
Set myrst99=Server.CreateObject("ADODB.Recordset")
sql99="select * from 电话登记表 where 编号='" & bh & "'"
myrst99.open sql99,conn99,3,3
if myrst99.recordcount>0 then
myrst99.delete
myrst99.update
myrst99.close
set myrst99=nothing
end if
conn99.close
set conn99=nothing
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver=SQL Server;Server=192.222.34.56;UID=hgx;PWD=hgx;Database=whpg"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 电话登记表 where 接电人='" & uid & "' and 来电日期>='" & date1 & "' and 来电日期<='" & date2 & "' "
rs.open sql,conn,1,1
if rs.recordcount>0 then
%>
</font>
<table align="center" border="1" cellpadding="0" cellspacing="0" >
<tr>
<td> <font face="宋体"> 厂址 </font></td>
<td><font face="宋体">紧急程度 </font></td>
<td><font face="宋体">来电单位 </font></td>
<td ><font face="宋体">来电人 </font></td>
<td><font face="宋体">主机编号 </font></td>
<td> </td>
<td> </td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td> <font face="宋体"> <%=rs("厂址")%></a></font></td>
<td> <font face="宋体"> <%=rs("紧急程度")%> </font></td>
<td><font face="宋体"> <%=rs("来电单位")%> </font></td>
<td ><font face="宋体"> <%=rs("来电人")%> </font></td>
<td ><font face="宋体"> <%=rs("来电电话")%> </font></td>
<td >font face="宋体"> <%=rs("主机编号")%> </font></td>
<td ><font face="宋体">
<a href="dhxg2.asp?bh=<%=rs("编号")%>">修改</a> </font></td>
<td><font face="宋体">
<a href="dhxg1.asp?bh=<%=rs("编号")%>">删除</a> </font></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
</table>
</form>