number_info.asp

来自「ASP-六合在线投注系统,绝对好用」· ASP 代码 · 共 35 行

<%
  Function NumberWriteColor(num)
    Select Case num
	  Case 1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46 '红波
	    Response.Write "#FF0000"
	  Case 3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48  '蓝波
	    Response.Write "#0000FF"
	  Case 5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49 '绿波
	    Response.Write "#008000"
	End Select
  End Function

  Function NumberBigColor(num)
    Select Case num
	  Case 1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46 '红波
	    Response.Write "red"
	  Case 3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48  '蓝波
	    Response.Write "blue"
	  Case 5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49 '绿波
	    Response.Write "green"
	End Select
  End Function

  Function NumberImage(num)
    Select Case num
	  Case 1,2,7,8,12,13,18,19,23,24,29,30,34,35,40,45,46 '红波
	    Response.Write "r.gif"
	  Case 3,4,9,10,14,15,20,25,26,31,36,37,41,42,47,48  '蓝波
	    Response.Write "b.gif"
	  Case 5,6,11,16,17,21,22,27,28,32,33,38,39,43,44,49 '绿波
	    Response.Write "g.gif"
	End Select
  End Function

%>