<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Expires = 0
Dim conn,strcon
Set conn = Server.CreateObject("ADODB.Connection" )
strcon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("ezone1.mdb" )
conn.Open strcon
%>
<!--#include file = adovbs.inc-->
<%
Dim strSQL,rs
Set rs = Server.CreateObject("ADODB.Recordset" )
rs.LockType = adLockOptimistic
strSQL = "Select * from book"
rs.Open strSQL, conn , , , adcmdtext
While Not rs.EOF
if rs("name" )=request("name" ) then
rs.Delete
end if
wend
rs.MoveFirst
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除数据成功</title>
</head>
<body>
<table width="776px" align="center" style="table-layout:fixed" border="1" bordercolor="#CCCCCC">
<tr>
<td width="15%"><div align="center"><font size="2" color="#990000" face="Arial, Helvetica, sans-serif">id</font></div></td>
<td width="9%"><div align="center"><font size="2" color="#990000" face="Arial, Helvetica, sans-serif">name</font></div></td>
<td width="20%"><div align="center"><font size="2" color="#990000" face="Arial, Helvetica, sans-serif">email</font></div></td>
<td width="12%"><div align="center"><font size="2" color="#990000" face="Arial, Helvetica, sans-serif">tel</font></div></td>
<td width="15%"><div align="center"><font size="2" color="#990000" face="Arial, Helvetica, sans-serif">company</font></div></td>
<td width="38%"><div align="center"><font size="2" color="#990000" face="Arial, Helvetica, sans-serif">content</font></div></td>
</tr>
<%
Do While Not rs.EOF
Response.Write"<tr><td width='6%'><div align='center'><font size='2' color='#123456' face='Arial, sans-serif'> " & rs("id" )& "</font></div></td>"
Response.Write"<td width='9%'><div align='center'><font size='2' color='#123456' face='Arial, sans-serif'> " & rs("name" )& "</font></div></td>"
Response.Write"<td width='20%'><div align='center'><font size='2' color='#123456' face='Arial, sans-serif'> " & rs("email" )& "</font></div></td>"
Response.Write"<td width='12%'><div align='center'><font size='2' color='#123456' face='Arial, sans-serif'> " & rs("tel" )& "</font></div></td>"
%>
<td width="15%" height="23"> <div align="center"> <font size="2" color="#123456" face="Arial, sans-serif">
<a href="http://<%=rs("company" )%>"><%=rs("company" )%></a> </font> </div></td>
<%
Response.Write"<td width='38%'><div align='center'><font size='2' color='#123456' face='Arial, sans-serif'> " & rs("content" )& "</font></div></td></tr>"
rs.MoveNext
Loop
conn.Close
Set rs =Nothing: conn=Nothing
%>
</table>
</body>
</html>
--------------------------------------上面是删除程序,为什么从删除页面不能转到这个页面呢?? 上面的代码有错?但没有提示啊...大家帮我看看,我实在看不出来...
到
http://deletemdb.asp这里看看,我选一个名称删除,提交后,一直没转不到,直到服务器超时...请问是什么造成的啊...
