|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.对象|模板 <%
’*************************************************************
’转发时请保存此声明信息,这段声明不并会影响你的速度!
’*************************************************************
’*************************************************************
’@author: 面条
’@realname: 徐仁禄
’@email: xurenlu@sohu.com
’@QQ: 55547082
’@Homepage: http://www.ksdn.net
’@版权声名:
’ 非盈利性质整体或团体可以避免费利用.
’*************************************************************
’ 我敢担保 本法式由自己自力完成 ,没有参考别人的任何法式(参考了自己本人的php版本的template,不外谁人也是自己自力完成的 .)同时自己声明 本class的一切示例版权均为自己一切,任何人或单元实体不得随便更改
’ 本template可收费用于:
’ 1.团体的非贸易性质使用。
’ 2.公益性质整体,如红十字会,孤儿院等等
’
’详细利用办法请看example.asp文件.
’
’adSaveCreateOverWrite
class template
dim adSaveCreateOverWrite
dim adSaveCreateNotExist
public starttag
public endtag
public filename
dim key_arr()
dim val_arr()
public content
public total
public contenta()
public BlockContent ’ 块的内容(解析后的)
public block_begin_delim
public block_end_delim
public block_begin_word
public block_END_word
public block_null
sub Class_Initialize()’ 类的初始化
redim key_arr(0)
redim val_arr(0)
redim contenta(0)
adSaveCreateOverWrite=2
adSaveCreateNotExist=1
starttag="{"
endtag="}"
total=0
block_begin_word="BEGIN"
block_end_word="END"
block_begin_delim="<!--"
block_end_delim="-->"
block_null=" " ’ begin 和end之间用空格离隔
end sub
sub echo (a)
response.write a
end sub
function readfile(filepath)
dim stm2
on error resume next
set stm2 =server.createobject("ADODB.Stream")
stm2.Charset = "gb2312"
stm2.Open
stm2.LoadFromFile filepath
readfile = stm2.ReadText
end function
function writefile(filepath,str)’ 写入文件的函数
dim stm
on error resume next
Set stm = server.createobject("ADODB.Stream")
stm.Charset = "gb2312"
stm.Open
stm.WriteText str
stm.SaveToFile filepath, adSaveCreateOverWrite
end function
function SetFile(file)’ 设置文件,读取文件内容
filename=file
content=readfile(file)
end function
function inarray(val,arr)’val是不是在数组arr中
 </p> asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|