<%
'使用ASP语言来开发 数据库增删改查
dim conn,rs,fso,sql,isAccess:isAccess=true
dim MDBPath:MDBPath=Server.MapPath("./testDB.mdb")
dim id,uname,act,btnTitle
act=request("act")
id=request("id")
uname=request("uname")
btnTitle="添加"
if id<>"" then btnTitle="修改"
set fso = createObject("Scripting.FileSystemObject")
'数据库不存在则创建
if  fso.fileExists(MDBPath)=false then 
    set conn = createObject("ADOX.Catalog")
    conn.create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBPath) 
	isAccess=false
end if
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.RecordSet")
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database PassWord='';Data Source = " & MDBPath   
if isAccess=false then
	sql = "Create Table testTable (Id Int Identity(0,1) Primary Key,"  
	sql = sql & "uname Text Default """")"                                    
	conn.execute(sql) 
end if

if act="addEdit" then
	if id="" then
		sql="INSERT INTO testTable (uname) VALUES ('"& uname &"')"
	else
		sql="UPDATE testTable set uname='"& uname &"' where id=" & id
	end if
	conn.execute(sql)
	response.Write(btnTitle & "成功<hr>")
elseif act="del" then
	conn.execute("delete * from testTable where id=" & id)
	response.Write("删除成功<hr>")
elseif act="showEdit" then
	rs.open"select * from testTable where id=" &id,conn,1,1
	if not rs.eof then
		uname=rs("uname")
	end if:rs.close
end if
%> 
<a href="?act=showAdd">添加一条新的</a>   
<table width="100%" border="1" cellspacing="0" cellpadding="0"> 
<tr><td>ID</td><td>姓名</td><td>操作</td></tr>
<%
rs.open"select * from testTable",conn,1,1
while not rs.eof
%>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("uname")%></td>
<td><a href="?act=showEdit&id=<%=rs("id")%>">修改</a> | <a href="?act=del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%rs.movenext:wend:rs.close%>
</table>
<%if act="showAdd" or act="showEdit" then%>
<form id="form1" name="form1" method="post" action="?act=addEdit&id=<%=id%>">
  姓名
  <input type="text" name="uname"  value="<%=uname%>">
  <input type="submit" name="button" id="button" value="<%=btnTitle%>" > 
</form>
<%end if%>