<!--#include file="setting/conn.asp"--><%:Dim formid:formid=SoonBiz.RequestStr("表单号","formid","post",1,5,50,30,1):ShowErr(""):cid=SoonBiz.rid("cid"):Select Case SoonBiz.ract:Case "" : showform:Case "doread" : doread:End Select:htmlstr=SoonBiz.HuiQiaoHtml(htmlstr):htmlstr=SoonBiz.replaceallflag(htmlstr):SoonBiz.endhtml:Setallnothing:Sub showform():htmlstr=SoonBiz.Tp(cid,pn,"index"):htmlstr=htmlstr & "<script type=""text/javascript"">getobj(""formid"").value="""& formid &""";</script>":htmlstr=Replace(htmlstr,"{$action}","?act=doread"):End Sub:Sub doread():Dim sql,rs:SoonBiz.codeistrue:sql="select id from "& sheethead &"_formhis where formid='"& SoonBiz.Checkstr(formid) &"'":Set rs=SoonBiz.execute(sql)
If rs.eof Then
showerr("表单号错误,请重新输入")
End If:Rs.Close:Set Rs=Nothing:htmlstr=SoonBiz.ReplaceMdb("","select * from ["& sheethead &"_formhis] where formid='"& SoonBiz.Checkstr(formid) &"'",SoonBiz.Tp(cid,pn,"info"),"",1):Session("codestr")=Empty:End Sub
%>