程序出错,不知道怎么改?

sdsyzzz 2009-11-03 12:35:58
以下程序不能运行,请高手帮忙修改!
<%
Set conn = Server.CreateObject("ADODB.Connection")'创建一个数据库链接对象conn,方便后面调用
connstr="Provider=SQLNCLI;Server=127.0.0.1;Database=db1;Uid=sa;Pwd=zzz123;" '创建一个数据库的recordset对象,方便以后调用
conn.Open connstr
sql="select * from biao1"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
rs.addnew
rs("contents")=request.Form("text")
if request.Form("qqh")=1 then
rs("secrit")=1
else
rs("secrit")=0
rs.update
rs.movenext
set rs=nothing
%>
<form id="form1" name="form1" method="post" action="">
<label>
<textarea name="text" id="text"></textarea>
</label>
<label>
<input name="qqh" type="checkbox" id="qqh" value="1" />
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
...全文
71 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
yyh112 2009-11-03
  • 打赏
  • 举报
回复
<form id="form1" name="form1" method="post" action="">
yyh112 2009-11-03
  • 打赏
  • 举报
回复
明显的表单没有提交数据过去啊
net_yuhai 2009-11-03
  • 打赏
  • 举报
回复

<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=db1;User Id=sa;Password=zzz123;"
conn.Open connstr
sql="select * from biao1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3 '这个地方的1改成3,connstr改成conn
rs.addnew
rs("contents")=request.Form("text")
if request.Form("qqh")=1 then
rs("secrit")=1
else
rs("secrit")=0
rs.update
'rs.movenext 删除该行
set rs=nothing
%>
<form id="form1" name="form1" method="post" action="">
<label>
<textarea name="text" id="text"> </textarea>
</label>
<label>
<input name="qqh" type="checkbox" id="qqh" value="1" />
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
bing110 2009-11-03
  • 打赏
  • 举报
回复
呵……,Lz这样发贴,估计想帮你的都不知道怎么帮。
aier520 2009-11-03
  • 打赏
  • 举报
回复
rs.open sql,connstr,1,1
改成
rs.open sql,conn,1,1
yyh112 2009-11-03
  • 打赏
  • 举报
回复
<%
Set conn = Server.CreateObject("ADODB.Connection")'创建一个数据库链接对象conn,方便后面调用
connstr="Provider=SQLNCLI;Server=127.0.0.1;Database=db1;Uid=sa;Pwd=zzz123;" '创建一个数据库的recordset对象,方便以后调用
conn.Open connstr
sql="select * from biao1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("contents")=request("text")
if request("qqh")=1 then
rs("secrit")=1
else
rs("secrit")=0
end if
rs.update
rs.close
set rs=nothing
Response.write (" <script>alert('添加成功!');window.location='default.asp'; </script>")
%>
<form id="form1" name="form1" method="post" action="default.asp">
<textarea name="text" id="text"> </textarea>
<input name="qqh" type="checkbox" id="qqh" value="1" />
<input type="submit" name="Submit" value="提交" />
</form>
yyh112 2009-11-03
  • 打赏
  • 举报
回复
报什么错误
yyh112 2009-11-03
  • 打赏
  • 举报
回复
if system("qqh")=1 then
if request("qqh")=1 then
rs("secrit")=1
else
rs("secrit")=0
end if
end if

这是什么意思??
sdsyzzz 2009-11-03
  • 打赏
  • 举报
回复
以下是我修改的代码感谢各位的帮助,只是还试不行啊………………
<%
Set conn = Server.CreateObject("ADODB.Connection")'创建一个数据库链接对象conn,方便后面调用
connstr="Provider=SQLNCLI;Server=127.0.0.1;Database=db1;Uid=sa;Pwd=zzz123;" '创建一个数据库的recordset对象,方便以后调用
conn.Open connstr
sql="select * from biao1"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,3
rs.addnew
rs("contents")=request.Form("text")
if system("qqh")=1 then
if request("qqh")=1 then
rs("secrit")=1
else
rs("secrit")=0
end if
end if
rs.update
set rs=nothing
Response.write ("<script>alert('添加成功!');window.location='default.asp';</script>")
%>
<form id="form1" name="form1" method="post" action="default.asp">
<label>
<textarea name="text" id="text"></textarea>
</label>
<label>
<input name="qqh" type="checkbox" id="qqh" value="1" />
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧