📄 lfshow.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="shopconn.asp" -->
<%
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
Response.Write("对不起，您不是社区用户，请先注册！")
Response.End
else
Response.Buffer=true
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
%>
<HTML>
<HEAD><link rel=stylesheet type=text/css href=forum.css>
<TITLE>虚拟人物</TITLE>
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
function dressshop() {
DRESSSHOP = window.open('','fDRESSSHOP','scrollbars=yes,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=790,height=540,left=0,top=0');
DRESSSHOP.location.replace('dressshop.asp');
}
//-->
</script>
</HEAD>
<body topMargin="0" leftMargin="0" background="../images/bg.gif"><center><table width="100%" height="33" cellpadding="0" cellspacing="0"><tr><TD width="250"></TD><TD align="center" width="200"><FONT size="+1"><b>个性设置</b></FONT></TD>
<%if not master then%>
<td align=right width="250"><a href="javascript:dressshop()"><font color=#7a437a>商店列表</font></a> <a href=shoped.asp><font color=#7a437a>我的服装柜</font></a></a><%else%><td align=right width="250"><a href="javascript:dressshop()"><font color=#7a437a>商店列表</font></a> <a href=shoped.asp><font color=#7a437a>我的服装柜</font></a> <a href=myshop.asp><font color=#7a437a>我的商店</font></a> <a href="shopmana.asp"><font color=red>超市管理</font></a><%end if%> </td></tr></table>
<%
dim username,brs,sex,rs,rs1,rs2,rs3,rs4,sql,mysex,i
set rs1=server.createobject("adodb.recordset")
sql="select XB from [HY] where NC='"&membername&"'"
rs1.open sql,conn,1,1
mysex=rs1(0)
rs1.close
set rs1=nothing
if mysex=0 then
sex="boy"
else
sex="girl"
end if
set rs=server.createobject("adodb.recordset")
sql="select titlepic,face,face_1,face_2,face_3,face_4,face_5,face_6 from [User] where NC='"&membername&"'"
rs.open sql,connshop,1,1
if rs.eof and rs.bof then
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where (userid is null)"
rs.open sql,connshop,1,3
rs.addnew
rs("NC")=membername
rs("titlepic")="userface/back/0001.gif"
if mysex=0 then
rs("face")="userface/face1.gif"
else
rs("face")="userface/face2.gif"
end if
rs("face_1")="userface/face.gif"
rs("face_2")="userface/face.gif"
rs("face_3")="userface/face.gif"
rs("face_4")="userface/face.gif"
rs("face_5")="userface/face.gif"
rs("face_6")="userface/face.gif"
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
sql="select titlepic,face,face_1,face_2,face_3,face_4,face_5,face_6 from [User] where NC='"&membername&"'"
rs.open sql,connshop,1,1
end if%>
<center><%
if request("action")="updat" then
call update()
else
call userinfo()
end if
sub update()
username=trim(request("username"))
if username="" then
response.write "<script>alert('你从哪里钻出来的？');history.go(-1);</script>"
response.end
else
set brs=server.createobject("adodb.recordset")
sql="select NC from [User] where NC='"&username&"'"
brs.open sql,connshop,1,1
if brs.eof then
response.write "<script>alert('别人的都敢乱动，110可是免费的！');history.go(-1);</script>"
response.end
elseif brs(0)<>membername then
response.write "<script>alert('别人的都敢乱动，110可是免费的！');history.go(-1);</script>"
response.end
end if
end if
set brs=server.createobject("adodb.recordset")
sql="select * from [User] where NC='"&username&"'"
brs.open sql,connshop,1,3
brs("titlepic")=request("face_0")
brs("face_1")=request("face_1")
brs("face_2")=request("face_2")
brs("face_3")=request("face_3")
brs("face_4")=request("face_4")
brs("face_5")=request("face_5")
brs("face_6")=request("face_6")
brs.Update
brs.close
set brs=nothing
%>
<table><tr><td align=center>恭喜，操作成功！</td></tr>
<%response.write "<meta http-equiv=refresh content=""3;url=lfshow.asp"">"%>
<tr><td>系统将自动在３秒后返回！</td></tr></table>
<%end sub
sub userinfo()%>
<table width=100% cellpadding=0 cellspacing=0 height=300>
<tr><td width=20%></td><form action="?action=updat&username=<%=membername%>" method=POST name="theForm">
<td><br>背景 <select name="face_0" onChange="document.images['face_0'].src=options[selectedIndex].value;" size=1>
<option value=userface/back/0001.gif <%if rs("titlepic")="userface/back/0001.gif" then%>selected<%end if%>>000001</option>
<option value=userface/back/0002.gif <%if rs("titlepic")="userface/back/0002.gif" then%>selected<%end if%>>000002</option>
<option value=userface/back/0003.gif <%if rs("titlepic")="userface/back/0003.gif" then%>selected<%end if%>>000003</option>
<option value=userface/back/0004.gif <%if rs("titlepic")="userface/back/0004.gif" then%>selected<%end if%>>000004</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -