过程调用问题求助 - ASP技术论坛

zfc123

等　级：论坛游民
帖　子：136
专家分：39
注　册：2007-5-4
结帖率：84.62%

楼主

已结贴√ 问题点数：10 回复次数：3

过程调用问题求助

在本论坛求助过好几个问题了，都得到了解决，感谢论坛的高手们．现在还需要请教一个问题，还请高手帮助．
下面这段代码，我想提取出来中间红色部分，单独放在一个过程里，然后调用他．但是却无法正常保存．

程序代码：

sub SaveAdd()
set rs=server.createobject("adodb.recordset")
sql="select * from MenuClass"
rs.open sql,conn,1,3
call rsup(newRootID)
rs.addnew
    rs("ClassName")=newClassName
    rs("Readme")=newReadme
    rs("LinkUrl")=newLinkUrl
    rs("LinkUrlasp")=newLinkUrlasp
    rs("RootID")=cint(newRootID)
    rs("Child")=0
    rs("NextID")=0
    rs("Depth")=0
    if newShowONtop="yes" then
        rs("ShowONtop")=True
    else
        rs("ShowONtop")=False
    end if
    rs.update
rs.close
set rs=nothing
response.redirect "Admin_Class_Menu.asp"
end sub

改成这个样子

程序代码：

sub SaveAdd()
set rs=server.createobject("adodb.recordset")
sql="select * from MenuClass"
rs.open sql,conn,1,3
call rsup(newRootID)
rs.addnew
call aa()
rs.close
set rs=nothing
response.redirect "Admin_Class_Menu.asp"
end sub

sub aa()
    rs("ClassName")=newClassName
    rs("Readme")=newReadme
    rs("LinkUrl")=newLinkUrl
    rs("LinkUrlasp")=newLinkUrlasp
    rs("RootID")=cint(newRootID)
    rs("Child")=0
    rs("NextID")=0
    rs("Depth")=0
    if newShowONtop="yes" then
        rs("ShowONtop")=True
    else
        rs("ShowONtop")=False
    end if
    rs.update
end sub