求asp高手帮助
网页源代码如下IE提醒出错，求高手帮助修改，在下不胜感激。。。。。IE提醒：
按’清除‘IE提醒frames.message.document为空或缺少对象
按’添加‘ie提醒document.form1.viewhtml.checked为空或缺少对象
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<script language="javascript">
function checkdata()
{
if (document.form1.title.value=="")
{
alert("对不起，请输入文章标题！")
document.form1.title.focus()
return false
}
if (document.form1.viewhtml.checked =="")
{
alert("对不起，请取消“查看HTML源代码”后再添加！")
document.form1.viewhtml.focus()
return false
}
if (document.form1.Content.value.length==0)
{
alert("对不起，请输入文章内容！")
//document.form1.content.focus()
return false
}
}
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
</script>
<script language="JavaScript">
<!-- Hide from older browsers...
//Function to format text in the text box
function FormatText(command, option){
frames.message.document.execCommand(command, true, option);
frames.message.focus();
}
//Function to add image
function AddImage(){
imagePath = prompt('请输入图片地址', 'http://');
if ((imagePath != null) && (imagePath != "")){
frames.message.document.execCommand('InsertImage', false, imagePath);
frames.message.focus();
}
frames.message.focus();
}
//Function to clear form
function ResetForm(){
if (window.confirm('确认要清空对话框内容?')){
frames.message.document.body.innerHTML = '';
return true;
}
return false;
}
//Function to open pop up window
function openWin(theURL,winName,features) {
window.open(theURL,winName,features);
}
function setMode(newMode)
{
bTextMode = newMode;
var cont;
if (bTextMode) {
cleanHtml();
cleanHtml();
cont=message.document.body.innerHTML;
message.document.body.innerText=cont;
} else {
cont=message.document.body.innerText;
message.document.body.innerHTML=cont;
}
message.focus();
}
function cleanHtml()
{
var fonts = message.document.body.all.tags("FONT");
var curr;
for (var i = fonts.length - 1; i >= 0; i--) {
curr = fonts[i];
if (curr.style.backgroundColor == "#ffffff") curr.outerHTML = curr.innerHTML;
}
}
// -->
</script>
<script language="JavaScript">
function help()
{
var helpmess;
helpmess="---------------填写帮助---------------\r\n\r\n"+
"1.请不要发表有危险性的脚本。\r\n\r\n"+
"2.如果要书写源代码，请选中\r\n\r\n"+
" 查看HTML源代码书写.\r\n\r\n"+
"3.需要你自己运行,才能看效果.\r\n\r\n"+
"4.如果书写js，尽量不要在这儿书写.\r\n\r\n";
alert(helpmess);
}
</script>
</head>
<body>
<form name="form1" method="post" action="addinform.asp" OnSubmit="return checkdata()" onReset="return ResetForm();">
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">添加专题文章</font></b></td>
</tr>
<tr >
<td width="20%" align="right" valign="top">文章标题：</td>
<td width="80%"> <input name="title" id=me type="TEXT" size=50 maxlength=100 style="background-color:ffffff;border: 1 double" onMouseOver="window.status='在这里输入要添加的文章标题，必填';return true;" onMouseOut="window.status='';return true;" title='在这里输入要添加的文章标题，必填'>
<span style='cursor:hand' title='缩短对话框' onClick='if (me.size>10)me.size=me.size-2'>-</span>
<span style='cursor:hand' title='加长对话框' onClick='if (me.size<102)me.size=me.size+2'>+</span>
</td>
</tr>
<tr >
<td align="right" valign="top">文章内容：</td>
<td class="forumRowHighlight"style="PADDING-LEFT: 10px"><textarea name="content" style="display:none"></textarea>
<iframe ID="content" src="editubb/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>
</td>
</tr>
<tr >
<td height="30"></td>
<td> <input type="submit" value=" 添 加 " name="Submit" class="unnamed5" OnClick=" ">
<input type="reset" value=" 清 除 " name="Reset" class="unnamed5">
<input type="button" value=" 返 回 " onClick="javascript:history.go(-1)" class="unnamed5">
<input type="hidden" name="Content" value=""> </td>
</tr>
</table>
</form>
<!--#include file="foot.asp"-->
</body>
</html>
按’清除‘IE提醒frames.message.document为空或缺少对象
按’添加‘ie提醒document.form1.viewhtml.checked为空或缺少对象
请高手帮助修改
