网络考场（12）（转）teditsub.asp
日期：2013-06-02 浏览次数：20913 次
<%@ 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>
<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>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
