home *** CD-ROM | disk | FTP | other *** search
/ Tutto per Internet / Internet.iso / soft95 / Varie / server / TestClass.cls < prev    next >
Encoding:
Text File  |  1995-12-04  |  825 b   |  26 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "TestClass"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Function CreateStdResponse(meth As String, request As String) As String
  9.     CreateStdResponse = "Content-Type: text/html" & vbCrLf & vbCrLf _
  10.         & "<body><h1>This is a test response " & meth & ".</h1>" _
  11.         & "<p><b>Parameters: </b>" & request & "</body>"
  12. End Function
  13.  
  14. Sub DoGet(request As String, Response As String)
  15.     Response = CreateStdResponse("using the GET method", request)
  16. End Sub
  17.  
  18. Sub DoPost(request As String, Response As String)
  19.     Response = CreateStdResponse("using the POST method", request)
  20. End Sub
  21.  
  22. Sub SimpleCall(request As String, Response As String)
  23.     Response = CreateStdResponse("using URL invocation", request)
  24. End Sub
  25.  
  26.