users.asp

网页源码,是最好的网店代码。可以支持批量上传产品等功能。

set rs=conn.execute("select * from yx_user where id="&userid)
if rs.eof then
	call goback("错误提示","找不到用户或已被删除！")
	response.end
end if
classid=rs("classid")
username=rs("name")
password=rs("password")
question=rs("clue")
answer=rs("answer")
sex=rs("sex")
email=rs("mail")
homepage=rs("home")
qq=rs("qq")
headfile=rs("pic")
headwidth=rs("picw")
headheight=rs("pich")
sign=rs("sign")
usertitle=rs("honor")
mark=rs("mark")
coin=rs("coin")
banksave=rs("banksave")
birthday=rs("birthday")
registtime=rs("regtime")
lastlogintime=rs("lasttime")
useraction=rs("isshow")
set rs=nothing
%>
<form action="?action=edituser" method=post>
<div class="ta">
<div class="th jz">用户基本资料修改</div>
<div class="td1 h20">用户组</div>
<div class="td2 h20"><input type="hidden" name="userid" value="<%=userid%>">
		<input type="hidden" name="oldclassid" value="<%=classid%>">
		<select size="1" name="classid">
		<%
		dim ucl
		set ucl=conn.execute("select classid,classname from yx_userclass where classid<>6 order by classid asc")
		while not ucl.eof
			response.write "<option value='"&ucl("classid")&"'"
			if classid=ucl("classid") then response.write "selected"
			response.write ">"&ucl("classname")&"</option>"
			ucl.movenext
		wend
		set ucl=nothing
		%>
		</select></div>
<div class="td1 h20">用户名</div>
<div class="td2 h20"><input type="hidden" name="oldusername" value="<%=username%>"><input name="username" size="30" value="<%=username%>"></div>
<div class="td1 h20">密&nbsp;&nbsp; 码</div>
<div class="td2 h20"><input type="hidden" name="oldpassword" value="<%=password%>"><input name="password" size="30" >　如不修改请留空</div>
<div class="td1 h20">密码问题</div>
<div class="td2 h20"><input name="question" size="30" value="<%=question%>"></div>
<div class="td1 h20">密码答案</div>
<div class="td2 h20"><input type="hidden" name="oldanswer" value="<%=answer%>"><input name="answer" size="30">　如不修改请留空</div>
<div class="td1 h20">性别</div>
<div class="td2 h20"><input type="radio" name="sex" value="1" <%if sex then response.write"checked=""true"""%>>
		男 <input type="radio" name="sex" value="0" <%if not sex then response.write"checked=""true"""%>>
		女</div>
<div class="td1 h20">自定头衔</div>
<div class="td2 h20"><input name="usertitle" size="30" value="<%=usertitle%>"></div>
<div class="td1 h20">用户状态</div>
<div class="td2 h20">正常 
		<input type="radio" value="0" name="useraction" <%if not useraction then response.write " checked=""true"""%>>&nbsp; 
		屏蔽 
		<input type="radio" value="1" name="useraction" <%if useraction then response.write " checked=""true"""%>></div>
<div class="td1 h20">邮箱</div>
<div class="td2 h20"><input name="email" size="30" value="<%=email%>"></div>
<div class="td1 h20">个人主页</div>
<div class="td2 h20"><input name="homepage" size="30" value="<%=homepage%>"></div>
<div class="td1 h20">qq号码</div>
<div class="td2 h20"><input name="qq" size="30" value="<%=qq%>"></div>
<div class="td1 h20">论坛头像</div>
<div class="td2 h20"><input name="headfile" size="30" value="<%=headfile%>">　图片宽<input name="headwidth" size="5" value="<%=headwidth%>">&nbsp; 
		图片高<input name="headheight" size="5" value="<%=headheight%>"></div>
<div class="td1 h65">个人签名</div>
<div class="td2 h65 w446"><textarea rows="3" name="sign" cols="29"><%=sign%></textarea></div>

<div class="td1 h20">用户金钱</div>
<div class="td2 h20"><input name="coin" size="30" value="<%=coin%>"></div>
<div class="td1 h20">用户存款</div>
<div class="td2 h20"><input name="banksave" size="30" value="<%=banksave%>"></div>
<div class="td1 h20">用户y币</div>
<div class="td2 h20"><input name="mark" size="30" value="<%=mark%>"></div>

<div class="td1 h20">出生日期</div>
<div class="td2 h20"><input name="birthday" size="30" value="<%=birthday%>">　格式:1986-8-16</div>
<div class="td1 h20">注册时间</div>
<div class="td2 h20"><input name="registtime" size="30" value="<%=registtime%>"></div>
<div class="td1 h20">最后登录</div>
<div class="td2 h20"><input name="lastlogintime" size="30" value="<%=lastlogintime%>"></div>
<div style="clear: both;"></div><div class="tf jz"><input type="submit" value="编 辑" name="b1"></div>
</div></form>
	
<%
end sub

sub edituser

dim rs,classid,username,userid,oldpassword,password,question,answer,sex,gradename,email,homepage,qq,icq,msn,headfile,headwidth
dim usertitle,mark,coin,banksave
dim headheight,sign,birthday,registtime,lastlogintime,useraction,oldclassid,oldanswer,oldpassowrd,sql,oldusername,alltable,i
userid=request.form("userid")
classid=request.form("classid")
oldclassid=request.form("oldclassid")
username=request.form("username")
oldusername=request.form("oldusername")
password=request.form("password")
oldpassword=request.form("oldpassword")
question=request.form("question")
answer=request.form("answer")
oldanswer=request.form("oldanswer")
sex=request.form("sex")
usertitle=request.form("usertitle")
mark=request.form("mark")
coin=request.form("coin")
banksave=request.form("banksave")
email=request.form("email")
homepage=request.form("homepage")
qq=request.form("qq")
icq=request.form("icq")
msn=request.form("msn")
headfile=request.form("headfile")
headwidth=request.form("headwidth")
headheight=request.form("headheight")
sign=request.form("sign")
birthday=request.form("birthday")
registtime=request.form("registtime")
lastlogintime=request.form("lastlogintime")
useraction=request.form("useraction")
if cint(classid)<>cint(oldclassid) then
	set rs=conn.execute("select gradenum,gradename,gradepic from yx_usergrade where classid="&classid)
	if rs.eof or rs.bof then
		call goback("错误提示","没有此用户组或已被删除！")
		exit sub
	end if
	conn.execute("update yx_user set gradenum="&rs("gradenum")&",classid="&classid&" where id =" &userid)
	set rs=nothing
end if

if oldusername<>"" or username<>"" or username <> oldusername then
	if lcase(username)=lcase(oldusername) then
		if yxbbs.execute("select name from[yx_user] where name='"&oldusername&"'").eof then call goback("","这个用户根本不存在！"):exit sub
	else
		if yxbbs.execute("select name from[yx_user] where name='"&oldusername&"'").eof then call goback("","这个用户根本不存在！"):exit sub
		if not yxbbs.execute("select name from[yx_user] where name='"&username&"'").eof then call goback("","新用户名称已经被注册了！"):exit sub
	end if
	alltable=split(yxbbs.bbstable(0),",")
	for i=0 to ubound(alltable)
		yxbbs.execute("update [yx_bbs"&alltable(i)&"] set name='"&username&"' where lcase(name)='"&oldusername&"'")
	next
	yxbbs.execute("update [yx_topicvoteuser] set [user]='"&username&"' where lcase([user])='"&oldusername&"'")
	yxbbs.execute("update [yx_topic] set name='"&username&"' where lcase(name)='"&oldusername&"'")
	yxbbs.execute("update [yx_sms] set myname='"&username&"' where lcase(myname)='"&oldusername&"'")
	yxbbs.execute("update [yx_sms] set name='"&username&"' where lcase(name)='"&oldusername&"'")
	yxbbs.execute("update [yx_user] set name='"&username&"' where lcase(name)='"&oldusername&"'")
	yxbbs.execute("update [yx_admin] set name='"&username&"' where lcase(name)='"&oldusername&"'")
end if

set rs=server.createobject("adodb.recordset")
sql="select * from yx_user where id="&userid
rs.open sql,conn,1,3
if rs.eof then
	call goback("错误提示","没有此用户或已被删除。")
	exit sub
end if
rs("name")=username
if password<>"" then rs("password")=md5(password)
rs("clue")=question
if answer<>"" then rs("answer")=md5(answer)
rs("sex")=sex
rs("home")=homepage
rs("qq")=qq
rs("mail")=email
rs("pic")=headfile
rs("picw")=headwidth
rs("pich")=headheight
rs("sign")=sign
rs("honor")=usertitle
rs("mark")=mark
rs("coin")=coin
rs("banksave")=banksave
rs("birthday")=birthday
rs("regtime")=registtime
rs("lasttime")=lastlogintime
rs("isshow")=useraction
rs.update
rs.close
set rs= nothing
call suc("","用户修改成功!","users.asp")
end sub

sub addadmin%>
 <form action="?action=saveadmin" method=post>
<div class="ta">
        <div class="th jz">管 理 员 添 加</div>
        <div class="td1 h20">后台登陆名称</div>
        <div class="td2 h20""><input name="adminname" size="30"></div>
	<div class="td1 h20"">后台登陆密码</div>
	<div class="td2 h20""><input type=password name="password" size="30"></div>
        <div class="td1 h20"">前台用户名称</div>
	<div class="td2 h20""><input type="text" name="username" size="30"></div>
	<div style="clear: both;"></div><div class="tf jz"><input type="submit" value="添 加" name="b1"></div>
	</div></form>
<%end sub

sub saveadmin
Dim Password,UserName,UserID
AdminName=Request.form("AdminName")
Password=Request.form("Password")
UserName=Request.form("UserName")

if AdminName="" or UserName="" then
	Call GoBack("","请输入前台或后台登陆名称！")	
end if

if Password="" then
	Call GoBack("","请输入后台密码！")	
else
 	Password=Md5(Password)
end if

set rs=Conn.execute("Select ID from YX_User where Name='"&UserName&"'")
if rs.eof or rs.bof then
	Call GoBack("","无效的注册用户")
else
	UserID=rs(0)
end if
set Rs=Conn.execute("select Name from YX_Admin where Name='"&AdminName&"'")
if not (rs.eof and rs.bof) then
	Call GoBack("","此用户已存在！请使用其他名称！")

end if
dim GradeNum
set Rs=Conn.Execute("select GradeNum from YX_UserGrade where GradeID=1")
GradeNum=Rs(0)
set rs=nothing

Conn.execute("Update YX_User set ClassID=1,GradeNum="&GradeNum&" where ID="&UserID)
Conn.execute("Insert into YX_Admin (Name,[Password],UserName) values('"&AdminName&"','"&Password&"','"&UserName&"')")
Call Suc("","恭喜您！添加成功！","?action=admin")
end sub


sub admin%>
	<div class="ta">