Asp精华

合集下载

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

数据库：
源文件
add.asp：

<%
aa=request.form("aa")
bb=request.form("bb")
exec="insert into test(aa,bb)values("+aa+",'"+bb+"')" conn.execute exec
conn.close
set conn=nothing
response.redirect "list.asp"
%>

<%
exec="delete * from test where id="&request.querystring("id")
conn.execute exec
conn.close
set conn=nothing
response.redirect "list.asp"
%>
list.asp:

<%
exec="select * from test "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
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
%> <a href="add.htm" target="_self">add</a><br>
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>del</td>
<td>aa</td>
<td>bb</td>
</tr>
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>
<tr>
<td><a href="del.asp?id=<%=rs("id")%>">del</a></td>
<td><a href="modify.asp?id=<%=rs("id")%>" target="_self"><%=rs("aa")%></a></td> <td><%=rs("bb")%></td>
</tr>
<%rs.movenext
next
%><tr>
<td colspan=3 align=right>
<%if page=1 and not page=pagecount then%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="list.asp?page=<%=i%>"><%=i%></a> <%next%><a href="list.asp?page=<%=page+1%>">下一页</a>  </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="list.asp?page=<%=i%>"><%=i%></a> <%next%><a href="list.asp?page=<%=page-1%>">上一页</a>  </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>页  <%for i=1 to pagecount%>
<a href="list.asp?page=<%=i%>"><%=i%></a> <%next%><a href="list.asp?page=<%=page-1%>">上一页</a>
<a href="list.asp?page=<%=page+1%>">下一页</a>  </div>
<%end if%>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
modify.asp:

<%
exec="select * from test where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>aa</td>
<td>bb</td>
</tr>
<tr>
<td>
<input type="text" name="aa" value="<%=rs("aa")%>">
</td>
<td>
<input type="text" name="bb" value="<%=rs("bb")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.querystring("id")%>"> </td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
modifysave.asp:

<%
exec="select * from test where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("aa")=request.form("aa")
rs("bb")=request.form("bb")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "list.asp"
%>
add.htm:
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="add.asp">
<p>aa
<input type="text" name="aa">
</p>
<p>bb
<input type="text" name="bb">
</p>
<input type="submit" name="Submit" value="提交">
</form>
</body>
</html>
conn.asp:
<%set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb") %>。