当前位置：首页 → 问答吧 → 关于asp添加数据

关于asp添加数据

时间：2011-11-10

来源：互联网

我想添加一个单选框到数据库。

add_manage.asp页面<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from fxk_sort"
rs.open sql,conn,1,3
do while not rs.eof
%>
<body>
<form id="form1" name="form1" method="post" action="add_fxk.asp">
<table width="50%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#3399CC">
<tr>
<td width="15%" height="41">添加复选框</td>
<td width="59%"><%=rs("fxk")%><%=rs("sortname")%></td>
<td width="7%"><label>
<input type="checkbox" name="checkbox" value="<%=rs("id")%>" />
</label></td>
<%
rs.movenext
loop
%>
<td width="9%"><label>
<input type="submit" name="Submit" value="添加" onclick="{if(confirm('确定要添加记录吗?')){return true;}return false;}" />
</label></td>
<td width="10%" align="center" valign="middle"><label>
<input type="submit" name="Submit2" value="提交" />
</label></td>
</tr>

<tr>
<td height="38"> </td>
<td> </td>
<td> </td>
<td><label></label></td>
<td> </td>
</tr>
<tr>
<td height="36"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="44"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>

add_fxk.asp页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<% if request.Form("id")="" then %>
<%
id = request.Form("id")
idArr = split(id,",")
for i=0 to ubound(idArr)
sql = "select * from fxk_sort where id=" & trim(idArr(i))
rs.addnew
fxk=request.Form("fxk")
sortname=request.Form("sortname")
rs("fxk")=fxk
rs("sortname")=sortname
rs.update
response.Write("添加数据成功！")
rs.close
set rs=nothing
conn.close
set rs=nothing
response.Redirect("")
%>
<% end if %>

希望把我错误的地方更正过来，在下新手，能力有限，多多帮忙，谢谢了！

作者: a6623698 发布时间: 2011-11-10

add_manage.asp
form表单有问题

add_fxk.asp 判断有问题

<% if request.Form("id")="" then
response.write "没有数据！"
else
id = request.Form("id")
idArr = split(id,",")
for i=0 to ubound(idArr)
sql = "select * from fxk_sort where id=" & trim(idArr(i))
rs.addnew
fxk=request.Form("fxk")
sortname=request.Form("sortname")
rs("fxk")=fxk
rs("sortname")=sortname
rs.update
response.Write("添加数据成功！")
rs.close
set rs=nothing
conn.close
set rs=nothing
response.Redirect("")
%>
<% end if %>

作者: hefeng_aspnet 发布时间: 2011-11-10

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/admin_manage/add_manage.asp，行 11
还有这个错误

作者: a6623698 发布时间: 2011-11-10