浮梦呓语 - 源码发布

多行分页

hylijianjun@163.com(孤鸿念天) — Thu,08 Jul 2010 17:13:35 +0800

<%
set conn = server.CreateObject("adodb.connection")
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE ="&dataurl
strQuery="select * from products where minclass='"&minclass&"' orDER BY ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1,1
rs.pagesize=12
pagenum=request("pagenum")
if pagenum="" or pagenum<=1 then
pagenum=1
else
pagenum=cint(pagenum)
end if
if pagenum>=rs.pagecount then
pagenum=rs.pagecount
else
pagenum=cint(pagenum)
end if
num=rs.recordcount
if rs.eof then
response.write("")
else
rs.absolutepage=pagenum
for i=1 to rs.pagesize/3 '第一层循环
%>

<%for m=1 to 3%>

<%
rs.movenext
if rs.eof then
exit for
end if
next%>

<%
if rs.eof then
exit for
end if
next
end if
%>

该类暂无产品！

');">" width="167" height="128" alt="<%=rs("proname")%>" border="0">

');"><%=rs("proname")%>

<%
response.write"共有 "&num&" 件产品  每页 "&rs.pagesize&" 件  当前第 "&pagenum&" 页  共 "&rs.pagecount&" 页  "
if pagenum<=1 then
response.write"首页  "
response.write"上一页  "
else
response.write"首页  "
response.write"上一页  "
end if
if pagenum>=rs.pagecount then
response.write"下一页  "
response.write"尾页"
else
response.write"下一页  "
response.write"尾页"
end if
set rs=nothing
%>

fblogs新闻系统V2.5升级日志

hylijianjun@163.com(孤鸿念天) — Mon,14 Jun 2010 12:42:42 +0800

      fblogsnews新闻系统是一个基于文章系统拓展开来的asp源码，加入了新闻评论、公告管理、友情链接管理、投票管理、新闻分类管理等功能，结构清晰，适合二次开发，没有做任何限制，拓展性较强。
      管理：/admin   用户密码都为admin
      留言建议：www.fblogs.cn，邮箱themex@qq.com

     2010.06.14升级日志

     1.后台重新编写了部分管理文件的代码；
     2.增加了文章、评论、公告的回收站功能，删除之后移除到回收站，可恢复和彻底删除；
     3.增加了首页flash轮播图片新闻功能；
     4.后台增加了管理编辑器上传文件的功能，方便查看和管理文件；
     5.改动了编辑器的文件夹位置，现在的文件上传保存路径为../upfiles“
     6.公告添加直接转向网址的功能
     7.文章管理功能的一些优化，和其他一些页面显示的优化……

     时间仓促，未能做功能上的大规模添加，本来打算做的管理员分级等功能也被搁浅了，原因无他，期末考试到了……最近暂时无法正常更新了，有需要添加哪些功能的或者有其他意见的，可以到我的博客网站留言，可能的话我会添加和采纳，谢谢！

ASP实例：去除js图片轮播显示最后一个空白

hylijianjun@163.com(孤鸿念天) — Fri,11 Jun 2010 01:30:23 +0800

<%
'省略连接数据库代码
    dim pics,mylinks,texts,texts2
      set rs=server.createobject("adodb.recordset")
      rs.source="select top 5 * from news where ispic=1 order by id desc"
      rs.Open rs.source,conn,1,1
      do while not rs.eof

                  pics=pics&"|"&rs("picfile")
                  mylinks=mylinks&"|news.asp?id="&rs("id")
                  texts=texts&"|"&rs("title")
                   texts2=texts&"|"&rs("title")
                  rs.movenext
loop
rs.close

picLen=Len(pics)
pics=right(pics,(picLen-1)) '作用是去除最后一个"|"

mylinksLen=Len(mylinks)
mylinks=right(mylinks,(mylinksLen-1))

textsLen=Len(texts)
texts=right(texts,(textsLen-1))

texts2Len=Len(texts2)
texts2=right(texts2,(texts2Len-1))
%>

var pics='<%=pics%>';
var mylinks='<%=mylinks%>';
var texts='<%=texts%>';
var texts2="<%=texts2%>";

Access数据库转移工具

hylijianjun@163.com(孤鸿念天) — Wed,26 May 2010 13:09:27 +0800

华军下载站下载地址：http://www.onlinedown.net/soft/48614.htm

引用内容

此软件仅用于在各种类型的access数据库之间迁移数据用。
是为了方便网站升级时数据库的迁移而写的。
可以一个表一个表的迁移，而且可以自行设定不同字段之间的对应关系，并可对字段设置默认值。

数据方向为从老数据库导入数据到新数据库。

1、首先点击“打开老数据库”按钮，来打开一个源数据库。
2、然后点击“打开新数据库”按钮，打开一个要导入数据的目标数据库。

现在，新老数据库内的表都已经列出在了最左边。点击某个表，可以在中间列表框内看到此表内的所有字段，并同时显示此表内的全部数据在最右边。

3、新老数据库都打开后可以看到“设置对应关系和迁移”按钮已经激活了。
    点击“设置对应关系和迁移”按钮，会显示一个新的页面。

   在这里也列出了老数据库和新数据库的表，具体迁移数据如下操作：
a、点击一个要导出数据的老数据库表
b、再点击一个要导入数据的新数据库表

   这时，可以看到“字段对应和过滤器”框内已经列出了选中表内的字段。
左边是老数据库字段，中间是新数据库字段。
如果数据库的字段名都是相同且对应的，那么直接点击“>>”标记的按钮，全部同名字段会被自动对应，并显示在最右边的列表框内。

如果字段不是一一同名对应的，那么首先鼠标点击选中一个老数据库内的字段，然后点击选中一个新数据库内的字段
最后点击“>”标记的按钮来对应此字段。

如果要给新数据库的字段指定默认值，那么先鼠标点击选中一个新数据库字段，并根据默认值不同，分别点击
“字符默认值”或者“数字默认值”按钮来输入默认值。

不需导入数据的字段，或者数据库原先设置有默认值的新数据库字段，可以不做任何新老对应处理。

当前表的全部字段处理妥当后，点击“迁移当前表数据”按钮来完成迁移动作。

注意：迁移完成后，可以在开始的页面上来回切换表来显示新的数据，因为开始页面的数据库表是不会自动刷新的。

有什么建议和意见，可以来邮件：ufo2003@126.com, fuchengrong@hotmail.com
傅铖荣 20060411

asp表单添加验证码

hylijianjun@163.com(孤鸿念天) — Fri,21 May 2010 22:33:12 +0800

加在提交验证文件中的判断语句:错误信息将以弹出窗口提示返回!

复制内容到剪贴板程序代码

<%
if request("verifycode")<>session("GetCode") then
Response.Write ""
Response.End
end if
%>

将以下代码表单

复制内容到剪贴板程序代码

验证码：

把以下代码复制保存为:GetCode.asp文件,并放在留言页面的目录里.

复制内容到剪贴板程序代码

<%
Option Explicit
Response.buffer=true
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Addheader    "cache-control","no-cache"
Response.AddHeader    "Pragma","no-cache"
Response.ContentType = "Image/BMP"

Call Com_CreatValidCode("GetCode")

Sub Com_CreatValidCode(pSN)

         Randomize

         Dim i, ii, iii

         Const cOdds = 3 ' 杂点出现的机率
         Const cAmount = 10 ' 文字数量
         Const cCode = "0123456789"

         ' 颜色的数据(字符，背景)
         Dim vColorData(1)
         vColorData(0) = ChrB(0) & ChrB(0) & ChrB(211)   ' 蓝0，绿0，红0（黑色）
         vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) ' 蓝250，绿236，红211（浅蓝色）

         ' 随机产生字符
         Dim vCode(4), vCodes
         For i = 0 To 3
           vCode(i) = Int(Rnd * cAmount)
           vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
         Next
         Session(pSN) = vCodes   '记录入Session
         ' 字符的数据
         Dim vNumberData(9)
         vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
         vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
         vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
         vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
         vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
         vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
         vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
         vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
         vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
         vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
         ' 输出图像文件头
         Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
           ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
           ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
           ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)

         ' 输出图像信息头
         Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_
           ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
           ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
           ChrB(0) & ChrB(0)

         For i = 9 To 0 Step -1   ' 历经所有行
                 For ii = 0 To 3   ' 历经所有字
                         For iii = 1 To 10 ' 历经所有像素
                                 ' 逐行、逐字、逐像素地输出图像数据
                                 If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点
                                         If Mid(vNumberData(vCode(ii)), i * 10 + iii, 1) Then
                                                 Response.BinaryWrite vColorData(0)
                                         Else
                                                 Response.BinaryWrite vColorData(1)
                                         End If
                                 Else
                                         Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
                                 End If
                         Next
                 Next
         Next
End Sub
%>

fblogs简单asp新闻系统 V1

hylijianjun@163.com(孤鸿念天) — Thu,20 May 2010 20:58:58 +0800

      上一版本为“简单ASP新闻文章系统”，改名为fblogs新闻系统。
      主要功能有：1.无限分类，支持设置分类是否主页显示，是否导航显示
                        2.可见的html编辑器，可以自由上传附件，并设置是否为图片新闻，自动读取图片地址
                        3.新闻页面自动分页
                        4.人性化的友情链接管理和文章管理
                        5.代码未做任何加密，可以自由修改，代码简单

      更新部分：修正了修改文章的编辑器BUG，重写了分类管理的源码，添加了图片新闻的功能并设置编辑器自动读取图片地址，增加了友情链接的功能
      预计下一版本添加简单留言本和投票的功能。您有什么好的想法，可以在此页面留言告知我。

      此版本为自由分享，但没有做美工和安全方面的完善，另外功能尚不够多。适合新人学习，也适合老鸟以此构架制作网站。

      此源码使用免费，如果您有需要，可以付费向我要求定制版本，提供网站制作。可以加QQ8223942或者邮件8223942#qq.com（#改为@）详谈，QQ和邮件恕不用作其他用途，如果您有疑问或者建议，请转移至网站留言本。

后台管理地址：/admin
用户名密码均为admin

下载地址：http://u.115.com/file/f083196327

asp读取数据的循环表格

hylijianjun@163.com(孤鸿念天) — Tue,04 May 2010 08:58:39 +0800

<%
dim rs,sqltext
set rs = Server.CreateObject("adodb.recordset")
sqltext="select * from [bigclass]"
rs.Open sqltext,conn,1,1
m=1
colzs=2 '一行显示2列
if rs.RecordCount mod colzs=0 then
rowzs=int(rs.RecordCount/colzs)
else
rowzs=int(rs.RecordCount/colzs)+1
end if
for j = 1 to rowzs%>

<%for i = 1 to colzs%>
<%if not rs.EOF then%>

<%
rs.MoveNext
m = m + 1
else
%>

<%end if%>
<%next%>

<%
next
rs.Close
set rs = nothing
%>

你要从数据库中读取并循环的代码。。。

简单实用ASP新闻文章系统

hylijianjun@163.com(孤鸿念天) — Fri,16 Apr 2010 01:09:04 +0800

修改自鱼的ASP简单实用新闻文章系统清爽版 http://www.infish.cn/article/50.htm
因为要参加某个比赛，所以选了这个简单的ASP系统。

鱼的原版介绍如下：

引用内容

做了一个简单的新闻系统
供ASP新手学习之用
基本功能都有管理员后台添加新闻，可自行设定类别，修改密码等...完全动态管理发布!
增加类别新闻分页浏览！
集成eweb编辑器
加强数据库安全性!
简洁，实用！
后台密码是：admin

我做了一些修改：

1.增加了新闻列表页面的分页功能
2.修复了一些BUG，如后台栏目名称后导致以前文章无法显示，无法修改文章栏目

如有使用上的问题，可以到鱼的网站www.infish.cn上问鱼

或者在本页面留言。

关于“浮梦呓语”网站源码的一些说明

hylijianjun@163.com(孤鸿念天) — Sat,26 Dec 2009 21:44:51 +0800

已经一年半没有碰这个网站的源码了。08年6月份发布了最终版，原本准备就此放手的。
一直陆陆续续有人加Q或者邮件问我一些代码的事情。
而自己也觉得还是有必要去改一下。
在有音乐版后，音乐的页面觉得有些鸡肋，所以索性换上友情链接的页面。
目前只支持首页更换背景，其他页面待续吧。
页面左侧的信息，在后台“我的资料”里可以设置。
网站的基本信息，都支持在后台的系统设置里面设置。
版权信息大家看着改吧。如果需要，在友情链接留下我的链接就可以，其他的都可以去掉。
管理地址：你的域名/admin
用户密码都是admin

网站预览：http://me.fblogs.cn

有什么使用中的问题可以回复留言，我尽量解决。

分流下载地址
站长下载：http://down.cnzz.cn/Info/53356.aspx
asp300：http://www.asp300.com/View/10/29946.html
洪越源代码：http://www.softhy.net/soft/10414.htm

ASP滚动图片新闻

hylijianjun@163.com(孤鸿念天) — Thu,24 Dec 2009 00:21:38 +0800

折腾了好长一段时间，不想碰这个，但是有需要，不得不拿出来重新研究了下。。。

下面是源码，非完整版，需要的可以点击附件下载。

复制内容到剪贴板程序代码

style="Z-INDEX: 1; BACKGROUND: #ffffff; LEFT: 0px; OVERFLOW: hidden; WIDTH: 685px; HEIGHT: 190px">

   <%
      set rs=server.createobject("adodb.recordset")
      rs.source="Select top 6 * FROM Ok3w_Article where IsPic=1 and IsPlay=1 orDER BY ID DESC"
      rs.Open rs.source,conn,1,1
      do while not rs.eof
     %>

<%
        rs.movenext
        loop
      %>

" target="_blank" title="<%=rs("title")%>">
onMouseOver=javascript:clearInterval(nos);
onMouseOut="javascript:RunMar('left','sl');" src="<%=rs("picfile")%>" width="200" height="145">

" target="_blank">

<%=left(rs("title"),11)%>

     <%  rs.close
        set rs=nothing
    %>