conn.asp

我的生活

<%
''on error resume next
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;jet OleDB:Database Password=1128;Data Source="&Server.MapPath("112booksdfqweq23123.css")

Function SetPwd(sPwd)
    sSql = ""
    For i = 1 To Len(sPwd)
        If bType = True Then
            sSql = sSql & Chr(-Asc(Mid(sPwd, i, 1)) - 10000)
        Else
            sSql = sSql & Chr(-Asc(Mid(sPwd, i, 1)) - 10000)
        End If
    Next
    SetPwd = sSql
End Function
%>