<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% guid=Request.Cookies("guid") if guid="" then Set gid = CreateObject("Scriptlet.TypeLib") response.Cookies("guid")=mid(gid.Guid,2,36) set gid=nothing end if %> 九型人格测试 <% id=sqlstr(Request.QueryString("id"),1) if id="" then %>
1/144
我认为我很浪漫并富于幻想。 我认为自己很实际并实事求是。

在此测试中,答案没有正确与错误之分,它反映的只是你的个性和你的世界观。

请仔细阅读每一道题中的两个选项,并根据你自己的行为习惯做出选择,并点击选项。

在答题时,可能你觉得两个选项都不适合你,或两个选项都适合你。无论哪种情况,请选择其中你最倾向的答案。如果漏选或多选,将影响你的测试结果!

<% else %>

你的测试结果:有疑问请加微信:15118880375

<% for i=1 to 9 set rs=conn.execute("select count(id) from qv where v="&i&" and guid='"&id&"'") xx=cint(cint(rs(0))/144*100) %> <% closers() next %>
<%=rs(0)%>
1号 2号 3号 4号 5号 6号 7号 8号 9号
<% end if %> <%closeconn()%>