用asp实现类似asp.net的DataGrid直接修改删除_.NET教程_编程技术
/*****************************************************************************************
声明：转贴时请不要删除此声明部分。
本贴来自：雨中太阳的Blog,网址：http://www.cnblogs.com/yzty
有问题交流联系我：sjt61991@163.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 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 style="font-size:9pt;color:#000000;background-color:#FFFFF7;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000" value="<%=page%>" align=center>
24 <input style="border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal" 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" >
39 <tr bgcolor="E9F3FF">
40 <td> <%=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%>" >删除</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
到此代码已写完，不过都是从我程序中粘贴过来的。有什么问题请联系我~谁有更好的办法修改后发给我一份，多谢
