一、友情链接:
<%
set rsLink=server.CreateObject("adodb.recordset")
sqlLink="select * from FriendLinks where IsOK=true and LinkType=2 order by IsGood,id desc" 'IsOK=true通过审核;LinkType类型;IsGood推荐好站
rsLink.open sqlLink,conn,1,1
do while not rsLink.eof
%>
<a href='<%=rsLink("SiteUrl")%>' class="linkf" target="_blank"><%=rslink("sitename")%></a>
<%
rslink.movenext
loop
rslink.close
set rslink=nothing
%>
二、设为首页和加入收藏:
<a οnclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://'+location.hostname+(location.port!=''?':':'')+location.port);" href="#">设为首页</a>
<a href="#" οnclick="javascript:window.external.addFavorite('http://'+location.hostname+(location.port!=''?':':'')+location.port,'<%=wzname%>');">加入收藏</a>
三、往数据库中添加数据(1、连接数据库;2、从表单中获取值并赋给变量;3、将内容插入到info表;4、关闭资源;)也可以使用记录集.addnew 字段 .update来实现添加:
注意:添加数据的时候不需要用到记录集,asp中不能用“”引号
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db1.mdb")
name=request.form("name")
addr=request.form("addr")
exec="insert into info(name,addr)values('"+name+"','"+addr+"')"
conn.execute exec
conn.close
set conn=nothing
%>
四、从数据库里读取信息(1、链接数据库;2、定义记录集组件;3、设置查询数据库命令;4、打开记录集(1,1表示只读;1,2表示写;1,3表示修改;)):
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db1.mdb")
set rs=server.createobject("adodb.recordset")
exec="select * from info"
rs.open exec,conn,1,1
%>
五、获取和判断数据库中的信息
<%do while not rs.eof%> ‘如果有数据就显示出来
显示信息的地方
<%
rs.movenext
loop
%>
六、数据多了不好看分页代码
<%
rs.PageSize=3
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>
显示内容的地方
<%
rs.movenext
next
%>
</table>
<table width="320" border="0" cellpadding="5" >
<tr>
<td align="right">
<%if page=1 and not page=pagecount then%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page+1%>">下页</a>
<%elseif page=pagecount and not page=1 then%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page-1%>">上页</a>
<%elseif page<1 then%>没有任何记录!
<%elseif page>pagecount then%>没有任何记录!
<%elseif page=1 and page=pagecount then%>
<%else%>
第<%=page%>页
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a>
<%next%>
<a href="?page=<%=page-1%>">上页</a>
<a href="?page=<%=page+1%>">下页</a> </div>
<%end if%>
</td></tr></table>
七、实现删除的功能(也可以使用记录集updelete和update实现)
<a href='?act=del&id=<%=rs("id")%>' οnclick='javascript: return confirm("你确定要删除吗? ");'>删除</a>
act=request.QueryString("act") '这句应该可以不用
if act="del" then '删除
id=request.QueryString("id")
sql="delete from info where id="&id
conn.execute(sql)
response.Redirect("del.asp")
end if
八、修改信息功能(1、链接数据库;2、取得赋值过来的ID;3、记录集组件;4、打开记录集(1,1表示只读;1,2表示写;1,3表示修改;)):
表单中form中action的值:editok.asp?id=<%=id%>
<%
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("db1.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
id=trim(request("id")) '取得要修改信息的ID
set rs=server.CreateObject("adodb.recordset")
sql="select * from info where id="&id '取得与数据库ID的链接
rs.open sql,conn,1,3
rs("name")=request.form("name")
rs("addr")=request.form("addr")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script lanaguage="javascript">{window.alert('修改成功!请返回!');window.location.href='del.asp'}</script>
九、当然,最好养成好习惯!在最后写上代码关闭资源:
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>