📄 lfshow2.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]+"'");
}
//-->
</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=shop.asp><font color=#7a437a>商店列表</font></a> <a href=shoped.asp><font color=#7a437a>我的服装柜</font></a></a><%else%><td align=right width="250"><a href=shop.asp><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 zrs=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&"'"
zrs.open sql,connshop,1,1
if zrs.eof 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"))
face3=request("face_3")
face4=request("face_4")
face5=request("face_5")
face6=request("face_6")
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
brs.close
set brs=nothing
end if
set rsold=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&"'"
rsold.open sql,connshop,1,1
if not(zrs.eof and zrs.bof) then
oldface3=rsold("face_3")
oldface4=rsold("face_4")
oldface5=rsold("face_5")
oldface6=rsold("face_6")
rsold.close
set rsold=nothing
end if
if face3="userface/face.gif" and face4="userface/face.gif" and face5="userface/face.gif" and face6="userface/face.gif" then
response.write "<script>alert('您没有选择需要的服饰！');history.go(-1);</script>"
else
if face3<>"userface/face.gif" then
set rs3=server.createobject("adodb.recordset")
sql="select dressname,dresspic,showid,dressmoney from [dress] where dresspic='"&face3&"'"
rs3.open sql,connshop,1,1
if not(rs3.eof and rs3.bof) then
name3=rs3("dressname")
pic3=rs3("dresspic")
showid3=rs3("showid")
money3=rs3("dressmoney")
rs3.close
set rs3=nothing
set rs33=server.createobject("adodb.recordset")
sql="select * from foodbuy where (id is null)"
rs33.Open sql,connshop,1,3
rs33.AddNew
rs33("userid")=membername
rs33("foodpic")=pic3
rs33("foodname")=name3
rs33("foodmoney")=money3
rs33("show")=showid3
rs33("foodsent")=false
rs33("foodtext")=dresstext
rs33("foodlast")=dresslast
rs33("fooddate")=date()
rs33("foodnum")="1"
rs33.Update
rs33.close
set rs33=nothing
end if
else
face3=oldface3
end if
if face4<>"userface/face.gif" then
set rs4=server.createobject("adodb.recordset")
sql="select dressname,dresspic,showid,dressmoney from [dress] where dresspic='"&face4&"'"
rs4.open sql,connshop,1,1
if not(rs4.eof and rs4.bof) then
name4=rs4("dressname")
pic4=rs4("dresspic")
showid4=rs4("showid")
money4=rs4("dressmoney")
rs4.close
set rs4=nothing
set rs44=server.createobject("adodb.recordset")
sql="select * from foodbuy where (id is null)"
rs44.Open sql,connshop,1,3
rs44.AddNew
rs44("userid")=membername
rs44("foodpic")=pic4
rs44("foodname")=name4
rs44("foodmoney")=money4
rs44("show")=showid4
rs44("foodsent")=false
rs44("foodtext")=dresstext
rs44("foodlast")=dresslast
rs44("fooddate")=date()
rs44("foodnum")="1"
rs44.Update
rs44.close
set rs44=nothing
end if
else
face4=oldface4
end if
if face5<>"userface/face.gif" then
set rs5=server.createobject("adodb.recordset")
sql="select dressname,dresspic,showid,dressmoney from [dress] where dresspic='"&face5&"'"
rs5.open sql,connshop,1,1
if not(rs5.eof and rs5.bof) then
name5=rs5("dressname")
pic5=rs5("dresspic")
showid5=rs5("showid")
money5=rs5("dressmoney")
rs5.close
set rs5=nothing
set rs55=server.createobject("adodb.recordset")
sql="select * from foodbuy where (id is null)"
rs55.Open sql,connshop,1,3
rs55.AddNew
rs55("userid")=membername
rs55("foodpic")=pic5
rs55("foodname")=name5
rs55("foodmoney")=money5
rs55("show")=showid5
rs55("foodsent")=false
rs55("foodtext")=dresstext
rs55("foodlast")=dresslast
rs55("fooddate")=date()
rs55("foodnum")="1"
rs55.Update
rs55.close
set rs55=nothing
end if
else
face5=oldface5
end if
if face6<>"userface/face.gif" then
set rs6=server.createobject("adodb.recordset")
sql="select dressname,dresspic,showid,dressmoney from [dress] where dresspic='"&face6&"'"
rs6.open sql,connshop,1,1
if not(rs6.eof and rs6.bof) then
name6=rs6("dressname")
pic6=rs6("dresspic")
showid6=rs6("showid")
money6=rs6("dressmoney")
rs6.close
set rs6=nothing
set rs66=server.createobject("adodb.recordset")
sql="select * from foodbuy where (id is null)"
rs66.Open sql,connshop,1,3
rs66.AddNew
rs66("userid")=membername
rs66("foodpic")=pic6
rs66("foodname")=name6
rs66("foodmoney")=money6
rs66("show")=showid6
rs66("foodsent")=false
rs66("foodtext")=dresstext
rs66("foodlast")=dresslast
rs66("fooddate")=date()
rs66("foodnum")="1"
rs66.Update
rs66.close
set rs66=nothing
end if
else
face6=oldface6
end if
totalmoney=money3+money4+money5+money6
set rs=server.createobject("adodb.recordset")
sql="select JQ from [HY] where NC='"&username&"'"
rs.open sql,conn,1,3
if rs("JQ")<totalmoney then
response.write "<script>alert('总计："&totalmoney&"元，您的现金不足，无法支付！');history.go(-1);</script>"
response.end
else
rs("JQ")=rs("JQ")-totalmoney
rs.update
end if
rs.close
set rs=nothing
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")=face3
brs("face_4")=face4
brs("face_5")=face5
brs("face_6")=face6
brs.Update
brs.close
set brs=nothing
%>
<table><tr><td align=center>交纳现金<%=totalmoney%>元 支付完毕，欢迎下次再来！</td></tr>
<%response.write "<meta http-equiv=refresh content=""3;url=shop.asp"">"%>
<tr><td>系统将自动在３秒后返回！</td></tr></table>
<%
end if
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= <%=zrs("titlepic")%> selected>===背景===</option>
</select>
<br><br>脸型 <select name="face_1" onChange="document.images['face_1'].src=options[selectedIndex].value;" size=1>
<option value=<%=zrs("face_1")%> selected>===脸型===</option>
</select>
<br><br>发型 <select name="face_2" onChange="document.images['face_2'].src=options[selectedIndex].value;" size=1>
<option value=userface/face.gif></option>
<option value=<%=zrs("face_2")%> selected>===发型===</option>
</select>
<br><br>鞋子 <select name="face_3" onChange="document.images['face_3'].src=options[selectedIndex].value;" size=1><option value=userface/face.gif></option><%set rs1=server.createobject("adodb.recordset")
sql="select dressname,dresspic from dress where showid=1 and dresssex="&mysex
rs1.open sql,connshop,1,1
if rs1.eof and rs1.bof then%><option value=userface/face.gif selected>===无===</option><%else%>
<option value=userface/face.gif selected>===试用鞋子===</option>
<%rs1.movefirst
for i=1 to rs1.recordcount%><option value="<%=rs1("dresspic")%>"><%=rs1("dressname")%></option><%
rs1.movenext
next
rs1.close
set rs1=nothing
end if%></select>
<br><br>下装 <select name="face_4" onChange="document.images['face_4'].src=options[selectedIndex].value;" size=1><option value=userface/face.gif></option><%set rs2=server.createobject("adodb.recordset")
sql="select dressname,dresspic from dress where showid=2 and dresssex="&mysex
rs2.open sql,connshop,1,1
if rs2.eof and rs2.bof then%><option value=userface/face.gif selected>===无===</option><%else%>
<option value=userface/face.gif selected>===试用下装===</option>
<%rs2.movefirst
for i=1 to rs2.recordcount%><option value="<%=rs2("dresspic")%>"><%=rs2("dressname")%></option><%
rs2.movenext
next
rs2.close
set rs2=nothing
end if%></select>
<br><br>上衣 <select name="face_5" onChange="document.images['face_5'].src=options[selectedIndex].value;" size=1><option value=userface/face.gif></option><%set rs3=server.createobject("adodb.recordset")
sql="select dressname,dresspic from dress where showid=3 and dresssex="&mysex
rs3.open sql,connshop,1,1
if rs3.eof and rs3.bof then%><option value=userface/face.gif selected>===无===</option><%else%>
<option value=userface/face.gif selected>===试用上衣===</option>
<%rs3.movefirst
for i=1 to rs3.recordcount%><option value="<%=rs3("dresspic")%>"><%=rs3("dressname")%></option><%
rs3.movenext
next
rs3.close
set rs3=nothing
end if%></select>
<br><br>饰品 <select name="face_6" onChange="document.images['face_6'].src=options[selectedIndex].value;" size=1><option value=userface/face.gif></option><%set rs4=server.createobject("adodb.recordset")
sql="select dressname,dresspic from dress where showid=4 and dresssex="&mysex
rs4.open sql,connshop,1,1
if rs4.eof and rs4.bof then%><option value=userface/face.gif selected>===无===</option><%else%>
<option value=userface/face.gif selected>===试用饰品===</option>
<%rs4.movefirst
for i=1 to rs4.recordcount%><option value="<%=rs4("dresspic")%>"><%=rs4("dressname")%></option><%
rs4.movenext
next
rs4.close
set rs4=nothing
end if%></select>
</td>
<td width=50%>
<div id="Layer0" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:1; visibility: visible"><img id=face_0 src="<%=zrs("titlepic")%>" width=179 height=200></div>
<div id="Layer1" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:2; visibility: visible"><img id=face src="<%=zrs("face")%>" width=179 height=200></div>
<div id="Layer2" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:2; visibility: visible"><img id=face_1 src="<%=zrs("face_1")%>" width=179 height=200></div>
<div id="Layer3" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:3; visibility: visible"><img id=face_2 src="<%=zrs("face_2")%>" width=179 height=200></div>
<div id="Layer4" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:4; visibility: visible"><img id=face_3 src="<%=zrs("face_3")%>" width=179 height=200></div>
<div id="Layer5" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:5; visibility: visible"><img id=face_4 src="<%=zrs("face_4")%>" width=179 height=200></div>
<div id="Layer6" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:6; visibility: visible"><img id=face_5 src="<%=zrs("face_5")%>" width=179 height=200></div>
<div id="Layer7" style="position:absolute; left:440px; top:60px; width:179px; height:200px; z-index:7; visibility: visible"><img id=face_6 src="<%=zrs("face_6")%>" width=179 height=200></div>
</td></tr><tr align="center">
<td colspan="3">
<input type=Submit value="购买试用满意的服饰" name="Submit"> <input type="submit" name="Submit" value="返回商店" onClick="MM_goToURL('self','shop.asp');return document.MM_returnValue"><br><br></td></form></tr></table>
<%
end sub
zrs.close
set zrs=nothing
connshop.close
set connshop=nothing
%>
</center></body></html>
<% end if %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -