中国安全门禁网,联网考勤门禁,联动门禁 2008-6-1 16:09:40

<optionvalue=""选择类别</option

<%whilenotsors.eof%

<optionvalue="<%=sors("fchrfirsttypeid")%"<%=sors("fchrfirstname")%</option

<%

sors.movenext

wend

%

</select

</td

</tr

<!#includefile=../database/conn/conn.asp

<%

'处理联级下拉列表

dimxmldoc,xmlresultdoc,strinxml

setxmldoc=server.createobject("msxml.domdocument")

setxmlresultdoc=server.createobject("msxml.domdocument")

dimblnload

blnload=xmldoc.load(request)

ifblnloadthen

strinxml=xmldoc.childnodes(0).text

'response.writestrinxml

'response.end

ssql="selectfchrsecondtypeid,fchrsecondnamefromsecondtypetablewherefchrfirsttypeid='"&strinxml&"'"

dimorsxml,resoutxml

setorsxml=conn.execute(ssql)

resoutxml="<resout"

whilenotorsxml.eof

resoutxml=resoutxml&"<r1attr='"&orsxml("fchrsecondtypeid")&"'"&orsxml("fchrsecondname")&"</r1"

orsxml.movenext

wend

resoutxml=resoutxml&"</resout"

ifresoutxml="<resout</resout"then

callxmlresultdoc.loadxml("<errorerrdesc='没有记录'</error")

else

callxmlresultdoc.loadxml("<errorerrdesc=''"&resoutxml&"</error")

endif

else

callxmlresultdoc.loadxml("<errorerrdesc'载入xml串失败'</error")

endif

response.contenttype="text/xml"

callxmlresultdoc.save(response)

setorsxml=nothing

setconn=nothing

%

回复内容

sunshift:

正在努力学习中?

广告最新招聘信息

copyright©19992008programfan.com.allrightsreserved

论坛制作&维护：hannibalemail:

最佳浏览效果：ie6.0+或firefox1.5+分辨率：1024768

责任编辑: 参与评论