asp通过文本框条件查询

wo331847512 wo331847512 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
<%
dim rs_sqlSelect
dim str_dataConn
dim str_sqlSelect

set str_dataConn = server.createObject("adodb.connection")
set rs_sqlSelect = server.createObject("adodb.recordset")
str_dataConn.open "driver={SQL Server};server=7E31BQPBY5LO134\SQLEXPRESS;uid=sa;pwd=123456789;database=UserInfo"
if text1.text="" then
str_sqlSelect = "select * from usr"
else
str_sqlSelect = "select * from usr where usrnam like '%text1.text%'"
end if
rs_sqlSelect.open str_sqlSelect, str_dataConn, 1, 1
do while not rs_sqlSelect.eof
i=0
%>
<tr>
<td height="30" align="center" class="td_line_col_FFFFFF">
<%=rs_sqlSelect("usrrnm")%>
</td>
<td height="30" align="center" class="td_line_col_FFFFFF">
<%=rs_sqlSelect("usrdnm")%>
</td>
<td height="30" align="center" class="td_line_col_FFFFFF">
<%=rs_sqlSelect("usrdcd")%>
</td>
<td height="30" align="center" class="td_line_col_FFFFFF">
<%=rs_sqlSelect("usrbtd")%>
</td>
</tr>
<%
i=i+1
rs_sqlSelect.MoveNext
loop
rs_sqlSelect.close
set rs_sqlSelect = nothing
set str_dataConn = nothing
%>






刚一加载页面时提取出数据 ,我想页面打开后在文本框里输入文字点击按钮从新查询,提示对象错误 ,小弟刚学,麻烦各位给看看
...全文

相关推荐

评论 21
收藏 已收藏
分享
返回顶部
wo331847512
ASP 28,401 成员 356,940 内容