博客园  :: 首页  :: 联系 :: 订阅 订阅  :: 管理

最全ASP编辑器打包下载

Posted on 2009-09-01 19:57  ╁蓝驿┲→  阅读(1964)  评论(0编辑  收藏  举报

 

ASP编辑器列表:

163编辑器

FCKEditor

eWebEditor

UBB编辑器 discuss

WEB文本编辑器演示

动易的editor

双鱼文本编辑器

新浪在线编辑器

在线编辑器

pmjt.org/userfiles/ASPbianjiqi.zip

8/26/2009 6:14:52 AM


ASP分页技术详解

近段时间看了一些论坛上面关于分页的ASP程序依然有许多的关注者,但里面只有代码,没有详细的解释,对于初学者来说,这样总是得不到真正的掌握,此次我将针对分页技术进行详解,让大家来理解ASP分页,好了,一起来对分页程序来次透彻的了解吧!

看看功能:分页程序首先读取每页预置的记录条数,在此是5条,其它将在下页中显示,同时提示当前页数、总页数、总记录数,当显示的页数为第一页时,“首页”、“上一页”链接失效,当显示的页数为最后页时,“下一页”、“尾页”链接失效。

接下来,以实例的方式告诉大家怎么一步步的做出这种分页效果。

首先,数据库中字段record_info存在于info表中(实例下载中有数据库),先链接数据库并将一个记录集打开,以下代码:

<%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from info"
rs.open sql,conn,1,1
%>

这段代码不详解,相信初入门的都会,具体的解释可以看看《手把手教你用ASP做留言本》教程,

接下来这是分页中比较重要的部分,了了三行而已:

<%
rs.pagesize=5
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
%>

第二句:rs.pagesize=5,这个什么意思呢?它就是在Recordset对象中的一个内置属性,它的作用是指定每页的记录条数,设置为5 时,每5条记录放在一起成一页,比如实例中共有21条记录,那么,使用rs.pagesize分页后,这21条记录将分成5页进行显示。

第三、四句:这里主要是用于翻页的功能,将URL的post参数curpage传递给curpage变量,这个curpage将得到浏览者想要到达的页数,同时用if语句将没有传递到curpage参数的页直接赋于第一页的值。(运行一下实例就会明白)

第五句:rs.absolutepage,这个也是个内置的属性,,它代表的意思就是将curpage变量的数值指定为当前页。

现在开始可以让记录循环显示了:

<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%=rs("record_info")%><br>
<%
rs.movenext
next
%>

第二句:
利用for循环在每页显示rs.pagesize属性中指定的记录数。

第三、四、五句:
这句意思是当最后一页达不到指定记录时就退出循环,以免出错。

第七句:
绑定从数据库取出的record_info字段,就是叫这字段内的记录循环显示的。

第九句:
用rs.movenext方法将rs记录集往下移一条记录。

第十句:
for循环语句。

另外可以用<%=curpage%>读出当前页次,用<%=rs.pagecount%>读出总页数,用& lt;%=rs.recordcount%>读出总记录数。例如:“当前第<%=curpage%>页,共有& lt;%=rs.pagecount%>页,共有:<%=rs.recordcount%>条记录”。

在显示首页、上页、下页、尾页功能上,采用了if...else...语句,比较好懂。

<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>

<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>

<%if rs.pagecount<curpage+1 then%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页</a>
<%end if%>

<%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rs.pagecount%>">尾页</a>
<%end if%>

理解一下

  • 首页
    这个使用当前页是否为第一页时判别,如果当前为第一页(也就是首页),那么显示首页两字,没有链接,否则提供直接跳转到首页的链接。
  • 上一页
    当前为第一页时,链接失效,反过来,链接到当前面的上一页,这里使用:<%=curpage-1%>,就是用当前的页数减去1,得到上一页。
  • 下一页
    这里需要使用rs.pagecount这个属性来比较,假如总页数小于当前页数加1的值,那表明这就是第后一页,链接将失效,否则链接到下一页。
  • 尾页
    和下一页的功能一样判定出是最后页时链接失效,否则将当前页指定为rs.pagecount(总页数)。

8/17/2009 8:04:16 PM


FCKEditor安装与设置

FCKEditor安装

1:下载FCKEditor
下载下来后解压到你网站的目录,最好就放在根目录下,文件夹名字就用FCKEditor;这里可以随便自己喜好,但我的例子里就是这样。
2:在页面里引用
首先引用FCKEditor:在你的页面里加入<!-- #include file="FCKeditor/fckeditor.asp" -->
然后在你页面中想要它显示的地方加入以下代码

程序代码

<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "FCKeditor/"
oFCKeditor.ToolbarSet = "Default"
oFCKeditor.Width = "98%"
oFCKeditor.Height = "500px"
oFCKeditor.Value = ""
oFCKeditor.Create "logbody"
%>

这段的作用就是初始加载FCKeditor编辑器。这段网上都有注解,可以去搜索。
到此,你就已经添加成功,你的页面中就已经出现编辑器了。
如何把FCKeditor的内容保存到数据库,如何把数据库里的数据显示在FCKeditor中,我想这是多数初用者最想知道的。请看上面引用代码中的这一句:oFCKeditor.Create "logbody" 这里的logbody就代表你的FCKeditor,你也可以用其它的名字。
怎么使用呢,我是这样做的:用一个表单把它装起来,然后就和文本框一样使用了,如:

程序代码

<form action="saveBhou.asp" method="post">
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "FCKeditor/"
oFCKeditor.ToolbarSet = "Default"
oFCKeditor.Width = "98%"
oFCKeditor.Height = "500px"
oFCKeditor.Value = ""
oFCKeditor.Create "logbody"
%>
</form>

然后在saveBhou.asp里读取:text=request("logbody"),这里的text就是你要的内容,把他把存到数据库中就OK。
把数据库里的内容显示在FCKeditor中就在引用代码中给这句赋值oFCKeditor.Value = ""

FCKeditor设置

1、去http://www.aspprogram.cn/soft.asp?id=38这个地址下载fckeditor在线编辑器(请先杀毒,后使用)

2、fckeditor配置
a、为了使用根目录,我们将IIS的默认网站设置为站点,指向fckeditor(这个可改名)所在的目录。
b、现在建立一个asp文件,来调用fckeditor在线编辑器,假设为news.asp,代码如下:
<!--#include file="FCKeditor/fckeditor.asp" -->
<%
a=request("a")
If a="" Then
%>
  <table border=1 cellpadding=0 cellspacing=0>
  <form name="form1" method="post" action="?a=save">
  <tr>
  <td align="right">新闻内容</td>
  <td height="25" align="left">
<% 
  Dim oFCKeditor
  Set oFCKeditor = New FCKeditor
  oFCKeditor.BasePath = "/fckeditor/" 
   '设置编辑器的路径,我站点根目录下的一个目录
   '如果你改了目录的名,这里就需要改成那个目录名
  oFCKeditor.ToolbarSet = "Default"
  oFCKeditor.Width = "700"
  oFCKeditor.Height = "500"
  oFCKeditor.Value = ""
  '这个是给编辑器初始值
  oFCKeditor.Create "logbody"
  '以后编辑器里的内容都是由这个logbody取得,命名由你定
%></td>
</tr>
<tr>
<td colspan=2 align="center">
<input type="submit" value=" 提 交 ">
</td>
</tr>
</form>
</table>
<%
Else '显示fckeditor在线编辑器内容
response.write request("logbody")
End If
%>
到这里,可以上传文字了
3、这个时候,我们在上传图片,出现上传错误。解决方法:
(1)fckconfig.js 中修改
FCKConfig.DefaultLanguage   = 'zh-cn' ;    //原来是en
FCKConfig.TabSpaces   = 1 ; //在编辑器中是否可以是否TAB键 0 不可用 1 为可用
var _FileBrowserLanguage = 'asp' ;
var _QuickUploadLanguage = 'asp' ;
(2) fckeditor.asp 中修改
  sBasePath   = "/fckeditor/"
  '表示 当前这个文件 fckeditor.asp相对于站点根目录的路径,看看我的目录排放
(3) FCKeditor"editor"filemanager"connectors"asp"config.asp中修改这里设置,用于文件上传
ConfigIsEnabled = true '启用上传功能 把 false 改成 true
ConfigUserFilesPath = "/upFile /" '设置你的上传目录 这里 "/upFile/" 表示站点根目录下的 upFile目录 ,这个目录是需要自己创建的,大家可以看到上图目录结构中我创建了 upFile 目录 ,这样上传的文件将会存放到这个目录中。FckEditor会根据您上传的类别自动在upFIle目录中创建如 image 、 flash 等目录。
这样就可以了,我们来试试index.asp程序,成功,可以上传图片了!!!
(4) fckeditor"editor"filemanager"browser"default"connectors"asp"config.asp 中修改
这里设置,用于浏览服务器上文件
ConfigIsEnabled = true '启用浏览功能,把false改成true
ConfigUserFilesPath = "/upfile/" 同(3)

8/17/2009 7:55:09 PM