欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

底下是一个修改页面,使用中发现:个别用户在修改了信息后,可以修改的字段会被清空,包括密码。以至于登录都不行了。求高人指点

更新时间: 2014-01-05 00:56:25 责任编辑: Author_N1

 

下面是一个修改页面,使用中发现:个别用户在修改了信息后,可以修改的字段会被清空,包括密码。以至于登录都不行了。求高人指点!
下面是一个修改页面,使用中发现:个别用户在修改了信息后,可以修改的字段会被清空,包括密码。以至于登录都不行了。求高人指点!

<!--#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" class="STYLE18"><p>&nbsp;&nbsp;&nbsp;&nbsp;重要说明:本系统</p>
<% 
if session("name")="" then
%>
对不起你还没有登陆,请<a href="login.asp">登陆</a>或者<a href="reg.asp">注册</a>
<%
else 
%>
<% 
name=session("name")
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,1,1
%> 
</p>
<form action="" method="post" name="form" id="form">
<table width="850"  cellspacing="0" cellpadding="5" align="center" border="1" bordercolorlight="#006666" bordercolordark="#FFFFFF">

<tr>
<td  class="STYLE16" colspan="4" align="center"><b>登录信息</b></td>
<tr >
<td class="STYLE16" width="170">用户名</td>
<td class="STYLE16"><%=rs("name")%>&nbsp;</td>

<td class="STYLE16">密码</td>
<td class="STYLE16"><input name="pwd" type="text" id="pwd" style="width:180px;" class="STYLE16" value="<%=rs("pwd")%>">&nbsp;</td>
</tr>
<tr>
<td class="STYLE16">密码提示问题</td>
<td class="STYLE16"><input name="wenti" type="text" id="wenti" style="width:180px;" class="STYLE16" value="<%=rs("wenti")%>">&nbsp;</td>

<td class="STYLE16">密码提示答案</td>
<td class="STYLE16"><input name="daan" type="text" id="daan" style="width:180px;" class="STYLE16" value="<%=rs("daan")%>">&nbsp;</td>
</tr>


<tr><td class="STYLE16">最后登录IP</td><td class="STYLE16"><%=rs("getIP")%>&nbsp;</td><td class="STYLE16">最后登记时间</td><td class="STYLE16"><%=rs("datetime")%>&nbsp;</td></tr>
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:25
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1601/
本文WWW.DOC100.NET DOC100.NET版权所有。