onlineanswer.asp

一个心理测试软件

<%start="心理测试"%>
<!--#include file="inc/inc.asp"-->
<SCRIPT>top()</SCRIPT>

<%
dim idd
idd=request.querystring("id")
response.write vbcrlf & "<script language=""javascript"">" & vbcrlf
response.write "function table_title(){" & vbcrlf
  if  cint(idd)<100 then
response.write "document.write(""<img src=images/biao.gif align=absmiddle>&nbsp;心理测试--->爱情测试"
response.write """);" & vbcrlf
  elseif cint(idd)>100 and cint(idd)<200 then
response.write "document.write(""<img src=images/biao.gif align=absmiddle>&nbsp;心理测试--->综合测试"
response.write """);" & vbcrlf
  elseif cint(idd)>200 then
response.write "document.write(""<img src=images/biao.gif align=absmiddle>&nbsp;心理测试--->个性测试"
response.write """);" & vbcrlf
end if
response.write "}" & vbcrlf


response.write "function table_main(){" & vbcrlf
response.write "document.write(""<table border=0 align=center cellpadding=3 cellspacing=1 class=a3 >"  
response.write """);" & vbcrlf
               
response.write "document.write(""<tr> <td height=500 valign=top width=548><iframe name='I1' src='plus/ontest/"&idd&".html' height=100% width=100% border=0 frameborder=0 style='font-size: 9pt; font-family: 宋体; color: #000000; border: 1px dashed #008080; background-color: #EFF0F1' align=left></iframe></td></tr><tr> <th><a href='javascript:history.back()'>返回</a></th></tr></table>"
response.write """);" & vbcrlf
response.write "}" & vbcrlf

response.write "function title_menu(){" & vbcrlf
response.write "document.write("""
response.write "<img src=images/link2.gif> <a href="&murl1&" title='"&menu1&"'>"&menu1&"</a>&nbsp; <img src=images/link2.gif> <a href="&murl2&" title='"&menu2&"'>"&menu2&"</a>&nbsp;<img src=images/link2.gif> <a href="&murl3&" title='"&menu3&"'>"&menu3&"</a>&nbsp;<img src=images/link2.gif> <a href="&murl4&" title='"&menu4&"'>"&menu4&"</a>&nbsp;<img src=images/link2.gif> <a href="&murl5&" title='"&menu5&"'>"&menu5&"</a>"
response.write """);" & vbcrlf
response.write "}" & vbcrlf


response.write "function table_left(){" & vbcrlf
response.write "document.write("""
call left_t_1("<table align=center height=22><tr><td><b>本 站 声 明</b></td></tr></table>本站的大部分资料，文章都来自网上收集，其版权归作者本人所有，如果有任何侵犯您权益的地方，请联系我们，我们将马上进行整理，谢谢。")
response.write """);}" & vbcrlf


response.write "</script>"
%>


<script>title()</script>
<script>vtop()</script>

<script>table()</script>

<Script>vbottom()</Script>
<script>vtop()</script>
<script>table1("","<p align=center>"+add+"<br><br><font color=#ff0000>"+cou+"</font>")</script>
<script>bottom()</script>