📄 index.htm
字号:
set conn=server.CreateObject("adodb.connection")<br />
DBPath = Server.MapPath("db1.mdb")<br />
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath</span></p>
<p><span class="STYLE19">exec="select * from info"<br />
set rs=server.createobject("adodb.recordset")<br />
rs.open exec,conn,1,1<br />
%></span><br />
<table width="320" border="0" cellpadding="5" cellspacing="1" bgcolor="#D6E0EF"><br />
<tr><br />
<td bgcolor="#698CC3"><div align="center"><span class="STYLE1">编号</span></div></td><br />
<td bgcolor="#698CC3"><div align="center"><span class="STYLE1">姓名</span></div></td><br />
<td bgcolor="#698CC3"><div align="center"><span class="STYLE1">地址</span></div></td><br />
</tr><br />
<span class="STYLE2"><%<br />
rs.PageSize=3<br />
pagecount=rs.PageCount <br />
page=int(request.QueryString ("page"))<br />
if page<=0 then page=1<br />
if request.QueryString("page")="" then<br />
page=1<br />
end if<br />
rs.AbsolutePage=page<br />
for i=1 to rs.PageSize<br />
if rs.EOF then <br />
exit for<br />
end if<br />
%></span><br />
<tr><br />
<td width="46" bgcolor="#FFFFFF"><%=rs("id")%></td><br />
<td width="123" bgcolor="#FFFFFF"><%=rs("name")%></td><br />
<td width="117" bgcolor="#FFFFFF"><%=rs("addr")%></td><br />
</tr><br />
<span class="STYLE2"><%<br />
rs.movenext<br />
next<br />
%></span><br />
</table><br />
<span class="STYLE2"><table width="320" border="0" cellpadding="5" > <br />
<tr><br />
<td align="right"><br />
<%if page=1 and not page=pagecount then%><br />
第<%=page%>页 <br />
<%for i=1 to pagecount%><br />
<a href="?page=<%=i%>"><%=i%></a> <br />
<%next%><br />
<a href="?page=<%=page+1%>">下页</a> <br />
<%elseif page=pagecount and not page=1 then%><br />
第<%=page%>页 <br />
<%for i=1 to pagecount%><br />
<a href="?page=<%=i%>"><%=i%></a> <br />
<%next%><br />
<a href="?page=<%=page-1%>">上页</a> <br />
<%elseif page<1 then%>没有任何记录！<br />
<%elseif page>pagecount then%>没有任何记录！<br />
<%elseif page=1 and page=pagecount then%><br />
<%else%><br />
第<%=page%>页 <br />
<%for i=1 to pagecount%><br />
<a href="?page=<%=i%>"><%=i%></a> <br />
<%next%><br />
<a href="?page=<%=page-1%>">上页</a> <br />
<a href="?page=<%=page+1%>">下页</a> </div><br />
<%end if%><br />
</td></tr></table></span><br />
</body><br />
</html><br />
<span class="STYLE20"><%<br />
rs.close<br />
set rs=nothing<br />
conn.close<br />
set conn=nothing<br />
%></span></p></td>
</tr>
</table>
<br />
<br />
<table width="700" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#D6E0EF">
<tr>
<td colspan="2" bgcolor="#698CC3"><div align="center" class="STYLE1"><a name="8"><strong>第八课</strong> - 删除数据库信息 </div></td>
</tr>
<tr>
<td width="523" bgcolor="#FFFFFF"> 前面，我么已经学会了数据入库、读取和分页技术。那么这一节课，就来学习删除数据库信息<br /> 为了免得麻烦，我们就直接复制一份<span class="STYLE3">lang.asp</span>改名为<span class="STYLE3">del.asp</span>。<br /> <br /> 首先在地址后面增加一个栏，如图：<br /> <img src="img/del1.jpg" width="389" height="279" /><br />
<br />
接着在后面的空格子内输入以下代码：
<p><span class="STYLE3"><a href='?act=del&id=<%=rs("id")%>' onclick='javascript: return confirm("你确定要删除吗? ");'>删除</a></span><br />
<br />
输入成功后，如图：<br />
<img src="img/del2.jpg" width="385" height="283" /><br />
<br />
<br />
接着在<span class="STYLE2">exec="select * from info"</span>的上一行输入：<br />
<br />
<span class="STYLE3">act=request.QueryString("act")<br />
if act="del" then '删除<br />
id=request.QueryString("id")<br />
sql="delete from <span class="STYLE21">info</span> where id="&id <br />
conn.execute(sql)<br />
response.Redirect("del.asp")<br />
end if</span><br />
<br />
删除数据的页面也就在原来lang.asp的基础上增加上面两段代码，大家可以好好分析分析。<br />
<br />
</p></td>
<td width="154" bgcolor="#FFFFFF"><p> </p></td>
</tr>
</table>
<br />
<br />
<table width="700" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#D6E0EF">
<tr>
<td colspan="2" bgcolor="#698CC3"><div align="center" class="STYLE1"><a name="9"><strong>第九课</strong> - 修改数据库信息 </div></td>
</tr>
<tr>
<td width="523" bgcolor="#FFFFFF"><p><br />
你提交了一个信息，但是你发现有错？该怎么办?难道删除掉，重新添加？<br />
下面我们学学如何修改数据库资料：<br />
首先我们在DEL.asp建立一个修改链接<br />
<img src="img/del2.gif" width="421" height="307" /><br />
</p>
<p>“修改”链接到 <span class="STYLE6">edit.asp?id=<%=rs("id")%></span> ，这其中edit.asp是我们后面需要建立的文件。 <br />
<br />
接着我们就要建立edit.asp来接受del.asp赋值过来的数据库了。<br />
我们要制作一个下面效果的页面<br />
<img src="img/edit.gif" width="420" height="296" /><br />
<br />
排版这样的布局相信大家都会了，那么就说一下主要的：</p>
<p>----------------------------------------------------------<br />
这段代码放在网页代码头部：<br />
<%<br />
set conn=server.CreateObject("adodb.connection")<br />
DBPath = Server.MapPath("db1.mdb")<br />
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath</p>
<p><span class="STYLE6">id=request("id")<br />
set rs=server.CreateObject("adodb.recordset")<br />
sql="select * from info where id="&id<br />
rs.open sql,conn,1,1</span><br />
%><br />
<br />
----------------------------------------------------------<br />
前三行代码就不说了<br />
<span class="STYLE2">id=request("id")</span> 表示取得赋值过来的ID<br />
<br />
<span class="STYLE2">set rs=server.CreateObject("adodb.recordset")<br />
sql="select * from info where id="&id<br />
rs.open sql,conn,</span><span class="STYLE7">1,1</span><br />
<br />
表示查询info表id字段里面的某个ID<br />
<br />
接着我们就要在表格对应的里面建立文本域用来显示信息<br />
<body></body>里面代码如下：<br />
----------------------------------------------------------------<br />
<table width="350" border="0" cellpadding="6" cellspacing="1" bgcolor="#D6E0EF"><br />
<tr><br />
<td colspan="2" bgcolor="#698CC3"><div align="center" class="STYLE9">数据修改</div></td><br />
</tr><br />
<form name="form1" action="<span class="STYLE6">editok.asp?id=<%=id%></span>" method="post"><br />
<tr><br />
<td width="86" bgcolor="#FFFFFF"><div align="center"><span class="STYLE5">姓名</span></div></td><br />
<td width="237" bgcolor="#FFFFFF"><input <span class="STYLE5">name="name"</span> type="text" id="name" value="<span class="STYLE6"><%=rs("name")%></span>" /></td><br />
</tr><br />
<tr><br />
<td bgcolor="#FFFFFF"><div align="center" class="STYLE5">地址</div></td><br />
<td width="237" bgcolor="#FFFFFF"><input <span class="STYLE5">name="addr"</span> type="text" id="addr" value="<span class="STYLE6"><%=rs("addr")%></span>" /></td><br />
</tr><br />
<tr><br />
<td colspan="2" bgcolor="#FFFFFF"><div align="center"><br />
<input type="submit" name="Submit" value=" 修改 " /><br />
</div><br />
</td><br />
</tr><br />
</form><br />
</table></p>
<p>----------------------------------------------------------------<br />
要注意name值别出错<br />
<span class="STYLE6"><%=rs("name")%></span> 和 <span class="STYLE6"><%=rs("addr")%></span> 是用来显示内容的. <br />
<br />
<form name="form1" action="<span class="STYLE6">editok.asp?id=<%=id%></span>" method="post"> 表示把内容提交到editok.asp处理，并且注明 id=多少<br />
<br />
<br />
现在我们就要建立editok.asp文件用来接收修改信息。<br />
editok.asp只是代码，不需要建立表格之类的,代码如下：<br />
----------------------------------------------------------------<br />
<%<br />
<span class="STYLE21">set conn=server.CreateObject("adodb.connection")<br />
DBPath = Server.MapPath("db1.mdb")<br />
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath<br />
</span><br />
<span class="STYLE2">id=trim(request("id"))</span><br />
set rs=server.CreateObject("adodb.recordset")<br />
<span class="STYLE9">sql="select * from info where id="&id</span><br />
rs.open sql,conn,<span class="STYLE2">1,3</span><br />
<span class="STYLE3">rs("name")=request.form("name")<br />
rs("addr")=request.form("addr")</span><br />
<span class="STYLE11">rs.update</span><br />
rs.close<br />
set rs=nothing<br />
conn.close<br />
set conn=nothing<br />
%><br />
<script lanaguage="javascript">{window.alert('修改成功!请返回!');window.location.href='del.asp'}</script><br />
----------------------------------------------------------------<br />
<span class="STYLE2">id=trim(request("id"))</span> 取得要修改信息的ID<br />
<br />
<span class="STYLE9">sql="select * from info where id="&id</span> 取得与数据库ID的链接<br />
<br />
<span class="STYLE3">rs("name")=request.form("name")<br />
rs("addr")=request.form("addr")</span><br />
<span class="STYLE11">rs.update<br />
rs.close</span> <br />
表示将数据库现在的内容换成修改的内容<br />
<br />
<script lanaguage="javascript">{window.alert('修改成功!请返回!');window.location.href='del.asp'}</script><br />
给与修改后的提示<br />
<br />
到此为止，本教程完全结束。<br />
<br />
</p>
</td>
<td width="154" bgcolor="#FFFFFF"><p> </p></td>
</tr>
</table>
<br />
<table width="700" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#D6E0EF">
<tr>
<td colspan="2" bgcolor="#698CC3"><a name="10">
<div align="center" class="STYLE1"><strong>第十课</strong> - 编者注 </div></td>
</tr>
<tr>
<td width="523" bgcolor="#FFFFFF"><p>看了这个教程，相信初学者能够理解过来。关键是要多做，多熟悉代码。<br />
因为这个只是教初学者入门，所以有所谓的漏洞是事实，请高手不要太介意。<br />
<br />
</p>
</td>
<td width="154" bgcolor="#FFFFFF"><p> </p></td>
</tr>
</table>
<br />
<br />
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -