跪求response.write输出字体颜色解决方法
<%OptionExplicit%><!--#Includefile="odbc_connection.asp"--><html><head><title></title...
<% Option Explicit %>
<!--#Include file="odbc_connection.asp"-->
<html>
<head><title></title></head>
<BODY background=bg.png>
<P align=center><FONT face=隶书 size=6>测试结果</FONT></P>
<h5>您的答案:</h5>
<%
on error resume next
dim strsqa,ra
strsqa="select * from topic2"
set ra=db.execute(strsqa)
dim mark,an,ge,i
i=1
ra.movefirst
do while not ra.eof
an=request.form(i)
if an="E" then
response.write ra("id")&". "& " * " &"("&ra("answer")&")"&" "
else
response.write ra("id")&". "&an&"("&ra("answer")&")"&" "
end if
if an=ra("answer") then
ge=ge+1
end if
i=i+1
ra.movenext
loop
mark=ge*1
response.write "<br>"&"<br>"&"您当前得分是:"&Cstr(mark)&"<p>"
%>
<h5>( )内的为正确答案:</h5>
</body>
</html>
以上语句中如何使response.write输出的an和"answer"为红色字体 展开
<!--#Include file="odbc_connection.asp"-->
<html>
<head><title></title></head>
<BODY background=bg.png>
<P align=center><FONT face=隶书 size=6>测试结果</FONT></P>
<h5>您的答案:</h5>
<%
on error resume next
dim strsqa,ra
strsqa="select * from topic2"
set ra=db.execute(strsqa)
dim mark,an,ge,i
i=1
ra.movefirst
do while not ra.eof
an=request.form(i)
if an="E" then
response.write ra("id")&". "& " * " &"("&ra("answer")&")"&" "
else
response.write ra("id")&". "&an&"("&ra("answer")&")"&" "
end if
if an=ra("answer") then
ge=ge+1
end if
i=i+1
ra.movenext
loop
mark=ge*1
response.write "<br>"&"<br>"&"您当前得分是:"&Cstr(mark)&"<p>"
%>
<h5>( )内的为正确答案:</h5>
</body>
</html>
以上语句中如何使response.write输出的an和"answer"为红色字体 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询