<% if session("login_flag")<>"success" then

nickname=trim(request("nickname"))
qq=trim(request("qq"))
email=trim(request("email"))
homepage=trim(request("homepage"))
address=trim(request("address"))
telephone=trim(request("telephone"))
subject=trim(request("subject"))
sex=trim(request("sex"))

else

set rs=server.CreateObject("adodb.recordset")
set connm=server.CreateObject("adodb.connection")
dim addcomstr2
connm.open "provider=microsoft.jet.oledb.4.0;data source="_
&server.mappath("lanyadb.mdb")&";persist security info=false"
addcomstr2="select * from music_user where user_id="&session("user_id")
rs.open addcomstr2,connm,1,1 //21

if rs("user_nickname")<>"" then
nickname=rs("user_nickname")
else
nickname=rs("user_id")
end if
qq=trim(rs("user_qq"))
email=trim(rs("user_email"))
sex=trim(rs("user_sex"))
homepage=trim(rs("user_homepage"))
address=trim(rs("user_address"))
telephone=trim(rs("user_telephone"))

rs.close
set rs=nothing

end if
content=replace(request("content"),chr(13),"<br>")

set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
dim addcomstr1
conn.open "provider=microsoft.jet.oledb.4.0;data source="_
&server.MapPath("lanyadb.mdb")&";persist security info=false"

addcomstr1="select * from commends"
rs.open addcomstr1,conn,3,3
rs.addnew

rs("nickname")=nickname
rs("qq")=qq
rs("email")=email
rs("homepage")=homepage
rs("address")=address
rs("telephone")=telephone
rs("subject")=subject
rs("sex")=sex
rs("content")=content
rs("datetime")=now()

rs.update
rs.close
set rs=nothing
session("login_flag")="success"
response.redirect "commends.asp"

%>


错误提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/lanya/addcommends.asp，行21

我弄了一天都没弄成功，问题出在哪里呢》？？？

回复yzwt2004
给了它直啊
content=replace(request("content"),chr(13),"<br>")

回复llingma
数据库是access的，类型是文本应该没错啊

回复yzwt2004
给了它直啊
content=replace(request("content"),chr(13),"<br>")
那就看看 request("content")提交后又没有值，如果是空值 那么replace(request("content"),chr(13),"<br>")也是空值，在存入数据库之前判断一下
if request("content")="" or isnull(request("content")) then
content="默认值"
end if

或者返回错误代码

回复llingma
数据库是access的，类型是文本应该没错啊

如果类型是文本的 就应该 userid='"&session(userid")&"'"
如果是数值性的 userid="&session("userid")

[此贴子已经被作者于2006-5-27 23:09:52编辑过]

好奇怪的赋值方式啊，能具体讲一吗？