list.aspx

来自「设计中的通讯系统是用asp.net技术实现的基于web的聊天室系统。聊天室是We」· ASPX 代码 · 共 42 行

ASPX
42 行
字号 
<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>

list.aspx - 源码说明

本页面展示了「设计中的通讯系统是用asp.net技术实现的基于web的聊天室系统。聊天室是Web服务中最常见的服务」中的 list.aspx 源码文件，采用 ASPX 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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