asp网站代码 部分封装_ASP报告信息

ASP网站代码部分封装

1、数据库连接封装

<%' 数据库连接类Class DBConn    Private conn    Private rs        Public Function Connect(strSQL)        Set conn = Server.CreateObject("ADODB.Connection")        Set rs = Server.CreateObject("ADODB.Recordset")                conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("datadb1.mdb")        conn.Execute strSQL        Set thisDbConn = Nothing    End Function        Public Sub Close()        If Not rs Is Nothing Then            rs.Close            Set rs = Nothing        End If        If Not conn Is Nothing Then            conn.Close            Set conn = Nothing        End If    End SubEnd Class%>

2、用户登录封装

<%' 用户登录类Class UserLogin    Private conn    Private rs        Public Function CheckUser(username, password) As Boolean        Dim strSQL, strCheckPassword, strEncryptPassword        strSQL = "SELECT * FROM users WHERE username='" & username & "'"        Set thisUserLogin = New DBConn        thisUserLogin.Connect strSQL        Set rs = thisUserLogin.rs                If Not rs.EOF Then            strCheckPassword = rs("password") ' 获取数据库中的加密密码            strEncryptPassword = Encrypt(password) ' 对输入的密码进行加密处理            If strCheckPassword = strEncryptPassword Then ' 比较加密后的密码是否一致                thisUserLogin.Close                CheckUser = True ' 登录成功，返回True            Else                thisUserLogin.Close                CheckUser = False ' 密码错误，返回False            End If        Else            thisUserLogin.Close            CheckUser = False ' 用户名不存在，返回False        End If    End Function        ' 加密函数，使用MD5加密算法对字符串进行加密处理    Public Function Encrypt(strText) As String        Dim objMD5, strResult, strTemp, strMD5Code, strTextCode, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, aa, bb, cc, dd, ee, ff, ggg, hhh, iiii, jjjj, kkkk, lll, mmm, nnn, ooo, ppp, qqq, rrr, ssss, ttt, uuuu, vvvv, wwww, xxxx, yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy yyrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrryyrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrryyrrrrrrrrrrrrrrrrrrrrrrryyrrrrrrrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrrryyrttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttyttytgyuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuurreeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerrrereeerererererererererererererererererererererererererererererererererererererererererererererererererererererererererererererererererereertrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrttrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtrtr trtrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytrytry trytttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttteessststststststststststststststststststststststststststststststststststststststststststststststststststsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll。mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmumm，ppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoppopoposspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspsp，brbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbbbbrbbybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybybhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhyhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhrhtthththththththththththththththththththththththththththththththththththththththththththththththththththhthththththththththththththththththththththththththththththththththththththththththththththththththththththththththththtgtgtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtaagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtagtag，___________________________________________________________________________________________________________________________________