ASP下拉框问题,在线等
比如,我有一个表字段为:idnamedigital里边有3条数据如:1kkkkk02yyyyy03sssss0下面是下拉框代码:<%ifrequest("template...
比如,我有一个表
字段为:
id name digital
里边有3条数据如:
1 kkkkk 0
2 yyyyy 0
3 sssss 0
下面是下拉框代码:
<%
if request("template")="default" Then
set rs=server.createobject("adodb.recordset")
sql="select * from template"
rs.open sql,dbok,1,3
rs("choose")=trim(request.form("choose"))
rs.update
rs.close
set rs=nothing
dbok.close
set dbok=nothing
respons
set rs = server.createobject("adodb.recordset")
sql="select * from template ORDER BY id DESC"
rs.open sql,dbok,1,1
response.write "<form name=""form3"" method=""post"" action=""temp.asp?template=default"">"&vbcrlf
response.write " 选取:<select name=""digital"" class=""winla"">"&vbcrlf
if rs.bof and rs.eof then
response.write "暂无记录!"
Else
do while not rs.eof %>
<option value="19870618" <%if rs("digital") = "19870618" then%>selected<%end if%>><%=rs("mobanurl")%></option>
<% rs.MoveNext
loop
End If
response.write "</select>"&vbcrlf
response.write " <input type=""submit"" name=""Submit3"" value=""提交"" class=""inanniu"">"&vbcrlf
response.write "</form>"&vbcrlf
%>
意思就是。下拉框循环显示表里的信息
但是怎么实现。如。我在前台选择 kkkkk 的时候。点提交
那kkkkk 中的 digital 变成19870618 其它的还是0
如果我又在前台选择 yyyyy 后在提交。那yyyyy中的digital就变成19870618 其它的变成0
请问怎么实现/。。。。。。
现在一点提交只是ID等于1的digital变19870618 选其它的不管用。选其它的也是修改ID1
晕了。请高手帮助! 展开
字段为:
id name digital
里边有3条数据如:
1 kkkkk 0
2 yyyyy 0
3 sssss 0
下面是下拉框代码:
<%
if request("template")="default" Then
set rs=server.createobject("adodb.recordset")
sql="select * from template"
rs.open sql,dbok,1,3
rs("choose")=trim(request.form("choose"))
rs.update
rs.close
set rs=nothing
dbok.close
set dbok=nothing
respons
set rs = server.createobject("adodb.recordset")
sql="select * from template ORDER BY id DESC"
rs.open sql,dbok,1,1
response.write "<form name=""form3"" method=""post"" action=""temp.asp?template=default"">"&vbcrlf
response.write " 选取:<select name=""digital"" class=""winla"">"&vbcrlf
if rs.bof and rs.eof then
response.write "暂无记录!"
Else
do while not rs.eof %>
<option value="19870618" <%if rs("digital") = "19870618" then%>selected<%end if%>><%=rs("mobanurl")%></option>
<% rs.MoveNext
loop
End If
response.write "</select>"&vbcrlf
response.write " <input type=""submit"" name=""Submit3"" value=""提交"" class=""inanniu"">"&vbcrlf
response.write "</form>"&vbcrlf
%>
意思就是。下拉框循环显示表里的信息
但是怎么实现。如。我在前台选择 kkkkk 的时候。点提交
那kkkkk 中的 digital 变成19870618 其它的还是0
如果我又在前台选择 yyyyy 后在提交。那yyyyy中的digital就变成19870618 其它的变成0
请问怎么实现/。。。。。。
现在一点提交只是ID等于1的digital变19870618 选其它的不管用。选其它的也是修改ID1
晕了。请高手帮助! 展开
展开全部
if request("template")="default" Then
set rs=server.createobject("adodb.recordset")
sql="select * from template" '这里没有加上条件,所以不管你选那一个,都是都是修改的ID号最小的那个的值(ID应是主键吧?默认的是以ID升序排列)
rs.open sql,dbok,1,3
rs("choose")=trim(request.form("choose"))
rs.update
rs.close
set rs=nothing
dbok.close
set dbok=nothing
如果你要修改的值确认只是修改成19870618的话,你可以这样做。
do while not rs.eof %>
<option value="<%=rs("id")%>" <%if rs("digital") = "19870618" then%>selected<%end if%>><%=rs("mobanurl")%></option>
<% rs.MoveNext
把里面的下拉框中的值改成对应的ID号。
上面要修改的语句改一下。
sql="select * from template"
rs.open sql,dbok,1,3
rs("choose")=trim(request.form("choose"))
rs.update
rs.close
set rs=nothing
dbok.close
set dbok=nothing
改成:sql="update template set digital='0' where id<>"&requuest.form("digital")
dbok.execute(sql)
sql="update template set digital='19870618' where id="&requuest.form("digital")
dbok.execute(sql)
完成!
我感觉你不可能都改一个固定的值,这里的19870618可能会换成其它的值,你可以新建一个隐藏的文本框,把要改成的值放在里面,修改语句中的固定19870618改成隐藏文本框中的值 。同时在由数据库中读取记录时的默认记录做对比时的值也改成隐藏文本框中的值
set rs=server.createobject("adodb.recordset")
sql="select * from template" '这里没有加上条件,所以不管你选那一个,都是都是修改的ID号最小的那个的值(ID应是主键吧?默认的是以ID升序排列)
rs.open sql,dbok,1,3
rs("choose")=trim(request.form("choose"))
rs.update
rs.close
set rs=nothing
dbok.close
set dbok=nothing
如果你要修改的值确认只是修改成19870618的话,你可以这样做。
do while not rs.eof %>
<option value="<%=rs("id")%>" <%if rs("digital") = "19870618" then%>selected<%end if%>><%=rs("mobanurl")%></option>
<% rs.MoveNext
把里面的下拉框中的值改成对应的ID号。
上面要修改的语句改一下。
sql="select * from template"
rs.open sql,dbok,1,3
rs("choose")=trim(request.form("choose"))
rs.update
rs.close
set rs=nothing
dbok.close
set dbok=nothing
改成:sql="update template set digital='0' where id<>"&requuest.form("digital")
dbok.execute(sql)
sql="update template set digital='19870618' where id="&requuest.form("digital")
dbok.execute(sql)
完成!
我感觉你不可能都改一个固定的值,这里的19870618可能会换成其它的值,你可以新建一个隐藏的文本框,把要改成的值放在里面,修改语句中的固定19870618改成隐藏文本框中的值 。同时在由数据库中读取记录时的默认记录做对比时的值也改成隐藏文本框中的值
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询