number_info.asp

来自「1。超强文件读写锁定」· 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

%>