shida_ceshi_answer.asp

来自「功能强大的bbs」· ASP 代码 · 共 39 行

<!--#include file=conn.asp-->
<!-- #include file=inc/const.asp -->
<%
Dvbbs.LoadTemplates("plus")
Dvbbs.stats="在线测试"
Dvbbs.Nav()
Dvbbs.Head_var 2,0,"",""
ConnectionDatabase()

call main()
Dvbbs.ActiveOnline()
Dvbbs.footer()

sub main()
dim idd
idd=request.querystring("id")%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder1>
  <tr> 
    <th height="25" align="center" valign="middle">
            <font color="#FF0000">
            <%if cint(idd)<100 then%>
      &nbsp;爱 情 测 试
<%elseif cint(idd)>100 and cint(idd)<200 then%>
      &nbsp;综 合 测 试
<%elseif cint(idd)>200 then%>
      &nbsp;个 人 测 试
<%end if%>            
            </font></th>
  </tr>
  <tr> 
    <td height="562" valign="top" class=TableBody1><iframe name="I1" src="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()"><font color="#FFFFFF">返回</font></a></th>
  </tr>
</table>
<%
end sub
%>