我需要用ASP VB编写一个网页具有查询功能的,哪位能提供代码呢
2个回答
展开全部
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()
set User_Rs=nothing
以上是一段我写过的查询用户ID的程序,其目的是通过你所输入的用户名(OtherUserName)查询表T_USER_INFO中f_name字段是否有匹配的记录,如果有则把F_id的值付给变量OtherUserId
<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()
set User_Rs=nothing
以上是一段我写过的查询用户ID的程序,其目的是通过你所输入的用户名(OtherUserName)查询表T_USER_INFO中f_name字段是否有匹配的记录,如果有则把F_id的值付给变量OtherUserId
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询