注册 登录
编程论坛 ASP技术论坛

ASP高手请进,小弟请教?万分感谢!

haojibao 发布于 2010-12-07 10:31, 542 次点击
以下是小弟的程序,我想在增加一个无法汇报,不知道如何编写,请指教!
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

%>
5 回复
#2
hams2010-12-07 10:56
什么情况下是汇报不成功?
#3
haojibao2010-12-07 11:14
被退回的时候,在重新提交的,汇报不成功。
#4
mai_252010-12-07 12:00
sql="select * from jierenwu where id="&renwuid&" and userid="&userid&""
这个参数调用对吗  你是修改这个renwuid吗  还是id
#5
haojibao2010-12-07 12:06
对呀。
#6
mai_252010-12-07 12:14
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 编辑 ]
1