asp课程设计

用asp有删除增加

添加页面： Add.asp

'表单处理：

<%
title=trim(request("title"))
if title<>"" then
dim url
url="add.asp"

sql = "select * from 表名"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3

rs.addnew
rs("title")=title
rs.update
rs.close
set rs=nothing

Response.Write "<script language='javascript'>alert(""添加成功!"")</script><meta http-equiv='refresh' content='0;URL="&url&"'>"
end if
%>

'表单：

<form method="POST" action="add.asp" language="JavaScript" onsubmit="return myform_Validator(this)" language="JavaScript" name="myform">
<tr>
<td width="20%" align="center">标题 <input type="text" name="title" size="60" maxlength="60" class=input></td></tr>
<tr>
<td width="100%" align=center><input type="submit" value="确认添加" name="B1" class=button></td>
</tr>
</table>
</form>

删除页面 del.asp

<%

delid=trim(request("delid"))

if delid<>"" then
conn.Execute "delete from [表名] where ID="&CInt(delid)
end if

'列出所有文件

sql = "select * from 表名 where title<>'' order ID desc"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then

id=rs("id")

title=rs("title")

>

<%=title%> <a onclick='{if(confirm("您确定删除吗?操作不能恢复!")){return true;}return false;}' href="?delid=<%=id%>">删除</a>

<hr>

给分吧 呵呵 辛苦给你写的哦！

其实不用这样，如果你不会写代码只要在网上下个ASP源码，里面都有这些代码的。