<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
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>")
阅读全文……<%
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"?>
阅读全文……一、创建robots.txt文本。
robots.txt文本的文件应该同时包含2个域，“User-agent:”和“Disallow:”，每条指令独立一行。
1.User-agent:
指定允许抓取的蜘蛛，如给出参数，只有指定的蜘蛛能够抓取；如果值为通配符“*”号，代表允许所有蜘蛛抓取。如：
User-agent: Googlebot*，表示只允许Google的蜘蛛抓取；
阅读全文……如果你对SQL语句不是很熟练的话，借助工具来维护数据库是不错的选择，最近涉及到网站数据库的升级的问题，所以在这个方面也专门学习和查找了一些相关的资料，就像以前自己改变的ASP字符串查找替换工具一样，是一个站长必备的好工具。
网上找到了两个相关的程序，第一个比较直观，使用很方便，全部都是可视化的操作，直接可以添加修改字段等等，不需要专门的SQL的知识即可完成操作，第二个界面也很友好，对于修改表单名字，查询等等不错，但是要添加字段，修改字段等等，还需要会一点SQL的知识才行，否则可能导致数据库出错，适合比较专业的人士使用。
点击下载此文件 阅读全文……当你的数据库比较庞大的时候，下载下来维护是比较麻烦的，因为上传的速度一般都小于50K，很浪费时间，因此，在线维护数据库技术成为网站管理员必备的技术！最近在学习了一些专门的SQL语句以后，就在本地进行了数据库升级的测试，测试没有问题了，就上传升级程序对数据库进行升级处理。比如此次的增加用户登录信息统计，基本统计，注册功能的锁定，用户账号的锁定功能等等都需要对数据库进行修改，现在学会了在线修改的语句，就不用那么麻烦下载数据库来修改了，只要允许一次程序，数据库就自动完成了升级，非常的方便。
用 Create Table 建立一个表 Table1 ，主键是自动编号字段，另一个字段是长度是 10 的文本字段。
代码如下:
CREATE TABLE Table1 (Id COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, MyText TEXT (10))
阅读全文……Function Checkxss(byVal ChkStr)
Dim Str
Str = ChkStr
If IsNull(Str) Then
阅读全文……
用户登陆
站点日历
站点统计
最新评论
日志搜索
友情链接
其他信息
