＋设为首页 ＋添加到收藏夹
我有一个表格，是根据记录集中的数据动态生成的，其中的每一行中都有一个文本框和一个下拉列表框 ，现在我要能对这个文本框进行编辑 、对下拉列表框重新选择，并根据编辑后的内容和重新选择的内容更新数据库
请问如何实现
表格如下：
序号 列1 列2 列3 列4
1 文本框 下拉列表框 akdfj asdfadf
2 文本框 下拉列表框 dsdfafg dsfadfg
... ... ... ... ...
最好给出代码
这一页是显示用的!
<%
id=Request.QueryString("id")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="d" type="text/css">
<link rel="stylesheet" href="gyh.css" type="text/css">
</head>
<body bgcolor="#00CCFF" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="1" bordercolor="#FF0000">
<tr>
<td width="93%" height="183" align="center">
<form name="form0" method="post" action="aa.asp">
<table bordercolor="#FFFF00" border="1" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><span class="box">歌名：</span>
<input type="text" name="name" size="30" class="box">
</td>
</tr>
<tr>
<td align="center"><span class="box">编号：</span>
<input type="text" name="ITEMNO" size="30" class="box">
</td>
</tr>
<tr>
<td align="center"><span class="box">歌手：</span>
<input type="text" name="singer" class="box" size="30">
</td>
</tr>
<tr>
<td align="center"><span class="box">主演：</span>
<input type="text" name="NAMEPATH" class="box" size="30">
</td>
</tr></table>
</td>
<td width="7%" valign="bottom" height="183">
<input type="submit" name="Submit2" value="提交" class="box"></form>
</td>
</tr>
<%if id="11" then%>
<tr align="center">
<td class="box" colspan="2">编号必需为六位！</td>
</tr>
<%end if%>
<tr>
<td align="center" colspan="2">
<%connstr="DBQ="+server.mappath("a/a1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
set rs=Server.CreateObject("Adodb.Recordset")
sql="select ID, name,ITEMNO,Singer,namepath from a1 order by ID desc "
rs.open sql,conn,3,1
dim i
i=1
pageno=Request.QueryString ("pageno")
if pageno="" then
pageno=1
end if
pagesize=Request.QueryString ("pagesize")
if pagesize ="" then
pagesize=30
end if
max=0
do while not rs.EOF
max=max+1
rs.movenext
loop
rs.Close
set rs=nothing
start=pagesize*(pageno-1)+1
stoprec=start+pagesize-1
maxpage=max\pagesize
if(max mod pagesize)>0 then
maxpage=maxpage+1
end if
%>
<table width="90%" height="27" cellspacing="0" cellpadding="0" border="1" bordercolor="#000000">
<tr>
<td colspan="6" height="42">
<table width="100%">
<tr>
<td align="center">
<% for i=1 to maxpage%>
<a href="a.asp?pageno=<%=i%>">[<%=i%>]</a>
<%next%>
每页<%=pagesize%>条,共<%=max%>条记录，共有<%=maxpage%>页，现在是第<%=pageno%>页
<%if pageno<>1 then%>
<%page=pageno-1%>
<a href="a.asp?pageno=<%=page%>">上一页</a>
<%end if%>
<% dim intm,intp
intm=1
intp=1
intp=pageno+1-1
intm=maxpage+1-1%>
<%if intp=intm then
%>
<%else
npage=pageno+1%>
<a href="a.asp?pageno=<%=npage%>">下一页</a>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select ID, name,ITEMNO,Singer,namepath from a1 order by ID desc "
rs.open sql,conn,3,1
do while not rs.EOF and i<stoprec
i=i+1
if i>=start then
%>
<form name="name<%=i%>" method="post" action="aa.asp?id=<%=rs("id")%>">
<tr>
<td width="10%">编号：
<input type="text" name="ITEMNO" size="10" value="<%=rs("ITEMNO")%>">
</td>
<td width="26%"> 歌星：
<input type="text" name="name" size="25" value="<%=rs("name")%>">
</td>
<td width="26%"> 歌手：
<input type="text" name="singer" size="25" value="<%=rs("singer")%>">
</td>
<td width="29%"> 主演地：
<input type="text" name="namepath" size="25" value="<%=rs("namepath")%>">
</td>
<td width="5%">
<input type="submit" name="Submit" value="提交" >
</td>
<td width="4%"><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
</form>
<%
end if
%>
<% rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</td>
</tr>
.
</table>
</body>
</html>
这一页是更新用的!
<%
id=Request.QueryString("id")
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("a/a1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
dim NAMEPATH,name,SINGER,ITEMNO,b
name =Request.Form ("name")
ITEMNO=Request.Form ("ITEMNO")
singer=Request.Form ("singer")
namepath=Request.Form ("namepath")
b=len(itemno)
Response.Write name
Response.Write ITEMNO
If b<>6 then
Response.Redirect "a.asp?id=11"
end if
dim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
if id<>"" then
rs.Open "select * from a1 where id ="&Request.QueryString("id"),conn,1,3
rs("itemno")=itemno
rs("singer")=singer
rs("namepath")=namepath
rs("name")=name
rs.update
else
sql="select * from a1 where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("itemno")=itemno
rs("singer")=singer
rs("namepath")=namepath
rs("name")=name
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "a.asp"
%>
可以的话我把数据库也给你!
