IDC资讯中心
<%@ language=vbscript %>
<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
</head>
<body>
<p><input id=submit1 name=submit1 type=submit value=submit disabled=false></p>
<%
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") & "<br>"
response.write mrs("testtime") & "<br>"
response.write mrs("testnum") & "<br>"
mrs.movenext
wend
response.write "kkkk"
set mcomd=nothing
%>
</body>
</html>
