math.asp

有没有用DELPHI做的网上评分系统啊 我急需

<%
t1=Server.Htmlencode(Request("t1"))
t2=Server.Htmlencode(Request("t2"))
t3=Server.Htmlencode(Request("t3"))
t4=Server.Htmlencode(Request("t4"))
t5=Server.Htmlencode(Request("t5"))
t6=Server.Htmlencode(Request("t6"))
t7=Server.Htmlencode(Request("t7"))
t8=Server.Htmlencode(Request("t8"))
t9=Server.Htmlencode(Request("t9"))
t10=Server.Htmlencode(Request("t10"))
t_t=int(t1)+int(t2)+int(t3)+int(t4)+int(t5)+int(t6)+int(t7)+int(t8)+int(t9)+int(t10)
t=t_t/10.00
m1=Server.Htmlencode(Request("m1"))
m2=Server.Htmlencode(Request("m2"))
m3=Server.Htmlencode(Request("m3"))
m4=Server.Htmlencode(Request("m4"))
m5=Server.Htmlencode(Request("m5"))
m6=Server.Htmlencode(Request("m6"))
m7=Server.Htmlencode(Request("m7"))
m8=Server.Htmlencode(Request("m8"))
m9=Server.Htmlencode(Request("m9"))
m10=Server.Htmlencode(Request("m10"))
m_m=int(m1)+int(m2)+int(m3)+int(m4)+int(m5)+int(m6)+int(m7)+int(m8)+int(m9)+int(m10)
m=m_m/10.00
c1=Server.Htmlencode(Request("c1"))
c2=Server.Htmlencode(Request("c2"))
c3=Server.Htmlencode(Request("c3"))
c4=Server.Htmlencode(Request("c4"))
c5=Server.Htmlencode(Request("c5"))
c6=Server.Htmlencode(Request("c6"))
c7=Server.Htmlencode(Request("c7"))
c8=Server.Htmlencode(Request("c8"))
c9=Server.Htmlencode(Request("c9"))
c10=Server.Htmlencode(Request("c10"))
c_c=int(c1)+int(c2)+int(c3)+int(c4)+int(c5)+int(c6)+int(c7)+int(c8)+int(c9)+int(c10)
c=c_c/10.00
z1=Server.Htmlencode(Request("z1"))
z2=Server.Htmlencode(Request("z2"))
z3=Server.Htmlencode(Request("z3"))
z4=Server.Htmlencode(Request("z4"))
z5=Server.Htmlencode(Request("z5"))
z6=Server.Htmlencode(Request("z6"))
z7=Server.Htmlencode(Request("z7"))
z8=Server.Htmlencode(Request("z8"))
z9=Server.Htmlencode(Request("z9"))
z10=Server.Htmlencode(Request("z10"))
z_z=int(z1)+int(z2)+int(z3)+int(z4)+int(z5)+int(z6)+int(z7)+int(z8)+int(z9)+int(z10)
z=z_z/10.00
total=t+m+c+z

%>