ADODB.Command #x27;800a0bb9#x27; 错误[参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。]
ADODB.Command '800a0bb9'
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
\admin\gl_user_oper.asp, line 41
-------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/web_ok.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")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_web_ok_STRING
MM_editCmd.CommandText = "UPDATE [User] SET Username = ?, Pass = ?, Zhenshi = ?, Tel = ?, Email = ?, QQ = ?, Dizhi = ? WHERE Username = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, -1, Request.Form("textfield")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, -1, Request.Form("Pass")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, -1, Request.Form("zhenshi")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, -1, Request.Form("tel")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, -1, Request.Form("email")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, -1, Request.Form("QQ")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, -1, Request.Form("Dizhi")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", -1, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' N/A
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "gl_user.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 user__MMColParam
user__MMColParam = "1"
If (Request.QueryString("u") <> "") Then
user__MMColParam = Request.QueryString("u")
End If
%>
<%
Dim user
Dim user_cmd
Dim user_numRows
Set user_cmd = Server.CreateObject ("ADODB.Command")
user_cmd.ActiveConnection = MM_web_ok_STRING
user_cmd.CommandText = "SELECT * FROM User WHERE Username = ?"
user_cmd.Prepared = true
user_cmd.Parameters.Append user_cmd.CreateParameter("param1", 200, 1, 50, user__MMColParam) ' adVarChar
Set user = user_cmd.Execute
user_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/GL__muban.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>用户管理- 后台管理</title>
<!-- InstanceEndEditable -->
<style type="text/css">
body {
background-image: url(../images/piont.gif);
margin-top: 0px;
margin-bottom: 0px;
}
#apDiv1 {
position:absolute;
left:40px;
top:0px;
width:730px;
height:60px;
z-index:1;
}
#apDiv2 {
position:absolute;
left:40px;
top:60px;
width:102px;
height:340px;
z-index:2;
}
#apDiv3 {
position:absolute;
left:142px;
top:60px;
width:628px;
height:340px;
z-index:3;
}
.dh {
color: #FFF;
font-weight: bold;
text-decoration:none;
}
</style>
<!-- InstanceBeginEditable name="head" -->
<style type="text/css">
.biankuang {
border: 1px solid #CCC;
}
</style>
<!-- InstanceEndEditable -->
</head>
<body>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="730" height="60" colspan="2" valign="bottom" bgcolor="#0099FF"> 尊敬的:</td>
</tr>
<tr>
<td width="120" height="340" align="center" valign="middle" bgcolor="#00CCFF"><table width="100%" border="0" cellspacing="0" cellpadding="20">
<tr>
<td align="center" valign="middle"><a href="gl_user.asp" class="dh">用户管理</a></td>
</tr>
<tr>
<td align="center" valign="middle"><a href="gl_news.asp" class="dh">新闻管理</a></td>
</tr>
<tr>
<td align="center" valign="middle"><a href="gl_board.asp" class="dh">留言管理</a></td>
</tr>
<tr>
<td align="center" valign="middle"><a href="gl_other.asp" class="dh">相关信息</a></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="950" height="340" valign="top" bgcolor="#FFFFFF"><!-- InstanceBeginEditable name="zhuti" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="biankuang" height="100%">
<tr>
<td align="left" valign="top"><form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td width="27%"> </td>
<td width="73%"> </td>
</tr>
<tr>
<td align="right">用户名:</td>
<td><label for="textfield"></label>
<input name="textfield" type="text" id="textfield" value="<%=(user.Fields.Item("Username").Value)%>" /></td>
</tr>
<tr>
<td align="right">密 码:</td>
<td><label for="Pass"></label>
<input name="Pass" type="text" id="Pass" value="<%=(user.Fields.Item("Pass").Value)%>" /></td>
</tr>
<tr>
<td align="right">姓 名:</td>
<td><label for="zhenshi"></label>
<input name="zhenshi" type="text" id="zhenshi" value="<%=(user.Fields.Item("Zhenshi").Value)%>" /></td>
</tr>
<tr>
<td align="right">电 话:</td>
<td><label for="tel"></label>
<input name="tel" type="text" id="tel" value="<%=(user.Fields.Item("Tel").Value)%>" /></td>
</tr>
<tr>
<td align="right">邮 箱:</td>
<td><label for="email"></label>
<input name="email" type="text" id="email" value="<%=(user.Fields.Item("Email").Value)%>" /></td>
</tr>
<tr>
<td align="right">Q Q:</td>
<td><label for="QQ"></label>
<input name="QQ" type="text" id="QQ" value="<%=(user.Fields.Item("QQ").Value)%>" /></td>
</tr>
<tr>
<td align="right">地 址:</td>
<td><label for="Dizhi"></label>
<textarea name="Dizhi" id="Dizhi" cols="45" rows="5"><%=(user.Fields.Item("Dizhi").Value)%></textarea></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="button" id="button" value="提交" /></td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1" />
<input type="hidden" name="MM_recordId" value="<%= user.Fields.Item("Username").Value %>" />
</form></td>
</tr>
</table>
<!-- InstanceEndEditable --></td>
</tr>
<tr>
<td width="102" height="1" valign="top"><img src="../transparent.gif" alt="" width="102" height="1" /></td>
<td width="628" height="1" valign="top"><img src="../transparent.gif" alt="" width="628" height="1" /></td>
</tr>
</table>
</body>
<!-- InstanceEnd --></html>
<%
user.Close()
Set user = Nothing
%>
怎么回事
ADODB.Command #x27;800a0bb9#x27; 错误[参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。]相关推荐
- ADODB.Recordset 错误 #x27;800a0bb9#x27; 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突. 下面是代码: <% name=request("text2&q ...
- 新手提问!求解答QAQADODB.Recordset 错误 #x27;800a0bb9#x27; 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突. <%@LANGUAGE="VBSCRIPT" COD ...
- 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突. /Inventory/displayc.asp,行 29 转载于:https: ...
- ADODB.Stream 错误 #x27;800a0bb9#x27; 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
代码如下: Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"gb2312") ...
- ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
错误提示: 除了度娘给出的错误-解决办法外,可能存在以下原因哦: 没有连接数据库!! set conn = Server.CreateObject("ADODB.Connection&quo ...
- autolisp获取目录服务器信息失败,大神们,帮忙看看这个代码哪儿有问题?老是出现“参数类型错误:...
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 defun c:ZHDGX() (claim) (command "layer" "m" "dgxj&q ...
- c语言无效参数视为严重错误,C语言编译错误:错误:‘-’参数类型无效(有‘int’)...
一.编译错误代码: #include int main() { #define offsetof(type, member) ((size_t) &((type *)0->member) ...
- java replace第二个_java - 错误的第二个参数类型:从片段内调用.replace() - 堆栈内存溢出...
我知道这个问题经常被问到,但是没有一个被接受的解决方案对我有用. 尝试从其他片段之一启动"首选项菜单"片段时,出现经典的"错误的第二个参数类型"错误. 不幸的是 ...
- VBA·编译错误:ByRef参数类型不符
阅文时长 | 0.34分钟 字数统计 | 550.4字符 主要内容 | 1.引言&背景 2.分析&解决原理 3.声明与参考资料 『VBA·编译错误:ByRef参数类型不符』 编写人 | ...
最新文章
- 【FFmpeg】解决警告warning: xxx is deprecated [-Wdeprecated-declarations]的方法
- 多年iOS开发经验总结(一)
- PAT Basic 1069. 微博转发抽奖(20)
- 苹果内存取证工具volafox
- 计数排序之python 实现源码
- how to find the original page containing a given image
- 查看oracle自动优化,使用索引查询更快,优化器为何不能自动识别
- Spark与深度学习框架——H2O、deeplearning4j、SparkNet
- python爬虫当当网图书信息_利用python爬虫可视化分析当当网的图书数据!
- 当update语句提交后,数据库做了哪些操作?
- dns解析失败如何处理?
- 编制现金流量表3个步骤!
- 如何将旧电脑变成文件存储服务器,免费的NAS系统,把旧电脑改造成NAS
- “武大樱花绽放视频”动手实操教程--Python
- ImagePullBackOff: Back-off pulling image \gcr.io/google_containers/pause-amd64:3.0 解决方法
- 用.bat文件多开微信及打开固定浏览器浏览固定页面 开机自启
- Windows battery report
- 图像特征提取之LoG特征
- NSIS安装包开发笔记(一):NSIS介绍、使用NSIS默认向导脚本制作Windows安装包
- 2023年MathorCup数模B题赛题