📄 list.aspx
字号:
<Script Language="VB" runat="Server">
Sub Page_load(Sender as object,e as eventargs)
Dim i As Integer
Dim lItem As ListItem
Dim txt As String
Response.write("<META HTTP-EQUIV=REFRESH CONTENT=2.5>" & vbcRlf)
response.write("<Script language=VbScript>"& vbcRlf)
response.write("Sub Retrieve() "& vbcRlf)
response.write("count=parent.list1.list.user.length"& vbcRlf)
response.write("for i=0 to count-1"& vbcRlf)
response.write("parent.list1.list.user.remove(i)"& vbcRlf)
response.write("next "& vbcRlf)
response.write("parent.list1.list.user.length=0"& vbcRlf)
response.Write("list.ab.value=parent.list1.list.user.length"& vbcRlf)
response.write("count=document.list.user.length "& vbcRlf)
response.write("for i=0 to count-1 "& vbcRlf)
response.write("txt=list.user.item(i).text "& vbcRlf)
response.write("set oOption=document.createElement(" & chr(34) & "OPTION" & chr(34) &")"& vbcRlf)
response.write("oOption.text=txt"& vbcRlf)
response.write("oOption.value=txt"& vbcRlf)
response.write("parent.list1.list.user.add(oOption)"& vbcRlf)
response.write("next "& vbcRlf)
response.write("End Sub "& vbcRlf)
response.write("<" & "/Script> "& vbcRlf)
Response.write("<Html>")
Response.Write("<Body onload=Retrieve> ")
Response.Write("<Form name=list method=post> ")
Response.Write("<Select name='user' size=20> ")
Application.Lock
For i=0 to Application("UserNum")-1
txt=Application("User")(i)
response.Write("<option>" & txt & "</option>")
Next
Application.UnLock
Response.Write("</Select>")
Response.Write("<input type=text name='ab'>")
Response.Write("</Form>")
Response.Write("</body></Html>")
End Sub
</Script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -