<%
'乘风多用户计数器
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，没有放在程序里，请自己上网站上查看
%>
<%If SysCode="" Then Response.End%>

<%
ID=ChkStr(Request("ID"),2)
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where ID="&ID
Rs.Open Sql,Conn,1,1%>

<form name="form2" method="post" action="?Action=usermodifysave&ID=<%=ID%>">
<table class="tb_1">
<tr class="tr_1"> 
<td colspan="2">修改资料 </td>
</tr>
<tr> 
<td width="22%" class="td_r">用户名：</td>
<td><%=Rs("UserName")%></td>
</tr>
<tr> 
<td class="td_r">修改为新密码：</td>
<td><input name="Pwd_New" type="text" id="Password_New">
(留空则原密码不会被修改)</td>
</tr>
<tr> 
<td class="td_r">修改为新密码找回答案：</td>
<td><input name="PwdAnswer_New" type="text" id="PwdAnswer_New">
(留空则原密码找回答案不会被修改)</td>
</tr>
<tr> 
<td class="td_r">帐号状态：</td>
<td><select name="UserState" id="UserState">
<option value="-1"<%If Rs("UserState")=-1 Then response.write" selected"%>>有效</option>
<option value="0"<%If Rs("UserState")=0 Then response.write" selected"%>>无效</option>
</select></td>
</tr>
<tr> 
<td class="td_r">管理员说明：</td>
<td><textarea name="admindesc" cols="30" rows="6" id="notes"><%=rs("admindesc")%></textarea></td>
</tr>
<tr> 
<td>
</td>
<td>  
<input type="submit" name="Submit3" value="修改"></td>
</tr>
</table>
</form>
