asp网页内，如何使用复选框添加数据
想做一个义工人员管理系统。比如一个义工拥有多类技能，每类技能下又有几种小技能。因此设计数据库字段的时候，一类大技能一个字段，想把同类技能存储在一个字段内。在网页里设计如下...
想做一个义工人员管理系统。
比如一个义工拥有多类技能，每类技能下又有几种小技能。
因此设计数据库字段的时候，一类大技能一个字段，想把同类技能存储在一个字段内。
在网页里设计如下表单——
语言:
普通话
英语
粤语
音乐:
口琴
钢琴
吉他
DW自动生成的源文件如下——
<form method="POST" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">语言:</td>
<td><p>
<input name="yuyan" type="checkbox" id="yuyan" value="普通话" >
普通话 <br />
<input name="yuyan" type="checkbox" id="yuyan" value="英语">
英语<br />
<input name="yuyan" type="checkbox" id="yuyan" value="粤语">
粤语 </p></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">音乐:</td>
<td><input type="checkbox" name="yinyue" id="yinyue" value="口琴" >
口琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="钢琴">
钢琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="吉他">
吉他</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><input type="submit" value="插入记录">
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
在提交到数据库的时候，应该如何处理数据？
或者说在DW自动生成的asp代码的基础上如何修改为好。
一楼是随便应付的。
lb99999999倒是针对我提的要求，可是似乎代码有问题。
比如if条件语句似乎写得不对，另外没有end if。
调试了一下，发现即使加上end if，照样不行，网页提示
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/yg/index.asp, 第 14 行
第14行为下面文章中的执行sql语句那句。
<%
if action=add then
set rs=server.CreateObject("adodb.recordset")
sql="select * from sheet"
rs.open conn,sql,1,3 '这行就是出错的那行代码
rs.addnew
rs("yuyan")=request.Form("yuyan")
rs("yinyue")=request.Form("yinyue")
rs.update
end if
rs.close
conn.close
%>
有办法改好吗？ 展开
比如一个义工拥有多类技能，每类技能下又有几种小技能。
因此设计数据库字段的时候，一类大技能一个字段，想把同类技能存储在一个字段内。
在网页里设计如下表单——
语言:
普通话
英语
粤语
音乐:
口琴
钢琴
吉他
DW自动生成的源文件如下——
<form method="POST" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">语言:</td>
<td><p>
<input name="yuyan" type="checkbox" id="yuyan" value="普通话" >
普通话 <br />
<input name="yuyan" type="checkbox" id="yuyan" value="英语">
英语<br />
<input name="yuyan" type="checkbox" id="yuyan" value="粤语">
粤语 </p></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">音乐:</td>
<td><input type="checkbox" name="yinyue" id="yinyue" value="口琴" >
口琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="钢琴">
钢琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="吉他">
吉他</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><input type="submit" value="插入记录">
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
在提交到数据库的时候，应该如何处理数据？
或者说在DW自动生成的asp代码的基础上如何修改为好。
一楼是随便应付的。
lb99999999倒是针对我提的要求，可是似乎代码有问题。
比如if条件语句似乎写得不对，另外没有end if。
调试了一下，发现即使加上end if，照样不行，网页提示
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/yg/index.asp, 第 14 行
第14行为下面文章中的执行sql语句那句。
<%
if action=add then
set rs=server.CreateObject("adodb.recordset")
sql="select * from sheet"
rs.open conn,sql,1,3 '这行就是出错的那行代码
rs.addnew
rs("yuyan")=request.Form("yuyan")
rs("yinyue")=request.Form("yinyue")
rs.update
end if
rs.close
conn.close
%>
有办法改好吗？ 展开
2个回答
展开全部
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("数据库路径")
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>无标题文档</title>
</head>
<%
if action("add")=true then
set rs=server.CreateObject("adodb.recordset")
sql="select * from 表"
rs.open conn,sql,1,3
rs.addnew
rs("yuyan")=request.Form("yuyan")
rs("yinyue")=request.Form("yinyue")
rs.update
rs.close
conn.close
%>
<body>
<form method="POST" action="?action=add" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">语言:</td>
<td><p>
<input name="yuyan" type="checkbox" id="yuyan" value="普通话" >
普通话 <br />
<input name="yuyan" type="checkbox" id="yuyan" value="英语">
英语<br />
<input name="yuyan" type="checkbox" id="yuyan" value="粤语">
粤语 </p></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">音乐:</td>
<td><input type="checkbox" name="yinyue" id="yinyue" value="口琴" >
口琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="钢琴">
钢琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="吉他">
吉他</td>
</tr>
<tr valign="baseline">
<td colspan="2" align="center" nowrap> <input type="submit" value="插入记录"></td>
</tr>
</table>
</form>
</body>
</html>
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("数据库路径")
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>无标题文档</title>
</head>
<%
if action("add")=true then
set rs=server.CreateObject("adodb.recordset")
sql="select * from 表"
rs.open conn,sql,1,3
rs.addnew
rs("yuyan")=request.Form("yuyan")
rs("yinyue")=request.Form("yinyue")
rs.update
rs.close
conn.close
%>
<body>
<form method="POST" action="?action=add" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">语言:</td>
<td><p>
<input name="yuyan" type="checkbox" id="yuyan" value="普通话" >
普通话 <br />
<input name="yuyan" type="checkbox" id="yuyan" value="英语">
英语<br />
<input name="yuyan" type="checkbox" id="yuyan" value="粤语">
粤语 </p></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">音乐:</td>
<td><input type="checkbox" name="yinyue" id="yinyue" value="口琴" >
口琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="钢琴">
钢琴<br />
<input name="yinyue" type="checkbox" id="yinyue" value="吉他">
吉他</td>
</tr>
<tr valign="baseline">
<td colspan="2" align="center" nowrap> <input type="submit" value="插入记录"></td>
</tr>
</table>
</form>
</body>
</html>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<table width="850" border="0" cellspacing="1" cellpadding="0" align="center">
<tr align=center bgcolor=#97D0FB height=20>
<td><b>选择</b></td>
<td><b>类别</b></td>
<td><b>文章标题</b></td>
<td><b>文章作者</b></td>
<td><b>发布日期</b></td>
<td><b>阅读次数</b></td>
<td><b>转发标记</b></td>
<td><b>转发人</b></td>
<td><b>操作一</b></td>
<td><b>操作二</b></td>
</tr>
<% for i=1 to rs.PageSize %>
<tr bgcolor=#EEF8FD height=20 onMouseOver='TrBgOnP(this);' onMouseOut='TrBgOffP(this);'>
<td align=center><input type="checkbox" name="whois" value="<% =rs("id") %>"></td>
<td align=center><a href="wz_manage.asp?BigClassName=<% =rs("BigClassName") %>&SmallClassName=<% =rs("SmallClassName") %>"><% =HtmlOut(rs("SmallClassName")) %></a></td>
<td align=left>[<% =HtmlOut(rs("laiyuan")) %>]<a href="wz_show.asp?id=<% =rs("id") %>" title='<%=rs("biaoti")%>'><% =HtmlOut(cutstr(rs("biaoti"),45))%></a></td>
<td align=center><% =HtmlOut(rs("zuozhe")) %></td>
<td align=center><% =HtmlOut(rs("riqi")) %></td>
<td align=center><% =HtmlOut(rs("yuedurenshu")) %></td>
<td align=center><% =HtmlOut(rs("caijibiaoji")) %></td>
<td align=center><% =HtmlOut(rs("zhuanfaren")) %></td>
-------------------------------------------------
wangzhanlanmu=Request.Form("Lanmu")
whois = Request.Form("whois")
search=" WHERE id in(" & whois &")"
table="wenzhangneirong"
'请参考下面代码排序
sql="select * from " & table & search & " order by xianshijibie,id desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.Open sql,conn
<tr align=center bgcolor=#97D0FB height=20>
<td><b>选择</b></td>
<td><b>类别</b></td>
<td><b>文章标题</b></td>
<td><b>文章作者</b></td>
<td><b>发布日期</b></td>
<td><b>阅读次数</b></td>
<td><b>转发标记</b></td>
<td><b>转发人</b></td>
<td><b>操作一</b></td>
<td><b>操作二</b></td>
</tr>
<% for i=1 to rs.PageSize %>
<tr bgcolor=#EEF8FD height=20 onMouseOver='TrBgOnP(this);' onMouseOut='TrBgOffP(this);'>
<td align=center><input type="checkbox" name="whois" value="<% =rs("id") %>"></td>
<td align=center><a href="wz_manage.asp?BigClassName=<% =rs("BigClassName") %>&SmallClassName=<% =rs("SmallClassName") %>"><% =HtmlOut(rs("SmallClassName")) %></a></td>
<td align=left>[<% =HtmlOut(rs("laiyuan")) %>]<a href="wz_show.asp?id=<% =rs("id") %>" title='<%=rs("biaoti")%>'><% =HtmlOut(cutstr(rs("biaoti"),45))%></a></td>
<td align=center><% =HtmlOut(rs("zuozhe")) %></td>
<td align=center><% =HtmlOut(rs("riqi")) %></td>
<td align=center><% =HtmlOut(rs("yuedurenshu")) %></td>
<td align=center><% =HtmlOut(rs("caijibiaoji")) %></td>
<td align=center><% =HtmlOut(rs("zhuanfaren")) %></td>
-------------------------------------------------
wangzhanlanmu=Request.Form("Lanmu")
whois = Request.Form("whois")
search=" WHERE id in(" & whois &")"
table="wenzhangneirong"
'请参考下面代码排序
sql="select * from " & table & search & " order by xianshijibie,id desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.Open sql,conn
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
