用asp实现类似asp.net的DataGrid直接修改删除

/*****************************************************************************************

声明：转贴时请不要删除此声明部分。
本贴来自：雨中太阳的blog,网址：http://www.cnblogs.com/yzty
有问题交流联系我：[email protected]

*****************************************************************************************/
1、页面显示部分
 1<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#e2e6f1">
 2  <tr>
 3    <td colspan="3"><img src="http://www.pushad.com/images/photoup.gif" width="500" height="3"></td>
 4  </tr>
 5  <tr>
 6    <td></td>
 7  </tr>
 8  <tr >
 9    <td><table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
10        <tr bgcolor="8cc0ff">
11          <td  colspan="5"><form  action="webgroup.asp" name="form1" method="post" >
12              <div align="left"><font color="#000000"> [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]
13                <%if page=1 then%>
14                [首 页] [上一页]
15                <% else %>
16                [<a href="?page=1">首 页</a>] [<a href="?page=<%=page-1%>">上一页</a>]
17                <%end if%>
18                <%if rs.pagecount-page<1 then%>
19                [下一页] [尾 页]
20                <%else%>
21                [<a href="?page=<%=page+1%>">下一页</a>] [<a href="?page=<%=rs.pagecount%>">尾 页</a>]</font>
22                <%end if%>
23                <input type='text' name='page' size=2 maxlength=10 value="<%=page%>" align=center>
24                <input type='submit'  value=' 转到 '   size=2>
25              </div>
26          </form></td>
27        </tr>
28        <tr bgcolor="#8cc0ff">
29          <td width="14%">编号</td>
30          <td width="31%">组名</td>
31          <td width="34%">备注信息</td>
32          <td width="10%" height="18">修改</td>
33          <td width="11%"><div align="center">删除</div></td>
34        </tr>
35        
36          <%count=0 
37      do while not (rs.eof or rs.bof) and count<rs.pagesize %>
38      <form action="webgroupedit.asp" method="post" name="groupedit" onsubmit="return checkedit()">
39          <tr bgcolor="e9f3ff">
40            <td>&nbsp;<%=rs("id")%> <input name="b" type="hidden" id="b" value="<%=rs("id")%>">
41            <input name="currpage" type="hidden" id="currpage" value="<%=page%>"></td>
42            <td height="18"><input name="a" type="text" id="a" value="<%=rs("memgroupname")%>" size="20" maxlength="50">
43            </td>
44            <td height="18"><input name="c" type="text" id="c" value="<%=rs("remark")%>" size="25" maxlength="30"></td>
45            <td><input type="submit" name="submit" value=" 修改 " ></td>
46            <td><div align="center"><a href="webgroupdel.asp?id=<%=rs("id")%>&page=<%=page%>" onclick="return check()">删除</a></div></td>
47          </tr>
48        </form>
49          <%
50      count=count+1
51      rs.movenext
52      loop
53      %>
54       
55    </table></td>
56  </tr>
57  <tr bgcolor="#fffff4"  >
58    <td height="3" valign="top" bgcolor="#e2e6f1" ><img src="http://www.pushad.com/images/photodown.gif" width="500" height="3"></td>
59  </tr>
60</table>
61<%
62rs.close
63set rs=nothing
64%>
65
判断是否输入的jscript代码如下：
 1<script language="javascript">
 2<!--
 3function check()
 4{
 5    c=window.confirm("确认删除吗?");
 6    if(c==true)return true;
 7    else return false;
 8}
 9function checkadd()
10{
11    if (document.form2.groupname.value=="")
12    {
13        alert("请输入组名！");
14        document.form2.groupname.focus;
15        return false;
16    }
17}
18function checkedit()
19{
20    if(document.groupedit.a.value=="")
21    {
22        alert("修改的内容不能为空！");
23        document.groupedit.a.focus;
24        return false;
25    }
26}
27-->
28</script>
29 2、修改提交页面的内容
 1<%@ codepage="936"%>
 2<!--#include file="inc_config.asp"-->
 3<%
 4dim id,mya,myc,mypage,sqlstr
 5id=request.form("b")
 6mya=request.form("a")
 7myc=request.form("c")
 8mypage=request.form("currpage")
 9sqlstr="select * from memgroup where memgroupname='"&mya&"' and id!="&id
10set rs=server.createobject("adodb.recordset")
11rs.open sqlstr,constr,3,3
12if rs.eof then 
13    sqlstr="update memgroup set memgroupname='"&mya&"',remark='"&myc&"' where id="&id
14    set conn=server.createobject("adodb.connection")
15    conn.open constr
16    conn.execute(sqlstr)
17    rs.close
18    set rs=nothing
19    response.write("<script language='javascript'>alert(""修改成功！"");location.href=""webgroup.asp?page=")
20    response.write(mypage)
21    response.write(""";</script>")
22else
23    rs.close
24    set rs=nothing
25    response.write("<script language='javascript'>alert(""存在这个名字，请用其他名字！"");location.href=""webgroup.asp"";</script>")
26end if
27%>
28
3、删除页面。
 1<%@ codepage="936"%>
 2<!--#include file="inc_config.asp"-->
 3<%    dim mem_id
 4    id=request.querystring("id")
 5    page=request.querystring("page")
 6    if isnull(page) then page=1 end if
 7    dim ssql
 8    set conn=server.createobject("adodb.connection")
 9     conn.open constr
10    ssql=" delete from memgroup where id="&id&" "
11    conn.execute(ssql)
12    
13    conn.close
14    set conn=nothing
15response.write "<script language='javascript'>location.href=""webgroup.asp?page="
16response.write page
17response.write """;</script>"
18%>
19
到此代码已写完，不过都是从我程序中粘贴过来的。有什么问题请联系我~谁有更好的办法修改后发给我一份，多谢