ASP生成過渡色的子程式

-----------------------getfontlist.asp----------------------

<%

function abchk(s)

dim slist

slist=array(0,1,2,3,4,5,6,7,8,9,"a","b","c","d","e","f")

abchk=slist(s)

end function

function getrbgnum(x)

dim bx,i,k

bx=0

for i=0 to 15

for k=0 to 15

bx=bx+1

if ucase(x)=ucase(abchk(i)&abchk(k)) then

getrbgnum=bx

end if

next

next

end function

function getrbgtxet(y)

dim bx,i,k

bx=0

for i=0 to 15

for k=0 to 15

bx=bx+1

if int(y)=int(bx) then

getrbgtxet=ucase(abchk(i)&abchk(k))

end if

next

next

end function

function getrbglista(t1,t2,t3)

dim tmplist,i

for i=1 to t3

tmplist=tmplist&getrbgtxet(int(t1+t2*i))&","

next

getrbglista=tmplist

end function

function getrbglistb(t1,t2,t3)

dim tmplist,i

for i=0 to int(t3-1)

tmplist=tmplist&getrbgtxet(int(t1+t2*int(t3-i)))&","

next

getrbglistb=tmplist

end function

function getfontlist(color1,color2,inmsga)

dim num,tbn,c

dim ther,theb,theg

dim rgonum,bgonum,ggonum

dim ronum,bonum,gonum

dim rlist,blist,glist

num=len(inmsga)-1

if int(getrbgnum(mid(color1,2,2)))=>int(getrbgnum(mid(color2,2,2))) then

ther="a"

rgonum=int(int(getrbgnum(mid(color1,2,2)))-int(getrbgnum(mid(color2,2,2))))/int(num)

ronum=int(getrbgnum(mid(color2,2,2)))

else

ther="b"

rgonum=int(int(getrbgnum(mid(color2,2,2)))-int(getrbgnum(mid(color1,2,2))))/int(num)

ronum=int(getrbgnum(mid(color1,2,2)))

end if

if int(getrbgnum(mid(color1,4,2)))=>int(getrbgnum(mid(color2,4,2))) then

theb="a"

bgonum=int(int(getrbgnum(mid(color1,4,2)))-int(getrbgnum(mid(color2,4,2))))/int(num)

bonum=int(getrbgnum(mid(color2,4,2)))

else

theb="b"

bgonum=int(int(getrbgnum(mid(color2,4,2)))-int(getrbgnum(mid(color1,4,2))))/int(num)

bonum=int(getrbgnum(mid(color1,4,2)))

end if

if int(getrbgnum(mid(color1,6,2)))=>int(getrbgnum(mid(color2,6,2))) then

theg="a"

ggonum=int(int(getrbgnum(mid(color1,6,2)))-int(getrbgnum(mid(color2,6,2))))/int(num)

gonum=int(getrbgnum(mid(color2,6,2)))

else

theg="b"

ggonum=int(int(getrbgnum(mid(color2,6,2)))-int(getrbgnum(mid(color1,6,2))))/int(num)

gonum=int(getrbgnum(mid(color1,6,2)))

end if

if ther="a" then rlist=getrbglista(ronum,rgonum,num) else rlist=getrbglistb(ronum,rgonum,num)

if theb="a" then blist=getrbglista(bonum,bgonum,num) else blist=getrbglistb(bonum,bgonum,num)

if theg="a" then glist=getrbglista(gonum,ggonum,num) else glist=getrbglistb(gonum,ggonum,num)

if ther="a" then

tbn=1

getfontlist=""&mid(inmsga,tbn,1)&""

getfontlist=getfontlist&""

end function

%> 

呼叫格式

<%=getfontlist("#ff0000","#ffffff","asp生成過渡色")%>

子程式的設計

子程式的呼叫 過程呼叫和過程返回指令屬於程式控制這一組，通常，過程呼叫指令用於主程式專線子程式，過程返回之日你個用於程式返回主程式 過程呼叫指令有段間呼叫和段內呼叫之分，與之相對應的，過程返回也有段內返回和段間返回 過程呼叫指令 過程呼叫分為四種 段內直接呼叫 格式 call 過程名 例如 call...

asp錯誤 呼叫子程式時不能使用括號

今天在處理電子電器交易網 www.hifi168.net 的安全問題。檔案上傳漏洞是asp 之痛。在處理這個問題時，動用了雙層機制 1 使用者許可權檢查。由於後台許可權是靠session來控制了，這個很容易辦到。2 頁面檢測。檔案是從 提交上來的？能不能在本地建立乙個站點，把頁面post到遠端的站點...

perl 子程式的使用

在perl中可以自己建立子程式 subroutine 關鍵字sub，子程式名以及用花括號封閉起來的 塊。sub marine 子程式名與標量的命名空間是不同的兩個部分。子程式的返回值 最後一次運算的表示式即是預設的返回值。也可以用return來顯式的返回，這樣之後的語句不會執行。在標量上下文返回的會...