大家帮我看下这asp代码,为什么出错

来源:百度知道 编辑:UC知道 时间:2024/05/20 19:55:10
<html>
<head>

<script language="vbscript"
<!--
Sub bcolor(dim color)
If color=1 Then
document.bgColor="red"
ElseIf color=2 then
document.bgcolor="black"
ElseIf color=3 then
document.bgcolor="green"
else
document.bgcolor="yellow"
End If
End Sub
-->
</script>
</head>
<body>

<table border="2">
<tr><th>背景色</th><th>选择</th><th>背景色</th><th>选择</th></tr>
<tr><td>红色</td><td><input type="radio" onClick="bcolor(1)"></td><td>黑色</td><td><input type="radio" onClick="bcolor(2)"></td></tr>
<tr><td>绿色</td><td><input ty

其实你的代码只有2个错误:
1.<script language="vbscript"
后面没有括号,补一个>

2.Sub bcolor(dim color)
不要这里面使用Dim

=============我喜欢这样用呵===============

<html>
<head>
<script language="vbscript">
<!--
Sub bcolor(i)
if i=1 then
bgColor="red"
elseif i=2 then
bgcolor="black"
elseif i=3 then
bgcolor="green"
elseif i=4 then
bgcolor="yellow"
end if
document.bgcolor=bgColor
end sub
-->
</script>

</head>
<body>

<table border="2">

<tr><th>背景色</th><th>选择</th><th>背景色</th><th>选择</th></tr>
<tr><td>红色</td><td><input type="radio" onclick=bcolor(1)></td><td>黑色</td><td><input type=&qu