number_info.asp

来自「此源码的会员,代理,后台功能齐全,是真真正正包含数据库(在matali文件夹里)」· 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

%>