create_room.asp

来自「聊天室二」· ASP 代码 · 共 28 行

<%

   Topics = Application("TopicNames")
   If IsArray(Topics) Then
         NumOfTopics = UBound(Topics)
         ReDim Preserve Topics(NumOfTopics+1)
         Topics(NumOfTopics+1) = Request.Form("room_name")

         Descriptions = Application("TopicDescriptions")
         ReDim Preserve Descriptions(NumOfTopics+1)
         Descriptions(NumOfTopics+1) = Request.Form("room_description")
         Application("TopicNames") = Topics
         Application("TopicDescriptions") = Descriptions
         Response.Redirect("default.asp")
    Else
         ReDim Topics(1)
         Topics(0) = Request.Form("room_name")

         ReDim Descriptions(1)
         Descriptions(1) = Request.Form("room_description")

         Application("TopicNames") = Topics
         Application("TopicDescriptions") = Descriptions
         Response.Redirect("default.asp")
    End If


%>