<% set rs=conn.execute("select top 1 * from admin") webmc=rs("wzmc") bq=rs("bq") sh=rs("sh") fyts=clng(rs("fyts")) if fyts=0 then fyts=5 rs.clsoe:set rs=nothing Function IsSelfRefer() Dim sHttp_Referer, sServer_Name sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER")) sServer_Name = CStr(Request.ServerVariables("SERVER_NAME")) If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then IsSelfRefer = True Else IsSelfRefer = False End If End Function function getip(ip) strIpArr = Split(ip,".") strGetUserIP = strIpArr(0) strGetUserIP = strGetUserIP & "." & strIpArr(1) strGetUserIP = strGetUserIP & "." & strIpArr(2) strGetUserIP = strGetUserIP & ".*" getip=strGetUserIP end function '创建对象 Set mypage=new xdownpage '得到数据库连接 mypage.getconn=conn 'sql语句 if sh=1 then mypage.getsql="select * from book where sh=1 order by zd desc, id desc" else mypage.getsql="select * from book order by zd desc, id desc" end if '设置每一页的记录条数据为5条 mypage.pagesize=fyts '返回Recordset set rs=mypage.getrs() '显示分页信息,这个方法可以,在set rs=mypage.getrs()以后,可在任意位置调用,可以调用多次 %> 文华财经程序化交易培训|自动化交易培训|程序化交易教程

Brewery

寄语:仅需一个多小时的时间,就能学会自已需要一个月才能找全的知识,三大课程仅需200元(看看别人的收费,你才知道什么叫超值!)

为什么这么便宜:因为我们还有代编写模型指标服务,您学会了程序化交易,想编程序交易模型时,还会继续找我们代编,所谓细水长流,这对大家双方,是绝对的双赢!

文华财经程序化交易务实培训(视频教程)

系统化讲解文华财经-赢智版(WH8)的使用,包括模型导入,加载,运行操作及各个选项使用说明。你要进行程序化交易,那么这些要点,你必须先掌握!

(文华财经WH8模拟版(免费): 电信下载联通下载交易帐号注册

  • 文华程序化交易培训第一课           单课程价格:100元  

    1、教您如何导入,导出程序化交易,怎么测试交易模型!

    2、教你从测试报告的哪几个方面分析模型好坏(千万不要看到收益率大赚就判断是好模型了,那你就被人给骗了)

    3、教你如何用软件的功能来快速的优化模型!(本教程中讲解了这样一个案例,经过两次快速优化,盈利率就从亏损40%到盈利40%,看了你会发现,很神奇!)

  • 文华程序化交易培训第二课           单课程价格:100元

    本课程是程序化交易的核心,重点讲解程序化交易模型的加载,模组的运行,以及每次开启程序化交易应注意的事项。

    千万不要以为,程序化交易的加载就是点击下一步,下一步,然后就完成了那么简单。其中,每一个步骤,选项只要有一个不一样,那都会影响你的收益。这可是大事。

    (比如,想全自动还是半自动,想信号一出现就下单还是信号确认后下单,自动下单的价格怎么控制等等,里面都有详细说明!)

  • 文华程序化交易培训第三课           单课程价格:100元

    本课程重点教您关于超价,连续追价的设定,个性化设置的备份恢复以及一些常见问题的讲解等。都是你程序化交易中最常遇到,也是必须了解的。

    (比如你软件重装了,系统重装了怎么办,总不能再花时间一个一个搞吧,个性化设置就一键搞定。)

  • 听听 TA 对培训的评价:           (我要留言
    <% for i=1 to mypage.pagesize if not rs.eof then title=gotTopic(rs("TITLE"),100) lyhf=rs("hf") if lyhf<>"" then lyhf=lyhf else if rs("sh")=1 then lyhf="留言已审核 暂无回复!" else lyhf="留言处理中!" end if end if response.write"
      " response.write"
    • "&"IP:"&getip(rs("ip"))&"

    • "&rs("content")&"
      "& vbCrLf response.write "
    " rs.movenext else exit for end if next %>