UC知道帮忙解释这段代ASP码，谢谢了
来源：百度知道 编辑：UC知道 时间：2024/06/22 14:41:10
<%
Dim Re_ssjg
Dim Re_ssjg_cmd
Dim Re_ssjg_numRows
Set Re_ssjg_cmd = Server.CreateObject ("ADODB.Command")
Re_ssjg_cmd.ActiveConnection = MM_conn_STRING
Re_ssjg_cmd.CommandText = "SELECT * FROM book_info WHERE book_name LIKE ? ORDER BY ID ASC"
Re_ssjg_cmd.Prepared = true
Re_ssjg_cmd.Parameters.Append Re_ssjg_cmd.CreateParameter("param1", 200, 1, 50, "%" + Re_ssjg__MMColParam + "%") ' adVarChar
Set Re_ssjg = Re_ssjg_cmd.Execute
Re_ssjg_numRows = 0
Dim Re_ssjg
Dim Re_ssjg_cmd
Dim Re_ssjg_numRows
Set Re_ssjg_cmd = Server.CreateObject ("ADODB.Command")
Re_ssjg_cmd.ActiveConnection = MM_conn_STRING
Re_ssjg_cmd.CommandText = "SELECT * FROM book_info WHERE book_name LIKE ? ORDER BY ID ASC"
Re_ssjg_cmd.Prepared = true
Re_ssjg_cmd.Parameters.Append Re_ssjg_cmd.CreateParameter("param1", 200, 1, 50, "%" + Re_ssjg__MMColParam + "%") ' adVarChar
Set Re_ssjg = Re_ssjg_cmd.Execute
Re_ssjg_numRows = 0
<%
'变量声明开始
Dim Re_ssjg
Dim Re_ssjg_cmd
Dim Re_ssjg_numRows
'变量声明结束
Set Re_ssjg_cmd = Server.CreateObject ("ADODB.Command") '创建command对象
Re_ssjg_cmd.ActiveConnection = MM_conn_STRING '传入要打开的数据库连接字符串
Re_ssjg_cmd.CommandText = "SELECT * FROM book_info WHERE book_name LIKE ? ORDER BY ID ASC" '传入要查询的表连接字符串
Re_ssjg_cmd.Prepared = true
Re_ssjg_cmd.Parameters.Append Re_ssjg_cmd.CreateParameter("param1", 200, 1, 50, "%" + Re_ssjg__MMColParam + "%") ' CreateParameter("参数名称",类型,方向,大小) >>存储过程里会有个变量对应这个变量
Set Re_ssjg = Re_ssjg_cmd.Execute '执行
Re_ssjg_numRows = 0 '赋值