浮梦呓语

多行分页

2010-07-08T17:13:35+08:00

<%
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
%>

极限主题论坛注册邀请十三枚

2010-06-16T11:10:02+08:00

http://bbs.themex.net/
邀请注册十三枚，需要的联系我。

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

2010-06-14T12:42:42+08:00

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

     2010.06.14升级日志

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

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

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

2010-06-11T01:30:23+08:00

<%
'省略连接数据库代码
    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数据库转移工具

2010-05-26T13:09:27+08:00

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

引用内容

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

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

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

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

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

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

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

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

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

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

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

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

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

asp表单添加验证码

2010-05-21T22:33:12+08:00

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

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

<%
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

2010-05-20T20:58:58+08:00

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

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

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

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

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

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

asp读取数据的循环表格

2010-05-04T08:58:39+08:00

<%
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新闻文章系统

2010-04-16T01:09:04+08:00

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

鱼的原版介绍如下：

引用内容

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

我做了一些修改：

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

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

或者在本页面留言。

[转]关于爱情、关于伴侣、关于承诺、关于人生、关于友情、关于微笑、关于生活、关于幸福

2010-04-07T22:20:03+08:00

关于爱情：

不要认为后面还有更好的，因为现在拥有的就是最好的。
不要认为还年轻可以晚些结婚，爱情是不等年龄的。
不要因为距离太远而放弃，爱情可以和你一起坐火车的。
不要因为对方不富裕而放弃，只要不是无能的人，勤劳可以让你们富裕的。
不要因为父母反对而放弃，你会发现因为这个原因而反放弃的爱情，将是你一生的悔恨。
其实对于爱情，越单纯越幸福。一生只谈一次恋爱是最好的，经历的太多了，会麻木；分离多了，会习惯；换恋人多了，会比较；到最后，你不会再相信爱情；
你会自暴自弃；你会行尸走肉；你会与你不爱的人结婚，就这样过一辈子。

关于爱情：

也许爱情是一部忧伤的童话，惟其遥远与真实。
放弃一个爱你的人并不痛苦，放弃一个你爱的人那才痛苦。
若是有缘时间空间都不是距离，若是无缘总是相聚也无法合意；凡事不必太在意，更不需去强求，就让一切随缘。
逃避不一定躲得过；
面对不一定最难过；
孤独不一定不快乐；
得到不一定长久；
失去不一定不再拥有。
爱是一种享受，即使痛苦也会觉得幸福；
爱是一种体会，即使心碎也会觉得甜蜜；
爱是一种经历，即使破碎也会觉得美丽；
不要因为寂寞而错爱，
不要因为错爱而寂寞一生。

关于伴侣：

伴侣不是结婚时发誓非你不娶或非你不嫁的那个人，而是发现你身上有许多缺点仍然选择你的那个人；
伴侣不是生活中你爱吃黄瓜ta也爱吃黄瓜的那个人，而是你吃蛋清ta吃蛋黄的那个人；
伴侣不是天黑了和你一起手挽手走进饭店的那个人，而是守在门口巴望你回来共进晚餐的那个人；
伴侣不是和你大谈爱情，把“我爱你”挂在嘴边的那个人，而是和你平淡的唠叨柴米油盐、锅碗瓢盆的那个人。
在幸福的婚姻中，伴侣已不是一个具体的人，而是你和ta在几十年的岁月中沉淀下来的：一份默契、一份温情、一份平淡、一份理解、一份宽容。
爱ta就要让ra开心，这就是伴侣........

关于承诺：

在古希腊传说中，情侣都将戒指套在对方的中指上，因为他们相信那儿有一根血管直通心脏。所以戒指的意思就是用心承诺！
但是人世间有多少爱能生死白头，又有多少的情可以天长地久？
所以你选择共度一生得未必是你最爱的，你最爱的未必能和你共度一生。
多少的有情人走不进彼此的今生，只能苦苦的相约于来世；而多少的男男女女走过爱情走进婚姻却不会再珍惜彼此的付出。
所以记得珍惜你爱的人，把每一个平淡的今天当成是彼此相依的最后一刻，好好握紧爱人的手，即使ta容颜已老，即使ta满面沧桑，那也是你记忆中永恒的温馨。
别忘了守住对ta的承诺，别忘了牵住ta的手，一生一世一辈子.....

关于人生：

人生如梦，岁月无情。蓦然回首，才发现人活着是一种心情。
穷也好，富也好，得也好，失也好。一切都是过眼云烟。想想，不管昨天、今天、明天，能豁然开朗就是美好的一天。
不管亲情、友情、爱情，能永远珍惜就是好心情。
记得有一个经典短信这样写着：
曾经拥有的不要忘记；
已经得到的更加珍惜；
属于自己的不要放弃；
已经失去的留作回忆；
想要得到的一定要努力；
累了把心靠岸；
选择了就不要后悔；
苦了才懂得满足；
痛了才享受生活；
伤了才明白坚强；
总有起风的清晨；
总有绚烂的黄昏；
总有流星的夜晚。
人生就像一张有去无回的单程车票，没有彩排，每一场都是现场直播。
把握好每次演出便是对人生最好的珍惜。
把握现在，畅享人生！

关于友情：

有一天，友情和爱情碰见。
爱情问友情：世上有我了，为什么还要有你的存在？
友情笑着说：爱情会让人们流泪，而友情的存在就是帮人们擦干眼泪！
朋友就是：偶尔会为你担心、向你关心、替你懆心、想你欢心、逗你开心、请你放心。
朋友之间，懂得关怀才是难得.....
伤心时不妨和我说；
痛苦时别忘了跟我讲；
有病时别忘了通知我；
困难时记得要请教我；
失望时要想起还有我；开心时更不要忘记我。

朋友的定义，就在于此.....我们是朋友，这就够了.......

关于微笑：

被人误解的时候能微微的一笑，这是一种素养；
受委屈的时候能坦然的一笑，这是一种大度；
吃亏的时候能开心的一笑，这是一种豁达；
处窘境的时候能自嘲的一笑，这是一种智慧；
无奈的时候能达观的一笑，这是一种境界；
危难的时候能泰然一笑，这是一种大气；
被轻蔑的时候能平静的一笑，这是一种自信；
失恋的时候能轻轻的一笑，这是一种洒脱。
不管是有什么事情，为了什么原因.....我们每天都要开心一笑...........

关于生活：

日出东海落西山，愁也一天，喜也一天；
遇事不钻牛角尖，人也舒坦，心也舒坦；
每天领取谋生钱，多也喜欢，少也喜欢；
少荤多素日三餐，粗也香甜，细也香甜；
新旧衣服不挑捡，好也御寒，赖也御寒；
常与知己聊聊天，古也谈谈，今也谈谈；
全家老少互慰勉，贫也相安，富也相安。

关于幸福：
相传幸福是个美丽的玻璃球，跌碎散落在世间的每个角落。
有的人捡到多些，有的人捡到少些。却没有人能拥有全部。
爱你所爱选你所选，珍惜现在所拥有的一切。
人活着就是一种心情，把握今天，设置明天，储存永远。
只要用心感受，幸福就会永远存在。
人总是对自己拥有的东西不珍惜，直到不再拥有时才会加倍怀念，而在得知自己快失去自己所拥有的东西而又无能为力时，就寻死觅活地不肯放手，歇斯底里往往发生在这个时候，而对于生命的执著确实是到死才放手！