关于“错误 800a1391 server 未定义”的问题，请帮忙！

关于“错误 800a1391 server 未定义”的问题，请帮忙！ - 故障解答 - 电脑教程网

站点导航

关于“错误 800a1391 server 未定义”的问题，请帮忙！

日期：2007-08-05 荐：

关于“错误 '800a1391' 'server' 未定义”的问题，请帮忙！我根据教程做了个asp注册页面，运行时有如下的错误提示：Microsoft JScript 运行时错误错误 '800a1391''server' 未定义 D:\MYWEB\_PRIVATE\PR\SHIPING\../../../Connections/conn.asp, 行8 我的具体代码如下：<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%><%// *** Edit Operations: declare variables// set the form action variablevar MM_editAction = Request.ServerVariables("SCRIPT_NAME");if (Request.QueryString) { MM_editAction = "?" Request.QueryString;}// boolean to abort record editvar MM_abortEdit = false;// query string to executevar MM_editQuery = "";%><%// *** Redirect if username existsvar MM_flag="MM_insert";if (String(Request(MM_flag)) != "undefined") { var MM_dupKeyRedirect="regisbad.htm"; var MM_rsKeyConnection=MM_conn_STRING; var MM_dupKeyUsernameValue = String(Request.Form("name")); var MM_dupKeySQL = "SELECT name FROM user WHERE name='" MM_dupKeyUsernameValue "'" var MM_adodbRecordset = "ADODB.Recordset"; var MM_rsKey = Server.CreateObject(MM_adodbRecordset); MM_rsKey.ActiveConnection = MM_rsKeyConnection; MM_rsKey.Source = MM_dupKeySQL; MM_rsKey.CursorType=0; MM_rsKey.CursorLocation=2; MM_rsKey.LockType=3; MM_rsKey.Open(); if (!MM_rsKey.EOF || !MM_rsKey.BOF) { // the username was found - can not add the requested username var MM_qsChar = "?"; if (MM_dupKeyRedirect.indexOf("?") >= 0) MM_qsChar = "&"; MM_dupKeyRedirect = MM_dupKeyRedirect MM_qsChar "requsername=" MM_dupKeyUsernameValue; Response.Redirect(MM_dupKeyRedirect); } MM_rsKey.Close();}%><%// *** Insert Record: set variablesif (String(Request("MM_insert")) == "form2") { var MM_editConnection = MM_conn_STRING; var MM_editTable = "user"; var MM_editRedirectUrl = "regisok.htm"; var MM_fieldsStr = "name|value|pws|value|email|value|questiom|value|answer|value|oicq|value|icq|value|msn|value|url|value"; var MM_columnsStr = "name|',none,''|pwd|',none,''|email|',none,''|question|',none,''|answer|',none,''|oicq|none,none,NULL|msn|none,none,NULL|msn|',none,''|url|',none,''"; // create the MM_fields and MM_columns arrays var MM_fields = MM_fieldsStr.split("|"); var MM_columns = MM_columnsStr.split("|"); // set the form values for (var i=0; i 1 < MM_fields.length; i =2) { MM_fields[i 1] = String(Request.Form(MM_fields[i])); } // append the query string to the redirect URL if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) { MM_editRedirectUrl = ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") Request.QueryString; }}%><%// *** Insert Record: construct a sql insert statement and execute itif (String(Request("MM_insert")) != "undefined") { // create the sql insert statement var MM_tableValues = "", MM_dbValues = ""; for (var i=0; i 1 < MM_fields.length; i =2) { var formVal = MM_fields[i 1]; var MM_typesArray = MM_columns[i 1].split(","); var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : ""; var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : ""; var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : ""; if (formVal == "" || formVal == "undefined") { formVal = emptyVal; } else { if (altVal != "") { formVal = altVal; } else if (delim == "'") { // escape quotes formVal = "'" formVal.replace(/'/g,"''") "'"; } else { formVal = delim formVal delim; } } MM_tableValues = ((i != 0) ? "," : "") MM_columns[i]; MM_dbValues = ((i != 0) ? "," : "") formVal; } MM_editQuery = "insert into " MM_editTable " (" MM_tableValues ") values (" MM_dbValues ")"; if (!MM_abortEdit) { // execute the insert var MM_editCmd = Server.CreateObject('ADODB.Command'); MM_editCmd.ActiveConnection = MM_editConnection; MM_editCmd.CommandText = MM_editQuery; MM_editCmd.Execute(); MM_editCmd.ActiveConnection.Close(); if (MM_editRedirectUrl) { Response.Redirect(MM_editRedirectUrl); } }}%><%var Recordset1 = Server.CreateObject("ADODB.Recordset");Recordset1.ActiveConnection = MM_conn_STRING;Recordset1.Source = "SELECT * FROM user";Recordset1.CursorType = 0;Recordset1.CursorLocation = 2;Recordset1.LockType = 1;Recordset1.Open();var Recordset1_numRows = 0;%><html><head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>无标题文档</title><script language="JavaScript" type="text/JavaScript"></script></head><body><form action="<%=MM_editAction%>" method="POST" name="form2" onSubmit="MM_validateForm('textfield2','','R','textfield3','','R');return document.MM_returnValue"> <table width="95%" border="1" cellspacing="1" cellpadding="1"> <tr> <td>用户名：</td> <td> <input name="name" type="text" id="name" onBlur="MM_validateForm('textfield','','R','textfield2','','R','textfield3','','NisEmail','textfield6','','NisNum','textfield7','','NisNum');return document.MM_returnValue"></td> </tr> <tr> <td>密码：</td> <td> <input name="pws" type="password" id="pws"></td> </tr> <tr> <td>电子邮件：</td> <td> <input name="email" type="text" id="email" onBlur="MM_validateForm('textfield3','','NisEmail');return document.MM_returnValue"></td> </tr> <tr> <td>密码提示问题：</td> <td> <input name="questiom" type="text" id="questiom"></td> </tr> <tr> <td>密码提示答案：</td> <td> <input name="answer" type="text" id="answer"></td> </tr> <tr> <td>oicq:</td> <td> <input name="oicq" type="text" id="oicq"></td> </tr> <tr> <td>icq:</td> <td> <input name="icq" type="text" id="icq"></td> </tr> <tr> <td>msn:</td> <td> <input name="msn" type="text" id="msn"></td> </tr> <tr> <td>url:</td> <td> <input name="url" type="text" id="url"></td> </tr> <tr> <td colspan="2"> <div align="right"> <input type="reset" name="Submit" value="重置"> <input type="submit" name="Submit2" value="提交"> </div></td> </tr> </table> <input type="hidden" name="MM_insert" value="form2"></form></body></html><%Recordset1.Close();%>conn.asp代码？标出错误行啊？

标签：