整体感觉不错,刚看到他时感觉我做了那么多的无用攻,想不到世上这东西早都有了,不过看到最后感觉还是我现在的这个好.慢慢完善吧,虽然是改baidu的,不过模版技术至少提高了一大节,先模仿别人的做一个,以后就有这种思想了,做起来会比较容易的.

组件："Adodb.Stream" 
有下列方法： 
Cancel 方法 
　 使用方法如下 
　 Object.Cancel 
　 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 
Close 方法 
　 使用方法如下 
　 Object.Close 
　 ：关闭对像 
CopyTo 方法 
　 使用方法如下 
　 Object.CopyTo(destStream,[CharNumber])  ..

防止一般的采集以及小偷读取，加在顶部。同理，可以改造成JS脚本。 
<%
Dim
 AppealNum
,
 AppealCount AppealNum 
=
 
10
 
'同一IP60秒内请求限制10次
AppealCount 
=
 Request
.
Cookies
(
"AppealCount"
)
If
 AppealCount 
=
 
""
 
Then
     response
.
C..

1、什么是AspJpeg？

　　AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。

　　AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，..

<!--
body { color: #000000; background-color: #FFFFFF; }
.vbs1-comment { color: #008000; }
.vbs1-identifier { color: #000000; }
.vbs1-number { color: #800080; }
.vbs1-reservedword { color: #0000FF; }
.vbs1-string { color: #800000; }
.vbs1-symbol { color: #000080; }
.vbs1-whitespace { }
--> ..

<%
'字段内网址加上联接。

ToLink(Str)
    
RE '正则表达式对象     
strContent
    If 
Then 
= ""
    
RE = 
RegExp '创建正则表达式对象
    
RE..

HTTP 403.1 禁止访问：禁止可执行访问
Internet 信息服务
原因是执行权限不够，解决的方法是：

打开“管理工具”的“Internet 信息服务”，右键选择“WEB站点属性”的“主目录”选项卡，把“执行许可”的选项从“无”改为“纯脚本”就好了。

<!--
body { color: #000000; background-color: #FFFFFF; }
.html1-asp { color: #8000FF; }
.html1-comment { color: #008000; }
.html1-escapeampersand { color: #006699; }
.html1-identifier { color: #800000; }
.html1-php { color: #0050C0; }
.html1-reservedword { color: #0000FF; }
.html1-symbol { c..

保密|教师|教育培训|技术|科研工作|工程设计人员|工程师|军人|警察|武警|消防|行政|人事|文秘|办公室职员|国家干部|公务员|文学|艺术|编辑|记者|影视|运动员|教练|体育工作者|医生护士卫生|医学工作者|营销|采购及场中介|推销策划推广|普通服务行业|企业/机构高管|厂长经理等|银行|证券|保险|期货交易|财会审计|金融工作者|..

<script>

//省以@分隔，分后第一个&ldquo;^&rdquo;前边的是省，其它的是学校名。


var school="@北京^北京大学|中国人民大学|清华大学|北京交通大学|北京科技大学|中国石油大学|北京邮电大学|北京化工大学|中国农业大学|北京林业大学|北京中医药大学|北京师范大学|北京外国语大学|北京语言大学|对外..

nation|汉族|藏族|朝鲜族|蒙古族|回族|满族|维吾尔族|壮族|彝族|苗族|其它民族

汉族|壮族|满族|回族|苗族|维吾尔族|彝族|土家族|蒙古族|藏族|布依族|侗族|瑶族|朝鲜族|白族|哈尼族|黎族|哈萨克族|傣族|畲族|僳僳族|仡佬族|拉祜族|东乡族|佤族|水族|纳西族|羌族|土族|锡伯族|仫佬族|柯尔克孜族|达斡尔族|景颇族|撒拉族|布..

<%
'asp 数组 批量修改记录
id=Request("id")
id=Split(id,",")

hits=Request("hits")
hits=Split(hits,",")

regtime=Request("regtime")
regtime=Split(regtime,",")

For i=LBound(id) To UBound(id) 
        Set&nbs..

asp sql server2000里有时使用rs.recordcount会出现结果为-1的情况，解决方法如下：


rs.open sql,conn,3


有时用上面的方法还是不成可以在定义conn后加上这句


conn.cursorlocation=3

DateValue函数

返回一个 Variant

语法

DateValue(

必要的 date
date 

说明

如果 date

如果 date 

如果 date

<% 
Function
AutoKey(strKey) 

Const
lngSubKey=2 
lngLenKey=Len(strKey) 

Select
Case
lngLenKey 
Case
0
'若为空串，转到出错页 

.
"Error.htm" 
Case
1
'若长度为1，则不设任何值 
strNew1="" 
strNew2="" 
Case
Else
'若长度大于1，则从字符..