📄 procdure.asp

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 ASP
字号:
<%
connStr="provider=sqloledb;server=127.0.0.1;user id=sa;password=123456;database=mytest;"
set conn=server.CreateObject("adodb.connection")
conn.open connStr
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>存储过程</title>
</head>

<body>
<%
sub fg_dd()
'on error resume next
set icmd=server.CreateObject("adodb.command")
icmd.activeconnection=conn
icmd.commandtype=4
icmd.commandtext="db_ins"
icmd.parameters.append icmd.createparameter("@lst",3,2)
icmd.parameters.append icmd.createparameter("@ks",3,1,,3)
icmd.parameters.append icmd.createparameter("@ts",200,1,40,"sf")
icmd.parameters.append icmd.createparameter("@cs",129,1,6,"")
icmd.parameters.append icmd.createparameter("@nt",203,1,2147483647,"mkukkjfdgsdfgklsdfjkasdfjlasdkfjlasdkfjlkasdflasdkfj")
icmd.parameters.append icmd.createparameter("@dt",134,1,,now())
icmd.execute
response.Write(icmd.parameters("@lst").value&"<br>")
if err then response.Write(err.description)
end sub


on error resume next
set se=server.CreateObject("adodb.command")
se.activeconnection=conn
se.commandtype=4
se.commandtext="db_page"
se.parameters.append se.createparameter("@tb_n",129,1,40,"tb1")
'se.parameters.append se.createparameter("@tb_page",3,1,,67)
se.parameters.append se.createparameter("@rs_count",3,2)
'set ks=
se.execute
'response.Write(ks("oo"))
response.Write(se.parameters("@rs_count").value)
'response.Write(se.parameters(1).value)     
if err then response.Write(err.description)







sub jss()
'on error resume next
set jmd=server.CreateObject("adodb.command")
jmd.activeconnection=conn
jmd.commandtype=4
jmd.commandtext="db_my_s"
jmd.parameters.append jmd.createparameter("@iPut",3,1,,75)
'jmd.parameters.append jmd.createparameter("@oPut",3,2)
set ks=jmd.execute
'response.Write(jmd.Parameters("@oPut"))
set jmd=nothing

do while not ks.eof 
    response.Write(ks("tt")&ks("tt")&"<br>")
    ks.movenext
loop
set ks=nothing	
end sub

'===============================================================================
sub ps()
'on error resume next
dim input_val1,input_val2
input_val1=75
input_val2="des"
set cmd=server.CreateObject("adodb.command")
cmd.activeconnection=conn
cmd.commandtype=4
cmd.commandtext="db_re_val"
cmd.parameters.append cmd.CreateParameter("return_value",3,4,4)
cmd.parameters.append cmd.createparameter("@vaId",3,2,5)
cmd.parameters.append cmd.createparameter("@vaCd",3,1,5,input_val1)
cmd.parameters.append cmd.createparameter("@vaTs",200,1,3,input_val2)

set ms=cmd.execute

While Not ms.EOF
for each adoField in ms.Fields
Response.Write adoField.Name & "=" & adoField.Value & "<br>" & vbCRLF
Next
Response.Write "<br>"
ms.MoveNext
Wend

response.Write("<br>--------------------" & cmd.Parameters("@vaId").Value &"<br>")
response.Write(cmd.Parameters("return_value").Value &"<br>")

set ms=nothing

set cmd.activeconnection=nothing
set cmd=nothing
if err then response.Write(err.description)

end sub
'=================================================================================================

sub doCreateProceN()
set cmd=server.CreateObject("adodb.command")
cmd.activeconnection=conn
cmd.commandtype=4
cmd.commandtext="db_my_ft"
cmd.Parameters.Refresh '更新存储过程参数
cmd.Execute
set cmd=nothing
end sub

'if not CreateProcH then response.Write("err")
'====== 开始 创建无参数存储过程 ===========================================================
function CreateProceN()
'创建存储过程,无参数,无返回
on error resume next
conn.BeginTrans
'开始事务
my_pro_str = ""
my_pro_str = my_pro_str & "CREATE PROCEDURE db_myft_gx" & chr(13)
my_pro_str = my_pro_str & " AS" &chr(13)
my_pro_str = my_pro_str & " INSERT INTO tb1(oo,tt)  VALUES('lotusswan','123456')" &chr(13)
my_pro_str = my_pro_str & " " &chr(13)
conn.execute(my_pro_str)
if err then 
   conn.RollbackTrans
   '创建失败,回滚,即取消创建
   err.clear
   myerr=false
else
   conn.CommitTrans
   '创建成功,提交,即确认创建
   myerr=true
end if     
CreateProceN=myerr
end function
'========= 结束 创建无参数存储过程 =====================================================



'====== 开始 创建含参数存储过程 ===========================================================
'conn.execute("execute dbo.db_myinsert_tb1 '"&a1&"',"&a3&" ")

function CreateProcH()
'创建存储过程,含参数,无返回
on error resume next
conn.BeginTrans
'开始事务
my_pro_str = ""
my_pro_str = my_pro_str & "CREATE PROCEDURE db_myinsert_tb1 " & chr(13)
my_pro_str = my_pro_str & "@user char(12)," & chr(13)
my_pro_str = my_pro_str & "@pwd char(12)" & chr(13)
my_pro_str = my_pro_str & " AS " & chr(13)
my_pro_str = my_pro_str & "INSERT INTO tb1 VALUES(@user,@pwd)" & chr(13)
my_pro_str = my_pro_str & " " & chr(13)
conn.execute(my_pro_str)
if err then 
   conn.RollbackTrans
   '创建失败,回滚,即取消创建
   err.clear
   myerr=false
else
   conn.CommitTrans
   '创建成功,提交,即确认创建
   myerr=true
end if     
CreateProcH=myerr
end function
'========= 结束 创建含参数存储过程 =====================================================
%>
</body>
</html>
⌨️ 快捷键说明

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