身份：user
发帖：13
登陆次数：10
发表于 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
登陆次数：3287
发表于 2008/4/20 23:00:05
别着急，明天晚上我来改吧。
身份：user
发帖：13
登陆次数：10
发表于 2008/4/22 9:34:12
没想到老大的速度还真快,今天来一看,就做出来了,
谢谢老大,非常敬佩!
