document.write(""); document.write(""); document.write(""); document.write(""); document.write(""); document.write("
"); document.write(" "); document.write(" "); <%if ongbookface=1 then%> document.write("
user/?act=editface&type=open',end:function(){location.reload();}})\")>
"); <%end if%> document.write(" "); <%if ongbookname=1 then%> document.write(" "); document.write(" "); <%end if%><%if ongbooktitle=1 then%> document.write(" "); <%end if%><%if ongbooktel=1 then%> document.write(" "); <%end if%><%if ongbookmail=1 then%> document.write(" "); <%end if%> document.write("<% echo (getCustom()) %>") <%if ongbookcontent=1 then%> document.write(" "); <%end if%><%if gbookCode=1 then%> document.write(" "); <%end if%> document.write(" "); document.write("
<%=gbookname%>：
<%=gbooktitle%>：
<%=gbooktel%>：
<%=gbookmail%>：
<%=gbookcontent%>： *" else echo ">"%>
<%=str_code%>：
 
"); document.write(" "); <% function getCustom() Dim rs,CustomFields,rs1,i,CustomNames,splitValue,checkstr,selectstr,valstr,topstr,endstr,filetype CustomFields="" Set rs=dbsqlr1("select CustomName,Custom,customValues,customOptions,customClass,customplace from [dbpre]Content_custom where Customtype ='gbook' order by CustomOrder asc,CustomID desc") Do While not rs.Eof valstr=rs(2) select case rs(4) case 0,1 getCustom= getCustom&""&rs(0)&"：" case 2 getCustom= getCustom&""&rs(0)&"： " case 3 getCustom= getCustom&""&rs(0)&"： " case 4,5,6 if ifstrin(rs(3),",") then getCustom= getCustom&""&rs(0)&"：" if rs(4)=6 then getCustom= getCustom&" " if rs(4)=5 then getCustom= getCustom& " " if rs(4)=6 then getCustom= getCustom& "" next if rs(4)=6 then getCustom= getCustom&" " if not isnul(rs(5)) then getCustom= getCustom&"*" getCustom= getCustom&"" end if end select rs.MoveNext Loop getCustom=topstr&getCustom&endstr End function function isred(str) if not isnul(str) then isred= "datatype='"&str&"'>*" else isred= ">" end if end function %>