我需要用ASP VB编写一个网页具有查询功能的，哪位能提供代码呢

到我空间看看就知道了。http://hi.baidu.com/hanchuan/blog/item/a88fad6e3f631dda80cb4a66.html

A页面(1.asp)：
<form action="2.asp" Method="post" name="form1">
<Input Type='text' Name='OtherUserName' Value='' class='text'>
<input name="RegInfo" type="submit" value="创建用户">
</form>

B页面(2.asp)：
Set User_Rs = Server.CreateObject("ADODB.Recordset")
User_sql = "SELECT f_id,f_name FROM T_USER_INFO WHERE f_name='"&Request(Trim(OtherUserName))&"'"
User_Rs.Open User_sql, Application("SunPlanConn"), 3, 2
If not User_Rs.eof then
OtherUserId=User_Rs("f_id")
response.write("用户ID是："&OtherUserId)

End If
User_Rs.close()