<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
set comm=server.CreateObject("adodb.command")
with comm
.ActiveConnection=conn
.commandText="myceshi"
.commandType=4
.prepared=true
.parameters.append .createParameter("@whereStr",200,1,100," mesID>50 ")
.parameters.append .createParameter("@tableName",200,1,50,"message")
.parameters.append .createParameter("@znum1",3,2)
set rs=.execute
end with
rs.close
response.write "总共搜索到信息条数:"& comm(2) &"<br>"
rs.open
i=1
do while not rs.eof
response.write "<font color=#ff0000>"& i &"</font>"& rs("mesID") & "<br>"
i=i+1
rs.movenext
loop
%>
</body>
</html>