以下是小弟的程序，我想在增加一个无法汇报，不知道如何编写，请指教！
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

%>

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

对呀。