当年偶写的asp程
来源:互联网 发布:淘宝活动时间大全 编辑:程序博客网 时间:2024/06/10 09:03
当年偶用VBScript写的asp程序,好不容易从电脑上翻了出来,在ADO.NET大行其道的今天,偶确要研究一下先进的ADO技术,真有点时空错乱的感觉
dim conn
dim connstr
on error resume next
c+server.mappath("database/db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from news"
rs.open sql,conn,1,3
rs.addnew
rs("main")=trim(request("s1"))
rs("content")=trim(request("s2"))
rs("picexplain")=trim(request("s3"))
rs("type")=trim(request("c1"))
rs("source")=trim(request("t1"))
rs("manager")=Request.Cookies("Username")
rs("time")=now
rs.Update
rs.Close
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id="&n
rs.open sql,conn,1,3
if not rs.eof then
rs.delete
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where type='"&z&"' order by id desc"
rs.open sql,conn,1,1
do while not (rs.eof or err) %>
<%=rs("main")%>
rs.movenext
loop
- 当年偶写的asp程
- 当年写ASP 用到的函数(ASP 通用函数库)
- 想起当年自己写的一款游戏
- 当年在《软件报》上写的一篇文章:…
- 回看当年写的数独游戏重温WPF
- 我哥当年写程序恶搞我 如今我写了一个安卓的
- 当年的无知
- 当年的逍遥
- 当年曾经的专利
- 当年的第几周
- PostgreSQL 当年的倒计时
- 当年写的一篇关于发展电子商务的建议,今日读来别样滋味
- 看下当年Linus要做Linux时写的Email
- 时隔一年,终于享受了下当年写的自动安装memcloud脚本
- 当年第一次学习java多线程写的例子,从此多线程不再陌生
- 2015-11-02-01-当年尝试应聘F7海外技术支持所写的英文自我介绍
- 当年表白流行写情书,现在流行的是……
- C# / ASP.NET 计算某个日期所在的周是当年的第几周
- wordpress优化之静态化
- 我在等一个人
- AOP下的权限控制实现
- 图像拉伸,放大缩小算法函数
- 获取或设置通过此 Pen 绘制的两条连续直线的端点的联接样式
- 当年偶写的asp程
- Wordpress实现URL静态与优化策略
- 一步一步学Linq to sql(八):继承与关系
- BREW应用的c++实现注意点
- 日期格式
- Linux SHELL if 命令参数说明
- iFix恼人的ReplacePicture问题
- Asp.Net性能优化
- 日期格式化