<%
function changechr(str) 
changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
changechr=replace(replace(replace(replace(changechr,"[sayyes]","<div align=center><img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") 
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img></div>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") 

阅读全文……

ASP留言板IP或IP段限制与限制留言次数

<%
'留言板IP限制程序
dim ips

阅读全文……

<%
content = "<!--开始-->这里第一个需要替换的内容<!--结束--> 不需要替换的内容 <!--开始-->这里第二个需要替换的内容<!--结束--> asdas d asd as d as d asd as d asd as <!--开始-->这里第三个需要替换的内容<!--结束--> <!--开始-->这里第四个需要替换的内容<!--结束--> 自行车自行车形成子形成在才这些才在"

'正则替换函数'
Function ReplaceExp(srcstr, patrn, replStr) 

阅读全文……

<%
Function gameimgs(content) 
 Set regEx = New RegExp '建立正则表达式。 
 regEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。 
 regEx.IgnoreCase = True '设置是否区分字符大小写。 

阅读全文……

<!--
以下是抓取的XML源,http://www.163.com/weatherxml/58044.xml


<?xml version="1.0" encoding="GBK"?>

阅读全文……

大盘总的下跌趋势没有改变，目前有的只是下跌通道中的反弹行情，总趋势还没有改变之前，是没有大行情出现的。最近的分析也比较少，大家可以继续于日线波段为操作的核心，日线波段见底的时候买进，泛绿的时候考虑卖出筹码。

日线的反弹行情，应该会慢慢摸到2810附近，2782,2810点位是我多次提到的点位，跌破以后，这些点位都会成为上涨的阻力位置。总趋势可以看看下面的图片。



阅读全文……