%
OpenDB()
Dim sql,Rs,arrRs
Dim arrRsNumS,arrRsNumI
dim srchId
srchId=request.querystring("srchId")
sql = "Select cid,cdate,cauthor,ccontent,cbcolor,cfcolor,pic from ccc_love where cid=0"&srchId
Set Rs = Conn.Execute(sql)
if rs.BOF and rs.EOF then
Response.Write ""
response.end
else
arrRs = Rs.GetRows
end if
Rs.Close
Set Rs = Nothing
CloseDB()
arrRsNumS = UBound(arrRs,2)
%>
小叶白龙许愿墙加强分页版本 v1.3
<%
LeftPx = 400
TopPx = 200
Response.write ""
Response.write "
"&"第["&arrRs(0,arrRsNumI)&"]条 "&FormatDateTime(arrRs(1,arrRsNumI),2)&" "&FormatDateTime(arrRs(1,arrRsNumI),4)&" × "
Response.write arrRs(3,arrRsNumI)
Response.write ""&arrRs(2,arrRsNumI)&"
"
Response.write "
"
%>
V1.3版本(access版本)
1、美化了首页和搜索页。
2、后台登陆也做了美化,后台登陆加了验证码功能。
3、重新写了分页和SQL版本分页一样统一标准以后同时和SQL版本推出新版本。
4、后台增加了数据库压缩功能。
5、模版设置功能准备做到商业版本中去。
v1.2.2版本(access版本)
修正了一些机器不能显示验证码的缺陷,去掉了首页提示注入的文件in.asp,修正了后台显示的错误。
v1.2 SQL数据库版本
在原有ACCESS数据库的基础上转换为SQL数据库版本!外观和提交并没有什么不同,但是重新修改了首页代码的显示和提交,后台列表重新修改去掉了地址显示,希望有能力的人把此功能修复,函数变量重新修改才转换为SQL版本的数据库,分页重新修改。下一个版本v1.3将同时推出SQL和ACCESS两个版本一样功能的许愿墙。希望有能力的人能帮我一起完成许愿墙的所有功能。
v1.2版本
1、修复许愿人姓名提交处字符过滤不严的和值为空的问题。(感谢“爱E没商量”大哥)
2、修改提交数据页名input.htm为write.asp,添加验证码功能。
3、修复input.asp文件直接打开提交的错误,以前是用数据库限制但打开后出错误不返回,这回用语句控制直接打开input.asp页弹出验证码为
空自动返回。
4、后台增加许愿人提交的IP和地址,IP不全,只有国内部分地址,数据库全的比较大,如果那位有比较全的国内地址请联系本人,我会在下个版本补充上。
5、后台增强,左右分成框架并能点击隐藏左侧面管理菜单。
6、后台增加信息系统和管理员密码修改功能。
7、后台增加安全退出。(在“爱E没商量”大哥帮助下完成)
v1.1版本
本来是给朋友修改的但是修改上瘾了所以继续修改了下去
改进如下:
1、修正了v1.0首页跳转不正确的问题,加了个框架。
2、修正了v1.0代码上的错误,加了个容错脚本。
3、仿chinaren许愿墙对单个贴纸和页面进行了美化。
并添加装饰图片,可以自由选择,在这里感谢”爱E没商量“大哥帮着调试并修复错误。
4、后台重新改写,添加分页。
5、隐藏了查找功能,变成点击形式,对首页来说很整洁。
6、在别的页面添加返回首页按钮。
7、后台内容显示修改为50字,鼠标放在上面可以看到全部内容。并在此基础上对内容做了连接,连接到此愿望。方面管理员查看。
8、加入了防注入系统,并在input.asp里加了许多字符过滤。
9、防止直接打开input.asp提交的错误!这里是在数据库中修改的字段必添,但是不会自动返回。
v1.0版本
为网络原始程序虽然不是我写的但是也修改了很多!
在此基础上加了个前台加了个分页。