那位高手能帮一下忙把下面的ASP转化成外挂的javascript！！！！
help！！！！先谢了！！！
代码如下：
<%@ Language=VBScript %>
<%if Request.ServerVariables("REQUEST_METHOD")="POST" then
dim num(25)
Response.Write("")
Response.Write("")
response.write("
")
for i=1 to 25
c=Request.Form("text"&i)
if not isnumeric(c) then
check=true
Response.Write("
请填写完整并且保证输入的是数字！！
")
response.write("
返回
")
exit for
else
if asc(c)
asc(5) then
check=true
Response.Write("输入的数字必须是在1—5之间的数！！
")
response.write("返回
")
exit for
else
num(i-1)=clng(Request.Form("text"&i))
end if
end if
next
if not check then
for j=0 to 4
numa=numa+num(j*5)
numb=numb+num(j*5+1)
numc=numc+num(j*5+2)
numd=numd+num(j*5+3)
nume=nume+num(j*5+4)
next
end if
max=numa
if numb>max then
max=numb
end if
if numc>max then
max=numc
end if
if numd>max then
max=numd
end if
if nume>max then
max=nume
end if
if max=numa and numa<>0 then
Response.Write("
")
Response.Write("你创造能力强，跳跃性的思维使你遥遥领先于其它人，故而是个富有挑战性的人物。你酷嗜思辨哲好，因而易于脱离实际；你善于从不同的角度看待任何真理。所以一个热心的辩论者是你时常扮演的角色。爱好思辨走到极端便是形而上学，一个社会需要哲学家，但不需要你时时事事都做哲学家，否则你将会失去体验享受生活的千姿百态、新鲜甘美的机会。 |
")
response.write("返回
")
Response.Write("
")
end if
if max=numb and numb<>0 then
Response.Write("
")
Response.Write("你一生致力于实现既定的目标价值，追求道德及自身的完善；善于通过类比寻求论据；乐于听取他人意见；你着眼实现，这是件很好的事情，但不能苟求其它人也做同样的事，因为那只是你的目标而已。所以当你看到周围的人过得庸庸碌碌、黯黯淡淡时，不必深感失望。这个世界上每个人都有选择如何走完人生旅程的自由，只要他自己感到合适，谈不上此种选择一定劣于彼种。子非鱼，焉知鱼之乐》完全不必替别人遗憾伤感。 |
")
response.write("返回
")
Response.Write("
")
end if
if max=numc and numc<>0 then
Response.Write("
")
Response.Write("你对待生活的态度活跃灵动，因而没有什么是绝对困难的，机会随时随地等着你去发现；你的注意总集中在寻找可行的办法，完成可能实现的事业上；你富于改革精神，善于应变，是个灵活的高手。尽管你有如许优点，仍须意识到，这只说明你对现实世界的具体事务应付自如，一旦要求你对一系列事情作出周密策划，或为未来前景勾画蓝图，你可能感到一筹莫展，因为你常常事务缠身，从没有机会考虑这方面的事情。 |
")
response.write("返回
")
Response.Write("
")
end if
if max=numd and numd<>0 then
Response.Write("
")
Response.Write("你确信做任何事都存在选取最佳方案的问题，因而每当面对一个新问题，你总要弄清楚问题的实质并尽量搜集信息，周密地制定出最佳解决方案；方案既定便很难更变，除非经论证确有更佳之策。你的长处是力求精确周密，办公室里你可以充分发扬之，如在生活中也坚持事事如此，恐怕会招来吹毛求疵的恶名。因为生活本身就是散乱，无序的，“计划”、“方案”何能将它囊括殆尽？ |
")
response.write("返回
")
Response.Write("
")
end if
if max=nume and nume<>0 then
Response.Write("
")
Response.Write("你注重事实，尤其是自己面对的事实，觉得对思辨的热衷和对价值目标的追求，如同想在海市蜃楼中找一块果腹的面包一样，既徒劳又可笑；你对客观事实洞察无遗，做起事来坚定自信，决不妥协。你立在自己坚实的土地上，自信而自豪。但不要忘记世界的多样丰富和广阔深远，任何人穷其一生也只能领略它很小的一部分，你怎能断言你经历、感觉范围之外的一切都不存在呢？ |
")
response.write("返回
")
Response.Write("
")
end if
else
%>
思想道德修养
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
