ASP高手请进，小弟请教？万分感谢！ - ASP技术论坛

已结贴√ 问题点数：13 回复次数：5

ASP高手请进，小弟请教？万分感谢！

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

%>

搜索更多相关主题的帖子: ASP　感谢　

第 2 楼

得分:7

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

俺不高手，俺也是来学习的。
俺的意见不一定就对，当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时，可在论坛问下路，但你若希望别人能一路把你送到目的地，显然是不现实的，因为别人也有自己要走的路。

第 3 楼

得分:0

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

第 4 楼

得分:7

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

http://www.，就算跌倒也要豪迈的笑。

第 5 楼

得分:0

对呀。

第 6 楼

得分:0

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 编辑 ]

http://www.，就算跌倒也要豪迈的笑。