当前位置：文档之家› asp增删改查代码

asp增删改查代码

------------------------------------------------------------增加---------------------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>operateDB</title>


</head>

<body>
<% comname=request.Form("name")
comsex=request.Form("sex")
comage=request.Form("age")


set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
'DBPath=Server.MapPath(Students.mdb)
'dbconnection.Open"driver={Microsoft Access Dirver(*.mdb)};dbp"& DBPath
sql="select * from students"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,2,2
rs.AddNew

rs("name")=comname

rs("sex")=comsex
rs("age")=comage
rs.Update
rs.close
set rs=nothing
Response.Write "<script language='javascript'>alert('成功添加');"
response.Write "javascript:window.document.location='testselectDB.asp';</script>"

%>


</body>
</html>
------------------------------------------------------------删除---------------------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>pldelete</title>


</head>

<body>

<%


id=request.Form("sid")

id=Sqlit(id,",")

shu=0




for i=1 to UBound(id)


sql="select from students where id="&id(i)


Set rs=Server.CreateObject("ADODB.Recordset")

rs.execute(sql)


if not rs.EOF then
delete_file(re("id"))

end if

rs.Close

set rs=nothing


sql="delete from students where id="&id(i)

rs.execute sql,shu1

next
if shu>0 then
response.Write ("记录已经删除了！")
else
response.Write("数据仍然存在");

end if

%>



</body>
</html>
-----------------------------------------------------------单条查询---------------------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="GEN

ERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>operateDB</title>
<script language="javascript">
<!--
function sub0()
{

var name=document.getElementById("name").value;
if(name==0)
{
alert("清输入姓名");

return false;
}

var age=document.getElementById("age").value;
if(age==0)
{

alert("请输入年龄");
return false;

}

var sex=document.getElementById("sex").value;

if (sex==0)
{

alert("请输入性别");
r
eturn false;
}

}
//-->
</script>

</head>
<%
id=request("uid")


''set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
sql="select * from students where id ="&id
Set rs=Server.CreateObject("ADODB.Recordset")

Set rs=conn.Execute(sql)

%>
<body>
<form action="update_DB.asp?uid=<%=rs("id")%>" method="post">

<table width="80%" border="0" align="center">
<tr>
<td align="center">name</td>
<td align="center">
<input type="text" name="name" value="<%=rs("name")%>" id="name"/>
</td>
</tr>
<tr>
<td align="center">age</td>
<td align="center"><input type="text" name="age" value="<%=rs("age")%>" id="age"/></td>
</tr>
<tr>
<td align="center">sex</td>
<td align="center"><input type="text" name="sex" value="<%=rs("sex")%>" id="sex"/></td>
</tr>
<tr>
<td align="center"><label>
<input type="submit" name="Submit" value="修改" onClick=" return sub0()" />
</label></td>
<td align="center"><input type="reset" name="Submit2" value="重置" />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="delete_DB.asp?uid=<%=rs("id")%>" onClick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
</tr>
</table>

<%
rs.Close
set rs=nothing%>
</form>
</body>
</html>
-----------------------------------------------------------全部查询---------------------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=g

b2312" />
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>operateDB</title>
<script language="javascript">

function checkAll()
{

if(document.myform.che.checked==true)
{


for(i=0;i<document.myform.sid.length;i++)

{

document.myform.sid[i].checked=true

}

}
else
{
for(i=0;i<document.myform.sid.length;i++)
{

document.myform.sid[i].checked=false
}
}

}

</script>

</head>

<%
page=Cint(Request.QueryString("page"))
IF page<1 THEN page=1
Sub WritePage(AbsolutePage,TotalPage)
IF AbsolutePage>1 THEN
Response.write "[<a href=testselectDB.asp?page=1>第一页</a>][<a href=testselectDB.asp?page="&AbsolutePage-1&">上一页</a>]"
ELSE
Response.write "[第一页][上一页]"
END IF
IF AbsolutePage<ToTalPage THEN
Response.write "[<a href=testselectDB.asp?page="&AbsolutePage+1&">下一页</a>][<a href=testselectDB.asp?page="&TotalPage&">最后页</a>]"
ELSE
Response.write "[下一页][最后页]"
END IF
END Sub

pagesize=5
%>


<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
'DBPath=Server.MapPath(Students.mdb)
'dbconnection.Open"driver={Microsoft Access Dirver(*.mdb)};dbp"& DBPath
sql="select * from students order by
id desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,1

IF Not rs.eof THEN

%>


<body>
<form name="myform" action="PLDelete.asp" method="post">
<table width="80%" border="1" align="center">

<tr>
<td width="50%" align="center" >操作&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="checkbox" name="che" value="checkbox" id="checkbox" onClick="checkAll()">
全选</td>
<td width="50%" align="center">编号：</td>
<td width="50%" align="center">name：</td>
</tr>

<%
rs.PageSize=PageSize
rs.AbsolutePage=page
IF rs.PageCount<page THEN page=rs.PageCount
i=1
While not rs.EOF AND i<=rs.PageSize
%>

<tr>
<td width="50%" align="center" ><input type="checkbox" name="sid" value="<%=rs("id")%>""></td>
<td align="center"><%=rs("id")%></td>
<td align="center" ><a href="select_id_db.asp?uid=<%=rs("id")%>"><%=rs(&qu

ot;name")%></a></td>
</tr>

<%
rs.MoveNext

i=i+1
Wend

%>
<tr>
<td width="50%" align="center"><input type="submit" name="Submit" value="选中删除"></td>
<td colspan="2" align="center"> <%
Response.Write "<table border=0 cellpadding=0 cellspacing=0 width='100%' align='left'><tr>"
Response.write "<td width='60%' height=20 align='center'>每页显示"&PageSize&"条信息 当前页<b><font color=red>"&page&"</font>/"&rs.PageCount&"</b></td>"
Response.write "<td width='40%' height=20 align='left'>"
WritePage page,rs.PageCount
Response.write "</td></tr></form></table>"
ELSE
Response.write "<br><br>&nbsp;&nbsp;当前还没有任何信息"
END IF

rs.close
set rs=nothing

%></td>
</tr>

</table>

</form>
</body>
</html>
----------------------------------------------------------------------修改---------------------------------------------------------------------------------------------

<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>operateDB</title>


</head>

<body>
<%
id=request("uid")
comname=request.Form("name")
comsex=request.Form("sex")
comage=request.Form("age")


set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

sql="select * from students where id="&id
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,2,2


rs("name")=comname
rs("sex")=comsex
rs("age")=comage
rs.Update
rs.close
set rs=nothing

Response.Write "<script language='javascript'>alert('恭喜你修改成功！');"
response.Write"javascript:window.document.location='testselectDB.asp';</script>"

%>


</body>
</html>








相关主题
文本预览
相关文档 最新文档