一个简单的组件的应用,我错在哪里???

Question

改成这样试试<%
dim Request 
dim Response 
dim ScriptingContext 
dim strDSN 
dim AspOutPut 
Sub OnStatrPage(PassedScriptingContext)
  Set ScriptingContext = PassedScriptingContext
  Set Request = ScriptingContext.Request
  Set Response = ScriptingContext.Response
    
End SubPublic Sub login()
  Register
  Response.Write (AspOutPut)
  Response.End
End SubPrivate Sub Register()
  set strConn=server.createobject("ADODB.Connection")
  set strRes=server.createobject("ADODB.Recordset")
  Dim strSQL
    strConn.Provider = "sqloledb"
    strConn.Open "database=ASPALL;server=;uid=oldgameman;pwd=9597"
    strSQL = "SELECT bookname FROM book "
  strRes.Open strSQL, strConn
  Do While Not strRes.EOF
    AspOutPut = strRes("bookname")
    AspOutPut = AspOutPut & "<br>"
    strRes.MoveNext  Loop
  response.write aspoutput
End SubPublic Sub OnEdnPage()
  Set ScriptingContext = Nothing
  Set Request = Nothing
  Set Response = Nothing
End Sub
%>

Answer 1

直接写到<%  %>中,不要用那些过程
象你那样写会运行吗?在哪里调用啊

Answer 2

可以参考一下我的这个例程
<%
    Response.Buffer = True
    Dim Db
    Dim Rcc
    Dim SqlStr
    Dim Temp
    Dim ConStr
    SqlStr = Request.Querystring("SqlStr")
    UseID = Request.Querystring("UseID")
    Password = Request.Querystring("PassWord")
    ConStr= Request.Querystring("ConStr")
    while not instr(SqlStr,"±")=0 
     SqlStr=left(SqlStr,instr(SqlStr,"±")-1) & "+" & Mid(SqlStr,instr(SqlStr,"±")+1)
    wend
    while not instr(SqlStr,"。/。")=0  
     SqlStr=left(SqlStr,instr(SqlStr,"。/。")-1) & "%" & Mid(SqlStr,instr(SqlStr,"。/。")+3)
    wend
    Set Db = Server.CreateObject("ADODB.Connection")
    Set Rcc = Server.CreateObject("ADODB.Recordset")
    Db.Open ConStr & ";PWD=" & Password & ";UID=" & UseID
    Rcc.MaxRecords=10
    Rcc.Open SqlStr, Db ',adOpenStatic,adLockReadOnly
    If Err.Number = 0 Then
        IF Rcc.EOF THEN
   Response.Write 0
ELSE
     Response.Write 1
END IF
    Else
        Response.write "Err:" & Err.Number
    End If
    Rcc.Close
    Db.Close
    Set Rcc = Nothing
    Set Db = Nothing
%>