<%
'================================================
'程序制做:迅捷商务. http://www.soonbiz.com
'提供中英双语 多功能自助网站开发建设
'业务范围:域名注册,虚拟主机,网站推广,网站建设,网站翻译
'=================================================
Dim titleinfo,titlereadme
classid=Sjweb.rid("id")
SjWeb.LoadTemplates("form")
pagemain
Response.write SjWeb.HeadHtml(mainhtml)
setallnothing
Sub pagemain()
sql="select title_cn,readme_cn from sj_class where id=" & classid
Set rs=Sjweb.execute(sql)
If rs.eof Then
DisRs
ShowErr("调查表不存在或已删除")
Else
titleinfo=rs(0)
titlereadme=rs(1)
DisRs
End If
sql="select id,f_state,title,f_option,f_width,f_readme,cls,stime from sj_formvalue where classid="&classid&" order by cls desc,id asc"
Set rs=Sjweb.execute(sql)
If Not rs.eof Then
arrs=rs.getrows(-1)
End If
DisRs
If IsArray(arrs) Then
icount=UBound(arrs,2)
ReDim soonbiz(icount)
For i=0 To icount
soonbiz(i)=template.html(1)
soonbiz(i)=Replace(soonbiz(i),"{$title}",arrs(2,i))
soonbiz(i)=Replace(soonbiz(i),"{$readme}",arrs(5,i)&"")
soonbiz(i)=Replace(soonbiz(i),"{$input}",htmlinput(arrs(0,i),arrs(1,i),arrs(3,i),arrs(4,i)))
Next
trhtml=Join(soonbiz,"")
End If
mainhtml=template.html(0)
mainhtml=Replace(mainhtml,"{$tilteinfo}",titleinfo)
mainhtml=Replace(mainhtml,"{$classid}",classid)
mainhtml=Replace(mainhtml,"{$action}","formpost.asp")
mainhtml=Replace(mainhtml,"{$strcode}",Sjweb.GetCode)
mainhtml=Replace(mainhtml,"{$trhtml}",trhtml)
mainhtml=mainhtml & ""
End Sub
Function htmlinput(inputid,f_state,f_option,f_width)
Dim tempstr,ii
select case f_state
case 1
tempstr = ""
Case 2
tempstr = ""
case 3
f_option = split(f_option,"|")
for ii=0 to ubound(f_option)
tempstr = tempstr & " "&f_option(ii)&" "
next
case 4
f_option=split(f_option,"|")
for ii=0 to ubound(f_option)
tempstr = tempstr & " "&f_option(ii)&" "
next
case 5
f_option=split(f_option,"|")
tempstr = ""
case 6
tempstr = ""
case 7
tempstr = ""
end Select
htmlinput = tempstr
End Function
%>