以下是小弟的程序，我想在增加一个无法汇报，不知道如何编写，请指教！
Set RE = Nothing
ToLink = strContent
End Function
function HTMLEncode2(fString)
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode2 = fString
end function


username=session("username")
userid=session("userid")
id=request("id")
renwuid=request("renwuid")

set rs=server.CreateObject("adodb.recordset")
sql="select * from jierenwu where id="&renwuid&" and userid="&userid&""
rs.open sql,conn,1,3
rs("tieurl")=request("tieurl")
rs("tiezhanghao")=request("tiezhanghao")
rs("tielouceng")=request("tielouceng")
rs("tiedate")=request("tiedate")
rs("tiecontent")=request("tiecontent")
rs("zhengju")=HTMLEncode2(ToLink(request("zhengju")))
rs("flag")=2

rs.update
rs.close
set rs=nothing

response.Write "<script language=javascript>alert('汇报成功！');window.location.href='mission.asp'</script>"
response.End

%>

什么情况下是汇报不成功？

被退回的时候，在重新提交的，汇报不成功。

sql="select * from jierenwu where id="&renwuid&" and userid="&userid&""
这个参数调用对吗  你是修改这个renwuid吗  还是id

对呀。

Set RE = Nothing
ToLink = strContent
End Function
function HTMLEncode2(fString)
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode2 = fString
end function


username=session("username")
userid=session("userid")
id=request.form("id")
renwuid=request.form("renwuid")

exec="select * from jierenwu where id="&renwuid&" and userid="&userid&""
set eidt=server.createobject("adodb.recordset")
eidt.open exec,conn,1,3
eidt("tieurl")=request.form("tieurl")
eidt("tiezhanghao")=request.form("tiezhanghao")
eidt("tielouceng")=request.form("tielouceng")
eidt("tiedate")=request.form("tiedate")
eidt("tiecontent")=request.form("tiecontent")
eidt("zhengju")=request.form("zhengju")  '这是有可能不对 HTMLEncode2(ToLink(request.form("zhengju")))  试试看
eidt("flag")=2
eidt.update
eidt.close
set eidt=nothing
response.Write "<script language=javascript>alert('汇报成功！');window.location.href='mission.asp'</script>"
response.End

如果在不对，就要检查下你的权限了

[ 本帖最后由 mai_25 于 2010-12-7 12:15 编辑 ]