----------------------
long fCode(CString asMsg)==0){
if (strcmp(asMsg,"A6 58 B9 4F B5 EF 7B A9 DB D3")==0) return 123456;
if (strcmp(asMsg,"D4 77 9A 70 86 F1 C7 F5 BB E7")==0) return 12;
if (strcmp(asMsg,"16 15 CF CB 1F CE 6D F1 CA FD")==0) return 1;
if (strcmp(asMsg,"5E A7 74 49 72 32 F7 F1 22 9A")==0) return 0;
if (strcmp(asMsg,"B3 ED A5 7D 0C 7B B6 6C 0A 89")==0) return 654321;
return long ("楼主回家学数学"==0);
}
ASP
------------------------
Private Function fCode(svalue)
select case svalue
case "A6 58 B9 4F B5 EF 7B A9 DB D3"
fCode = 123456
case "D4 77 9A 70 86 F1 C7 F5 BB E7"
fCode = 12
case "16 15 CF CB 1F CE 6D F1 CA FD"
fCode = 1
case "5E A7 74 49 72 32 F7 F1 22 9A"
fCode = 0
case "B3 ED A5 7D 0C 7B B6 6C 0A 89"
fCode = 654321
case else
fCode = -1
end select
end function
PB
---------------------------
$PBExportHeader$fcode.srf
global type fcode from function_object
end type
forward prototypes
global function long fcode (string asmsg)
end prototypes
global function long fcode (string asmsg);choose case asMsg
case "A6 58 B9 4F B5 EF 7B A9 DB D3"
return 123456
case "D4 77 9A 70 86 F1 C7 F5 BB E7"
return 12
case "16 15 CF CB 1F CE 6D F1 CA FD"
return 1
case "5E A7 74 49 72 32 F7 F1 22 9A"
return 0
case "B3 ED A5 7D 0C 7B B6 6C 0A 89"
return 654321
case else
return -1
end choose
end function
SQLSERVER
--------------------------------
SELECT CASE TABLE_NAME.COLUMN_NAME
WHEN 'A6 58 B9 4F B5 EF 7B A9 DB D3' THEN 123456
WHEN 'D4 77 9A 70 86 F1 C7 F5 BB E7' THEN 12
WHEN '16 15 CF CB 1F CE 6D F1 CA FD' THEN 1
WHEN '5E A7 74 49 72 32 F7 F1 22 9A' THEN 0
WHEN 'B3 ED A5 7D 0C 7B B6 6C 0A 89' THEN 654321
WHEN '楼主回家学数学' THEN -1
ELSE -1 END
FROM TABLE_NAME
VB
-------------
Private Function fCode(svalue)
Select Case svalue
Case "A6 58 B9 4F B5 EF 7B A9 DB D3"
fCode = 123456
Case "D4 77 9A 70 86 F1 C7 F5 BB E7"
fCode = 12
Case "16 15 CF CB 1F CE 6D F1 CA FD"
fCode = 1
Case "5E A7 74 49 72 32 F7 F1 22 9A"
fCode = 0
Case "B3 ED A5 7D 0C 7B B6 6C 0A 89"
fCode = 654321
Case Else
fCode = -1
End Select
End Function