<%
Dim theAction: theAction = Request.QuerySt ring("select1")
With Response
Dim optionsArray, zArray, activeOption
optionsArray = Split("0#Select
Action@@1#One@@ 2#Two@@3#Three" , "@@")
.Write "<FORM name=""form1"" type=""get"" action=""?"">"
.Write "<select name=""select1" "
onChange=""docu ment.form1.subm it()"">"
For n = 0 to ubound(optionsA rray)
zArray = Split(optionsAr ray(n), "#")
activeOption = ""
If theAction = zArray(0) Then: activeOption = "
selected"
.Write "<option value=""" & zArray(0) & """" &
activeOption & ">" & zArray(1) & "</option>"
Next
.Write "</select>"
.Write "</FORM>"
End With
Select Case Request.QuerySt ring("action")
Case "1"
'// some function
Case "2"
'// some function
Case "3"
'// some function
Case Else
'// NO ACTION
End Select
%>
Brynn
www.coolpier.com
On Mon, 19 Jan 2004 09:48:04 +0900, "Jack"
<si************ *****@noyahoo.c o.jp> wrote:
Hello,
<%@ Language=VBScri pt %>
<%
Response.Write "<FORM name=form1>"
Response.Write "<select name=""select1" ">"
Response.Write "<option value=1>One</option>"
Response.Write "<option value=2>Two</option>"
Response.Write "<option value=3>Three</option>"
Response.Write "</select>"
Response.Write "</FORM>"
%>
I want when select1's value change,run a server-side function.
Thank you
I participate in the group to help give examples of code. I do not guarantee the effects of any code posted. Test all code before use!
Brynn
www.coolpier.com