New Ribbon
用Canva設計超快超質感(第2版):商業設計、簡報、影片、網頁、電子書與AI應用最速技 AI繪圖工具 × AI視覺設計平台,從圖像生成到專業設計! 最強職場助攻!ChatGPT + AI 高效工作術 短影音制霸:打造TikTok、YT Shorts、IG Reels成功方程式與AI高效創作力 Canva+AI創意設計與品牌應用250招:從商業技巧、社群祕技到AI圖文影音特效 快快樂樂學威力導演2024.影音剪輯與AI精彩創作 Power Automate自動化超效率工作術 Midjourney AI圖像魔導書:搭配ChatGPT魔法加倍 超人氣FB+IG+LINE社群經營與行銷力(第二版) 翻倍效率工作術:不會就太可惜的 Excel × ChatGPT 自動化應用 AppInventor2零基礎入門班中文版(第六版) Python零基礎入門班(第四版) C語言學習聖經 用Canva設計超快超質感:平面、網頁、電子書、簡報、影片製作與AI繪圖最速技 PHP8/MySQL網頁程式設計自學聖經 翻倍效率工作術 - 不會就太可惜的Power BI大數據視覺圖表設計與分析(第三版) 社群經營一定要會的影音剪輯與動畫製作術 Notion高效管理250招:筆記×資料庫×團隊協作,數位生活與工作最佳幫手 Office 2021高效實用範例必修16課(附500分鐘影音教學/範例檔) Excel自學聖經(第二版):從完整入門到職場活用的技巧與實例大全

 

  小弟不解,還請高手指點!!!

dind

dind
更新時間:2004/12/15 下午 11:12:44

 

Microsoft VBScript 編譯器錯誤 錯誤 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft JET Database Engine 錯誤 '80040e14'
FROM 子句語法錯誤。
/cao/index.asp,行21

不知道為什麼,我在用ASP編寫登錄頁時出現以上的錯誤!誰能幫幫我啊!
A)我是用”自定義連接字串”:"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/cao/yungong.mdb")測試成功的!我想應該不是這裏出錯吧???
B)我的根源程式如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connRen.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("name"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="show.asp"
  MM_redirectLoginFailed="error.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_connRen_STRING
  MM_rsUser.Source = "SELECT name, passwd"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM user WHERE name='" & Replace(MM_valUsername,"'","''") &"' AND passwd='" & Replace(Request.Form("passwd"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open  ‘這裏就是第21行,也是出錯的地方!小弟不解,還請高手指點!!!
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>login</title>
<link href="a.css" rel="stylesheet" type="text/css">
</head>

<body>
<h1 align="center" class="style1"> </h1>
<h1 align="center" class="style1">登錄系統</h1>
<hr width="80%">
<form action="<%=MM_LoginAction%>" method="POST" enctype="application/x-www-form-urlencoded" name="form1" target="_top">
  <table width="23%"  border="0" align="center">
    <tr>
      <td width="44%" height="18">管理者姓名:</td>
      <td width="56%"><input name="name" type="text" id="name" size="8"></td>
    </tr>
    <tr>
      <td height="18">管理者密碼:</td>
      <td><input name="passwd" type="password" id="passwd" size="8"></td>
    </tr>
  </table>
    <div align="center">
    <input type="submit" name="Submit" value="進入系統">
  </div>
</form>
<hr width="80%">
</body>
</html>
小弟不解,還請高手指點!!!


dind

dind
更新時間:2004/12/15 下午 11:51:05

 

还有一个问题就是我这个登录页出错了,但是若我搞个记录show的页面就会成功,一切正常,每一条记录都可以出现 !那到底哪里出错了呢???还请老师指点!!!

文淵閣工作室

文淵閣工作室
更新時間:2004/12/16 下午 02:47:47

 

您可以將您的作品壓縮整個資料夾寄到我們的信箱,說明好您的問題。




 

 

Re:小弟不解,還請高手指點!!!

請輸入姓名。

已超出字元數目的最大值。


請輸入電子郵件。

格式無效。


請輸入內容。