Response 对象, ASP 0106 (0x80020005) 遇到未处理的数据类型。 /iddailyEdit.asp
问题补充:
dim action
action=Trim(Request("action"))
if(action="add")then
IddailyAdd()
elseif(action="edit")then
IddailyEdit()
elseif(action="del")then
IddailyDel()
elseif(action="delAll")then
IddailyDelAll()
elseif(action="answer")then
IddailyAnswer()
end if
sub IddailyEdit()
iddailyId=Trim(Request("iddailyId"))
BContact=Trim(Request("BContact"))
BContent=Trim(Request("BContent"))
sentiment=Trim(Request("sentiment"))
sentiment1=Trim(Request("sentiment1"))
sentiment2=Trim(Request("sentiment2"))
improve=Trim(Request("improve"))
Answer=Trim(Request("Answer"))
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from Iddaily where iddailyId="&iddailyId&" "
rs.open sql,conn,1,3
if not rs.eof then
rs("BContact")=BContact
rs("BContent")=BContent
rs("sentiment")=sentiment
rs("sentiment1")=sentiment1
rs("sentiment2")=sentiment2
rs("improve")=improve
rs("Answer")=Answer
rs("AnswerUserId")=loginUserIdStr
rs.update
rs.close()
set rs=nothing
Response.Write("<script>alert('修改成功');location.href='iddaily.asp?action=one';</script>")
else
Response.Write("<script>alert('周报表不存在!');history.go(-1);</script>")
end if
end sub
宁大叔
|
初学一级
|
园豆:
200
提问于:2010-12-06 11:32