📄 home.asp
字号:
fLYX = window.open('','fLYX','scrollbars=yes,toolbar=no,menubar=no,location=no,status=no,resizable=yes,left=1,top=1,width=500,height=400');
fLYX.location.replace('lyb.asp');
}
function openpic(url)
{
window.open(url,"","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=220,height=180");
}
//-->
</script>
<body style="margin:0px" background="images/bg.gif">
<br>
<table width="100%" align=center>
<tr>
<td width="35%" valign=top align=center>
<%
dim connshop,strshop,dbshop
dbshop="dressshop/shop.mdb"
Set connshop = Server.CreateObject("ADODB.Connection")
strshop="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbshop)
connshop.Open strshop
set brs=server.createobject("adodb.recordset")
sql="select * from [User] where NC='"&Request.Cookies("NC")&"'"
brs.open sql,connshop,1,3
if brs.eof then
%>
<a href=dressshop/lfshow.asp><img src=dressshop/userface/nobg.gif border=0></a>
<%else%>
<TABLE WIDTH="185" HEIGHT="0" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR><TD>
<script src=dressshop/userface.asp?UserName=<%=Request.Cookies("NC")%>></script>
</td></tr>
</TABLE>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br>
<a href="dressshop/lfshow.asp">个性设置</a> <a href=dressshop/shoped.asp>我的服装柜</a>
<%
end if
brs.close
set brs=nothing
connshop.close
set connshop=nothing
%>
<br><br>
<table cellpadding="0" cellspacing="0" border="0" bgcolor="#84B6DE" width="97%" align="center">
<tr><td>
<table cellpadding="4" cellspacing="1" border="0" width="100%">
<tr><td bgcolor="#F9F9F9">
<TABLE WIDTH="100%" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="1" bgcolor="#84B6DE">
<TR>
<TD HEIGHT="25" ALIGN="CENTER" background="images/1-11.gif" bgcolor=#CEE7FF><B><font color=#21517B>我
的 宠 物</font></B></TD>
</TR>
<TR>
<TD BGCOLOR="#FFFFFF">
<TABLE WIDTH="100%" HEIGHT="75" CELLPADDING="0" CELLSPACING="1" BORDER="0">
<TR><TD BGCOLOR=#FFFFFF align=center>
<%
set rs1=server.createobject("adodb.recordset")
sql="Select * from [sheep] where NC='"&Request.Cookies("NC")&"'"
set rs1=conn.Execute(sql)
if rs1.eof then
%>
你还没有饲养宠物或你的宠物已经死亡！
<%else%>
<br>我的宝贝：<%=rs1("sheepname")%> <a href=javascript:cw()>(喂养宠物)</a><br>
<br><img src="cw/images/<%=rs1("sheepface")%>.gif" valign=absmiddle><br><br>
<%
if rs1("feedsheepday")<>0 then
if rs1("milk")>0 then
tempmod=rs1("feedsheepday") mod 5
if tempmod=0 then
%>
<table border="0" cellspacing="1" cellpadding="0" height="1" width="72%">
<tr>
<form method="POST" action="cw/sellmilk.asp"><td class=p3 width="100%" height="1">
恭喜！您的小宠物终于生仔了，目前的数量为<%=rs1("milk")%>只想卖出多少只呢？<input class=input class=input type="text" name="milk" size="9" style="font-family: 宋体; font-size: 12px"><span lang="zh-cn">
</span>
<input class=TButton type="submit" value="卖仔啦" name="B1" style="font-family: 宋体; font-size: 12px">
<input type="hidden" name="id" value="<%=tempid%>"><input type="hidden" name="sheepname" value="<%=rs1("sheepname")%>">
</TD></TR></TABLE>
</form>
<%else%>
目前您共有 <%=rs1("milk")%> 只小仔,但还未到能卖仔的日子，请耐心等待吧。
<%end if%>
<%else%>
目前没有生仔
<%end if%>
<%end if%>
<%
end if
rs1.close
set rs1=nothing
conn.close
set conn=nothing
%>
</td></tr>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr></table>
</td></tr></table>
<br>
</td>
<td valign=top>
<table cellpadding="0" cellspacing="0" border="0" bgcolor="#84B6DE" width="97%" align="center">
<tr><td>
<table cellpadding="4" cellspacing="1" border="0" width="100%">
<tr><td bgcolor="#F9F9F9">
<TABLE WIDTH="100%" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="1" bgcolor="#84B6DE">
<TR>
<TD HEIGHT="23" ALIGN="CENTER" bgcolor=#CEE7FF><B><font color=#21517B>个 人 信 息</font></B></TD>
</TR>
<TR>
<TD BGCOLOR="#FFFFFF">
<TABLE WIDTH="100%" HEIGHT="160" CELLPADDING="2" CELLSPACING="1" BORDER="0">
<%
ret = Command("104|"&Request.Cookies("NC"))
if GetPart(ret,1) = "0" then
Response.Write("<TR><TD ROWSPAN=6 WIDTH=20% align=center BGCOLOR=#F5F5F5>")
Response.Write("<img src=images/face/"&GetPart(ret,9)&" width=64 height=64 VSPACE=4 HSPACE=4><br>"&GetClass(GetPart(ret,23),GetPart(ret,24))&"<br>")
for star=1 to Int(GetImage(GetPart(ret,23),GetPart(ret,24)))
Response.Write("<img src=images/star.gif>")
next
Response.Write("<br><br></TD>")
Response.Write("<td BGCOLOR=#F5F5F5> 姓名："&GetPart(ret,2)&"</td>")
Response.Write("<td BGCOLOR=#F5F5F5> 伴侣："&IIF(GetPart(ret,27) = "","无",GetPart(ret,27))&"<br></td>")
Response.Write("<td BGCOLOR=#F5F5F5> 社团："&IIF(GetPart(ret,7) = "","无",GetPart(ret,7))&"</td></tr>")
Response.Write("<td BGCOLOR=#F5F5F5> 经验："&GetPart(ret,23)&"</td>")
Response.Write("<td BGCOLOR=#F5F5F5> 魅力："&GetPart(ret,24)&"</td>")
Response.Write("<td BGCOLOR=#F5F5F5> 财产："&GetPart(ret,26)&"</td></tr>")
Response.Write("<tr><td BGCOLOR=#F5F5F5> 发表："&GetPart(ret,21)&"篇</td>")
Response.Write("<td BGCOLOR=#F5F5F5> 回复："&GetPart(ret,22)&"篇</td>")
Response.Write("<td BGCOLOR=#F5F5F5> <a href=user_photo.asp>我的照片</a></td>")
Response.Write("<tr><td BGCOLOR=#F5F5F5> <a href=hylb.asp?NC="&GetPart(ret,2)&">我的文章</a></td>")
Response.Write("<td BGCOLOR=#F5F5F5> <a href=javascript:ShowLYX()>我的短信</a></td>")
Response.Write("<td BGCOLOR=#F5F5F5> <a href=javascript:zxfy()>我的快译通</a></td>")
Response.Write("<tr><td BGCOLOR=#F5F5F5> <a href=javascript:myadd()>我的通讯簿</a></td>")
Response.Write("<td BGCOLOR=#F5F5F5> <a href=javascript:mybook()>我的日记簿</a></td>")
Response.Write("<td BGCOLOR=#F5F5F5> <a href=javascript:myfav()>我的收藏夹</a></td></tr>")
Response.Write("<tr><td BGCOLOR=#F5F5F5> <a href=javascript:zlgl()>资料管理</a></td>")
Response.Write("<td BGCOLOR=#F5F5F5> <a href=javascript:hycz()>会员查找</a></td>")
Response.Write("<td BGCOLOR=#F5F5F5> <a href=ltzy.asp>出门逛逛</a></td></tr>")
end if
%>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr></table>
</td></tr></table>
<br>
<table cellpadding="0" cellspacing="0" border="0" bgcolor="#84B6DE" width="97%" align="center">
<tr><td>
<table cellpadding="4" cellspacing="1" border="0" width="100%">
<tr><td bgcolor="#F9F9F9">
<TABLE WIDTH="100%" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="1" bgcolor="#84B6DE">
<TR>
<TD HEIGHT="23" ALIGN="CENTER" bgcolor=#CEE7FF><B><font color=#21517B>社 区 公 告</font></B></TD>
</TR>
<TR>
<TD BGCOLOR="#FFFFFF" align=center>
<TABLE border=0 cellPadding=4 cellSpacing=1 width="100%" height=215>
<TR><TD><img src="images/lb.gif" WIDTH="16" HEIGHT="16" align="absmiddle" VSPACE="6" > <a href="javascript:ShowSQGG1()"><%=GetPart(SQGG(1),2)%></a><br>
<img src="images/lb.gif" WIDTH="16" HEIGHT="16" align="absmiddle" VSPACE="6" > <a href="javascript:ShowSQGG2()"><%=GetPart(SQGG(2),2)%></a><br>
<img src="images/lb.gif" WIDTH="16" HEIGHT="16" align="absmiddle" VSPACE="6" > <a href="javascript:ShowSQGG3()"><%=GetPart(SQGG(3),2)%></a><br>
<img src="images/lb.gif" WIDTH="16" HEIGHT="16" align="absmiddle" VSPACE="6" > <a href="javascript:ShowSQGG4()"><%=GetPart(SQGG(4),2)%></a><br>
<img src="images/lb.gif" WIDTH="16" HEIGHT="16" align="absmiddle" VSPACE="6" > <a href="javascript:ShowSQGG5()"><%=GetPart(SQGG(5),2)%></a><br>
<img src="images/lb.gif" WIDTH="16" HEIGHT="16" align="absmiddle" VSPACE="6" > <a href="javascript:ShowSQGG6()"><%=GetPart(SQGG(6),2)%></a><br>
<img src="images/lb.gif" WIDTH="16" HEIGHT="16" align="absmiddle" VSPACE="6" > <a href="javascript:ShowSQGG7()"><%=GetPart(SQGG(7),2)%></a><br>
</TD></TR></TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr></table>
</td></tr></table>
<br>
</td>
</tr>
</table>
<br>
<%EndTime=timer()%>
<div align=center>[查询所用时间： <%=FormatNumber((EndTime-StarTime)*1000,3)%>毫秒]</div>
<br>
</body>
</html>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -