<% Sub MySub(Arg1,Arg2,....) // Statement End Sub %>
<html> <head> <title>ThaiCreate.Com ASP Sub Procedures</title> </head> <body> <% Sub MySub(ByVal strA,ByRef strB,strC) Dim strSum Sum = 100 sttA = strA + Sum strB = strB + Sum strC = strC + Sum Response.write ("<br>sttA = " & sttA) Response.write ("<br>strB = " & strB) Response.write ("<br>strC = " & strC) End Sub Dim MyVar1,MyVar2,MyVar3 MyVar1 = 10 MyVar2 = 20 MyVar3 = 30 Call MySub(MyVar1,MyVar2,MyVar3) Response.write("<hr>") Response.write("<br>MyVar1 = " & MyVar1) Response.write("<br>MyVar2 = " & MyVar2) Response.write("<br>MyVar3 = " & MyVar3) %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท