[心缘地方]同学录 |
首页 | 功能说明 | 站长通知 | 最近更新 | 编码查看转换 | 代码下载 | 常见问题及讨论 | 《深入解析ASP核心技术》 | 王小鸭自动发工资条VBA版 |
发表人 | 主题:关于修改用户资料的问题! |
xbhon 身份:user 发帖:13 登陆次数:10 |
1F
发表于 2008/4/20 11:58:25
这个代码是从别的网站下载下来的,修改了,可是还是不行 谁有空帮我看看,看哪里出现的问题? <%@CODEPAGE="936"%> <!--#include File="session.asp" --> <!--#include File="conn.asp" --> <!--#include File="checkAccess.asp" --> <meta NAME=GENERATOR Content="Microsoft FrontPage 6.0" CHARSET=GB2312> <BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF"> <% if NOT GetSession("userLevel")="admin" then call showMsg("对不起,您无权进入此页面。") response.end else if request("action")="save" then call saveuser() else call main() end if conn.close set conn=nothing end if sub main() if not isnumeric(request("userid")) then response.write "<p>错误的用户参数。</p>" response.end end if if not founderr then Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from [TBL_user] where userid="&request("userid") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<tr><td colspan=6 class=txlrow>没有找到相关用户。</td></tr>" response.end end if end if %> <table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center><FORM METHOD=POST ACTION="?action=save"> <tr> <th colspan=2 height=23 align=left>用户资料操作</th> </tr> <tr> <td width=20% class=txlrow>快捷操作选项</td> <td width=80% class=txlrow> ①<a href="mailto:<%=rs("email")%>给 <%=rs("realname")%> 发送电子邮件</a><BR> ②<a href="messanger.asp?action=new&touser=<%=rs("realname")%>" target=_blank>给 <%=rs("realname")%> 发送一条短信</a><BR> ③<a href="userinfo.asp?id=<%=rs("userid")%>" target=_blank>预览 <%=rs("realname")%> 的显示资料</a><BR> ④<a href="?action=touser&useraction=1&userid=<%=rs("userid")%>">从用户列表删除 <%=rs("realname")%></a><BR> </td> </tr> <tr> <th colspan=2 height=23 align=left>用户基本资料修改--<%=rs("realname")%></th> </tr> <input name="userid" type=hidden value="<%=rs("userid")%>"> <tr> <td width=20% class=txlrow>用户类别</td> <td width=80% class=txlrow><input size=45 name="usergroup" type=text value="<%=rs("usergroup")%>" disabled></td> </tr> <tr> <td width=20% class=txlrow>登 录 名</td> <td width=80% class=txlrow><input size=45 name="username" type=text value="<%=rs("username")%>"> 说明:此项请谨慎修改</td> </tr> <tr> <td width=20% class=txlrow>真实姓名</td> <td width=80% class=txlrow><input size=45 name="realname" type=text value="<%=rs("realname")%>"></td> </tr> <tr> <td width=20% class=txlrow>密 码</td> <td width=80% class=txlrow><input size=45 name="password" type=text> 如果不修改请留空</td> </tr> <tr> <td width=20% class=txlrow>密码问题</td> <td width=80% class=txlrow><input size=45 name="question" type=text value="<%=rs("question")%>"></td> </tr> <tr> <td width=20% class=txlrow>密码答案</td> <td width=80% class=txlrow><input size=45 name="answer" type=text> 如果不修改请留空</td> </tr> <tr> <td width=20% class=txlrow>用户Email</td> <td width=80% class=txlrow><input size=45 name="email" type=text value="<%=rs("email")%>"></td> </tr> <tr> <td width=20% class=txlrow>生日</td> <td width=80% class=txlrow><input size=45 name="birthday" type=text value="<%=rs("birthday")%>"> 格式:2001-2-2</td> </tr> <tr> <td width=20% class=txlrow>个人照片</td> <td width=80% class=txlrow> <input size=45 name="headPhoto" type=text value="<%=rs("headPhoto")%>"></td> </tr> <tr> <th colspan=2 height=23 align=left>用户分值资料修改</th> <tr> <td width=20% class=txlrow>登录次数</td> <td width=80% class=txlrow> <input size=45 name="logTimes" type=text value="<%=rs("logTimes")%>"></td> </tr> <tr> <td width=20% class=txlrow>发表留言</td> <td width=80% class=txlrow> <input size=45 name="replyNumber" type=text value="<%=rs("replyNumber")%>"></td> </tr> </tr> <tr> <th colspan=2 height=23 align=left>数据相关</th></tr> <tr> <td width=20% class=txlrow>注册时间</td> <td width=80% class=txlrow><input size=45 name="regtime" type=text value="<%=rs("regtime")%>"></td> </tr> <tr> <td width=20% class=txlrow>最后登陆时间</td> <td width=80% class=txlrow> <input size=45 name="logTime" type=text value="<%=rs("logTime")%>"></td> </tr> <tr> <td width=20% class=txlrow>最后登陆IP</td> <td width=80% class=txlrow> <input size=45 name="lastip" type=text value="<%=rs("ip")%>">(<%=address(rs("lastIp"))%>)</td> </tr> <tr> <th colspan=2 height=23 align=left>用户设置</th> </tr> <tr> <td width=20% class=txlrow>用户类别</td> <td width=80% class=txlrow> <input type="radio" value="5" <%if rs("usergroupid")=4 then%>checked<%end if%> name="usergroupid"> 待批准成员 <input type="radio" value="4" <%if rs("usergroupid")=3 then%>checked<%end if%> name="usergroupid"> 班级友人 <input type="radio" value="3" <%if rs("usergroupid")=5 then%>checked<%end if%> name="usergroupid"> 正式成员 <input type="radio" value="2" <%if rs("usergroupid")=2 then%>checked<%end if%> name="usergroupid"> 副管理员 <input type="radio" value="1" <%if rs("usergroupid")=1 then%>checked<%end if%> name="usergroupid"> 管理员 </td> </tr> <tr> <td width=20% class=txlrow>用户状态</td> <td width=80% class=txlrow> <input type="radio" value="0" <%if rs("lockuser")=0 then%>checked<%end if%> name="lockuser"> 正常 <input type="radio" value="1" <%if rs("lockuser")=1 then%>checked<%end if%> name="lockuser"> 验证 <input type="radio" value="2" <%if rs("lockuser")=2 then%>checked<%end if%> name="lockuser"> 锁定 </td> </tr> <tr> <td width=100% class=txlrow align=center colspan=2><input name="submit" type=submit value=" 更 新 "></td> </tr> </form> </table> <% rs.close set rs=nothing end sub sub saveuser() dim usergroupid,groupname if not isnumeric(request("userid")) then response.write "<tr><td colspan=6 class=txlrow>错误的用户参数。</td></tr>" founderr=true end if if isnumeric(request.form("usergroupid")) then usergroupid=request.form("usergroupid") end if set rs=conn.execute("select groupname from UserGroups where usergroupid="&usergroupid) groupname=rs(0) if not founderr then Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from [user] where userid="&request("userid") rs.open sql,conn,1,3 if rs.eof and rs.bof then response.write "<tr><td colspan=6 class=txlrow>没有找到相关用户。</td></tr>" founderr=true else rs("username")=request.form("username") rs("realname")=request.form("realname") if request.form("password")<>"" then rs("password")=md5(request.form("password")) end if rs("question")=request.form("question") if request.form("answer")<>"" then rs("answer")=md5(request.form("answer")) end if rs("email")=request.form("email") rs("userphoto")=request.form("userphoto") if request.form("birthday")="" then rs("birthday")=request.form("birthday") else if isdate(request.form("birthday")) then rs("birthday")=request.form("birthday") end if end if if isnumeric(request.form("logins")) then rs("logins")=request.form("logins") end if if isnumeric(request.form("bookcount")) then rs("bookcount")=request.form("bookcount") end if if isnumeric(request.form("bbscount")) then rs("bbscount")=request.form("bbscount") end if if isnumeric(request.form("photocount")) then rs("photocount")=request.form("photocount") end if if isnumeric(request.form("usermoney")) then rs("usermoney")=request.form("usermoney") end if if isdate(request.form("regtime")) then rs("regtime")=request.form("regtime") end if if isdate(request.form("lasttime")) then rs("lasttime")=request.form("lasttime") end if rs("lastip")=request.form("lastip") if isnumeric(request.form("lockuser")) then rs("lockuser")=request.form("lockuser") end if rs("usergroup")=groupname if isnumeric(request.form("usergroupid")) then rs("usergroupid")=request.form("usergroupid") end if rs.update end if rs.close set rs=nothing end if if founderr then response.write "<tr><td colspan=6 class=txlrow>更新失败。</td></tr>" else response.write "<tr><td colspan=6 class=txlrow>更新用户数据成功。</td></tr>" end if end sub %><!--#include File="include/foot.asp" --> |
嘎嘎,是我 身份:admin 发帖:1438 登陆次数:3275 |
2F
发表于 2008/4/20 23:00:05
别着急,明天晚上我来改吧。 |
xbhon 身份:user 发帖:13 登陆次数:10 |
3F
发表于 2008/4/22 9:34:12
没想到老大的速度还真快,今天来一看,就做出来了, 谢谢老大,非常敬佩! |
CopyRight © 心缘地方 2005-2999. All Rights Reserved |