asp网页内,如何使用复选框添加数据

2024-11-12 03:56:45
推荐回答(2个)
回答1:

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("数据库路径")
%>



无标题文档

<%
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
%>















语言:



普通话


英语


粤语

音乐:
口琴


钢琴


吉他




回答2:

















<% for i=1 to rs.PageSize %>












-------------------------------------------------

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

选择 类别 文章标题 文章作者 发布日期 阅读次数 转发标记 转发人 操作一 操作二
"> &SmallClassName=<% =rs("SmallClassName") %>"><% =HtmlOut(rs("SmallClassName")) %> [<% =HtmlOut(rs("laiyuan")) %>]" title='<%=rs("biaoti")%>'><% =HtmlOut(cutstr(rs("biaoti"),45))%> <% =HtmlOut(rs("zuozhe")) %> <% =HtmlOut(rs("riqi")) %> <% =HtmlOut(rs("yuedurenshu")) %> <% =HtmlOut(rs("caijibiaoji")) %> <% =HtmlOut(rs("zhuanfaren")) %>