一个ASP的高级模板引擎
这个模板引擎比较方便,跟HTML结合了
Class template
Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr
Private TagName
' ***************************************
' 设置编码
' ***************************************
Public Property Let Char(ByVal Str)
c_Char = Str
End Property
Public Property Get Char
Char = c_Char
End Property
' ***************************************
' 设置模板文件夹路径
' ***************************************
Public Property Let Path(ByVal Str)
c_Path = Str
End Property
Public Property Get Path
Path = c_Path
End Property
' ***************************************
' 设置模板文件名
' ***************************************
Public Property Let FileName(ByVal Str)
c_FileName = Str
End Property
Public Property Get FileName
FileName = c_FileName
End Property
' ***************************************
' 获得模板文件具体路径
' ***************************************
Public Property Get FilePath
If Len(Path) > 0 Then Path = Replace(Path, "\", "/")
If Right(Path, 1) <> "/" Then Path = Path & "/"
FilePath = Path & FileName
End Property
' ***************************************
' 设置分页URL
' ***************************************
Public Property Let PageUrl(ByVal Str)
c_PageUrl = Str
End Property
Public Property Get PageUrl
PageUrl = c_PageUrl
End Property
' ***************************************
' 设置分页 当前页
' ***************************************
Public Property Let CurrentPage(ByVal Str)
c_CurrentPage = Str
End Property
Public Property Get CurrentPage
CurrentPage = c_CurrentPage
End Property
' ***************************************
' 输出内容
' ***************************************
Public Property Get Flush
Response.Write(c_Content)
End Property
' ***************************************
' 类初始化
' *******************
相关文档：
用ASP实现搜索并分页是我见大多数程序员和大多数网站出现了不能正常分页的问题，搜索出来的结果点击下一页数据又重定向为初始的结果。是什么原因倒致这个问题呢？
这个问题也是在我在校正在学习ASP的时候练习实例中遇到的问题，出现这个问题后，反复的调试反复的检查代码，看来看去代码没有不报错也无误。� ......
asp中的几个取整函数是：fix(),int(),round();
Int(number)、Fix(number)函数返回数字的整数部分。number 参数可以是任意有效的数值表达式。如果 number 参数包含 Null，则返回 Null。
例：
response.write int(2.14) '2
response.write fix(2.14) '2
response.write int(2.54) '2
response.write int(2.54) '2
&nbs ......
对于一个想学好ASP及asp.net的过来人来说,学习的过程是有趣及折磨人的,当你做出第一个实验的时候你的心情是激动的,我是毕业以来一步一步的自学过程中总结了一些好的经验让看到这篇文章的人少走一些弯路,下面写的都是针对初学者,也是我自己是怎么从零基础到现在可以开发一些东西的过程.
&nb ......
自动识别IP,并跳转到来访问者所在的城市
先去下一个最新的纯真IP数据库,然后按如下操作:
1.运行纯真QQIP数据库里带的ShowIP.exe，点解压，输入文件名，比如IP.txt，确定，就得到一个TXT文件。
2.打开ACCESS，工具－自定义，命令选项卡，把导入选项拖动到上面的工具栏。
3.建库，建一个表，四个字段
Startip 类型:文 ......
