底下是一个修改页面，使用中发现：个别用户在修改了信息后，可以修改的字段会被清空，包括密码。以至于登录都不行了。求高人指点
日期：2014-05-16 浏览次数：20730 次
下面是一个修改页面，使用中发现：个别用户在修改了信息后，可以修改的字段会被清空，包括密码。以至于登录都不行了。求高人指点！
下面是一个修改页面，使用中发现：个别用户在修改了信息后，可以修改的字段会被清空，包括密码。以至于登录都不行了。求高人指点！
下面是一个修改页面，使用中发现：个别用户在修改了信息后，可以修改的字段会被清空，包括密码。以至于登录都不行了。求高人指点！
<!--#include file="conn.asp"-->
<%
if session("Name") = "" then
response.write "<script language=javascript> alert('对不起，登录超时，请重新登录！');location.href('login.asp');</script>"
response.end
end if
%>
<%
if request("action")="edit" then
name=session("name")
session.timeout=20
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,1,3
rs("pwd")=trim(request.form("pwd"))
rs("wenti")=trim(request.form("wenti"))
rs("daan")=trim(request.form("daan"))
rs("C2")=trim(request.form("C2"))
rs("C4")=trim(request.form("C4"))
rs("C6")=trim(request.form("C6"))
rs("C7")=trim(request.form("C7"))
rs("C8")=trim(request.form("C8"))
rs("C9")=trim(request.form("C9"))
rs("jielun")=trim(request.form("jielun"))
rs("now")=trim(request.form("now"))
Rs("datetime")=Now()
Rs("getip")=getip()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>alert('提交成功！');location.href('edit.asp');</script>"
Response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312>
<title>信息登记、核对页面...</title>
<style type="text/css">
<!--
.STYLE15 {
font-size: 12px;
color:#006666;
}
.STYLE16 {
font-size: 12px;
color:#666666;
}
.STYLE17 {
font-size: 18px;
font-weight: bold;
color:#0891D7;
}
.STYLE18 {
font-size: 14px;
font-weight: bold;
color:#ff0000;
}
-->
</style>
</head>
<body background="../images/bj2.gif">
<!--#include file="top.asp"-->
<%
Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
%>
<table width="950" border="0" align="center" cellpadding="10" cellspacing="0">
<tr>
<td align="left"&nbs
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
