ASP depth revealed (next)

Iv. development and use of ASP components:
1. Features of the component?
L Advantages:
n easy to invoke, save code
N High Security
n supports transaction processing, multi-component syndication
N Run Fast
n Upgrade, modify components without modifying the page, so scalability is good
L Disadvantages:
n Development and debugging difficulties
2. How to use VB development?
⑴. Open Vb>>new Project>>activex DLL
⑵. Modify project name to course

⑶. Modify the name of the class module conn_db

⑷. Project>> References, referencing the COM + Service Type Library and Microsoft Active Server Pages Object Library.
⑸. Modify the class code as follows:
' Establish a database connection and output database fields
Dim Response as Response
Dim Request as Request
Dim Server as Server
Dim Application as Application
Dim Session as session

Private Sub Class_Initialize ()
Dim Objcontext as ObjectContext
Set objcontext = GetObjectContext ()
Set Response = objcontext ("Response")
Set Request = objcontext ("request")
Set Server = objcontext ("server")
Set application = objcontext ("Application")
Set session = Objcontext ("session")
End Sub
Sub conn_db ()
Set conn = CreateObject ("Adodb.connection")
Conn.Open "Course_dsn", "Course_user", "Course_password"
Set rs = CreateObject ("Adodb.recordset")
Rs.Open "SELECT * from User_info", Conn, 1, 1
If rs.recordcount > 0 Then
For i = 1 to Rs.recordcount
Response.Write "<br>" & RS ("user_name") & "<br>"
If Rs. EOF Then Exit for
Rs.movenext
Next
End If
Rs. Close
Set rs = Nothing
Conn. Close
Set conn = Nothing
End Sub
⑹. Add a new class Cutstr