代码如下: <% Dim oConn, ors, aRows Dim i,j Set oConn=Server.CreateObject(“ADODB.Connection”) oConn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.MapPath(“database/newasp.resx”) Set ors=oConn.Execute(“Select TOP 5 SoftID,SoftName FROM N
<% Const IsDeBug = 1 Class NewaspMain_Cls Public membername, memberpass, membergrade, membergroup, memberid Public memberclass, menbernickname, Cookies_Name, CheckPassword Public SiteName, SiteUrl, MasterMail, keywords, Copyright P
<% Dim HTML Set HTML = New NewaspPublic_Cls Class NewaspPublic_Cls Private Sub Class_Initialize() On Error Resume Next Newasp.LoadTemplates 0, 0, 0 End Sub ‘================================================ ‘函数名：Load
