conn.asp

来自「我的生活」· ASP 代码 · 共 18 行

<%
''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
%>