level 2
humchim
楼主
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
[Microsoft][ODBC Microsoft Access 驱动程序] 不能打开数据库 '|'。应用程序可能无法识别该数据库，或文件可能损坏。
/ALERT_ZJTWEN.asp，行 62
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="8"
MM_authFailedURL="M_LOGIN.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="Connections/ZGHONN.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "fgMK") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_ZGHONN_STRING
MM_editCmd.CommandText = "UPDATE pro SET menu = ?, Cbmenu = ?, orther = ?, biti = ?, JIJIA = ?, pic = ?, say = ? WHERE id = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 150, Request.Form("selectV")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 150, Request.Form("select2")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("radio")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("Xbiti")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 250, Request.Form("jajia")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("picv")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 203, 1, 1073741823, Request.Form("content1")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute <!第62行 -->
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "MANAGE/ALLOK/ADDBG6VVl.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim RCME
Dim RCME_cmd
Dim RCME_numRows
Set RCME_cmd = Server.CreateObject ("ADODB.Command")
RCME_cmd.ActiveConnection = MM_ZGHONN_STRING
RCME_cmd.CommandText = "SELECT * FROM CBmenu ORDER BY Cid DESC"
RCME_cmd.Prepared = true
Set RCME = RCME_cmd.Execute
RCME_numRows = 0
%>
<%
Dim RecB__MMColParam
RecB__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
RecB__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim RecB
Dim RecB_cmd
Dim RecB_numRows
Set RecB_cmd = Server.CreateObject ("ADODB.Command")
RecB_cmd.ActiveConnection = MM_ZGHONN_STRING
RecB_cmd.CommandText = "SELECT * FROM pro WHERE id = ?"
RecB_cmd.Prepared = true
RecB_cmd.Parameters.Append RecB_cmd.CreateParameter("param1", 5, 1, -1, RecB__MMColParam) ' adDouble
Set RecB = RecB_cmd.Execute
RecB_numRows = 0
%>
<%
Dim Xmenu
Dim Xmenu_cmd
Dim Xmenu_numRows
Set Xmenu_cmd = Server.CreateObject ("ADODB.Command")
Xmenu_cmd.ActiveConnection = MM_ZGHONN_STRING
Xmenu_cmd.CommandText = "SELECT * FROM bmenu"
Xmenu_cmd.Prepared = true
Set Xmenu = Xmenu_cmd.Execute
Xmenu_numRows = 0
%>
<!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>修改产品展示信息</title>
<style type="text/css">
<!--
body {
background-image: url(MANAGE/companpic/bgpic.jpg);
background-color: #EDFAFF;
}
body,td,th {
font-size: 12px;
color: #000;
}
-->
</style>
<style type="text/css">
<!--
/* ScrollbarStyler - DO NOT MODIFY THIS CSS!!! */
html,textarea{scrollbar-track-color: #ABABAB; scrollbar-face-color: #666666; scrollbar-highlight-color: #ABABAB; scrollbar-3dlight-color: #303030; scrollbar-shadow-color: #484848; scrollbar-darkshadow-color: #000000; scrollbar-arrow-color: #FFFFFF;}
-->
</style>
<link href="MANAGE/TL_CSS/TLTXBBS.css" rel="stylesheet" type="text/css">
<style type="text/css" media="all">
@import"/firste_upload/css/thickbox.css";
#ABABAB', '#666666', '
#ABABAB', '#
303030', '
#484848', '#
000000', '#FFFFFF', 'undefined')">
修改产品展示信息
产品大类别：
<%
While (NOT RCME.EOF)
%>
" <%If (Not isNull((RecB.Fields.Item("menu").Value))) Then If (CStr(RCME.Fields.Item("menu").Value) = CStr((RecB.Fields.Item("menu").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(RCME.Fields.Item("menu").Value)%>
<%
RCME.MoveNext()
Wend
If (RCME.CursorType > 0) Then
RCME.MoveFirst
Else
RCME.Requery
End If
%>
产品小类别：
<%
While (NOT Xmenu.EOF)
%>
" <%If (Not isNull((RecB.Fields.Item("Cbmenu").Value))) Then If (CStr(Xmenu.Fields.Item("Cbmenu").Value) = CStr((RecB.Fields.Item("Cbmenu").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(Xmenu.Fields.Item("Cbmenu").Value)%>
<%
Xmenu.MoveNext()
Wend
If (Xmenu.CursorType > 0) Then
Xmenu.MoveFirst
Else
Xmenu.Requery
End If
%>
是否在首页显示：
name="radio" type="radio" id="radio" value="显示" checked>
显示
name="radio" type="radio" id="radio2" value="不显示">
不显示
产品名称：
" size="50">
产品简介：
<%=(RecB.Fields.Item("JIJIA").Value)%>
说明：100个字内
小图片：
">
" width="160" height="158">
说明：图片宽度：306px 高度：30px
产品内容：
" />
">
var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");
document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3Fdfe57b4a9a5decbc2c2bf12d0ff2862b' type='text/javascript'%3E%3C/script%3E"));
<%
RCME.Close()
Set RCME = Nothing
%>
<%
RecB.Close()
Set RecB = Nothing
%>
<%
Xmenu.Close()
Set Xmenu = Nothing
%>
2016年03月29日 07点03分
1
[Microsoft][ODBC Microsoft Access 驱动程序] 不能打开数据库 '|'。应用程序可能无法识别该数据库，或文件可能损坏。
/ALERT_ZJTWEN.asp，行 62
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="8"
MM_authFailedURL="M_LOGIN.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="Connections/ZGHONN.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "fgMK") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_ZGHONN_STRING
MM_editCmd.CommandText = "UPDATE pro SET menu = ?, Cbmenu = ?, orther = ?, biti = ?, JIJIA = ?, pic = ?, say = ? WHERE id = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 150, Request.Form("selectV")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 150, Request.Form("select2")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("radio")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("Xbiti")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 250, Request.Form("jajia")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("picv")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 203, 1, 1073741823, Request.Form("content1")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute <!第62行 -->
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "MANAGE/ALLOK/ADDBG6VVl.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim RCME
Dim RCME_cmd
Dim RCME_numRows
Set RCME_cmd = Server.CreateObject ("ADODB.Command")
RCME_cmd.ActiveConnection = MM_ZGHONN_STRING
RCME_cmd.CommandText = "SELECT * FROM CBmenu ORDER BY Cid DESC"
RCME_cmd.Prepared = true
Set RCME = RCME_cmd.Execute
RCME_numRows = 0
%>
<%
Dim RecB__MMColParam
RecB__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
RecB__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim RecB
Dim RecB_cmd
Dim RecB_numRows
Set RecB_cmd = Server.CreateObject ("ADODB.Command")
RecB_cmd.ActiveConnection = MM_ZGHONN_STRING
RecB_cmd.CommandText = "SELECT * FROM pro WHERE id = ?"
RecB_cmd.Prepared = true
RecB_cmd.Parameters.Append RecB_cmd.CreateParameter("param1", 5, 1, -1, RecB__MMColParam) ' adDouble
Set RecB = RecB_cmd.Execute
RecB_numRows = 0
%>
<%
Dim Xmenu
Dim Xmenu_cmd
Dim Xmenu_numRows
Set Xmenu_cmd = Server.CreateObject ("ADODB.Command")
Xmenu_cmd.ActiveConnection = MM_ZGHONN_STRING
Xmenu_cmd.CommandText = "SELECT * FROM bmenu"
Xmenu_cmd.Prepared = true
Set Xmenu = Xmenu_cmd.Execute
Xmenu_numRows = 0
%>
<!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>修改产品展示信息</title>
<style type="text/css">
<!--
body {
background-image: url(MANAGE/companpic/bgpic.jpg);
background-color: #EDFAFF;
}
body,td,th {
font-size: 12px;
color: #000;
}
-->
</style>
<style type="text/css">
<!--
/* ScrollbarStyler - DO NOT MODIFY THIS CSS!!! */
html,textarea{scrollbar-track-color: #ABABAB; scrollbar-face-color: #666666; scrollbar-highlight-color: #ABABAB; scrollbar-3dlight-color: #303030; scrollbar-shadow-color: #484848; scrollbar-darkshadow-color: #000000; scrollbar-arrow-color: #FFFFFF;}
-->
</style>
<link href="MANAGE/TL_CSS/TLTXBBS.css" rel="stylesheet" type="text/css">
<style type="text/css" media="all">
@import"/firste_upload/css/thickbox.css";
#ABABAB', '#666666', '
#ABABAB', '#
303030', '
#484848', '#
000000', '#FFFFFF', 'undefined')">
修改产品展示信息
产品大类别：
<%
While (NOT RCME.EOF)
%>
" <%If (Not isNull((RecB.Fields.Item("menu").Value))) Then If (CStr(RCME.Fields.Item("menu").Value) = CStr((RecB.Fields.Item("menu").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(RCME.Fields.Item("menu").Value)%>
<%
RCME.MoveNext()
Wend
If (RCME.CursorType > 0) Then
RCME.MoveFirst
Else
RCME.Requery
End If
%>
产品小类别：
<%
While (NOT Xmenu.EOF)
%>
" <%If (Not isNull((RecB.Fields.Item("Cbmenu").Value))) Then If (CStr(Xmenu.Fields.Item("Cbmenu").Value) = CStr((RecB.Fields.Item("Cbmenu").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(Xmenu.Fields.Item("Cbmenu").Value)%>
<%
Xmenu.MoveNext()
Wend
If (Xmenu.CursorType > 0) Then
Xmenu.MoveFirst
Else
Xmenu.Requery
End If
%>
是否在首页显示：
name="radio" type="radio" id="radio" value="显示" checked>
显示
name="radio" type="radio" id="radio2" value="不显示">
不显示
产品名称：
" size="50">
产品简介：
<%=(RecB.Fields.Item("JIJIA").Value)%>
说明：100个字内
小图片：
">
" width="160" height="158">
说明：图片宽度：306px 高度：30px
产品内容：
" />
">
var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");
document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3Fdfe57b4a9a5decbc2c2bf12d0ff2862b' type='text/javascript'%3E%3C/script%3E"));
<%
RCME.Close()
Set RCME = Nothing
%>
<%
RecB.Close()
Set RecB = Nothing
%>
<%
Xmenu.Close()
Set Xmenu = Nothing
%>