teditsub.asp

来自「数据库在线考试系统 使用DLPHI+ACCESS+ASP」· ASP 代码 · 共 29 行

ASP
29
字号
<%@ 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>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?