admin_user.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

rs("regAddress2") = sqltstr(request("regAddress2"))
rs("regCountry") = sqltstr(request("regCountry"))
rs("regCity") = sqltstr(request("regCity"))
rs("regState") = sqltstr(request("regState"))
rs("regZip") = sqltstr(request("regZip"))
'rs("regTime") = sqldate(request("regTime"))
rs("regCredit") = sqltval(request("regCredit"))
rs("regSex") = sqltstr(request("regSex"))
rs("regTel") = sqltstr(request("regTel"))
rs("regQuestion") = sqltstr(request("regQuestion"))
rs("regAnswer") = sqltstr(request("regAnswer"))
rs("regChkno") = sqltstr(request("regChkno"))
rs("regEmailValidated") = sqltstr(request("regEmailValidated"))
rs("regIdcard") = sqltstr(request("regIdcard"))
rs("reghaoping") = sqltval(request("reghaoping"))
rs("regzhongping") = sqltval(request("regzhongping"))
rs("regchaping") = sqltval(request("regchaping"))
rs("reggrade") = sqltval(request("reggrade"))
'rs("reggoods") = sqltval(request("reggoods"))
rs.Update
rs.Close
set rs=nothing
set cmd=nothing 
response.write("修改成功")
end if
response.end
end if
set rs = conn.execute("select * from users where regID = "&regID)
if rs.eof then
response.write " <br>没 有 记 录 ! "
else
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  class=""tableBorder"" align=""center"">")
response.Write("  <form action="""" method=""post"">")
response.Write("    <tr>")
response.Write("	<td class=""Row"" width=""30%"">管理员: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regAdmin type=""text"" value=""")
response.Write(rs(1))
response.Write(""">""Y"" or ""N"" ")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">填写完注册资料: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regValidated type=""text"" value=""")
response.Write(rs(2))
response.Write(""">""Y"" or ""N"" ")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">用户名: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regUsername type=""text"" value=""")
response.Write(rs(3))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">密码: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regPassword type=""text"" value=""")
response.Write(rs(4))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">真实姓名: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regName type=""text"" value=""")
response.Write(rs(5))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">email: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regEmail type=""text"" value=""")
response.Write(rs(6))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">交易联系住址: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regAddress1 type=""text"" value=""")
response.Write(rs(7))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">居住地标志: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regAddress2 type=""text"" value=""")
response.Write(rs(8))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">国家: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regCountry type=""text"" value=""")
response.Write(rs(9))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">城市: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regCity type=""text"" value=""")
response.Write(rs(10))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">省份: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regState type=""text"" value=""")
response.Write(rs(11))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">邮政编码: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regZip type=""text"" value=""")
response.Write(rs(12))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">注册时间: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regTime type=""text"" value=""")
response.Write(rs(13))
response.Write(""" disabled>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">信用度: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regCredit type=""text"" value=""")
response.Write(rs(14))
response.Write(""">数字")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">性别: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regSex type=""text"" value=""")
response.Write(rs(15))
response.Write(""">")
response.Write("        1表示男，0表示女 </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">电话: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regTel type=""text"" value=""")
response.Write(rs(16))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">问题: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regQuestion type=""text"" value=""")
response.Write(rs(17))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">答案: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regAnswer type=""text"" value=""")
response.Write(rs(18))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">验证码: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regChkno type=""text"" value=""")
response.Write(rs(19))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">邮件地址是否正常通过: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regEmailValidated type=""text"" value=""")
response.Write(rs(20))
response.Write(""">")
response.Write("        Y或1表示是，N或0表示否 </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">身份证号码: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regIdcard type=""text"" value=""")
response.Write(rs(21))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">好评: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=reghaoping type=""text"" value=""")
response.Write(rs(22))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">中评: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regzhongping type=""text"" value=""")
response.Write(rs(23))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">差评: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=regchaping type=""text"" value=""")
response.Write(rs(24))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">用户级别: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=reggrade type=""text"" value=""")
response.Write(rs(25))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%"">用户商品数: </td>")
response.Write("      <td class=""Row"" width=""70%""> ")
response.Write("        <input name=reggoods type=""text"" value=""")
response.Write(rs(26))
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=""Row"" width=""30%""> ")
response.Write("        <input type=submit name=submit value=提交>")
response.Write("      </td>")
response.Write("      <td class=""Row"" width=""70%"">&nbsp;</td>    ")
response.Write("    <tr> ")
response.Write("  </form>")
response.Write("</table>")
 end if 
rs.Close
set rs=nothing
end sub

sub searchuser
 If rst("submit")="查找" or  rst("submit")="立刻查找" Then 
 sqlf="select * from users where regusername="&sqlstr(rst("username"))&""
 set rs1=conn.execute(sqlf)
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  class=""tableBorder"" align=""center"">")
response.Write("  <tr> ")
response.Write("    <th width=""24%"" class=""Row"">用户</th>")
response.Write("    <th width=""34%"" class=""Row"">信用度</th>")
response.Write("    <th width=""42%"" class=""Row""> 会员级别 </th>")
response.Write("  </tr>")
response.Write("  ")
 If rs1.eof Then 
response.Write(" ")
response.Write("  <tr> ")
response.Write("    <td colspan=""3"" class=""Row"">没有找到")
response.Write( rst("username") )
response.Write("</td>")
response.Write("  </tr>")
response.Write("  ")
else
response.Write(" ")
response.Write("  <tr> ")
response.Write("    <td width=""24%"" class=""Row""><a href=""usercredit.asp?userid=")
response.Write( fval(rs1("regid")) )
response.Write(""" target=""_blank"">")
response.Write( rst("username") )
response.Write("</a></td>")
response.Write("    <td width=""34%"" class=""Row"">")
response.Write( rs1("regcredit") )
response.Write("</td>")
response.Write("    <td width=""42%"" class=""Row"">")
response.Write( rs1("reggrade") )
response.Write("&nbsp; &nbsp;&nbsp;<a href=""?action=edituser&userid=")
response.Write( fval(rs1("regid")) )
response.Write(""">修改</a> ")
response.Write("      <a href=""?action=deluser&userid=")
response.Write( fval(rs1("regid")) )
response.Write(""" onClick=""{if(confirm('确定删除吗\n删除用户后，该用户的商品,评价,留言等数据将全部删除')){return true;}return false;}"">删除</a> ")
response.Write("    </td>")
response.Write("  </tr>")
response.Write("  ")
 end if
response.Write(" ")
response.Write("</table>")
rs1.close
end if
end sub
sub refresh
if rst("submit")<>"" then
regid1=sqlval(rst("regid1"))
regid2=sqlval(rst("regid2"))
sql="select regid from users where regid>="&regid1&" and regid<="&regid2&""
set rs=conn.execute(sql)
do while not rs.eof
	sql1="select count(*) as auctotal from auctions where auc_itemowner="&rs(0)
	set rs1=conn.execute(sql1)
		conn.execute("update users set reggoods="&rs1(0)&" where regid="&rs(0))
	rs1.close
rs.movenext
loop
rs.close
set rs=nothing
response.write "更新完成,请返回"
else
response.Write("<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  class=""tableBorder"" align=""center"">")
response.Write("  <tr> ")
response.Write("    <th class=""Row"" colspan=""2"" height=""25"">更新用户数据</th>")
response.Write("  </tr>")
response.Write("  <form name=""form1"" method=post action=""?action=refresh"" > <tr> ")
response.Write("      <td class=""Row"" width=""49%""> regid从 ")
response.Write("        <input type=""text"" name=""regid1"" size=""15"">")
response.Write("        到")
response.Write("        <input type=""text"" name=""regid2"" size=""15"">")
response.Write("        之间 </td>")
response.Write("      <td class=""Row"" width=""51%"">")
response.Write("        <input type=""submit"" name=""submit"" value=""更新数据"">")
response.Write("      </td>")
response.Write("  </tr> </form>")
response.Write("</table>")
end if
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_user.asp
'Version:2.0
'UpdateTime: 2004-10-7 16:15:11
'Script Written by www.aspease.com 
'=========================================================%>