%
level1=1
level2=int(Request("level2"))
if level2=0 then
level2=10000
end if
level3=int(Request("level3"))
if level3=0 then
level3=10000
end if
'Response.Write (level1&level2&level3)
Function gettitle(doid)
set rsb=server.CreateObject("adodb.recordset")
sqlb="Select title from procata where id="&int(doid)
rsb.Open sqlb,conn,1,1
if NOT rsb.eof then
gettitle=rsb("title")
else
gettitle="未选择"
end if
end function
%>