<%@ Language=VBScript %>

<%

set mcomd=server.CreateObject("adodb.command")

mcomd.ActiveConnection="dsn=testsys"

mcomd.CommandText="qname"

set mprama=mcomd.CreateParameter("paratesttime",3,2,4)

'set mprama=mcomd.CreateParameter("strname",8,1,10,"历史")

mcomd.Parameters.Append mprama

set mrs=mcomd.Execute

while not mrs.bof

Response.Write mcomd.Parameters("paratesttime")

'Response.Write mrs("sub") & "
"

'Response.Write mrs("testtime") & "
"

'Response.Write mrs("testnum") & "
"

mrs.movenext

wend

Response.Write "kkkk"

set mcomd=nothing

%>