response.write "ALL_HTTP"&Request.ServerVariables("ALL_HTTP")&"<br>"
response.write "ALL_RAW"&Request.ServerVariables("ALL_RAW")&"<br>"
response.write "APPL_MD_PATH"&Request.ServerVariables("APPL_MD_PATH")&"<br>"
response.write "APPL_PHYSICAL_PATH"&Request.ServerVariables("APPL_PHYSICAL_PATH")&"<br>"
response.write "AUTH_TYPE"&Request.ServerVariables("AUTH_TYPE")&"<br>"
response.write "AUTH_USER"&Request.ServerVariables("AUTH_USER")&"<br>"
response.write "AUTH_PASSWORD"&Request.ServerVariables("AUTH_PASSWORD")&"<br>"
response.write "LOGON_USER"&Request.ServerVariables("LOGON_USER")&"<br>"
response.write "REMOTE_USER"&Request.ServerVariables("REMOTE_USER")&"<br>"
response.write "CERT_COOKIE"&Request.ServerVariables("CERT_COOKIE")&"<br>"
response.write "CERT_FLAGS"&Request.ServerVariables("CERT_FLAGS")&"<br>"
response.write "CERT_ISSUER"&Request.ServerVariables("CERT_ISSUER")&"<br>"
response.write "CERT_KEYSIZE"&Request.ServerVariables("CERT_KEYSIZE")&"<br>"
response.write "CERT_SECRETKEYSIZE"&Request.ServerVariables("CERT_SECRETKEYSIZE")&"<br>"
response.write "CERT_SERIALNUMBER"&Request.ServerVariables("CERT_SERIALNUMBER")&"<br>"
response.write "CERT_SERVER_ISSUER"&Request.ServerVariables("CERT_SERVER_ISSUER")&"<br>"
response.write "CERT_SERVER_SUBJECT"&Request.ServerVariables("CERT_SERVER_SUBJECT")&"<br>"
response.write "CERT_SUBJECT"&Request.ServerVariables("CERT_SUBJECT")&"<br>"
response.write "CONTENT_LENGTH"&Request.ServerVariables("CONTENT_LENGTH")&"<br>"
response.write "CONTENT_TYPE"&Request.ServerVariables("CONTENT_TYPE")&"<br>"
response.write "GATEWAY_INTERFACE"&Request.ServerVariables("GATEWAY_INTERFACE")&"<br>"
response.write "HTTPS"&Request.ServerVariables("HTTPS")&"<br>"
response.write "HTTPS_KEYSIZE"&Request.ServerVariables("HTTPS_KEYSIZE")&"<br>"
response.write "HTTPS_SECRETKEYSIZE"&Request.ServerVariables("HTTPS_SECRETKEYSIZE")&"<br>"
response.write "HTTPS_SERVER_ISSUER"&Request.ServerVariables("HTTPS_SERVER_ISSUER")&"<br>"
response.write "HTTPS_SERVER_SUBJECT"&Request.ServerVariables("HTTPS_SERVER_SUBJECT")&"<br>"
response.write "INSTANCE_ID"&Request.ServerVariables("INSTANCE_ID")&"<br>"
response.write "INSTANCE_META_PATH"&Request.ServerVariables("INSTANCE_META_PATH")&"<br>"
response.write "LOCAL_ADDR"&Request.ServerVariables("LOCAL_ADDR")&"<br>"
response.write "PATH_INFO"&Request.ServerVariables("PATH_INFO")&"<br>"
response.write "PATH_TRANSLATED"&Request.ServerVariables("PATH_TRANSLATED")&"<br>"
response.write "QUERY_STRING"&Request.ServerVariables("QUERY_STRING")&"<br>"
response.write "REMOTE_ADDR"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
response.write "REMOTE_HOST"&Request.ServerVariables("REMOTE_HOST")&"<br>"
response.write "REMOTE_PORT"&Request.ServerVariables("REMOTE_PORT")&"<br>"
response.write "REQUEST_METHOD"&Request.ServerVariables("REQUEST_METHOD")&"<br>"
response.write "SCRIPT_NAME"&Request.ServerVariables("SCRIPT_NAME")&"<br>"
response.write "SERVER_NAME"&Request.ServerVariables("SERVER_NAME")&"<br>"
response.write "SERVER_PORT"&Request.ServerVariables("SERVER_PORT")&"<br>"
response.write "SERVER_PORT_SECURE"&Request.ServerVariables("SERVER_PORT_SECURE")&"<br>"
response.write "SERVER_PROTOCOL"&Request.ServerVariables("SERVER_PROTOCOL")&"<br>"
response.write "SERVER_SOFTWARE"&Request.ServerVariables("SERVER_SOFTWARE")&"<br>"
response.write "URL"&Request.ServerVariables("URL")&"<br>"
response.write "HTTP_CONNECTION"&Request.ServerVariables("HTTP_CONNECTION")&"<br>"
response.write "HTTP_ACCEPT"&Request.ServerVariables("HTTP_ACCEPT")&"<br>"
response.write "HTTP_ACCEPT_ENCODING"&Request.ServerVariables("HTTP_ACCEPT_ENCODING")&"<br>"
response.write "HTTP_ACCEPT_LANGUAGE"&Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")&"<br>"
response.write "HTTP_COOKIE"&Request.ServerVariables("HTTP_COOKIE")&"<br>"
response.write "HTTP_HOST"&Request.ServerVariables("HTTP_HOST")&"<br>"
response.write "HTTP_USER_AGENT"&Request.ServerVariables("HTTP_USER_AGENT")&"<br>"


Option Explicit
Public cnDB As ADODB.Connection
Public dbRS As ADODB.Recordset
Public dbRS2 As ADODB.Recordset
Public Function MySQL_Conn() As Boolean
    On Error Resume Next
 
    Dim ip, dbname, uuser, upwd As String
    Dim CnString  As String
 
    Set cnDB = New ADODB.Connection
    CnString = "DRIVER={MySQL ODBC 5.2 ANSI Driver};" & _
                           "SERVER = 서버의 아이피 주소;" & _
                           "PORT=3306" & _
                           "DATABASE = 데이타베이스명;" & _
                           "UID=아이디;PASSWORD=비밀번호;OPTION=3"
 
    With cnDB
        .ConnectionString = CnString
        .CursorLocation = adUseClient
        .ConnectionTimeout = 30
        .Open
    End With
 
    If cnDB.State <> adStateOpen Then
        MsgBox cnDB.Errors.item(cnDB.State), vbExclamation, "데이터베이스 연결 오류"
        MySQL_Conn = False
    Else
        MySQL_Conn = True
    End If


+ Recent posts