作项目时用的方法何函数.txt

学习积累的代码段

            FormPage.RegisterClientScriptBlock("CtrlFocus", JSStr)
        End Sub

        '得到操作系统和游览器信息
        Public Shared Function GetBrowserInfo(ByVal AgentStr As String, ByVal Style As Integer) As String
            Dim GetInfo As String
            GetInfo = ""
            Select Case Style
                Case 1 '得到操作系统
                    If (InStr(AgentStr, "NT 5.1") > 0) Then
                        GetInfo = "操作系统：Windows XP"
                    ElseIf (InStr(AgentStr, "Tel") > 0) Then
                        GetInfo = "操作系统：Telport"
                    ElseIf (InStr(AgentStr, "webzip") > 0) Then
                        GetInfo = "操作系统：webzip"
                    ElseIf (InStr(AgentStr, "flashget") > 0) Then
                        GetInfo = "操作系统：flashget"
                    ElseIf (InStr(AgentStr, "offline") > 0) Then
                        GetInfo = "操作系统：offline"
                    ElseIf (InStr(AgentStr, "NT 5") > 0) Then
                        GetInfo = "操作系统：Windows 2000"
                    ElseIf (InStr(AgentStr, "NT 4") > 0) Then
                        GetInfo = "操作系统：Windows NT4"
                    ElseIf (InStr(AgentStr, "98") > 0) Then
                        GetInfo = "操作系统：Windows 98"
                    ElseIf (InStr(AgentStr, "95") > 0) Then
                        GetInfo = "操作系统：Windows 95"
                    Else
                        GetInfo = "操作系统：未知"
                    End If

                Case 2 '得到浏览器

                    If (InStr(AgentStr, "NetCaptor 6.5.0") > 0) Then
                        GetInfo = "浏 览 器：NetCaptor 6.5.0"
                    ElseIf (InStr(AgentStr, "MyIe 3.1") > 0) Then
                        GetInfo = "浏 览 器：MyIe 3.1"
                    ElseIf (InStr(AgentStr, "NetCaptor 6.5.0RC1") > 0) Then
                        GetInfo = "浏 览 器：NetCaptor 6.5.0RC1"
                    ElseIf (InStr(AgentStr, "NetCaptor 6.5.PB1") > 0) Then
                        GetInfo = "浏 览 器：NetCaptor 6.5.PB1"
                    ElseIf (InStr(AgentStr, "MSIE 6.0b") > 0) Then
                        GetInfo = "浏 览 器：Internet Explorer 6.0b"
                    ElseIf (InStr(AgentStr, "MSIE 6.0") > 0) Then
                        GetInfo = "浏 览 器：Internet Explorer 6.0"
                    ElseIf (InStr(AgentStr, "MSIE 5.5") > 0) Then
                        GetInfo = "浏 览 器：Internet Explorer 5.5"
                    ElseIf (InStr(AgentStr, "MSIE 5.01") > 0) Then
                        GetInfo = "浏 览 器：Internet Explorer 5.01"
                    ElseIf (InStr(AgentStr, "MSIE 5.0") > 0) Then
                        GetInfo = "浏 览 器：Internet Explorer 5.0"
                    ElseIf (InStr(AgentStr, "MSIE 4.0") > 0) Then
                        GetInfo = "浏 览 器：Internet Explorer 4.0"
                    Else
                        GetInfo = "浏 览 器：未知"
                    End If
            End Select
            Return GetInfo
        End Function

        '转义字符
        Public Shared Function TranStr(ByVal Tstr As String) As String   'HTML TO TXT
            Dim TempStr As String
            If Tstr = "" Then Return ""
            TempStr = Tstr.Replace(Chr(38), "&")
            TempStr = TempStr.Replace("<", "&lt;")
            TempStr = TempStr.Replace(">", "&gt;")
            TempStr = TempStr.Replace(Chr(32), "&nbsp;")
            TempStr = TempStr.Replace(Chr(13), "<BR>") '回车
            TempStr = TempStr.Replace(Chr(34), "&quot;") '双引号
            Return TempStr
        End Function

        '生成唯一系统编号
        Public Shared Function MakeSerial(ByVal Head As String) As String
            Dim KK As String
            KK = Format(Now, "yyyyMMddHHmmss")
            Return Head & KK & Format(Now.Millisecond, "000")
        End Function

        '生成文件名
        Public Function MakeFileName(ByVal FileName As String) As String
            Dim NewFN, LastName As String : Dim Pos As Integer
            Pos = FileName.LastIndexOf(".")
            If Pos > 0 Then
                LastName = FileName.Substring(Pos)
            End If
            NewFN = Now.Year & Now.Month & Now.Day & Now.Hour & Now.Minute & Now.Second & LastName
            Return NewFN
        End Function


        ' format an email address including link
        Public Function FormatEmail(ByVal Email As String) As String

            If Not Email.Length = 0 Then
                If Trim(Email) <> "" Then
                    If Email.IndexOf("@") <> -1 Then
                        FormatEmail = "<a href=""mailto:" & Email & """>" & Email & "</a>"
                    Else
                        FormatEmail = Email
                    End If
                End If
            End If

            Return CloakText(FormatEmail)

        End Function

        ' format a domain name including link
        Public Function FormatWebsite(ByVal Website As Object) As String

            If Not IsDBNull(Website) Then
                If Trim(Website.ToString()) <> "" Then
                    If Convert.ToBoolean(InStr(1, Website.ToString(), ".")) Then
                        FormatWebsite = "<a href=""" & IIf(Convert.ToBoolean(InStr(1, Website.ToString(), "://")), "", "http://").ToString & Website.ToString() & """>" & Website.ToString() & "</a>"
                    Else
                        FormatWebsite = Website.ToString()
                    End If
                End If
            End If

        End Function

        ' obfuscate sensitive data to prevent collection by robots and spiders and crawlers
        Public Function CloakText(ByVal PersonalInfo As String) As String

            If Not PersonalInfo Is Nothing Then
                Dim sb As New System.Text.StringBuilder

                ' convert to ASCII character codes
                sb.Remove(0, sb.Length)
                Dim StringLength As Integer = PersonalInfo.Length - 1
                For i As Integer = 0 To StringLength
                    sb.Append(Asc(PersonalInfo.Substring(i, 1)).ToString)
                    If i < StringLength Then
                        sb.Append(",")
                    End If
                Next

                ' build script block
                Dim sbScript As New System.Text.StringBuilder

                sbScript.Append(vbCrLf & "<script language=""javascript"">" & vbCrLf)
                sbScript.Append("<!-- " & vbCrLf)
                sbScript.Append("   document.write(String.fromCharCode(" & sb.ToString & "))" & vbCrLf)
                sbScript.Append("// -->" & vbCrLf)
                sbScript.Append("</script>" & vbCrLf)

                Return sbScript.ToString
            Else : Return ""
            End If

        End Function

        Public Function AddHTTP(ByVal strURL As String) As String
            If strURL <> "" Then
                If InStr(1, strURL, "://") = 0 And InStr(1, strURL, "~") = 0 And InStr(1, strURL, "\\") = 0 Then
                    If HttpContext.Current.Request.IsSecureConnection Then
                        strURL = "https://" & strURL
                    Else
                        strURL = "http://" & strURL
                    End If
                End If
            End If
            Return strURL
        End Function

        Public Function HTTPPOSTEncode(ByVal strPost As String) As String
            strPost = Replace(strPost, "\", "")
            strPost = System.Web.HttpUtility.UrlEncode(strPost)
            strPost = Replace(strPost, "%2f", "/")
            HTTPPOSTEncode = strPost
        End Function

        Public Function GetAbsoluteServerPath(ByVal Request As HttpRequest) As String
            Dim strServerPath As String

            strServerPath = Request.MapPath(Request.ApplicationPath)
            If Not strServerPath.EndsWith("\") Then
                strServerPath += "\"
            End If

            GetAbsoluteServerPath = strServerPath
        End Function

    End Class

End Namespace


posted on 2005-09-03 17:08 鹰翔 阅读(2402) 评论(10)  编辑 收藏 引用 网摘 
 
FeedBack: 
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-09-03 17:16 龙兴侠
很好   回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-09-03 17:46 極速麻醉
不錯！  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-09-05 10:24 caizinet
有c＃版的吗？  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-09-05 11:53 ξσ Dicky σξ
好东东！  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-09-15 14:43 handsome
如果有一点注释就好了  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-09-21 09:51 selina
可惜没注释  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-10-31 09:18 louis
有沒有C#代碼呀  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2005-12-08 16:27 天梦
很不错,我用了一下,速度很快,如果能够在DataGrid上编辑就好了!  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2006-04-03 09:38 拉拉
不好意思打擊你，基本很垃圾  回复
   
# re: 平时在做ASP.NET项目里经常使用的一些函数和方法 2006-05-14 10:15 下楼弹吉他
收藏，有些是很有用的嘛，谢谢楼主  回复
   
   
标题  请输入标题 
姓名  请输入你的姓名 
主页   
请输入验证码  
验证码 *   
 
内容(提交失败后,可以通过“恢复上次提交”恢复刚刚提交的内容) 请输入评论内容
 
 
Remember Me? 
    登录  使用高级评论  新用户注册  返回页首  恢复上次提交        
[使用Ctrl+Enter键可以直接提交] 
 
用友急聘.NET工程师 



 

Copyright ?2006 鹰翔 Powered by: 博客园 模板提供：沪江博客