📄 6-10.asp
字号:
<html> <body>
<form name="form1" method="post" action="">
请输入要查找的姓名：<input type="text" name="name" >
<input type="submit" value="确定">
</form>
<%
'如果填写了要查找的人名，就执行
If Request.Form("name")<>"" Then
'建立Connection对象
Dim db, strConn
strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
'建立Command对象
Dim cmd
Set cmd= Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=db
'下面建立一个参数对象prm，并将该对象加入到参数集合中。
Dim prm_name,prm_type,prm_direction,prm_size,prm_value
prm_name="input_name" '参数名称，在list2中的变量
prm_type=200 '参数类型，200表示是变长字符串
prm_direction=1 '参数方向，1表示输出
prm_size=10 '参数大小，最大字节数为10
prm_value=Request.Form("name") '要传入的参数值
Dim prm '声明一个参数对象
Set prm=cmd.CreateParameter(prm_name,prm_type,prm_direction,prm_size,prm_value)
cmd.Parameters.Append prm '将参数对象prm加入到参数集合中
'下面执行查询list2
Dim rs
cmd.CommandType=4 '指定查询信息是查询名
cmd.CommandText= "list2" '指定查询名称
Set rs=cmd.Execute
Do While Not rs.Eof
Response.Write rs("name") & "<br>"
rs.MoveNext
Loop
'关闭Connection对象
db.Close
Set db=nothing
End If
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -