怎么回事修改密码的代码不行了。。
我在修改密码中加入验证原密码是否正确但是在测试的时候怎么出现这个情况。。。如果去掉了又没事这个是怎么回事啊。。。。
以下是代码
程序代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="../Connections/conn.asp" --> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i 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 MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) = "form1"And CStr(Request("MM_recordId")) <> "") Then if (request("ymm"))<>(Recordset1.Fields.Item("mm_biao").Value) then Response.Redirect("cuowu.asp") response.End() end if ' *** Update Record: set variables MM_editConnection = MM_conn_STRING MM_editTable = "yh_biao" MM_editColumn = "ID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "xg_cg.asp?type=true" MM_fieldsStr = "mm_biao|value" MM_columnsStr = "mm_biao|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("") MM_editCmd.ActiveConnection = MM_editConnection MM_ = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Session("MM_username") <> "") Then Recordset1__MMColParam = Session("MM_username") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conn_STRING Recordset1.Source = "SELECT * FROM yh_biao WHERE zh_biao = '" + Replace(Recordset1__MMColParam, "'", "''") + "'" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %><link href="images/skin.css" rel="stylesheet" type="text/css" /> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background-color: #EEF2FB; } .STYLE1 { font-size: 16px; font-weight: bold; } <!-- </style> <body> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="17" valign="top" background="images/mail_leftbg.gif"><img src="images/left-top-right.gif" width="17" height="29" /></td> <td valign="top" background="images/content-bg.gif"><table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2"> <tr> <td height="31"><div class="titlebt">修改密码</div></td> </tr> </table></td> <td width="16" valign="top" background="images/mail_rightbg.gif"><img src="images/nav-right-bg.gif" width="16" height="29" /></td> </tr> <tr> <td valign="middle" background="images/mail_leftbg.gif"> </td> <td valign="top" bgcolor="#F7F8F9"><table width="95%" height="325" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="42" align="center"><span class="STYLE1">修改密码</span></td> </tr> <tr> <td width="83%" height="75" valign="top"><p> </p> <p> </p> <form method="POST" action="<%=MM_editAction%>" name="form1"> <table align="center"> <tr valign="baseline"> <td nowrap align="right">用户名:</td> <td><%=(Recordset1.Fields.Item("zh_biao").Value)%></td> </tr> <tr valign="baseline"> <td nowrap align="right">原始密码:</td> <td><input name="ymm" type="password" id="ymm"></td> </tr> <tr valign="baseline"> <td nowrap align="right">新密码:</td> <td><input type="password" name="mm_biao" value="<%=(Recordset1.Fields.Item("mm_biao").Value)%>" size="20"> </td> </tr> <tr valign="baseline"> <td nowrap align="right">重复密码:</td> <td><input name="cfmm" type="password" id="cfmm"></td> </tr> <tr valign="baseline"> <td nowrap align="right"> </td> <td><input type="submit" value="确认修改"> </td> </tr> </table> <input type="hidden" name="MM_update" value="form1"> <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("ID").Value %>"> </form> <p> </p> <p> </p> <p> </p> <p> </p></td> </tr> </table></td> <td background="images/mail_rightbg.gif"> </td> </tr> <tr> <td valign="bottom" background="images/mail_leftbg.gif"><img src="images/buttom_left2.gif" width="17" height="17" /></td> <td background="images/buttom_bgs.gif"><img src="images/buttom_bgs.gif" width="17" height="17"></td> <td valign="bottom" background="images/mail_rightbg.gif"><img src="images/buttom_right2.gif" width="16" height="17" /></td> </tr> </table> </body> <% Recordset1.Close() Set Recordset1 = Nothing %>