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
%>
怎么回事
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
\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
%>
怎么回事