怎么老出现HTTP 500 - 内部服务器错误
连界面都看不到,请各位试试看错在哪里
<!--#include file="conn.asp"-->
<% if trim(request("tijiao"))<>"" then doc_from=session("login_user") doc_to=trim(request("name")) frs=split(left(doc_to,len(doc_to)-1),",") doc_title=replace(trim(request("subject")),"'","''") doc_list=replace(session("filelist"),"'","''") doc_content=replace(trim(request("content")),vbcrlf,"<br>") doc_content=replace(doc_content,"'","''") savesend=trim(request("savesend")) doc=trim(request("send")) if trim(request("savesend"))<>"" then 'response.write "insert into forum_email (doc_from,doc_to,doc_title,doc_content,doc_list,doc) values ('"&doc_from&"','"&doc_to&"','"&doc_title&"','"&doc_content&"','"&doc_list&"','1')" ' response.end conn.execute "insert into forum_email (doc_from,doc_to,doc_title,doc_content,doc_list,doc) values ('"&doc_from&"','"&doc_to&"','"&doc_title&"','"&doc_content&"','"&doc_list&"','1')" end if for i=0 to ubound(frs) fr=frs(i) 'response.write "insert into forum_email (doc_from,doc_to,doc_title,doc_content,doc_list,doc) values ('"&doc_from&"','"&fr&"','"&doc_title&"','"&doc_content&"','"&doc_list&"','"&doc&"')" 'response.end conn.execute "insert into forum_email (doc_from,doc_to,doc_title,doc_content,doc_list,doc) values ('"&doc_from&"','"&fr&"','"&doc_title&"','"&doc_content&"','"&doc_list&"','"&doc&"')" next response.write "<br><br><br><br><br><br><br><br><br><br><br><br><h3><center>操作完成!</center>" session("fjoption")="" session("filelist")="" session("totalsize")="0" response.end end if %> <html> <head> <title>新邮件</title> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"> <meta http-equiv="pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache, must-revalidate"> <meta http-equiv="expires" content="wed, 26 Feb 1997 08:21:57 GMT"><link rel="stylesheet" href="../inc/test.css" type="text/css"> <script language="JavaScript"> <!--
function CheckForm () { var errorMsg = "";
if (document.frmAddMessage.name.value==""){ errorMsg += "\n\t收件人 \t- 请选择收件人"; }
if (document.frmAddMessage.Subject.value==""){ errorMsg += "\n\t主题 \t- 请填写邮件主题"; }
if (document.frmAddMessage.content.value==""){ errorMsg += "\n\t内容 \t- 请填写邮件内容"; } if (errorMsg != ""){ msg = "_____________________________________________________\n\n"; msg += "此邮件不能提交,因为有一些内容你还没有填写.\n"; msg += "请按要求把内容填完再提交.\n"; msg += "______________________________________________________\n\n"; msg += "以下内容要求填写: -\n"; errorMsg += alert(msg + errorMsg + "\n"); return false; } return true; }
// --> </script> <link rel="stylesheet" href="../inc/body.css" type="text/css"> <script language="JavaScript"> <!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true);
function go(){ document.frmAddMessage.Submit.disabled=true; Layer1.style.visibility="visible"; }
//--> </script> </head>
<body text="#000000" leftmargin="0" topmargin="0" scroll=no bgcolor="#FFFFFF" oncontextmenu="return false" >
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center" height="100%" > <tr align="center" > <td colspan="2" height="22" class="borderon" >写新邮件</td> </tr> <form method=post name="frmAddMessage" action="write_mail.asp" onSubmit="return CheckForm();" > <tr > <td width="100" height="20" class="borderon" ><div align="center">接 收 人:</div></td> <td class="borderon"> <input type="text" name="name" readonly> <img src="../images/addman.gif" width="16" height="16" onclick="showModalDialog('select.asp',window,'dialogHeight:400px;dialogWidth:280px;help:no;status:no;scroll:no');" style="cursor:hand" alt="请选择邮件接收人"> </td> </tr> <tr > <td width="100" height="20" class="borderon"><div align="center">邮件主题:</div></td> <td class="borderon" > <INPUT TYPE="text" NAME="Subject"> </td> </tr> <tr > <td height="20" class="borderon"><div align="center">附件列表</div></td> <td class="borderon" > <iframe id="fj" src="../upload/fj_iframe.asp" width=100% height="60" frameborder=0 scrolling=no></iframe></td> </tr> <tr > <td width="100" height="122" class="borderon"> <div align="center">邮件内容:</div></td> <td class="borderon"><textarea name="content" cols="70%" rows="6" id="content"></textarea> </td> </tr> <tr align="center"> <td colspan="2" height="40" class="borderon"> <span id=ss> <input type="checkbox" name="savesend" value="Yes"> 保存到发件箱</span> <input type="radio" name="send" value="0" checked onclick="ss.style.display='inline';"> 马上发送 <input type="radio" name="send" value="2" onclick="ss.style.display='none';"> 拟为草稿 <input name="tijiao" type="submit" id="tijiao" style="height:20px;" value="确定"> <input type="reset" name="Reset" value="重写" style="height:20px;"> </td> </tr> </form> </table> </body>
</html>
对应数据库
[此贴子已经被作者于2004-10-09 18:21:20编辑过]