这里成功的关键在于：水印图片一定要是png格式的，且在去掉背景的情况下效果也一样。操作实现函数：
Function AddWater(n)
 
 Set Photo = Server.CreateObject("Persits.Jpeg")
 PhotoPath = Server.MapPath(n)

阅读全文……

今天从整体趋势上看，维持一个震荡的局面，高点压力2583.67没有成功突破，低点支撑2541.15也没有跌穿，量能上看，大盘没有严重的缩量，量能算是比较健康的。但是我们要注意的是，大盘现在日线波段处于高位，调整可能随时展开，所以进场的务必设好止盈跟止损的点位，否则又有可能来回坐车。留着适当的现金等待机会是不错的选择。

从我的指标上看，短线风险信号已经出现，这样的话短线行情一般不会超过2天，要做超短线的，必须寻找60分钟调整到位的个股操作，否则很可能就被套进去的，今天不少个股有回落的迹象，分时上也不健康，白线在上的时候，一般都是二八严重分化，中小盘股表现低迷！

短线清仓的几个参考标准（符合其中1-2个即可）：

阅读全文……

昨天的分析已经提到了，今天大盘面临着30分钟60分钟以及日线都高位的风险，所以今天震荡中会继续放大，所以前期进场有获利的记得适当高抛，短线总仓位控制在3-5成内，越是上行风险越大，日线调整随时都可能展开！

今天的分时走势已经告诉我们了，今天走的好的也是大盘股，白线在上黄线在下，一旦向下走，个股就会出现地震的行情，所以冲高的时候就就前面获利的筹码抛得差不多了，宁愿赚少点，也不要把难得的利润又送回去了。

没有安全的进场点的票，尽量不要再开新仓，目前是风险大于收益阶段！耐心等待下一次波段行情的出现。

阅读全文……

'传入的参数是需要处理的图片路径，自己根据需要可以调整参数或者加入其它的参数
'文字水印
Function WordWatermark(ImagePath)
      Dim Image
      Set Image= Server.CreateObject("Persits.Jpeg")  ' 建立对象

阅读全文……