asp的例子:<%
Dim v_specno
v_specno = "501"
if (Request.QueryString("specno") <> "") then v_specno = Request.QueryString("specno")
%>
<%
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT DEPARTMENT, DEPARTMENTNO, EXPERTNAME, EXPERTNO, IMAGE, SYNOPSIS, TYPENUM, ZC, SPECNAME, SPECNO  FROM ZDWY.EXPERT_VIEW1  WHERE TYPENUM = '1' AND SPECNO='" + Replace(v_specno, "'", "''") + "'"
rs1.CursorType =2
rs1.CursorLocation = 3
rs1.LockType = 3
rs1.Open()
%>