<!--#include file="setting/conn.asp"--><%:SoonBiz.chkcls("form"):SoonBiz.iseditor=True:SoonBiz.title=xmlclass.getattribute("title"):SoonBiz.metakeywords=xmlclass.getattribute("tags"):SoonBiz.metadescription=xmlclass.getattribute("readme"):htmlstr=SoonBiz.Tp(cid,pn,"index"):pagemain():htmlstr=SoonBiz.HuiQiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.endhtml:Setallnothing:Sub pagemain():Dim sql,rs,arrs,i:Dim jinfang:Dim trhtml:Dim jintong(1,0):jintong(0,0)=xmlclass.getattribute("title"):jintong(1,0)="#":navstate=SoonBiz.Getnavstate(jintong):sql="select id,title,readme,f_state,optionlist,f_rows,f_size,mustfill from "& sheethead &"_formvalue where cid="& cid &" and classid="&classid&" order by cls asc,id asc":Set rs=soonbiz.execute(sql)
If Not rs.eof Then
arrs=rs.getrows(-1)
Else:arrs=""
End If:rs.close:Set rs=Nothing
If IsArray(arrs) Then
jinfang=UBound(arrs,2):ReDim soonhost(jinfang):For i=0 To jinfang:soonhost(i)=SoonBiz.Tp(cid,pn,"input"):soonhost(i)=Replace(soonhost(i),"{$id}",arrs(0,i)):soonhost(i)=Replace(soonhost(i),"{$title}",arrs(1,i)):soonhost(i)=Replace(soonhost(i),"{$readme}",arrs(2,i)&""):soonhost(i)=Replace(soonhost(i),"{$input}",htmlinput(arrs(0,i),arrs(3,i),arrs(4,i)&"",arrs(5,i),arrs(6,i))):soonhost(i)=Replace(soonhost(i),"{$name}","form"&arrs(0,i))
If arrs(7,i)=0 Then
soonhost(i)=Replace(soonhost(i),"{$*}","")
Else:soonhost(i)=Replace(soonhost(i),"{$*}",SoonBiz.Tp(cid,pn,"must"))
End If:Next:trhtml=Join(soonhost,"")
Else:trhtml=""
End If:htmlstr=SoonBiz.Tp(cid,pn,"index"):htmlstr=Replace(htmlstr,"{$title}",xmlclass.getattribute("title")):htmlstr=Replace(htmlstr,"{$action}","formpost.asp?u="& cid &"w"& classid):htmlstr=Replace(htmlstr,"{$trhtml}",trhtml):sql="select * from ["& sheethead &"_formhis] where ispass=1 and isdel=0 and cid="& cid &" and classid="& classid &" order by id desc"':her:now:::"comesome::"himselfcan::orthese
If instr(htmlstr,"{$postlist}")>0 Then htmlstr=Replace(htmlstr,"{$postlist}",SoonBiz.ReplaceMdb("",sql,SoonBiz.Tp(cid,pn,"postli"),xmlchannel.getattribute("cha_page"),0)) 
If instr(htmlstr,"{$pagelist}")>0 Then htmlstr=Replace(htmlstr,"{$pagelist}",SoonBiz.pagelist("?u="&cid&"w"& classid &"p{$page}"))
End Sub:Function htmlinput(inputid,f_state,f_option,f_rows,f_size):Dim shujun,i:select case f_state:case 0:shujun=SoonBiz.Tp(cid,pn,"text"):Case 1:shujun=SoonBiz.Tp(cid,pn,"textarea"):shujun=Replace(shujun,"{$rows}",f_rows):case 2:f_option=split(f_option,vbnewline):for i=0 to ubound(f_option):shujun=shujun & Replace(SoonBiz.Tp(cid,pn,"radio"),"{$value}",f_option(i)):next:case 3:f_option=split(f_option,vbnewline):for i=0 to ubound(f_option):shujun=shujun & Replace(SoonBiz.Tp(cid,pn,"checkbox"),"{$value}",f_option(i)):next:case 4:f_option=split(f_option,vbnewline):shujun=SoonBiz.Tp(cid,pn,"select"):for i=0 to ubound(f_option):shujun=shujun & "<option value="""&f_option(i)&""">"&f_option(i)&"</option>":Next:shujun=shujun & "</select>":case 5:shujun=SoonBiz.Tp(cid,pn,"password"):case 6:shujun=SoonBiz.Tp(cid,pn,"mail"):Case 7 :shujun=SoonBiz.Tp(cid,pn,"up"):shujun=Replace(shujun,"{$readhref}","inc/up.asp?u="& cid &"w"&classid&"&amp;obj="&inputid):Case 8 :shujun=SoonBiz.Tp(cid,pn,"fck"):shujun=replace(shujun,"{$id}",inputid):shujun=Replace(shujun,"{$adminimg}","<iframe id=""upfile"" src=""user/user_img.asp?cid="& cid &"&amp;obj=form"& inputid &""" frameborder=""0"" scrolling=""no"" width=""100%"" height=""280""></iframe>"):Case 9:shujun=SoonBiz.Tp(cid,pn,"code"):shujun=Replace(shujun,"{$codestr}",SoonBiz.codestr):end Select
If InStr(shujun,"{$size}")>0 Then
If f_size>0 Then
shujun=Replace(shujun,"{$size}","size="""& f_size &""" maxlength="""& f_size &"""")''?"sincemustnevermightsamebothhowout:herhas!mostorhe:
Else:shujun=Replace(shujun,"{$size}","class=""inputtext""")
End If
End If:htmlinput=shujun:End Function
%>