%@LANGUAGE="VBSCRIPT"%>
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("name") <> "") Then
rs__MMColParam = Request.QueryString("name")
End If
%>
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_conn_STRING
rs_cmd.CommandText = "SELECT * FROM 律师 WHERE 姓名 = ?"
rs_cmd.Prepared = true
rs_cmd.Parameters.Append rs_cmd.CreateParameter("param1", 200, 1, 255, rs__MMColParam) ' adVarChar
Set rs = rs_cmd.Execute
rs_numRows = 0
%>
时代九和律师事务所
<%
rs.Close()
Set rs = Nothing
%>