asp.net|datagrid
/*****************************************************************************************
声明：转贴时请不要删除此声明部分。
本贴来自：雨中太阳的Blog,网址：http://www.cnblogs.com/yzty
有问题交流联系我：sjt61991163.com
*****************************************************************************************/
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
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.
22else
23 rs.close
24 set rs=nothing
25 Response.Write("<script language='javascript'>alert(""存在这个名字，请用其他名字！"");location.
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.
18%>
19
到此代码已写完，不过都是从我程序中粘贴过来的。有什么问题请联系我~谁有更好的办法修改后发给我一份，多谢
