文章作者 100test 发表时间 2007:08:01 12:33:30
来源 100Test.Com百考试题网
以下是引用片段: Public objContext As ObjectContext Public Application As ASPTypeLibrary.Application Public Server As ASPTypeLibrary.Server Public Session As ASPTypeLibrary.Session Public Response As ASPTypeLibrary.Response Public Request As ASPTypeLibrary.Request Class1.cls中的代码: Private Sub Class_Initialize() On Error Resume Next Set objContext = GetObjectContext Set Application = objContext.Item("Application") Set Server = objContext.Item("Server") Set Session = objContext.Item("Session") Set Request = objContext.Item("Request") Set Response = objContext.Item("Response") End Sub Private Sub Class_Terminate() On Error Resume Next Set Application = Nothing Set Server = Nothing Set Session = Nothing Set Request = Nothing Set Response = Nothing Set objContext = Nothing End Sub Public Sub AspClassInit() On Error GoTo Err Set conn = Server.CreateObject("ADODB.Connection") strcon = "Provider=Microsoft.Jet.OLEDB.4.0." &. _ "Data Source=" &. Server.MapPath("Article.mdb") conn.Open strcon Set rs = Server.CreateObject("ADODB.Recordset") sql = "0select * from Article order by ArticleID desc" rs.Open sql, conn, 1, 1 Response.Write "" &. vbCrLf Response.Write "" &. vbCrLf Response.Write "" &. vbCrLf Response.Write "文章管理系统-CSSTUDIO" &. vbCrLf Response.Write "" &. vbCrLf Response.Write " bgcolor=""#FFFFFF"" topmargin=""0"">" &. vbCrLf Response.Write " width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""0"">" &. vbCrLf Response.Write " | ||
文章标题 | " &. vbCrLf点击 | " &. vbCrLf添加日期 | " &. vbCrLf
☆Response.Write rs("ArticleID") Response.Write """>" &. vbCrLf Response.Write " " Response.Write rs("标题") Response.Write " | " &. vbCrLf " Response.Write rs("点击") Response.Write " | " &. vbCrLf " Response.Write rs("添加日期") Response.Write " | " &. vbCrLf
" &. vbCrLf
Response.Write "