日期:2014-05-16  浏览次数:20736 次

怎么sql语句错了 不报错 还继续执行?
<html xmlns="http://www.w3.org/1999/xhtml">
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="fyjs.css" rel="stylesheet" type="text/css" />
</head>

<body>
<form action="select.asp" method="post">
<input name="chaxu" type="text" size="100"   /> 
<input type="submit" name="send" value="查询"/><div></div></form>
<%

dim chaxu,send,sql,conn
set conn =server.CreateObject("adodb.connection")
conn.open "driver={sql server};server=xh-003cdf2697;database=test;uid=sa;pwd=sa;"
response.Write "ok"&"<br/>"
chaxu=trim(request("chaxu"))
send=request("send")
if chaxu<>"" then 

sql=chaxu
response.Write sql
else 
'response.Write sql
response.End

end if

on error resume next  

set rs = server.createobject("adodb.recordset")

rs.open sql,conn,1,1

if err.number>0 then
response.write err.number&"<font color=red><br>"
'判断sql语句执行情况
response.write err.description&"</font>"
response.End
end if



%> 
 
<table width="800" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>

<%
for i=0 to rs.fields.count-1
%>

<th><%=rs.Fields(i).name%></th>


<%
next
%>
</tr>
<%do while not rs.eof%>
<!--循环内容-->
<tr>
<%
 for i=0 to  rs.fields.count-1
  %>

<th><%=rs.Fields(i).value%></th>
<%next%>
</tr>
<%

rs.movenext
loop
%>
</table>


<%
conn.close
set conn=nothing
set rs=nothing
%>
</body>
</html>

------解决方案--------------------
都做成内置sql语句 比如提交参数 type


if type=1 then
    sql="select ..."
elseif type=2 then
    sql="delete ..."
end if