asp中最常用

一、友情链接： 
   <%
    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>&nbsp;
   <%
    rslink.movenext
    loop
    rslink.close
    set rslink=nothing
   %>

二、设为首页和加入收藏：
 <a onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://'+location.hostname+(location.port!=''?':':'')+location.port);" href="#">设为首页</a>
 <a href="#" onclick="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")%>' onclick='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
%>