rs.open sqltext,conn,3,3改为rs.open sqltext,conn,1,3

回小猪：
也不行


关于数据库的权限怎么更改？

把程序发来我看看好不？

都要哪几个程序？我把整站打包传上来看看吧

把要用到的上传上来，还有就是那个表

嗯 这个是留言系统，你看看帮我改好了吧？

[此贴子已经被作者于2006-8-21 10:34:45编辑过]

数据库的权限我也改过了，可还是不行呢？

看过你的代码..真是很晕,你的表单应该是要在本页进行提交吧?
因为你的数据更新(添加)代码是写在jzxx.asp这个页面,那为什么
 <form name="form1" method="post" action="tj.asp" encType=text/plain >

这又是tj.asp???

怎么可能添加成功呢?

你的tj.asp这个页面呢?代码是什么?

如果要是在本页提交，而不在tj.asp这个页面提交 那应该怎么改？

<%IF Request.QueryString("action")="login" Then %>

<%
dim Name,Unit,Address,Phone,Fax,Email,Others,Message
set rs=server.createobject("adodb.recordset")
sqltext="select * from [Message]"
rs.open sqltext,conn,1,3

'添加一个留言到数据库
rs.addnew
rs("Name")=request.form1("Name")
rs("Unit")=request.form1("Unit")
rs("Address")=request.form1("Address")
rs("Phone")=request.form1("Phone")
rs("Fax")=request.form1("Fax")
rs("Email")=request.form1("Email")
rs("Others")=request.form1("Others")
rs("Message")=request.form1("Message")
rs.update
rs.close
set rs=nothing
response.Write("<center><meta http-equiv='refresh' content='3;URL=jzxx.asp'><BR><BR><a href='jzxx.asp'>添加成功点击返回或三秒后自动返回</a></center>")
response.end

%>

<%else%>

<form name="form1" method="post" action="jzxx.asp?action=login" encType=text/plain >
.......


<%end if%>

自己看一下

[此贴子已经被作者于2006-8-21 11:34:46编辑过]