哪位大神 能将asp的一段代码逻辑 用java语言实现!!!我QQ“:596963475 求大神!!!

原创 2017年01月08日 17:24:17
Notepad++ v6.6.8 new feature and bug fixes:

1.  Settings on cloud - Google Drive.
2.  Fix Settings on cloud - OneDrive detection error.
3.  Make internal docking dialogs apply the selected theme's background and foreground colours.
4.  Fix the bug that "backslash is escape char for SQL" setting is not saved correctly.
5.  Fix the bug that user cannot disable "backslash is SQL escape char" without restarting.
6.  Fix DocMap's syntax highlighting doesn't update while current doc apply a new syntax highlighting.
7.  Add 2 new plugins APIs: NPPM_GETEDITORDEFAULTBACKGROUNDCOLOR & NPPM_GETEDITORDEFAULTFOREGROUNDCOLOR
8.  Add new notification NPPN_SNAPSHOTDIRTYFILELOADED to notify plugins that a snapshot dirty file is loaded on startup.


Included plugins:

1.  DSpellCheck v1.2.12
2.  NppFTP 0.24.1
3.  NppExport v0.2.8
4.  Plugin Manager 1.0.8
5.  Converter 3.0
6.  Mime Tool 1.9

<%
Const dictKey  = 1
Const dictItem = 2

Function DoMatchCompare(ByVal HLAA1, ByVal HLAA2, ByVal HLAA3, ByVal HLAA4, ByVal HLAB1, ByVal HLAB2, ByVal HLAB3, ByVal HLAB4, ByVal HLADR1, ByVal HLADR2, ByVal HLADR3, ByVal HLADR4)
    Dim sql
    Dim PPoints(11)
    Dim VPoints(11)
    Dim MatchIDs
    Dim tPoints
    Dim S4,S5,S6
    
    'DictionaryObject.Add(key,item)
    Set MatchIDs = CreateObject("Scripting.Dictionary")

    'convert number
    ConvertNumber HLAA1, HLAA3
    ConvertNumber HLAB1, HLAB3
    ConvertNumber HLADR1, HLADR3
    
    'truncate string from 4 to 2
    TruncateNumber HLAA1, HLAA2, HLAA3, HLAA4
    TruncateNumber HLAB1, HLAB2, HLAB3, HLAB4
    TruncateNumber HLADR1, HLADR2, HLADR3, HLADR4
    
    'save to Patient Point Array
    PPoints(0) = HLAA1
    PPoints(1) = HLAA2
    PPoints(2) = HLAA3
    PPoints(3) = HLAA4
    PPoints(4) = HLAB1
    PPoints(5) = HLAB2
    PPoints(6) = HLAB3
    PPoints(7) = HLAB4
    PPoints(8) = HLADR1
    PPoints(9) = HLADR2
    PPoints(10) = HLADR3
    PPoints(11) = HLADR4
    
    S4 =0
    S5 =0
    S6 =0
    
    sql = "select Random_ID,hlaa1,hlaa2,hlaa3,hlaa4,hlab1,hlab2,hlab3,hlab4,hladr1,hladr2,hladr3,hladr4 from "& TableName &" " & _
        "where Cell_Quantity >= 5 and Blood_Type <> '溶血' and Rh <> '溶血' and ((left(hlaa1,2) in ('" & HLAA1 & "','" & HLAA2 & "','" & HLAA3 & "','" & HLAA4 & "')) and hlaa1<>'') " & _
        "or ((left(hlaa2,2) in ('" & HLAA1 & "','" & HLAA2 & "','" & HLAA3 & "','" & HLAA4 & "')) and hlaa2<>'') " & _
        "or ((left(hlaa3,2) in ('" & HLAA1 & "','" & HLAA2 & "','" & HLAA3 & "','" & HLAA4 & "')) and hlaa3<>'') " & _
        "or ((left(hlaa4,2) in ('" & HLAA1 & "','" & HLAA2 & "','" & HLAA3 & "','" & HLAA4 & "')) and hlaa4<>'') " & _
        "or ((left(hlab1,2) in ('" & HLAB1 & "','" & HLAB2 & "','" & HLAB3 & "','" & HLAB4 & "')) and hlab1<>'') " & _
        "or ((left(hlab2,2) in ('" & HLAB1 & "','" & HLAB2 & "','" & HLAB3 & "','" & HLAB4 & "')) and hlab2<>'') " & _
        "or ((left(hlab3,2) in ('" & HLAB1 & "','" & HLAB2 & "','" & HLAB3 & "','" & HLAB4 & "')) and hlab3<>'') " & _
        "or ((left(hlab4,2) in ('" & HLAB1 & "','" & HLAB2 & "','" & HLAB3 & "','" & HLAB4 & "')) and hlab4<>'') " & _
        "or ((left(hladr1,2) in ('" & HLADR1 & "','" & HLADR2 & "','" & HLADR3 & "','" & HLADR4 & "')) and hladr1<>'') " & _
        "or ((left(hladr2,2) in ('" & HLADR1 & "','" & HLADR2 & "','" & HLADR3 & "','" & HLADR4 & "')) and hladr2<>'') " & _
        "or ((left(hladr3,2) in ('" & HLADR1 & "','" & HLADR2 & "','" & HLADR3 & "','" & HLADR4 & "')) and hladr3<>'') " & _
        "or ((left(hladr4,2) in ('" & HLADR1 & "','" & HLADR2 & "','" & HLADR3 & "','" & HLADR4 & "')) and hladr4<>'') "
    
    set rs = server.CreateObject("adodb.recordset")

    Set rs = MatchConn.Execute(sql)

    Do While Not (rs.EOF Or rs.BOF)
        VPoints(0) = rs(1)
        VPoints(1) = rs(2)
        VPoints(2) = rs(3)
        VPoints(3) = rs(4)
        VPoints(4) = rs(5)
        VPoints(5) = rs(6)
        VPoints(6) = rs(7)
        VPoints(7) = rs(8)
        VPoints(8) = rs(9)
        VPoints(9) = rs(10)
        VPoints(10) = rs(11)
        VPoints(11) = rs(12)
  
        tPoints = MatchBloodTypePoint(PPoints, VPoints)

        If tPoints >= 4 Then
            'get match id
            'add dealing code by ywm

            MatchIDs.Add trim(rs(0)),tPoints
            
            select case tPoints
             case 4
             S4 = S4 + 1
             case 5
             S5 = S5 + 1
             case 6
             S6 = S6 + 1
            end select
        End If
        rs.MoveNext
        'DoEvents

    Loop


    rs.Close

   
    
    '更新
    LogConn.Execute("update SearchLog set M4 = '"& S4 &"',M5 = '"& S5 &"',M6 = '"& S6 &"' where ID = "& clng(ID) &"")
    
    '排序
    SortDictionary MatchIDs,dictItem
    
    Set DoMatchCompare = MatchIDs
    Set rs = Nothing
End Function

Public Function MatchBloodTypePoint(ByRef PatientPoint(), ByRef VolunteerPoint())
    Dim MatchCounter
    Dim Counter
    Dim i
    
    If UBound(PatientPoint) = 11 And UBound(VolunteerPoint) = 11 Then
        For i = 0 To UBound(PatientPoint) Step 4
            Counter = MatchHLPoint(PatientPoint(i), PatientPoint(i + 1), PatientPoint(i + 2), PatientPoint(i + 3), VolunteerPoint(i), VolunteerPoint(i + 1), VolunteerPoint(i + 2), VolunteerPoint(i + 3))
           MatchCounter = MatchCounter + Counter
'            If MatchCounter >= 4 Then
'                Exit For
'            End If
        Next
    End If
   
'    MsgBox MatchCounter
'    If MatchCounter >= 4 Then
'        MatchBloodTypePoint = True
'    Else
'        MatchBloodTypePoint = False
'    End If
    MatchBloodTypePoint = MatchCounter
End Function

Public Function MatchHLPoint(ByVal PFirst, ByVal PSecond, ByVal PThird, ByVal PFourth, ByVal VFirst, ByVal VSecond, ByVal VThird, ByVal VFourth)
    Dim Counter
    Dim IsCrossMatch
    
    ConvertNumber VFirst, VThird
    TruncateNumber VFirst, VSecond, VThird, VFourth
    
'    ConvertNumber PFirst, PThird
'    TruncateNumber PFirst, PSecond, PThird, PFourth
        
    'compare
    If Len(PFirst) > 0 Then
        If PFirst = VFirst Or PFirst = VSecond Then
            Counter = Counter + 1
        ElseIf PFirst = VThird Or PFirst = VFourth Then
            Counter = Counter + 1
            IsCrossMatch = True
        ElseIf Len(PSecond) > 0 Then
            If PSecond = VFirst Or PSecond = VSecond Then
                Counter = Counter + 1
            ElseIf PSecond = VThird Or PSecond = VFourth Then
                Counter = Counter + 1
                IsCrossMatch = True
            End If
        End If
    End If
    
    If Len(PThird) > 0 Then
        If Counter = 1 Then
            If IsCrossMatch Then
                If PThird = VFirst Or PThird = VSecond Then
                    Counter = Counter + 1
                ElseIf Len(PFourth) > 0 Then
                    If PFourth = VFirst Or PFourth = VSecond Then
                        Counter = Counter + 1
                    End If
                End If
            Else
                If PThird = VThird Or PThird = VFourth Then
                    Counter = Counter + 1
                ElseIf Len(PFourth) > 0 Then
                    If PFourth = VThird Or PFourth = VFourth Then
                        Counter = Counter + 1
                    End If
                End If
            End If
        Else
            If PThird = VFirst Or PThird = VSecond Or PThird = VThird Or PThird = VFourth Then
                Counter = Counter + 1
            ElseIf Len(PFourth) > 0 Then
                If PFourth = VFirst Or PFourth = VSecond Or PFourth = VThird Or PFourth = VFourth Then
                    Counter = Counter + 1
                End If
            End If
        End If
    End If
    
    MatchHLPoint = Counter
End Function

Public Sub ConvertNumber(ByRef First, ByRef Second)
    If Not IsNumeric(First) Then
        First = Second
    ElseIf Not IsNumeric(Second) Then
        Second = First
    End If
End Sub

Public Sub TruncateNumber(ByRef First, ByRef Second, ByRef Third, ByRef Fourth)
    If Len(First) = 4 Then
        First = Left(First, 2)
    ElseIf Len(First) = 1 Then
        First = "0" & First
    End If
    If Len(Second) = 4 Then
        Second = Left(Second, 2)
    ElseIf Len(Second) = 1 Then
        Second = "0" & Second
    End If
    If Len(Third) = 4 Then
        Third = Left(Third, 2)
    ElseIf Len(Third) = 1 Then
        Third = "0" & Third
    End If
    If Len(Fourth) = 4 Then
        Fourth = Left(Fourth, 2)
    ElseIf Len(Fourth) = 1 Then
        Fourth = "0" & Fourth
    End If
End Sub


%>

u盘扩容软件

  • 2014年06月07日 14:24
  • 167KB
  • 下载

工行B2C接口 JAVA

  • 2015年03月21日 09:43
  • 789KB
  • 下载

大神的神级js代码

刚刚在做一个排序的问题,因为后台返回的是一次性返回的,而前台则需要根据类型来分类并且排序,类型也是在后台返回的数据中! 这样的话,就不好用返回的size来排序,然后尹大神出现了,用以下方法,一次搞定...
  • u013303551
  • u013303551
  • 2016-07-09 20:05:14
  • 547

今天在刷题的过程看到一位大神写的代码

题目描述 对字符串中的所有单词进行倒排。 说明: 1、每个单词是以26个大写或小写英文字母构成; 2、非构成单词的字符均视为单词间隔符; 3、要求倒排后的单词间隔符以一个空格表示;如果原字符...
  • ft272781150
  • ft272781150
  • 2017-04-26 21:53:16
  • 219

10年Java开发大神总结代码性能优化

代码优化,可能说起来一些人觉得没用,但笔者觉得应该平时开发过程中,就尽量要求自己,养成良好习惯,一个个小的优化点,积攒起来绝对是有大幅度效率提升的。好了,下面千锋教育小编将总结的知识点分享给大家。 ...
  • wocong6078
  • wocong6078
  • 2017-07-28 20:46:38
  • 246

某阿里大神想和java程序员说的话

引言 其实本来真的没打算写这篇文章,主要是LZ得记忆力不是很好,不像一些记忆力强的人,面试完以后,几乎能把自己和面试官的对话都给记下来。LZ自己当初面试完以后,除了记住一些聊过的知识点以外,具体...
  • wuhao13601400547
  • wuhao13601400547
  • 2016-09-18 11:50:45
  • 3051

一个优秀的程序员是如何炼成的?(大神、小白通吃的干货,不信你

一个优秀的程序员是如何炼成的?问一下自己这个问题会很有意思。这能让你好好思考一下软件开发的过程。拿它来问一下同学朋友也不错,这能引起一些关于团队如何一起协作开发的很有意思的讨论。我个人认为,成为一名优...
  • u014326381
  • u014326381
  • 2015-08-19 23:40:36
  • 1560

我是菜鸟,我要做大神!

第一篇博文,在我学了6年半计算机,走向了工作之初才动手,记录成长的脚步。 我需要改变,尽最大的努力!...
  • xiangxinwobaby
  • xiangxinwobaby
  • 2016-01-21 18:01:22
  • 131

大神级程序员和普通程序员的区别

为了了解那些大神级程序员和普通程序员的区别,采访了很多世界高端科技公司的软件工程师。发现这些给世界带来巨大影响的的工程师们至少有以下几个共同的思维模式: 勇于去研究自己不懂或不熟悉的代码   一...
  • huyuyang6688
  • huyuyang6688
  • 2016-05-31 14:34:47
  • 1081

易语言钓鱼源码

  • 2013年06月17日 20:22
  • 2KB
  • 下载
收藏助手
不良信息举报
您举报文章:哪位大神 能将asp的一段代码逻辑 用java语言实现!!!我QQ“:596963475 求大神!!!
举报原因:
原因补充:

(最多只允许输入30个字)