回 帖 发 新 帖 刷新版面

主题:哪错了?

<script language="VB" runat="server">
Sub Enter_Click(Sender As Object,E As EventArgs)
Dim strMessage As String
strMessage="姓名:"&user_name.value
strMessage=strMessage&"<br>密码:"&password.value
If sex1.checked="True"Then
strMessage=strMessage&<br>性别:"&sex1.value
Elseif sex2.checked="True"Then
strMessage=strMessage&"<br>性别:"&sex2.value
End If
If love1.checked="True"Then
strMessage=strMessage&"<br>爱好1:"&love1.value
If love2.checked="True"Then
strMessage=strMessage&"<br>爱好2:"&love2.value
End If
strMessage=strMessage&"<br>职业:"&career.value
strMessage=strMessage&"<br>简介:"&introduction.value
message.innerhtml=strMessage
End sub
</script>
<html>
<body>
<h4 align="center">请填写个人信息</h4>
<form runat="server">
姓名:<input id="user_name" type="text" runat="server"/><br>
密码:<input id="password" type="password" runat="server"/><br>
性别:<input id="sex1" type="radio" value="男" name="sex" runat="server"/>男
<input id="sex2" type="radio" value="女" name="sex" runat="server"/>女<br>
爱好:<input id="love1" type="checkbox" value="音乐" runat="server"/>音乐
<input id="love2" type="checkbox" runat="server"/>计算机<br>
职业:<select id="career" runat="server">
<option value="教育业">教育业</option>
<option value="金融业">金融业</option>
<option value="其他">其他</option>

</select><br>
简介:<textarea id="introduction" rows="2" cols="40" runat="server"/><br>
<input type="submit" value="提交" onClick="Enter_click" runat="server"/>
<input type="reset" value="重置" runat="server"/>
<div id="message" runat="server">请输入内容</div>
</form>
</body>
</html>


不知道哪错了 编好后运行“<input type="submit" value="提交" onClick="Enter_click" runat="server"/>
<input type="reset" value="重置" runat="server"/>
<div id="message" runat="server">请输入内容</div>
</form>
</body>
</html>
这部分跑到简介的文本框里去了 郁闷 谁来帮我看看啊 谢谢了

回复列表 (共2个回复)

沙发

帮你修正了,如下
<script language="VB" runat="server">
Sub Enter_Click(Sender As Object,E As EventArgs)
Dim strMessage As String
strMessage="姓名:"&user_name.value
strMessage=strMessage&"<br>密码:"&password.value
If sex1.checked="True"Then
strMessage=strMessage&<br>性别:"&sex1.value
Elseif sex2.checked="True"Then
strMessage=strMessage&"<br>性别:"&sex2.value
End If
If love1.checked="True"Then
strMessage=strMessage&"<br>爱好1:"&love1.value
If love2.checked="True"Then
strMessage=strMessage&"<br>爱好2:"&love2.value
End If
strMessage=strMessage&"<br>职业:"&career.value
strMessage=strMessage&"<br>简介:"&introduction.value
message.innerhtml=strMessage
End sub
</script>
<html>
<body>
<h4 align="center">请填写个人信息</h4>
<form runat="server">
姓名:<input id="user_name" type="text" runat="server"/><br>
密码:<input id="password" type="password" runat="server"/><br>
性别:<input id="sex1" type="radio" value="男" name="sex" runat="server"/>男
<input id="sex2" type="radio" value="女" name="sex" runat="server"/>女<br>
爱好:<input id="love1" type="checkbox" value="音乐" runat="server"/>音乐
<input id="love2" type="checkbox" runat="server"/>计算机<br>
职业:<select id="career" runat="server">
<option value="教育业">教育业</option>
<option value="金融业">金融业</option>
<option value="其他">其他</option>

</select><br>
简介:<textarea id="introduction" rows="2" cols="40" runat="server"></textarea >
<br>
<input type="submit" value="提交" onClick="Enter_click" runat="server"/>
<input type="reset" value="重置" runat="server"/>
<div id="message" runat="server">请输入内容</div>
</form>
</body>
</html>

板凳

晕少了结束。。。。
</textarea >
十分感谢。。。。看我粗心的 哎

我来回复

您尚未登录,请登录后再回复。点此登录或注册