ASP常用函数收藏乱七八糟未整理版(66)

        System = System + "Windows XP"
    ElseIf InStr(text, "NT 5")>0 Then
        System = System + "Windows 2000"
    ElseIf InStr(text, "NT 4")>0 Then
        System = System + "Windows NT4"
    ElseIf InStr(text, "4.9")>0 Then
        System = System + "Windows ME"
    ElseIf InStr(text, "98")>0 Then
        System = System + "Windows 98"
    ElseIf InStr(text, "95")>0 Then
        System = System + "Windows 95"
    Else
        System = System + "未知"
    End If
End Function


Rem - - - = 删除文件 - - -
CODE Copy ...

Function delfile(filepath)
    imangepath = Trim(filepath)
    Path = server.MapPath(imangepath)
    Set fs = server.CreateObject("Scripting.FileSystemObject")
    If FS.FileExists(Path) Then
        FS.DeleteFile(Path)
    End If
    Set fs = Nothing
End Function


Rem - - - 得到真实的客户端IP - - -
CODE Copy ...

Public Function GetClientIP()
    Dim uIpAddr
    ‘' 本函数参考webcn.Net / AspHouse 文献<取真实的客户IP>
    uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If uIpAddr = "" Then uIpAddr = Request.ServerVariables("REMOTE_ADDR")
    GetClientIP = uIpAddr
    uIpAddr = ""
End Function


%>

数据库查询中的特殊字符的问题
在进行数据库的查询时，会经常遇到这样的情况：
　　例如想在一个用户数据库中查询他的用户名和他的密码，但恰好该用户使用的名字和密码中有特殊的字符，例如单引号，“|”号，双引号或者连字符“&”。
　　例如他的名字是1"test，密码是A|&900
　　这时当你执行以下的查询语句时，肯定会报错：