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">&nbsp;尊敬的:</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>&nbsp;</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%">&nbsp;</td>
                <td width="73%">&nbsp;</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">密&nbsp;&nbsp;&nbsp; 码:</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">姓 &nbsp;&nbsp; 名:</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">电&nbsp;&nbsp;&nbsp; 话:</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">邮&nbsp; &nbsp; 箱:</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&nbsp;&nbsp;&nbsp;&nbsp; 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">地&nbsp;&nbsp;&nbsp; 址:</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">&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td>&nbsp;</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; 错误[参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。]相关推荐

  1. ADODB.Recordset 错误 #x27;800a0bb9#x27; 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。

    ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突. 下面是代码: <% name=request("text2&q ...

  2. 新手提问!求解答QAQADODB.Recordset 错误 #x27;800a0bb9#x27; 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。

    ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突. <%@LANGUAGE="VBSCRIPT" COD ...

  3. 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。

    ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突. /Inventory/displayc.asp,行 29 转载于:https: ...

  4. ADODB.Stream 错误 #x27;800a0bb9#x27; 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。

    代码如下: Function getHTTPPage(Path)  t = GetBody(Path)  getHTTPPage=BytesToBstr(t,"gb2312")  ...

  5. ADODB.Recordset 错误 '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。

    错误提示: 除了度娘给出的错误-解决办法外,可能存在以下原因哦: 没有连接数据库!! set conn = Server.CreateObject("ADODB.Connection&quo ...

  6. autolisp获取目录服务器信息失败,大神们,帮忙看看这个代码哪儿有问题?老是出现“参数类型错误:...

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 defun c:ZHDGX() (claim) (command "layer" "m" "dgxj&q ...

  7. c语言无效参数视为严重错误,C语言编译错误:错误:‘-’参数类型无效(有‘int’)...

    一.编译错误代码: #include int main() { #define offsetof(type, member) ((size_t) &((type *)0->member) ...

  8. java replace第二个_java - 错误的第二个参数类型:从片段内调用.replace() - 堆栈内存溢出...

    我知道这个问题经常被问到,但是没有一个被接受的解决方案对我有用. 尝试从其他片段之一启动"首选项菜单"片段时,出现经典的"错误的第二个参数类型"错误. 不幸的是 ...

  9. VBA·编译错误:ByRef参数类型不符

    阅文时长 | 0.34分钟 字数统计 | 550.4字符 主要内容 | 1.引言&背景 2.分析&解决原理 3.声明与参考资料 『VBA·编译错误:ByRef参数类型不符』 编写人 | ...

最新文章

  1. 【FFmpeg】解决警告warning: xxx is deprecated [-Wdeprecated-declarations]的方法
  2. 多年iOS开发经验总结(一)
  3. PAT Basic 1069. 微博转发抽奖(20)
  4. 苹果内存取证工具volafox
  5. 计数排序之python 实现源码
  6. how to find the original page containing a given image
  7. 查看oracle自动优化,使用索引查询更快,优化器为何不能自动识别
  8. Spark与深度学习框架——H2O、deeplearning4j、SparkNet
  9. python爬虫当当网图书信息_利用python爬虫可视化分析当当网的图书数据!
  10. 当update语句提交后,数据库做了哪些操作?
  11. dns解析失败如何处理?
  12. 编制现金流量表3个步骤!
  13. 如何将旧电脑变成文件存储服务器,免费的NAS系统,把旧电脑改造成NAS
  14. “武大樱花绽放视频”动手实操教程--Python
  15. ImagePullBackOff: Back-off pulling image \gcr.io/google_containers/pause-amd64:3.0 解决方法
  16. 用.bat文件多开微信及打开固定浏览器浏览固定页面 开机自启
  17. Windows battery report
  18. 图像特征提取之LoG特征
  19. NSIS安装包开发笔记(一):NSIS介绍、使用NSIS默认向导脚本制作Windows安装包
  20. 2023年MathorCup数模B题赛题

热门文章

  1. 哈希碰撞+mysql_HashMap之Hash碰撞冲突解决方案及未来改进
  2. 华为esight搭建之一(环境的搭建)
  3. 发明专利申请的常见问题
  4. exit(0)和_exit(0)区别
  5. 智能终端信息安全概念(九):内核安全(1)概念
  6. k8s技术预研7--深入掌握Kubernetes Pod
  7. 隐而不匿 CIO不要忽视IT管理的隐性成本
  8. linux驱动通过地址配置按键,linux输入子系统之多个按键
  9. 测试-http接口测试点
  10. 二维数组打印杨辉三角