<%
aboutthis=htmlencode2(request("about"))
if strlen(aboutthis)>=200 then
response.redirect "info.asp?msg=错误了,相片介绍超过200个字符 "
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
'sql="select top 1 about from pic where user_id =" & session("u_id") & " Order by id desc"
sql="select about from pic where user_id =" & session("u_id") & " Order by id desc"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.write "未找到相关记录"
else
rs("about")=aboutthis
rs.update
end if
rs.close
set rs=nothing
set conn=nothing
sql="select top 1 about from pic where user_id =" & Cint(session("u_id")) & " Order by id desc"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.write "未找到相关记录"
else
if Len(Trim(aboutthis))=0 then
rs("about")="暂时无介绍"
else
rs("about")=aboutthis
end if
rs.update
end if
rs.close
set rs=nothing
set conn=nothing
to angelheavens(龙辉)还是报同样的错
sql="select top 1 about from pic where user_id =" & session("u_id") & " Order by id desc"
rs.Open sql,conn,2,3
if Len(Trim(aboutthis))=0 then
rs("about")="暂时无介绍"
else
rs("about")=aboutthis
end if