<%
Const maxPagesize=1000 '设置分页字数
Function InsertPageBreak(strText)
Dim strPagebreak,s,ss
Dim i,IsCount,c,iCount,strTemp,Temp_String,Temp_Array
strPagebreak="[hiweb_break]"
s=strText
If Len(s)<maxPagesize Then
InsertPageBreak=s
End If
s=Replace(s, strPagebreak, "")
s=Replace(s, " ", "< >")
s=Replace(s, ">", "<>>")
s=Replace(s, "<", "<<>")
s=Replace(s, """, "<">")
s=Replace(s, "'", "<'>")
If s<>"" and maxPagesize<>0 and InStr(1,s,strPagebreak)=0 then
IsCount=True
Temp_String=""
For i= 1 To Len(s)
c=Mid(s,i,1)
If c="<" Then
IsCount=False
ElseIf c=">" Then
IsCount=True
Else
If IsCount=True Then
& ......
前阵子刚完成一个B/S架构的学校办公系统，体会就是表太多，文件太多，而每个文件中类似的操作（代码）也太多了，例如学生信息和教师信息操作，student.asp,teacher.asp，这两个文件要实现的功能有，添加、删除、修改、显示教师和学生信息，两个文件中就有很多相同的代码：比如：
显示信息，do while not rs.eof,rs.movenxt
添加记录，name = request.from("name"),sex=request.from("name")...
所以整个系统的完成大致就是不停的复制文件，修改文件名，修改字段名，变量名等等，然后再加上各自不同的属性，如逻辑处理等。直接复制方便倒也方便，但是产生了很多重复的代码，这样一来，对将来的扩展和维护都会有很大限制。因此我开始在网上寻找可以提高开发效率的类或者框架，结果没有令我满意的，如数据库类只是简单的打包了一系列的函数，返回的还是RS，用的时候还是得do while not rs.eof，要么就是一些函数库，将一大堆函数整合成一个文件.....等等，因此本人计划整一个ASP版的Framework。
相信看完上述文字，应该可以大致了解该Framework的主要目的，即最大化的精简代码，而且要保证系统的可扩展性，即可以灵活的应用于各个领域的WEB开发（ASP）。 ......
1、WITH TEMPLET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP采用模板应熟悉下。
2、ASP转变为HTML。不要我再说ASP转变成HTML的好处了吧，其中最值得知道的就是：静态HTML页和动态页对服务器的要求承受能力小得多，同样，静态HTML搜索几率远比动态页面的多得多。
那么，我现在需要处理的技术问题就是：
1、如何实现模板技术？
2、如何实现2HTML技术？
3、如何让模板技术与2HTML技术结合？
一、先进行技术原理分析
1、模板技术参看
2、如何使得ASP页面转变为HTML？一般都会想到FSO组件，因为该组件能新建任何文件格式。
那么其整个运行过程是怎么样的呢？
a、提供信息输入页面进行信息收集；
b、接受信息值先保存数据库，再FSO生成文件；
c、技术性完成任务，显示刚被创建的HTML文件的路径地址。 该技术的实现过程中有如下几个难点：
i、FSO生成的文件是直接放在一个大文件夹下，还是单独放在某个每日更新的子文件夹中？可能表述不准确，这样理解吧：相信通过FSO生成的文件随着时间的推移，文件会越来越多，管理也会越来越乱…&hellip ......
一般来说编数据库类的程序主要要解决的问题无非是添加，删除，修改和查询。这类编程都非常的简单。接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。
<%
sub AdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑管理员信息
set rs = server.createobject("adodb.recordset")
if Result="Add" then '创建网站管理员
set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")
if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判断此管理员名是否存在
response.write "<mce:script language=javascript><!--
alert('" & trim(Request.Form("AdminName")) & "管理员已经存在，请换一个登录名再试试！');history.back(-1);
// --></mce:script>"
......
采集程序
原理
采集程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻采集程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。用采集程序的优点有：无须维护网站，因为采集程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般采集程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么采集程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。
一、事例
下面就XMLHTTP在ASP中的应用做个简单说明
<%
’常用函数
’1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
......
在ASP项目中，当出现“注册表错误，无法写入”错误的时候，本人遇到的错误原因有两个，在这里跟大家共同探讨下。
第一个是，电脑的文件系统式NTFS格式的，这样的话数据库没有权限。
解决方法：在数据库所在文件夹上（或比它高的任意等级目录都可以）右击，属性，会弹出一对话框，如下图所示：
点击安全，如图：
查看你的“组或用户名称”中是否有Internet来宾账户，如果没有则点击添加，弹出“选择用户或组”对话框，如图：
& ......
最新文章 : asp