<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_popfun.asp -->
<!--#include file="wxzfunction.asp"-->
<!--#include file="xgcity_community_head.asp" -->
<%
dim Assort_id
Assort_id=0
%>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
<style type="text/css">
<!--
.visual {
	color: #FFFFFF;
}
-->
</style>

<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
  <tr>
    <td height="100%" align="left" vAlign="top" noWrap id="frmTitle">
    <iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="no" src="../../left.asp?Assort_id=<%=Assort_id%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 92px; Z-INDEX: 2">
    </iframe>    </td>
    <td style="WIDTH: 9pt" >
    <table border="0" cellPadding="0" cellSpacing="0" height="100%">
	<tbody>
      <tr>
        <td style="HEIGHT: 100%" onclick="switchSysBar()" background="../../images/left/bg.gif" style=CURSOR:hand; title=开启/关闭左边导航栏>
<font style=COLOR:#ffffff;CURSOR:hand;FONT-FAMILY:Webdings;FONT-SIZE:9pt;>
<SPAN id=switchPoint>3</SPAN></font></td>
      </tr>
	  </tbody>
    </table>
    </td>
    <td align="left" valign="top" style="WIDTH: 100%">
<%
dim shopid,curpage,sex,rsvisual,sqlvisual,CurType,CurSubType
dim isHas
dim myLayerStr,myvisualsplit
dim PhotoPrice1,PhotoPrice2,PhotoPeriod,PhotoStatus,PhotoUserCount,PriceMin,AccoutermentType

WPD_html
WPD_Getconfig
WPD_ScriptSrc(WPD_pluspath&"visual/wxzmain.js")
WPD_checkplususer
WPD_isshowtop=1
%>
<!--#include file="z_Visual_const.asp"-->
<%
if not WPD_founduser then
	WPD_errmsg=errmsg+"<br>"+"<li>您还没有<a href=login.asp>登录社区</a>，不能使用个人形象设计功能。如果您还没有<a href=reg.asp>注册</a>，请先<a href=reg.asp>注册</a>！"
	WPD_founderr=true
end if

myvisualsplit=split(v_myvisual,"|")
myLayerStr=GetLayerStr(myvisualsplit)

shopid=WPD_checkstr(request.querystring("shopid"))
if not isnumeric(shopid) or isnull(shopid) or shopid="" then 
	shopid=697
elseif shopid<1 then 
	shopid=697
end if
CurType=shopid mod 100
CurSubType=shopid \ 100
sex=WPD_checkstr(request("sex"))
if isnull(sex) then sex=""
curPage=request("page")
if curpage="" or not WPD_isInteger(curpage) then
	curpage=1
else
	curpage=clng(curpage)
end if

WPD_stats="时尚秀"
WPD_header "时尚秀","visual","index.asp"

if WPD_founderr=true then
	WPD_error
else
	call main()
end if

WPD_footer()

sub main()
	dim minsubtype,totalrec,pagecount,curcount
	dim TypeCount,TypeName,SubTypeName,arraystr,lastseq
	dim SearchMsg
	set rsvisual=server.createobject("ADODB.Recordset")
	sqlvisual="select top 1 photoprice1,photoprice2,photoperiod,photostatus,photousercount,PriceMin,Accouterment from visual_config"
	rsvisual.open sqlvisual,conn,1,1
	if not (rsvisual.eof or rsvisual.bof) then
		PhotoPrice1=rsvisual(0)
		PhotoPrice2=rsvisual(1)
		PhotoPeriod=rsvisual(2)
		PhotoStatus=rsvisual(3)
		PhotoUserCount=rsvisual(4)
		PriceMin=rsvisual(5)
		AccoutermentType=rsvisual(6)
	else
		PhotoPrice1=20
		PhotoPrice2=10
		PhotoPeriod=5
		PhotoStatus=1
		PhotoUserCount=5
		PriceMin=5
	end if
	rsvisual.close
	TypeName=""
	SubTypeName=""
	
 If GBL_TableHeadString <> "" Then %><table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=0 cellpadding=0 align=center><tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td><%=GBL_TableHeadString%></td></tr></table><% End If 
	response.write "<table width="&DEF_BBS_ScreenWidth&" border=0 cellspacing=1 cellpadding=3 align=center bgcolor="&DEF_BBS_DarkColor&" class=TBone>"
response.write "<tr height=20 colspan=2>"
if CurType=96 then
response.write "<td class=visual valign=middle id=tabletitlelink colspan=2>二手商店专门经营旧货，价格便宜，但是服务差劲，所有商品<strong>不能试穿</strong>，请您购买时小心哟! </td>"
elseif CurType=97 then
response.write "<td class=visual valign=middle id=tabletitlelink colspan=2>在照相馆照相，无须改变您日常使用的形象，只要装备好需要的商品，不用保存即可拍照!</td>"
elseif CurType=98 then
response.write "<td class=visual valign=middle id=tabletitlelink colspan=2>"&DEF_SiteNameString&" -- 形象设计系统</td>"
else
response.write "<td class=visual valign=middle id=tabletitlelink colspan=2>点击图片即可试穿和脱下，试穿后记得“<strong>保存</strong>”哟!</td>"
end if
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  align=center valign=bottom colspan=2>"
response.write "<table border=0 cellspacing=3 cellpadding=0 >"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td height=32>"
response.write "<table cellspacing=0 cellpadding=0 width=67 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=67 background=Images/111/titletable_bg.gif height=24>"
if CurType=99 then
response.write "<font color="&WPD_spcolor&">"
TypeName="推荐商品"
else
response.write "<a href=?shopid=199&sex="&sex&"&page=1>"
end if
response.write "推荐商品"
if CurType=99 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=67 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=67 background=Images/111/titletable_bg.gif height=24>"
if CurType=1 then
response.write "<font color="&WPD_spcolor&">"
TypeName="一般衣服"
else
response.write "<a href=?shopid=101&sex="&sex&"&page=1>"
end if
response.write "一般衣服"
if CurType=0 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"

response.write "<table cellspacing=0 cellpadding=0 width=65 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=65 background=Images/111/titletable_bg.gif height=24>"
if CurType=2 then
response.write "<font color="&WPD_spcolor&">"
TypeName="套　装"
else
response.write "<a href=?shopid=102&sex="&sex&"&page=1>"
end if
response.write "套　装"
if CurType=01 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=67 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=67 background=Images/111/titletable_bg.gif height=24>"
if CurType=3 then
response.write "<font color="&WPD_spcolor&">"
TypeName="主题服饰"
else
response.write "<a href=?shopid=103&sex="&sex&"&page=1>"
end if
response.write "主题服饰"
if CurType=02 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=67 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=67 background=Images/111/titletable_bg.gif height=24>"
if CurType=4 then
response.write "<font color="&WPD_spcolor&">"
TypeName="背景首饰"
else
response.write "<a href=?shopid=104&sex="&sex&"&page=1>"
end if
response.write "背景首饰"
if CurType=03 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=65 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=65 background=Images/111/titletable_bg.gif height=24>"
if CurType=5 then
response.write "<font color="&WPD_spcolor&">"
TypeName="眼　睛"
else
response.write "<a href=?shopid=105&sex="&sex&"&page=1>"
end if
response.write "眼　睛"
if CurType=04 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=65 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=65 background=Images/111/titletable_bg.gif height=24>"
if CurType=6 then
response.write "<font color="&WPD_spcolor&">"
TypeName="发　型"
else
response.write "<a href=?shopid=106&sex="&sex&"&page=1>"
end if
response.write "发　型"
if CurType=0 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=67 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=67 background=Images/111/titletable_bg.gif height=24>"
if CurType=7 then
response.write "<font color="&WPD_spcolor&">"
TypeName="主题专区"
else
response.write "<a href=?shopid=107&sex="&sex&"&page=1>"
end if
response.write "主题专区"
if CurType=0 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=67 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=67 background=Images/111/titletable_bg.gif height=24>"
if CurType=96 then
response.write "<font color="&WPD_spcolor&">"
TypeName="二手市场"
else
response.write "<a href=?shopid=196&sex="&sex&"&page=1>"
end if
response.write "二手市场"
if CurType=96 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td><td>"
response.write "<table cellspacing=0 cellpadding=0 width=65 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=65 background=Images/111/titletable_bg.gif height=24>"
if CurType=97 then
response.write "<font color="&WPD_spcolor&">"
TypeName="照相馆"
else
response.write "<a href=?shopid=197>"
end if
response.write "照相馆"
if CurType=97 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td></tr>"
response.write "</table>"
	if CurType=95 then response.write "<form method=post action=?shopid=195&search_str="&request("search_str")&"&selgender="&request("selgender")&"&selprice_l="&request("selprice_l")&"&selprice_h="&request("selprice_h")&"&selperiod_l="&request("selperiod_l")&"&selperiod_h="&request("selperiod_h")&"&selflag="&request("selflag")&">"
	if CurType=0 then
if CurSubType=1 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="我的衣橱&nbsp;&nbsp;〗"
else
response.write "〖<a href=?shopid=100&page=1>"
end if
response.write "我的衣橱"
if CurSubType=1 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=2 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="我的化妆包&nbsp;&nbsp;〗"
else
response.write "〖<a href=?shopid=200&page=1>"
end if
response.write "我的化妆包"
if CurSubType=2 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=3 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="我的首饰盒&nbsp;&nbsp;〗"
else
response.write "〖<a href=?shopid=300&page=1>"
end if
response.write "我的首饰盒"
if CurSubType=3 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=4 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="我的杂物箱&nbsp;&nbsp;〗"
else
response.write "〖<a href=?shopid=400&page=1>"
end if
response.write "我的杂物箱"
if CurSubType=4 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=5 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="我的货架&nbsp;&nbsp;〗"
else
response.write "〖<a href=?shopid=500&page=1>"
end if
response.write "我的货架"
if CurSubType=5 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=6 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="我的破衣篓&nbsp;&nbsp;〗"
else
response.write "〖<a href=?shopid=600&page=1>"
end if
response.write "我的破衣篓"
if CurSubType=6 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
elseif CurType=99 then
if CurSubType=1 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="最新上架"
else
response.write "〖<a href=?shopid=199&sex="&sex&"&page=1>"
end if
response.write "最新上架"
if CurSubType=1 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=2 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="热销商品"
else
response.write "〖<a href=?shopid=299&sex="&sex&"&page=1>"
end if
response.write "热销商品"
if CurSubType=2 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=3 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="VIP专卖"
else
response.write "〖<a href=?shopid=399&sex="&sex&"&page=1>"
end if
response.write "VIP专卖"
if CurSubType=3 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=4 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="特价商品"
else
response.write "〖<a href=?shopid=499&sex="&sex&"&page=1>"
end if
response.write "特价商品"
if CurSubType=4 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
elseif CurType=96 then
response.write "&nbsp;&nbsp;"
if CurSubType=1 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="服装类"
else
response.write "〖<a href=?shopid=196&sex="&sex&"&page=1>"
end if
response.write "服装类"
if CurSubType=1 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=2 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="化妆类"
else
response.write "〖<a href=?shopid=296&sex="&sex&"&page=1>"
end if
response.write "化妆类"
if CurSubType=2 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=3 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="首饰类"
else
response.write "〖<a href=?shopid=396&sex="&sex&"&page=1>"
end if
response.write "首饰类"
if CurSubType=3 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=4 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="杂物类"
else
response.write "〖<a href=?shopid=496&sex="&sex&"&page=1>"
end if
response.write "杂物类"
if CurSubType=4 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
elseif CurType=97 then
response.write "&nbsp;&nbsp;"
if CurSubType=1 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="发送新请求"
else
response.write "〖<a href=?shopid=197>"
end if
response.write "发送新请求"
if CurSubType=1 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=2 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="发出的请求"
else
response.write "〖<a href=?shopid=297>"
end if
response.write "发出的请求"
if CurSubType=2 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=3 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="收到的请求"
else
response.write "〖<a href=?shopid=397>"
end if
response.write "收到的请求"
if CurSubType=3 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=4 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="确认的请求"
else
response.write "〖<a href=?shopid=497>"
end if
response.write "确认的请求"
if CurSubType=4 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=5 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="我的虚拟相簿"
else
response.write "〖<a href=?shopid=597>"
end if
response.write "我的虚拟相簿"
if CurSubType=5 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
response.write "&nbsp;&nbsp;"
if CurSubType=6 then
response.write "〖<font color="&WPD_spcolor&">"
SubTypeName="大家的虚拟相簿"
else
response.write "〖<a href=?shopid=697>"
end if
response.write "大家的虚拟相簿"
if CurSubType=6 then
response.write "</font>〗"
else
response.write "</a>〗"
end if
	elseif CurType=95 then
		response.write "排序对象："
		response.write "<input type=radio name=sortobj value=""id"""
		if isnull(request("sortobj")) or request("sortobj")="" then
			response.write " checked"
		else
			if not request("sortobj")<>"id" or (request("sortobj")<>"dateandtime" and request("sortobj")<>"price1" and request("sortobj")<>"price2" and request("sortobj")<>"period" and request("sortobj")<>"flag") then response.write " checked"
		end if
		response.write "> 商品编码&nbsp;"
		response.write "<input type=radio name=sortobj value=""dateandtime"""
		if not request("sortobj")<>"dateandtime" then response.write " checked"
		response.write "> 到货时间&nbsp;"
		response.write "<input type=radio name=sortobj value=""price1"""
		if not request("sortobj")<>"price1" then response.write " checked"
		response.write "> 标价&nbsp;"
		response.write "<input type=radio name=sortobj value=""price2"""
		if not request("sortobj")<>"price2" then response.write " checked"
		response.write "> VIP价&nbsp;"
		response.write "<input type=radio name=sortobj value=""period"""
		if not request("sortobj")<>"period" then response.write " checked"
		response.write "> 有效期&nbsp;"
		response.write "<input type=radio name=sortobj value=""flag"""
		if not request("sortobj")<>"flag" then response.write " checked"
		response.write "> 限购者&nbsp;"
		response.write "排序方式："
		response.write "<input type=radio name=sorttype value=""asc"""
		if not request("sorttype")<>"asc" then response.write " checked"
		response.write "> 升序&nbsp;"
		response.write "<input type=radio name=sorttype value=""desc"""
		if isnull(request("sorttype")) or request("sorttype")="" then
			response.write " checked"
		else
			if not request("sorttype")<>"desc" or request("sorttype")<>"asc" then response.write " checked"
		end if
		response.write "> 降序&nbsp;"
		response.write "<input type=""submit"" name=""submit"" value=""排序"">"
	else
		sqlvisual="select seqno,subtypename from visual_subtype where typeseq="&CurType&" and visible order by orders"
		rsvisual.open sqlvisual,conn,1,1
		do while not rsvisual.eof
			if CurSubType=rsvisual("seqno") then
				response.write "【<font color="&WPD_spcolor&">"
				SubTypeName=rsvisual("subtypename")
			else
				response.write "〖<a href=?shopid="&rsvisual("seqno")&right("00"&CurType,2)&"&sex="&sex&"&page=1>"
			end if
			response.write rsvisual("subtypename")
			if CurSubType=rsvisual("seqno") then
				response.write "</font>】"
			else
				response.write "</a>〗"
			end if
			rsvisual.movenext
			if not rsvisual.eof then response.write ""
		loop
		rsvisual.close
	end if
	response.write "</td>"
	response.write "</tr>"
	if CurType=95 then response.write "</form>"
	response.write ""
	response.write ""
	if CurType<>0 and CurType<>96 and CurType<>97 and CurType<>98 then
		response.write "<form method=post action=?shopid=195>"
		response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9 height=30>"
		response.write "<td colspan=2 align=center valign=middle width=100% >"
		response.write "商品名称：<input type=""text"" name=""search_str"" size=""10"" maxlength=""20"">&nbsp;"
		response.write "<select name=""selgender""><option value=0 selected>性别不限</option><option value=1>男</option><option value=2>女</option><option value=3>男女适宜</option></select>&nbsp;"
		response.write "<input type=""text"" name=""selPrice_L"" size=""5"" maxlength=""5"">≤价格≤<input type=""text"" name=""selPrice_H"" size=""5"" maxlength=""5"">&nbsp;"
		'response.write "<select name=""selprice""><option value=0 selected>价格不限</option><option value=1>10元以下</option><option value=2>10元以上</option><option value=3>30元以上</option><option value=4>50元以上</option><option value=5>100元以上</option><option value=6>200元以上</option></select>&nbsp;"
		response.write "<input type=""text"" name=""selPeriod_L"" size=""5"" maxlength=""5"">≤有效期≤<input type=""text"" name=""selPeriod_H"" size=""5"" maxlength=""5"">&nbsp;"
		'response.write "<select name=""selperiod""><option value=0 selected>有效期不限</option><option value=1>5天以下</option><option value=2>5天以上</option><option value=3>10天以上</option><option value=4>15天以上</option><option value=5>20天以上</option><option value=6>30天以上</option><option value=7>无限期</option></select>&nbsp;"
		response.write "<select name=""selflag""><option value=0 selected>限购者不限</option><option value=1>所有社员</option><option value=2>版主以上</option><option value=3>超级版主</option><option value=4>管理员</option></select>&nbsp;"
		response.write "<input style=""BACKGROUND-COLOR: #ebebeb"" class=2 type=""submit"" name=""submit"" value=""开始搜索"">"
		response.write "</td>"
		response.write "</tr>"
		response.write "</form>"
	
		response.write ""
	end if
	
	
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td align=center  width=""25%"">"
response.write "<table cellspacing=0 cellpadding=0 width=181 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9 valign=top>"
response.write "<td><img src=images/111/clothesbox_left.gif width=10 height=31></td>"
response.write "<td align=middle><img src=images/111/clothesbox_up.gif width=161 height=10><br><font color=blue>"&WPD_membername&"</font></td>"
response.write "<td><img src=images/111/clothesbox_right.gif width=10 height=31></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td background=images/111/clothesbox_leftbg.gif><img src=images/111/clothesbox_leftbg.gif width=10 height=1></td>"
response.write "<td background=images/111/show_08.gif><img src=images/111/show_08.gif width=8 height=7></td>"
response.write "<td background=images/111/clothesbox_rightbg.gif><img src=images/111/clothesbox_rightbg.gif width=10 height=8></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9 valign=top>"
response.write "<td background=images/111/clothesbox_leftbg.gif><img src=images/111/clothesbox_leftbg.gif width=10 height=1></td>"
response.write "<td align=middle>"
response.write "<table border=0 cellspacing=0 cellpadding=0 align=center>"


response.write "<tr align=center> "

response.write "<script language=JavaScript>"
response.write "var cookieSrc=document.cookie;"
response.write "</script>"
response.write "<td align=right colspan=2 width=120 height=150  id=visualshow ImagePath="""&PicPath&""" enableLayers="""&myLayerStr&""" usergender="""&v_mysex&""" baseName=""images/img_visual_ET/blank.gif"""
for i=0 to ubound(myvisualsplit)
if not isnull(myvisualsplit(i)) and trim(myvisualsplit(i))<>"" then
response.write "layer"&(i+1)&"="&myvisualsplit(i)&" "
end if
next
response.write "style=behavior:url(inc/z_show.htc) cookies=cookieSrc setCookies=""document.cookie=this.cookies"" userid="&WPD_userid&" localpic="&LocalPic&">"

response.write "<table name=takeonrecord align=center width=140 cellpadding=0 cellspacing=0>"
	response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
	response.write "<td width=70 align=center><img style=cursor:hand height=70 name=""IMG"" src=""images/img_visual_ET/blank.gif"" width=70 border=0 itemgender="&v_mysex&"></td>"
	response.write "<td width=70 align=center><img style=cursor:hand height=70 name=""IMG"" src=""images/img_visual_ET/blank.gif"" width=70 border=0 itemgender="&v_mysex&"></td>"
	response.write "</tr>"
	response.write "</table>"
	response.write "<table width=140 border=0 cellspacing=0 cellpadding=0>"
	response.write "<tr height=25>"
	response.write "<td width=80 >&nbsp;&nbsp;[试穿记录]</td>"
	response.write "<td name=btnMoveLeft width=30 valign=middle align=center ><img src=""images/img_visual_ET/left.gif"" style=""CURSOR: hand; display:none""></td>"
	response.write "<td name=btnMoveRight width=30 valign=middle align=center ><img src=""images/img_visual_ET/right.gif"" style=""CURSOR: hand; display:none""></td>"
	response.write "</tr>"
	response.write "</table>"
response.write "</td>"
response.write "</tr>"



response.write "</table>"
response.write "</td>"
response.write "<td background=images/111/clothesbox_rightbg.gif><img src=images/111/clothesbox_rightbg.gif width=10 height=1></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td background=images/111/clothesbox_leftbg.gif><img src=images/111/clothesbox_leftbg.gif width=10 height=1></td>"
response.write "<td background=images/111/show_08.gif><img src=images/111/show_08.gif width=8 height=7></td>"
response.write "<td background=images/111/clothesbox_rightbg.gif><img src=images/111/clothesbox_rightbg.gif width=10 height=1></td>"
response.write "</tr>"

response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td background=images/111/clothesbox_leftbg.gif><img src=images/111/clothesbox_leftbg.gif width=10 height=1></td>"
response.write "<td align=middle>"

response.write "<table border=0 cellspacing=0 cellpadding=0 align=center>"

response.write "<tr height=25 valign=middle>"
response.write "<td  width=160 align=center><table cellspacing=0 cellpadding=0 width=75 border=0 align=center>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td align=center><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=75 background=Images/111/titletable_bg.gif height=24>"
if CurType=0 then
response.write "<font color="&WPD_spcolor&">"
TypeName="我的衣柜"
else
response.write "<a href=?shopid=100&sex="&sex&"&page=1>"
end if
response.write "我的衣柜"
if CurType=0 then
response.write "</font>"
else
response.write "</a>"
end if
response.write "</td>"
response.write "<td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td>"
response.write "<td  width=160 align=center><table cellspacing=0 cellpadding=0 width=75 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td align=center><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=75 background=Images/111/titletable_bg.gif height=24><font style=""cursor:hand"" onclick=""JavaScript:openScript('z_visual_cartbag.asp',500,400)"">购物袋</font>"
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td> </tr>"
	if CurType<>97 then
		response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2  align=center><table cellspacing=0 cellpadding=0 width=155 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=155 background=Images/111/titletable_bg.gif height=24><a href=z_visual_save.asp>保存</a>&nbsp;&nbsp;&nbsp;<a href=javascript:initshow()>清除</a>&nbsp;&nbsp;&nbsp;<a href=javascript:deleteshow()>恢复</a>"
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2  align=center><table cellspacing=0 cellpadding=0 width=155 border=0>"
	response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=155 background=Images/111/titletable_bg.gif height=24><a href=?shopid=197>合影</a>&nbsp;&nbsp;&nbsp;<a href=z_visual_photo.asp?action=photome onclick=""if(confirm('个人写真的费用是"
	if isnull(v_myvip) or v_myvip<>1 then
		response.write PhotoPrice1
	else
		response.write PhotoPrice2
	end if
	response.write "元，您现在有现金"&WPD_mymoney&"元，是否确认拍照?')){return true;} return false;"">写真</a>&nbsp;&nbsp;&nbsp;<a href=z_top_photo.asp>参赛</a></td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
	response.write "</td>"
response.write "</tr>"
else
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2  align=center><table cellspacing=0 cellpadding=0 width=155 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=155 background=Images/111/titletable_bg.gif height=24>保存&nbsp;&nbsp;&nbsp;<a href=javascript:initshow()>清除</a>&nbsp;&nbsp;&nbsp;<a href=javascript:deleteshow()>恢复</a>"
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td colspan=2  align=center><table cellspacing=0 cellpadding=0 width=155 border=0>"
	response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=155 background=Images/111/titletable_bg.gif height=24><a href=?shopid=197>合影</a>&nbsp;&nbsp;&nbsp;<a href=z_visual_photo.asp?action=photome onclick=""if(confirm('个人写真的费用是"
	if isnull(v_myvip) or v_myvip<>1 then
		response.write PhotoPrice1
	else
		response.write PhotoPrice2
	end if
	response.write "元，您现在有现金"&WPD_mymoney&"元，是否确认拍照?')){return true;} return false;"">写真</a>&nbsp;&nbsp;&nbsp;<a href=z_top_photo.asp>参赛</a></td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
	response.write "</td>"
response.write "</tr>"

end if
response.write "</table>"


response.write "<script language=javascript>"
	response.write "function deleteshow(){"
	response.write "document.cookie = ""WxzEtShow_"&WPD_userid&"="" + escape("""") + ""; path="&WPD_cookiepath&""";"
	response.write "location.reload();"
	response.write "}"
	response.write "function initshow(){"
	if v_mysex=1 then
		response.write "document.cookie = ""WxzEtShow_"&WPD_userid&"="" + escape('||||||14|13|12||11||10|9||||8|||||||') + ""; path="&WPD_cookiepath&""";"
	else
		response.write "document.cookie = ""WxzEtShow_"&WPD_userid&"="" + escape('||||||7|6|5||4||3|2||||1|||||||') + ""; path="&WPD_cookiepath&""";"
	end if
	response.write "location.reload();"
	response.write "}"
	response.write "</script>"

	response.write "<table width=160 border=0 cellspacing=0 cellpadding=0>"

response.write "<tr height=25 valign=middle>"
response.write "<td align=center >"
response.write "<table cellspacing=0 cellpadding=0 width=75 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=75 background=Images/111/titletable_bg.gif height=24><font style=""cursor:hand"" onclick=""JavaScript:openScript('z_visual_record.asp?menu=buy',500,400)"">购买记录</font>"
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td>"
response.write "<td align=center >"
response.write "<table cellspacing=0 cellpadding=0 width=75 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=75 background=Images/111/titletable_bg.gif height=24><font style=""cursor:hand"" onclick=""JavaScript:openScript('z_visual_record.asp?menu=send',500,400)"">赠送记录</font>"
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td align=center >"
response.write "<table cellspacing=0 cellpadding=0 width=75 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=75 background=Images/111/titletable_bg.gif height=24><font style=""cursor:hand"" onclick=""JavaScript:openScript('z_visual_record.asp?menu=recv',500,400)"">受赠记录</font>"
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td>"
response.write "<td align=center >"
response.write "<table cellspacing=0 cellpadding=0 width=75 border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9> <td><img height=24  src=Images/111/titletable_left.gif width=12 border=0></td><td align=middle width=75 background=Images/111/titletable_bg.gif height=24><font style=""cursor:hand"" onclick=""JavaScript:openScript('z_visual_record.asp?menu=sale',500,400)"">出售记录</font>"
response.write "</td><td><img height=24  src=Images/111/titletable_right.gif width=7 border=0></td></tr></table>"
response.write "</td></tr>"
response.write "</table>"
response.write "<table width=160 border=0 cellspacing=0 cellpadding=0>"
response.write "<tr valign=middle>"
response.write "<td colspan=2 background=images/111/show_08.gif><img src=images/111/show_08.gif width=8 height=7></td></tr>"
response.write "</table>"
response.write "<table width=160 border=0 cellspacing=0 cellpadding=0>"

response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right >性别：&nbsp;</td>"
response.write "<td align=left >&nbsp;"
if v_mysex=0 then
response.write "女"
else
response.write "男"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right >属性：&nbsp;</td>"
response.write "<td align=left >&nbsp;"
if v_myvip<>1 then
response.write "普通社员"
else
response.write "<font color="&WPD_spcolor&">VIP社员</font>"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right >等级：&nbsp;</td>"
response.write "<td align=left >&nbsp;"
if WPD_master then
response.write "管理员"
elseif WPD_superboardmaster then
response.write "超级版主"
elseif WPD_boardmaster then
response.write "版主"
elseif WPD_vipuser then
response.write "认证社员"
else
response.write "普通社员"
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td width=50% align=right >现金：&nbsp;</td>"
response.write "<td align=left >&nbsp;"&WPD_mymoney&" 元</td>"

response.write "</tr></table>"
response.write "</td>"
response.write "<td background=images/111/clothesbox_rightbg.gif><img src=images/111/clothesbox_rightbg.gif width=10 height=1></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td background=images/111/clothesbox_leftbg.gif><img src=images/111/clothesbox_leftbg.gif width=10 height=1></td>"
response.write "<td background=images/111/show_08.gif><img src=images/111/show_08.gif width=8 height=7></td>"
response.write "<td background=images/111/clothesbox_rightbg.gif><img src=images/111/clothesbox_rightbg.gif width=10 height=1></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td valign=top><img src=images/111/clothesbox_leftdown.gif width=10 height=31></td>"
response.write "<td valign=bottom height=34>&nbsp;<img src=images/111/icon_box1.gif align=absMiddle width=11 height=11>&nbsp;<br>"
response.write "<img src=images/111/clothesbox_down.gif width=161 height=13></td>"
response.write "<td valign=top><img src=images/111/clothesbox_rightdown.gif width=10 height=31></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td colspan=3></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9 valign=top>"
response.write "<td><img src=images/111/clothesbox_leftb.gif width=10 height=31></td>"
response.write "<td><img src=images/111/clothesbox_upb.gif width=161 height=10><br>"
response.write "&nbsp;<img src=images/111/icon_box1.gif align=absMiddle width=11 height=11>&nbsp;大票排行 TOP10</td>"
response.write "<td><img src=images/111/clothesbox_rightb.gif width=10 height=31></td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td background=images/111/clothesbox_leftbgb.gif><img src=images/111/clothesbox_leftbgb.gif width=10 height=1></td>"
response.write "<td>"
response.write "<table border=0 width=94% height=19 cellspacing=0 cellpadding=0 align=center>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td>"
mytop10
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "<td background=images/111/clothesbox_rightbgb.gif><img src=images/111/clothesbox_rightbgb.gif width=10 height=8></td>"
response.write "</tr>"

response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td valign=top><img src=images/111/clothesbox_leftdownb.gif width=10 height=31></td>"
response.write "<td valign=bottom height=34><img src=images/111/clothesbox_downb.gif width=161 height=13></td>"
response.write "<td valign=top><img src=images/111/clothesbox_rightdownb.gif width=10 height=31></td>"
response.write "</tr>"
response.write "</table>"
	response.write "<td align=center  valign=top width=""72%"">"
	if CurType<>98 and CurType<>97 then
		if CurType=0 then
			if shopid=100 then
				sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=1 and my.username='"&WPD_membername&"' order by my.id desc"
			elseif shopid=200 then
				sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=2 and my.username='"&WPD_membername&"' order by my.id desc"
			elseif shopid=300 then
				sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=3 and my.username='"&WPD_membername&"' order by my.id desc"
			elseif shopid=400 then
				sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=4 and my.username='"&WPD_membername&"' order by my.id desc"
			elseif shopid=500 then
				sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0,saleprice from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=5 and my.username='"&WPD_membername&"' order by my.id desc"
			else
				sqlvisual="select my.username,my.fromuser,my.adddate,my.fixdate,my.period,my.price,visual.id,visual.price1,visual.price2,visual.sex,visual.content,visual.name,visual.period as period0 from visual_myitems my inner join visual_items visual on visual.id=my.itemid where my.type=0 and my.username='"&WPD_membername&"' order by my.id desc"
			end if
		elseif CurType=99 then
			if shopid=199 then
				if sex="1" or sex="0" then
					sqlvisual="select top 100 * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 order by DateAndTime desc"
				else
					sqlvisual="select top 100 * from visual_items where flag>0 and type>0 order by DateAndTime desc"
				end if
			elseif shopid=299 then
				if sex="1" or sex="0" then
					sqlvisual="select top 50 * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 order by totalsales desc, id desc"
				else
					sqlvisual="select top 50 * from visual_items where flag>0 and type>0 order by totalsales desc, id desc"
				end if
			elseif shopid=399 then
				if sex="1" or sex="0" then
					sqlvisual="select * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 and vip order by id desc"
				else
					sqlvisual="select * from visual_items where flag>0 and vip and type>0 order by id desc"
				end if
			else
				if sex="1" or sex="0" then
					sqlvisual="select * from visual_items where (sex="&sex&" or sex=2) and flag>0 and type>0 and price1<=5 order by id desc"
				else
					sqlvisual="select * from visual_items where flag>0 and price1<=5 and type>0 order by id desc"
				end if
			end if
		elseif CurType=96 then
			if shopid=196 then
				if sex="1" or sex="0" then
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100=1 order by m.id desc"
				else
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100=1 order by m.id desc"
				end if
			elseif shopid=296 then
				if sex="1" or sex="0" then
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100=2 order by m.id desc"
				else
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100=2 order by m.id desc"
				end if
			elseif shopid=396 then
				if sex="1" or sex="0" then
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100=3 order by m.id desc"
				else
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100=3 order by m.id desc"
				end if
			else
				if sex="1" or sex="0" then
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where (v.sex="&sex&" or v.sex=2) and m.type=5 and v.type mod 100<>1 and v.type mod 100<>2 and v.type mod 100<>3 and v.type mod 100<>4 order by m.id desc"
				else
					sqlvisual="select m.ItemID as ID,v.Name,v.sex,v.content,v.price1,v.price2,v.period as period0,m.username,m.period,m.saleprice,m.fixdate,m.ID as ID1 from visual_myitems m inner join visual_items v on m.itemid=v.id where m.type=5 and v.type mod 100<>1 and v.type mod 100<>2 and v.type mod 100<>3 order by m.id desc"
				end if
			end if
		elseif CurType=95 then
			sqlvisual="select * from visual_items where flag>0 and type>0"
			if not (isnull(request("search_str")) or request("search_str")="") then
				sqlvisual=sqlvisual&" and name like '%"&WPD_checkstr(trim(request("search_str")))&"%'"
				searchmsg="搜索[<font color="&WPD_spcolor&">"&WPD_checkstr(trim(request("search_str")))&"</font>]"
			else
				searchmsg="搜索[]"
			end if
			searchmsg=searchmsg&"（性别"
			if not (isnull(request("selgender")) or request("selgender")="") then
				select case request("selgender")
				case "1"
					sqlvisual=sqlvisual&" and sex=1"
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">男</font>"
				case "2"
					sqlvisual=sqlvisual&" and sex=0"
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">女</font>"
				case "3"
					sqlvisual=sqlvisual&" and sex=2"
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">男女适宜</font>"
				case else
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">不限</font>"
				end select
			else
				searchmsg=searchmsg&"<font color="&WPD_spcolor&">不限</font>"
			end if
			dim hasFlag
			hasFlag=false
			searchmsg=searchmsg&"，价格"
			if not (isnull(request("selprice_l")) or request("selprice_l")="") then
				if WPD_isInteger(request("selprice_l")) then
					if v_myVip<>1 then
						sqlvisual=sqlvisual&" and price1>="&request("selprice_l")
					else
						sqlvisual=sqlvisual&" and price2>="&request("selprice_l")
					end if
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">"&request("selprice_l")&"元以上</font>"
					hasFlag=true
				end if
			end if
			if not (isnull(request("selprice_h")) or request("selprice_h")="") then
				if WPD_isInteger(request("selprice_h")) then
					if v_myVip<>1 then
						sqlvisual=sqlvisual&" and price1<="&request("selprice_h")
					else
						sqlvisual=sqlvisual&" and price2<="&request("selprice_h")
					end if
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">"&request("selprice_h")&"元以下</font>"
					hasFlag=true
				end if
			end if
			if not hasFlag then searchmsg=searchmsg&"<font color="&WPD_spcolor&">不限</font>"
			hasFlag=false
			searchmsg=searchmsg&"，有效期"
			if not (isnull(request("selperiod_l")) or request("selperiod_l")="") then
				if WPD_isInteger(request("selperiod_l")) then
					sqlvisual=sqlvisual&" and period>="&request("selperiod_l")
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">"&request("selperiod_l")&"天以上</font>"
					hasFlag=true
				end if
			end if
			if not (isnull(request("selperiod_h")) or request("selperiod_h")="") then
				if WPD_isInteger(request("selperiod_h")) then
					sqlvisual=sqlvisual&" and period<="&request("selperiod_h")
					searchmsg=searchmsg&"<font color="&WPD_spcolor&">"&request("selperiod_h")&"天以下</font>"
					hasFlag=true
				end if
			end if
			if not hasFlag then searchmsg=searchmsg&"<font color="&WPD_spcolor&">不限</font>"
			searchmsg=searchmsg&"，"
			if not (isnull(request("selflag")) or request("selflag")="") then
				select case request("selflag")
				case "1"
					sqlvisual=sqlvisual&" and flag>=1"
					searchmsg=searchmsg&"限购者<font color="&WPD_spcolor&">所有社员</font>"
				case "2"
					sqlvisual=sqlvisual&" and flag>=2"
					searchmsg=searchmsg&"限购者<font color="&WPD_spcolor&">版主以上</font>"
				case "3"
					sqlvisual=sqlvisual&" and flag>=3"
					searchmsg=searchmsg&"限购者<font color="&WPD_spcolor&">超级版主</font>"
				case "4"
					sqlvisual=sqlvisual&" and flag>=4"
					searchmsg=searchmsg&"限购者<font color="&WPD_spcolor&">管理员</font>"
				case else
					searchmsg=searchmsg&"限购者<font color="&WPD_spcolor&">不限</font>"
				end select
			else
				searchmsg=searchmsg&"限购者<font color="&WPD_spcolor&">不限</font>"
			end if
			sqlvisual=sqlvisual&" order by "
			if isnull(request("sortobj")) or request("sortobj")="" then
				sqlvisual=sqlvisual&"id"
			else
				if request("sortobj")<>"dateandtime" and request("sortobj")<>"price1" and request("sortobj")<>"price2" and request("sortobj")<>"period" and request("sortobj")<>"flag" then
					sqlvisual=sqlvisual&"id"
				else
					sqlvisual=sqlvisual&request("sortobj")
				end if
			end if
			if isnull(request("sorttype")) or request("sorttype")="" then
				sqlvisual=sqlvisual&" desc"
			else
				if request("sorttype")<>"asc" then
					sqlvisual=sqlvisual&" desc"
				else
					sqlvisual=sqlvisual&" asc"
				end if
			end if
			searchmsg=searchmsg&"）"
		elseif CurType<>98 and CurType<>97  then
			if sex="1" or sex="0" then
				sqlvisual="select * from visual_items where type="&shopid&" and (sex="&sex&" or sex=2) and flag>0 order by id desc"
			else
				sqlvisual="select * from visual_items where type="&shopid&" and flag>0 order by id desc"
			end if
		end if
		rsvisual.open sqlvisual,conn,1,1
		totalrec=rsvisual.recordcount
		if totalrec mod 8=0 then
			pagecount=totalrec \ 8
		else
			pagecount=totalrec \ 8+1
		end if
		curcount=0
	response.write "<table border=0 cellspacing=0 cellpadding=0 width=""90%"">"
response.write "<tr height=25 valign=middle>"
		response.write "<td align=center>〖&nbsp;&nbsp;"
		if CurType=95 then
			response.write searchmsg&"结果：共<font color="&WPD_spcolor&">"&totalrec&"</font>条&nbsp;&nbsp;〗"
		else
			response.write TypeName&"&nbsp;-&nbsp;"&SubTypeName
			if CurType<>0 then
				response.write "&nbsp;&nbsp;(&nbsp;<a href=?shopid="&shopid&"&sex=1>男</a>&nbsp;<a href=?shopid="&shopid&"&sex=0>女</a>&nbsp;<a href=?shopid="&shopid&">全部</a>)&nbsp;&nbsp;〗"
			end if
		end if
		response.write "</td>"
		response.write "</tr>"
		if not rsvisual.eof then
			if curpage > pagecount then curpage = pagecount
			if curpage < 1 then curpage=1
			Rsvisual.PageSize=8
			Rsvisual.AbsolutePage=CurPage
			do while not rsvisual.eof and curcount<8
				isHas=not (conn.execute("select top 1 itemid from visual_myitems where itemid="&rsvisual("id")&" and username='"&WPD_membername&"'").eof)
				curcount=curcount+1
				if curcount mod 2=1 then
					response.write "<tr valign=middle>"
response.write "<td align=center width=""98%"">"
response.write "<table border=0 cellspacing=0 cellpadding=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
else
response.write "<td width=""15%""></td>"
end if
response.write "<td >"
response.write "<table border=0 cellspacing=0 cellpadding=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td rowspan=5  width=80 height=80>"
if localpic=1 then
response.write "<img src="""&PicPath&"0/"&right("0000"&rsvisual("id"),4)&".GIF"" "
else
response.write "<img src="""&PicPath&right("00000000"&rsvisual("id"),8)&"/00/00/"" "
end if
if shopid=600 then
response.write "alt=""过期商品不能使用"" width=""80"" height=""80"" border=""0"" style=""CURSOR:help"">"
elseif CurType=96 then
response.write "alt=""二手商品不能试穿"" width=""80"" height=""80"" border=""0"" style=""CURSOR:help"">"
elseif CurType<>0 and isHas then
response.write "alt=""已有商品商店不能试穿"" width=""80"" height=""80"" border=""0"" style=""CURSOR:help"">"
else
response.write "alt=""点击鼠标左键试穿"" width=""80"" height=""80"" border=""0"" itemgender="""&rsvisual("sex")&""" itemno="""&rsvisual("id")&""" layerno="""&rsvisual("content")&""" style=""CURSOR:hand"" onclick=""visualshow.clickDress()"">"
end if
response.write "</td>"
response.write "<td  height=20>&nbsp;&nbsp;"
response.write rsvisual("name")
response.write "("
if rsvisual("sex")=1 then
response.write "男"
elseif rsvisual("sex")=0 then
response.write "女"
else
response.write "不限"
end if
response.write ")"


response.write "</td></tr>"
response.write "<tr valign=middle>"
response.write "<td  height=20>&nbsp;&nbsp;"
if CurType=0 then
if shopid=500 then
response.write "出售价："
response.write rsvisual("saleprice")&" 元"
else
response.write "购买价："
if rsvisual("price")<=0 then
response.write "<font color="&WPD_spcolor&">免费</font>"
else
response.write rsvisual("price")&" 元"
end if
end if
elseif CurType=96 then
response.write "商店价："
if v_myvip<>1 then
if rsvisual("price1")<=0 then
response.write "<font color="&WPD_spcolor&">免费</font>"
else
response.write rsvisual("price1")&" 元"
end if
else
if rsvisual("price2")<=0 then
response.write "<font color="&WPD_spcolor&">免费</font>"
else
response.write rsvisual("price2")&" 元"
end if
end if
else
response.write "标　价："
if rsvisual("price1")<=0 then
response.write "<font color="&WPD_spcolor&">免费</font>"
else
response.write rsvisual("price1")&" 元"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td  height=20>&nbsp;&nbsp;"
if CurType=0 then
if shopid=500 then
response.write "成本价："
else
response.write "当前价："
end if
if v_myvip<>1 then
if rsvisual("price1")<=0 then
response.write "<font color="&WPD_spcolor&">免费</font>"
else
response.write rsvisual("price1")&" 元"
end if
else
if rsvisual("price2")<=0 then
response.write "<font color="&WPD_spcolor&">免费</font>"
else
response.write rsvisual("price2")&" 元"
end if
end if
elseif CurType=96 then
response.write "二手价："
response.write "<font color="&WPD_spcolor&">"&rsvisual("saleprice")&"</font> 元"
else
response.write "VIP 价："
if rsvisual("price2")<=0 then
response.write "<font color="&WPD_spcolor&">免费</font>"
else
response.write "<font color="&WPD_spcolor&">"&rsvisual("price2")&"</font> 元"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td  height=20>&nbsp;&nbsp;"
if CurType=0 then
response.write "有效期："
if rsvisual("period")=0 then
response.write "<font color="&WPD_spcolor&">永远有效</font>"
elseif datediff("d",rsvisual("fixdate"),now())>rsvisual("period") then
response.write "<font color="&WPD_spcolor&">已经过期</font>"
else
response.write "还剩 "&(rsvisual("period")-datediff("d",rsvisual("fixdate"),now()))&" 天"
end if
elseif CurType=96 then
response.write "新品期："
if rsvisual("period0")<=0 then
response.write "<font color="&WPD_spcolor&">不限</font>"
else
response.write rsvisual("period0")&" 天"
end if
else
response.write "有效期："
if rsvisual("period")<=0 then
response.write "<font color="&WPD_spcolor&">不限</font>"
else
response.write rsvisual("period")&" 天"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td  height=20>&nbsp;&nbsp;"
if CurType=0 then
response.write "拥有日："
response.write formatdatetime(rsvisual("adddate"),2)
elseif CurType=96 then
response.write "二手期："
if rsvisual("period")<=0 then
response.write "<font color="&WPD_spcolor&">永远有效</font>"
elseif datediff("d",rsvisual("fixdate"),now())>rsvisual("period") then
response.write "<font color="&WPD_spcolor&">已经过期</font>"
else
response.write "还剩 "&(rsvisual("period")-datediff("d",rsvisual("fixdate"),now()))&" 天"
end if
else
response.write "库　存："
if rsvisual("quantity")<=0 or isnull(rsvisual("quantity")) then
response.write "<font color="&WPD_spcolor&">断货</font>"
else
response.write rsvisual("quantity")&" 个"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle>"
response.write "<td  height=20 align=center>"
if CurType=0 then
if rsvisual("fromuser")=rsvisual("username") then
response.write "<font color=blue alt=来源>形象商店</font>"
else
response.write "<font color=blue alt=来源>"&rsvisual("fromuser")&"</font>"
end if
elseif CurType=96 then
response.write "<font color=blue>二手商品</font>"
else
if rsvisual("vip") then
response.write "<font color="&WPD_spcolor&">VIP商品</font>"
else
response.write "普通商品"
end if
end if
response.write "</td>"
response.write "<td  height=20>&nbsp;&nbsp;"
if CurType=0 then
response.write "翻新日："
if isnull(rsvisual("fixdate")) or (rsvisual("fixdate")=rsvisual("adddate") and rsvisual("period")=rsvisual("period0")) then
response.write "尚未翻新"
else
response.write "<font color="&WPD_spcolor&">"&formatdatetime(rsvisual("fixdate"),2)&"</font>"
end if
elseif CurType=96 then
response.write "出售者："
response.write "<a href=dispuser.asp?name="&rsvisual("username")&" target=_blank><font color=blue>"&rsvisual("username")&"</font></a>"
else
response.write "限购者："
select case rsvisual("flag")
case 1
response.write "所有社员"
case 2
response.write "<font color="&WPD_spcolor&">版主以上</font>"
case 3
response.write "<font color="&WPD_spcolor&">超级版主</font>"
case 4
response.write "<font color="&WPD_spcolor&">管理员</font>"
end select
end if
response.write "</td>"
response.write "</tr>"
if CurType=96 then
response.write "<form name=form1_"&rsvisual("id1")&" action=z_visual_buy.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=fromuser value=""""></form>"
response.write "<form name=form2_"&rsvisual("id1")&" action=z_visual_send.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=myself value=0><input type=hidden name=fromuser value=""""></form>"
else
response.write "<form name=form1_"&rsvisual("id")&" action=z_visual_buy.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=fromuser value=""""></form>"
response.write "<form name=form2_"&rsvisual("id")&" action=z_visual_send.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=myself value=0><input type=hidden name=fromuser value=""""></form>"
end if
response.write "<form name=form3_"&rsvisual("id")&" action=z_visual_fix.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"></form>"
response.write "<form name=form4_"&rsvisual("id")&" action=z_visual_sale.asp method=get target=openScript><input type=hidden name=itemid value="&rsvisual("id")&"><input type=hidden name=stopsale value=0></form>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  height=20 align=center>"
if CurType=0 then
if rsvisual("period")>0 then
response.write "<font color=#000000 style=""cursor:hand"" alt=""翻新"" onclick=""javascript:openScript('about:blank',500,400);form3_"&rsvisual("id")&".submit()""><img src=Images/111/avatar-3.gif width=19 height=19> 翻新</font></b>"
else
response.write "<font color=gray style=""cursor:hand"" alt='永远有效的商品无须翻新！'><img src=Images/111/avatar-3.gif width=19 height=19> 翻新</font>"
end if
elseif CurType=96 then
response.write "<font color=gray style=""cursor:hand"" alt='二手商品不能试穿！'><img src=Images/111/avatar-3.gif width=19 height=19 > 试穿</font>"
else
if not isHas then
response.write "<img src=Images/111/avatar-3.gif style=""cursor:hand"" alt=""试穿"" itemgender="""&rsvisual("sex")&""" itemno="""&rsvisual("id")&""" layerno="""&rsvisual("content")&""" onclick=""visualshow.clickDress()""><font color=#000000> 试穿</font>"
else
response.write "<font color=gray style=""cursor:hand"" alt='这个商品您已经有了，请到您的储物柜中试穿！'><img src=Images/111/icon_mybuy.gif width=13 height=16> 试穿</font>"
end if
end if
response.write "</td>"
response.write "<td  height=20>&nbsp;&nbsp;"
if CurType=0 then
if instr(1,"|"&v_myvisual,"|"&rsvisual("id")&".")<=0 then
response.write "<font color=blue style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rsvisual("id")&".myself.value=1;openScript('about:blank',500,400);form2_"&rsvisual("id")&".submit()""><img src=Images/111/icon_mypre.gif width=13 height=16> 赠送</font>"
else
response.write "<font color=gray style=""cursor:hand"" alt='正在使用的商品不能赠送！'><img src=Images/111/icon_mypre.gif width=13 height=16> 赠送</font>"
end if
response.write "&nbsp;&nbsp;"
if shopid=500 then
response.write "<font color=#000000 style=""cursor:hand"" alt=""停售"" onclick=""javascript:form4_"&rsvisual("id")&".stopsale.value=1;openScript('about:blank',500,400);form4_"&rsvisual("id")&".submit()""><img src=Images/111/icon_mybuy.gif width=13 height=16> 停售</font>"
else
if instr(1,"|"&v_myvisual,"|"&rsvisual("id")&".")<=0 then
response.write "<font color=#000000 style=""cursor:hand"" alt=""出售"" onclick=""javascript:form4_"&rsvisual("id")&".stopsale.value=0;openScript('about:blank',500,400);form4_"&rsvisual("id")&".submit()""><img src=Images/111/icon_mybuy.gif width=13 height=16> 出售</font>"
else
response.write "<font color=gray style=""cursor:hand"" alt='正在使用的商品不能出售！'><img src=Images/111/icon_mybuy.gif width=13 height=16> 出售</font>"
end if
end if
else
if CurType=96 then
if lcase(trim(rsvisual("username")))=lcase(trim(WPD_membername)) then
response.write "<font color=gray style=""cursor:hand"" alt='这是您出售的商品，您自己不能购买！'><img src=Images/111/icon_mybuy.gif width=13 height=16> 购买</font>"
elseif not isHas then
response.write "<font color=#000000 style=""cursor:hand"" alt=""购买"" onclick=""javascript:if(confirm('您确定立即购买这个二手商品吗?')){form1_"&rsvisual("id1")&".fromuser.value='"&rsvisual("username")&"';openScript('about:blank',500,400);form1_"&rsvisual("id1")&".submit();return true;} return false;""><img src=Images/111/icon_mybuy.gif width=13 height=16> 购买</font>"
else
response.write "<font color=gray style=""cursor:hand"" alt='这个商品您已经有了，无须再次购买！'><img src=Images/111/icon_mybuy.gif width=13 height=16> 购买</font>"
end if
else
if not isHas then
response.write "<font color=#000000 style=""cursor:hand"" alt=""购买"" onclick=""javascript:form1_"&rsvisual("id")&".fromuser.value='';openScript('about:blank',500,400);form1_"&rsvisual("id")&".submit()""><img src=Images/111/icon_mybuy.gif width=13 height=16> 购买</font>"
else
response.write "<font color=gray style=""cursor:hand"" alt='这个商品您已经有了，无须再次购买！'><img src=Images/111/icon_mybuy.gif width=13 height=16> 购买</font>"
end if
end if
response.write "&nbsp;&nbsp;"
if CurType=96 then
if lcase(trim(rsvisual("username")))=lcase(trim(WPD_membername)) then
response.write "<font color=gray style=""cursor:hand"" alt='这是您出售的商品，如需赠送请先取消销售！'><img src=Images/111/icon_mypre.gif width=13 height=16> 赠送</font>"
else
response.write "<font color=#000000 style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rsvisual("id1")&".myself.value=0;form2_"&rsvisual("id1")&".fromuser.value='"&rsvisual("username")&"';openScript('about:blank',500,400);form2_"&rsvisual("id1")&".submit()""><img src=Images/111/icon_mypre.gif width=13 height=16> 赠送</font>"
end if
else
response.write "<font color=#000000 style=""cursor:hand"" alt=""赠送"" onclick=""javascript:form2_"&rsvisual("id")&".myself.value=0;form2_"&rsvisual("id")&".fromuser.value='';openScript('about:blank',500,400);form2_"&rsvisual("id")&".submit()""><img src=Images/111/icon_mypre.gif width=13 height=16> 赠送</font>"
end if
end if

response.write "</TD></TR><tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><TD  background=images/111/show_08.gif colSpan=2><IMG src=images/111/show_08.gif></TD></TR></TABLE>"
response.write "</td>"
if curcount mod 2=0 then
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
				end if
rsvisual.movenext
loop
end if
curcount=curcount+1
for i=curcount to 8
if i mod 2=1 then
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td align=center width=""98%"">"
response.write "<table border=0 cellspacing=0 cellpadding=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
else
response.write "<td width=""15%""></td>"
end if
response.write "<td>"
response.write "<table id=visualshowGoods border=0 cellspacing=0 cellpadding=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td rowspan=5 height=80 width=80 ></td>"
response.write "<td  height=20 width=80>&nbsp;</td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  height=20>&nbsp;</td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  height=20>&nbsp;</td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  height=20>&nbsp;</td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  height=20>&nbsp;</td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  height=20>&nbsp;</td>"
response.write "<td  height=20>&nbsp;</td>"
response.write "</tr>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
response.write "<td  height=30>&nbsp;</td>"
response.write "<td  height=30>&nbsp;</td>"
response.write "</tr>"
response.write "</TBODY></TABLE>"
response.write "</td>"
if i mod 2=0 then
response.write "</tr>"
response.write "</TABLE>"
response.write "</td>"
response.write "</tr>"
end if
next
rsvisual.close
response.write "</table>"
response.write "<table width=94% border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=22 valign=middle>"
response.write "<td valign=middle >&nbsp;&nbsp;页次：<b>"&curPage&"</b> / <b>"&pagecount&"</b> 页 每页：<b>8</b> 共计：<b>"&totalrec&"</b></td>"
response.write "<td valign=middle  align=right>分页："
call DispPageNum(curpage,pagecount,"?shopid="&shopid&"&sex="&sex&"&page=","#VisualTop")
response.write "&nbsp;&nbsp;</td>"
response.write "</tr>"
response.write "</table>"
	elseif CurType=98 then
		
	elseif CurType=97 then%>
		<!--#include file="z_visual_js.asp"-->
		<%response.write "<br>"
		if shopid=197 then
			call DispPhoto(0)
		elseif shopid=297 then
			if isnull(request("photoid")) then
				call dispphotolist(1)
			elseif not WPD_isInteger(request("photoid")) then
				call dispphotolist(1)
			elseif conn.execute("select id from visual_photo where id="&WPD_checkstr(trim(request("photoid")))&" and fromuser='"&WPD_membername&"' and not confirmed").eof then
				call dispphotolist(1)
			else
				call dispphoto(1)
			end if
		elseif shopid=397 then
			if isnull(request("photoid")) then
				call dispphotolist(2)
			elseif not WPD_isInteger(request("photoid")) then
				call dispphotolist(2)
			elseif conn.execute("select u.photo_id from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.photo_id="&WPD_checkstr(trim(request("photoid")))&" and u.username='"&WPD_membername&"' and not p.confirmed").eof then
				call dispphotolist(2)
			else
				call dispphoto(2)
			end if
		elseif shopid=497 then
			if isnull(request("photoid")) then
				call dispphotolist(3)
			elseif not WPD_isInteger(request("photoid")) then
				call dispphotolist(3)
			elseif conn.execute("select u.photo_id from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.photo_id="&WPD_checkstr(trim(request("photoid")))&" and u.username='"&WPD_membername&"' and p.confirmed and not p.finished").eof then
				call dispphotolist(3)
			else
				call dispphoto(3)
			end if
		else
			response.write "<table cellspacing=0 cellpadding=0  align=center border=0  width=""98%"">"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td width=39 background=images/111/main_right_06.gif><img height=23 src=images/111/photo08.gif width=31></td>"
response.write "<td background=images/111/main_right_06.gif align=center>"&DEF_SiteNameString&"照相馆 - "
			if shopid=597 then
				sqlvisual="select p.* from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.username='"&WPD_membername&"' and p.finished and not u.deleted order by p.FinishDate desc"
				response.write "我的虚拟相簿"
			else
				sqlvisual="select * from visual_photo where status=1 and finished order by FinishDate desc"
				response.write "大家的虚拟相簿"
			end if
			response.write "</td></tr></table>"
response.write "<table border=0 cellspacing=0 cellpadding=0 width=""98%"">"

			rsvisual.open sqlvisual,conn,1,1
			totalrec=rsvisual.recordcount
			if totalrec mod 4=0 then
				pagecount=totalrec \ 4
			else
				pagecount=totalrec \ 4+1
			end if
			curcount=0
			dim flag
			flag=false
			if not rsvisual.eof then
				flag=true
				if curpage > pagecount then curpage = pagecount
				if curpage < 1 then curpage=1
				Rsvisual.PageSize=4
				Rsvisual.AbsolutePage=CurPage
				dim rsPhotoUser
				set rsPhotoUser=server.createobject("ADODB.recordset")
				dim usercount,uservisualsplit(),usernamesplit(),PhotoDate
				dim PhotoNameLeft,PhotoNameTop,PhotoNameFont,PhotoNameSize,PhotoNameBold,PhotoNameItalic,PhotoNameColor,PhotoNameDirection
				dim DateLeft,DateTop,DateFont,DateSize,DateBold,DateItalic,DateColor,DateDirection
				dim NameLeft(),NameTop(),NameFont(),NameSize(),NameBold(),NameItalic(),NameColor(),NameDirection()
				dim OuterLeft(),OuterTop(),OuterWidth(),OuterHeight()
				dim InnerLeft(),InnerTop(),InnerWidth(),InnerHeight()
				dim LayerNo(),Direction()
				dim UserNameStr
				response.write "<tr valign=middle>"
response.write "<td align=center>"
response.write "<table cellspacing=0 cellpadding=0 background=images/111/p12.gif  width=""100%"" border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td height=13></td></tr></table><br>"
response.write "<table  width=""98%"" border=0 cellspacing=0 cellpadding=0>"
				do while not rsvisual.eof and curcount<4
					curcount=curcount+1
					sqlvisual="select * from visual_photouser where photo_id="&rsvisual("ID")
					rsPhotoUser.open sqlvisual,conn,1,1
					usercount=0
					UserNameStr=""
					do while not rsPhotoUser.eof
						redim preserve uservisualsplit(usercount)
						uservisualsplit(usercount)=rsPhotoUser("uservisual")
						redim preserve usernamesplit(usercount)
						usernamesplit(usercount)=rsPhotoUser("username")
						redim preserve LayerNo(UserCount)
						redim preserve OuterLeft(UserCount)
						redim preserve OuterTop(UserCount)
						redim preserve OuterWidth(UserCount)
						redim preserve OuterHeight(UserCount)
						redim preserve InnerLeft(UserCount)
						redim preserve InnerTop(UserCount)
						redim preserve InnerWidth(UserCount)
						redim preserve InnerHeight(UserCount)
						redim preserve Direction(UserCount)
						redim preserve NameLeft(UserCount)
						redim preserve NameTop(UserCount)
						redim preserve NameFont(UserCount)
						redim preserve NameSize(UserCount)
						redim preserve NameBold(UserCount)
						redim preserve NameItalic(UserCount)
						redim preserve NameColor(UserCount)
						redim preserve NameDirection(UserCount)
						LayerNo(UserCount)=rsPhotoUser("LayerNo")
						OuterLeft(UserCount)=rsPhotoUser("OuterLeft")
						OuterTop(UserCount)=rsPhotoUser("OuterTop")
						OuterWidth(UserCount)=rsPhotoUser("OuterWidth")
						OuterHeight(UserCount)=rsPhotoUser("OuterHeight")
						InnerLeft(UserCount)=rsPhotoUser("InnerLeft")
						InnerTop(UserCount)=rsPhotoUser("InnerTop")
						InnerWidth(UserCount)=rsPhotoUser("InnerWidth")
						InnerHeight(UserCount)=rsPhotoUser("InnerHeight")
						Direction(UserCount)=rsPhotoUser("Direction")
						NameLeft(UserCount)=rsPhotoUser("NameLeft")
						NameTop(UserCount)=rsPhotoUser("NameTop")
						NameFont(UserCount)=rsPhotoUser("NameFont")
						NameSize(UserCount)=rsPhotoUser("NameSize")
						NameBold(UserCount)=rsPhotoUser("NameBold")
						NameItalic(UserCount)=rsPhotoUser("NameItalic")
						NameColor(UserCount)=rsPhotoUser("NameColor")
						NameDirection(UserCount)=rsPhotoUser("NameDirection")
						usercount=usercount+1
						if usercount<=2 then UserNameStr=UserNameStr&rsPhotoUser("username")
						rsPhotoUser.movenext
						if not rsPhotoUser.eof and usercount<2 then UserNameStr=UserNameStr&","
					loop
					if usercount>2 then UserNameStr=UserNameStr&" 等"&UserCount&"人"
					rsPhotoUser.close
					sqlvisual="select * from visual_Accouterment where photo_id="&rsvisual("ID")
					rsPhotoUser.open sqlvisual,conn,1,1
					redim preserve uservisualsplit(usercount+5)
					redim preserve OuterLeft(UserCount+5)
					redim preserve OuterTop(UserCount+5)
					redim preserve OuterWidth(UserCount+5)
					redim preserve OuterHeight(UserCount+5)
					redim preserve InnerLeft(UserCount+5)
					redim preserve InnerTop(UserCount+5)
					redim preserve InnerWidth(UserCount+5)
					redim preserve InnerHeight(UserCount+5)
					redim preserve Direction(UserCount+5)
					for i=0 to 5
						uservisualsplit(usercount+i)=""
						OuterLeft(UserCount+i)=0
						OuterTop(UserCount+i)=0
						OuterWidth(UserCount+i)=120
						OuterHeight(UserCount+i)=150
						InnerLeft(UserCount+i)=0
						InnerTop(UserCount+i)=0
						InnerWidth(UserCount+i)=120
						InnerHeight(UserCount+i)=150
						Direction(UserCount+i)=0
					next
					do while not rsPhotoUser.eof
						i=rsPhotoUser("SeqNo")
						uservisualsplit(usercount+i)=rsPhotoUser("ItemPicPath")
						OuterLeft(UserCount+i)=rsPhotoUser("OuterLeft")
						OuterTop(UserCount+i)=rsPhotoUser("OuterTop")
						OuterWidth(UserCount+i)=rsPhotoUser("OuterWidth")
						OuterHeight(UserCount+i)=rsPhotoUser("OuterHeight")
						InnerLeft(UserCount+i)=rsPhotoUser("InnerLeft")
						InnerTop(UserCount+i)=rsPhotoUser("InnerTop")
						InnerWidth(UserCount+i)=rsPhotoUser("InnerWidth")
						InnerHeight(UserCount+i)=rsPhotoUser("InnerHeight")
						Direction(UserCount+i)=rsPhotoUser("Direction")
						rsPhotoUser.movenext
					loop
					rsPhotoUser.close
					if curcount mod 2=1 then
						response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
					else
						response.write ""
					end if
					response.write "<td>"
response.write "<table id=visualshowGoods border=0 cellspacing=0 cellpadding=0>"
response.write "<tr valign=middle align=center>"
response.write "<td align=center  colspan=2  width=256 height=150>"
					call ShowVisualPhoto(rsvisual("Width"),rsvisual("Height"),rsvisual("Background"),rsvisual("BackBody"),rsvisual("ForeBody"),rsvisual("Foreground"),rsvisual("Name"),rsvisual("PhotoNameLeft"),rsvisual("PhotoNameTop"),rsvisual("PhotoNameFont"),rsvisual("PhotoNameSize"),rsvisual("PhotoNameBold"),rsvisual("PhotoNameItalic"),rsvisual("PhotoNameColor"),rsvisual("PhotoNameDirection"),rsvisual("AddDate"),rsvisual("DateLeft"),rsvisual("DateTop"),rsvisual("DateFont"),rsvisual("DateSize"),rsvisual("DateBold"),rsvisual("DateItalic"),rsvisual("DateColor"),rsvisual("DateDirection"),UserCount,UserVisualSplit,LayerNo,OuterLeft,OuterTop,OuterWidth,OuterHeight,InnerLeft,InnerTop,InnerWidth,InnerHeight,Direction,UserNameSplit,NameLeft,NameTop,NameFont,NameSize,NameBold,NameItalic,NameColor,NameDirection,False,rsVisual("isUpload"),(rsVisual("Child")=1))
					response.write "</td>"

response.write "</tr>"
response.write "<tr valign=middle height=13>"
response.write "<td colspan=2 >"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=center>"
response.write "照片名称"
response.write "</td>"
response.write "<td  align=left>"
response.write "&nbsp;"&rsvisual("name")
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=center>"
response.write "发起时间"
response.write "</td>"

response.write "<td  align=left>"
response.write "&nbsp;"&formatdatetime(rsvisual("AddDate"),2)
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=center>"
response.write "参 与 人"
response.write "</td>"

response.write "<td  align=left>"
response.write "&nbsp;"&UserNameStr
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=center>"
response.write "照片URL&nbsp;"
response.write "</td>"
response.write "<td  align=left>"
if not isnull(rsvisual("URL")) then response.write "&nbsp;<a href="&rsvisual("URL")&" target=_blank><font color=blue>〖查看和下载照片〗</font></a>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=center>"
response.write "操&nbsp;&nbsp;&nbsp; 作"
response.write "</td>"

response.write "<td   align=left>"
response.write "<a href=z_visual_photo.asp?action=delete&photoid="&rsvisual("ID")&" onclick=""javascript:if(confirm('您确定删除这张照片吗?')){return true;} return false;"">〖删除〗</a>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<table cellspacing=0 cellpadding=0 background=images/111/p12.gif width=""100%"" border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td height=13></td></tr></table><br>"
					response.write "</td>"
			    if curcount mod 2=0 then
						response.write "</tr>"
					end if
					rsvisual.movenext
				loop
				set rsPhotoUser=nothing
				rsvisual.close
			end if
			curcount=curcount+1
			for i=curcount to 4
				if i mod 2=1 then
					response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
				else
response.write ""
end if
response.write "<td valign=middle width=256 align=center>"
response.write "<table width=256 id=visualshowGoods border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=150>"
response.write "<td  align=center colspan=2>"
response.write "</td>"
response.write "</tr>"

response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=right>"
response.write "</td>"
response.write "<td  align=left>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=right>"
response.write "</td>"
response.write "<td  align=left>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=right>"
response.write "</td>"
response.write "<td  align=left>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=right>"
response.write "</td>"
response.write "<td  align=left>"
response.write "</td>"
response.write "</tr>"
response.write "<tr valign=middle height=22>"
response.write "<td  width=80 align=right>"
response.write "</td>"
response.write "<td  align=left>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"

response.write "</td>"
if i mod 2=0 then
response.write "</tr>"

end if
next
response.write "</table>"

response.write "<table align=center border=0 cellspacing=0 width=""98%"" cellpadding=0>"
response.write "<tr height=25 valign=middle>"
response.write "<td valign=middle >&nbsp;&nbsp;页次：<b>"&curPage&"</b> / <b>"&pagecount&"</b> 页 每页：<b>4</b> 共计：<b>"&totalrec&"</b></td>"
response.write "<td valign=middle  align=right>分页："
call DispPageNum(curpage,pagecount,"?shopid="&shopid&"&sex="&sex&"&page=","#VisualTop")
response.write "&nbsp;&nbsp;</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"

response.write "</table>"
			end if
			
	end if
	response.write "</td>"
	response.write "</tr>"
	response.write "</table>"
	
	set rsvisual=nothing
end sub

sub DispPhotoList(ListMethod)
	dim totalrec,pagecount,curcount
	response.write "<table cellspacing=0 cellpadding=0 width=""98%"" border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td width=39 background=images/111/main_right_06.gif><img height=23 src=images/111/photo08.gif width=31></td>"
response.write "<td width=""100%"" background=images/111/main_right_06.gif align=center>"&DEF_SiteNameString&"照相馆 - "
	select case ListMethod
	case 1
		response.write "发出的请求"
	case 2
		response.write "收到的请求"
	case 3
		response.write "确认的请求"
	end select
	response.write " </td></tr></table>"
response.write "<table border=0 cellspacing=1 cellpadding=0 width=""98%"" >"
response.write "<tr valign=middle height=50>"
response.write "<td  colspan=6 align=center>"
	select case ListMethod
	case 1
		response.write "下列请求尚未被所有参与者确认，过期未被确认的请求将被系统自动删除！"
	case 2
		response.write "下列是希望与您合影的请求，这些请求必须等待您和其他参与者的确认方可，请点击名称后确认请求。"
	case 3
		response.write "下列您发出的请求已经被所有参与者确认了，请点击名称修改照片的设计。"
	end select
	response.write "</td>"
response.write "</tr>"
response.write "<tr height=25 valign=middle>"
response.write "<td  align=center width=""*"">名称</td>"
response.write "<td  align=center width=""15%"">发起人</td>"
response.write "<td  align=center width=""10%"">状态</td>"
response.write "<td  align=center width=""12%"">发起时间</td>"
response.write "<td  align=center width=""12%"">过期时间</td>"
response.write "<td  align=center width=""15%"">参与人</td>"
response.write "</tr>"
	dim rsphotouser
	set rsphotouser=server.createobject("adodb.recordset")
	select case ListMethod
	case 1
		sqlvisual="select id,name,status,adddate,enddate,fromuser from visual_photo where fromuser='"&WPD_membername&"' and not confirmed"
	case 2
		sqlvisual="select p.id,p.name,p.status,p.adddate,p.enddate,p.fromuser from visual_photouser u inner join visual_photo p on u.photo_id=p.id where p.fromuser<>'"&WPD_membername&"' and not p.confirmed and u.username='"&WPD_membername&"'"
	case 3
		sqlvisual="select p.id,p.name,p.status,p.adddate,p.enddate,p.fromuser from visual_photouser u inner join visual_photo p on u.photo_id=p.id where u.username='"&WPD_membername&"' and p.confirmed and not p.finished"
	end select
	rsvisual.open sqlvisual,conn,1,1
	totalrec=rsvisual.recordcount
	if totalrec mod 10=0 then
		pagecount=totalrec \ 10
	else
		pagecount=totalrec \ 10+1
	end if
	curcount=0
	if rsvisual.eof or rsvisual.bof then
		response.write "<tr valign=middle height=30><td  colspan=6 align=center>"
		select case ListMethod
		case 1
			response.write "尚未发出任何合影的请求或所有的请求都已得到确认了。"
		case 2
			response.write "没有收到任何合影的请求或所有的请求都已被您确认了。"
		case 3
			response.write "没有任何确认完毕并等待完成的合影请求或个人写真。"
		end select
		response.write "</td></tr>"
	else
		if curpage > pagecount then curpage = pagecount
		if curpage < 1 then curpage=1
		Rsvisual.PageSize=10
		Rsvisual.AbsolutePage=CurPage
		do while not rsvisual.eof and curcount<10
			curcount=curcount+1
			response.write "<tr height=25 valign=middle>"
			response.write "<td >"
			response.write "&nbsp;<a href=""z_Visual.asp?shopid="
			select case ListMethod
			case 1
				response.write "297"
			case 2
				response.write "397"
			case 3
				response.write "497"
			end select
			response.write "&photoid="&rsvisual(0)&""">"&rsvisual(1)&"</a>"
			response.write "</td>"
			response.write "<td  align=center>"
			sqlvisual="select username,confirmed,confirmtime,finished from visual_photouser where photo_id="&rsvisual(0)&" and username='"&rsvisual(5)&"'"
			rsphotouser.open sqlvisual,conn,1,1
			response.write "<a href=""dispuser.asp?name="&rsvisual(5)&""" target=_blank title="""
			if ListMethod=3 then
				if rsphotouser(3) then
					response.write "已经完成照片的设计"
				else
					response.write "尚未完成照片的设计"
				end if
			else
				if rsphotouser(1) then
					response.write "已于"&formatdatetime(rsphotouser(2),2)&"确认"
				else
					response.write "尚未确认"
				end if
			end if
			response.write """>"
			if ListMethod=3 then
				if not rsphotouser(3) then
					response.write "<font color="&WPD_spcolor&">"
				end if
			else
				if not rsphotouser(1) then
					response.write "<font color="&WPD_spcolor&">"
				end if
			end if
			response.write rsvisual(5)
			if ListMethod=3 then
				if not rsphotouser(3) then
					response.write "</font>"
				end if
			else
				if not rsphotouser(1) then
					response.write "</font>"
				end if
			end if
			response.write "</a>"
			rsphotouser.close
			response.write "</td>"
			response.write "<td  align=center>"
			if rsvisual(2)=1 then
				response.write "公开"
			else
				response.write "保密"
			end if
			response.write "</td>"
			response.write "<td  align=center>"
			response.write formatdatetime(rsvisual(3),2)
			response.write "</td>"
			response.write "<td  align=center>"
			response.write formatdatetime(rsvisual(4),2)
			response.write "</td>"
			response.write "<td  align=center>"
			sqlvisual="select username,confirmed,confirmtime,finished from visual_photouser where photo_id="&rsvisual(0)&" and username<>'"&rsvisual(5)&"'"
			rsphotouser.open sqlvisual,conn,1,1
			if not rsphotouser.eof then
				do while not rsphotouser.eof
					response.write "<a href=""dispuser.asp?name="&rsphotouser(0)&""" target=_blank title="""
					if ListMethod=3 then
						if rsphotouser(3) then
							response.write "已经同意照片的设计"
						else
							response.write "尚未同意照片的设计"
						end if
					else
						if rsphotouser(1) then
							response.write "已于"&formatdatetime(rsphotouser(2),2)&"确认"
						else
							response.write "尚未确认"
						end if
					end if
					response.write """>"
					if ListMethod=3 then
						if not rsphotouser(3) then
							response.write "<font color="&WPD_spcolor&">"
						end if
					else
						if not rsphotouser(1) then
							response.write "<font color="&WPD_spcolor&">"
						end if
					end if
					response.write rsphotouser(0)
					if ListMethod=3 then
						if not rsphotouser(3) then
							response.write "</font>"
						end if
					else
						if not rsphotouser(1) then
							response.write "</font>"
						end if
					end if
					response.write "</a>"
					rsphotouser.movenext
					if not rsphotouser.eof then response.write "<br>"
				loop
			else
				response.write "<font color=gray>个人写真</font>"
			end if
			rsphotouser.close
			response.write "</td>"
			response.write "</tr>"
			rsvisual.movenext
		loop
		rsvisual.close
	end if
	response.write "</table>"
response.write "<table width=80%  border=0 cellspacing=0 cellpadding=0>"
response.write "<tr height=25 valign=middle>"
response.write "<td valign=middle >&nbsp;&nbsp;页次：<b>"&curPage&"</b> / <b>"&pagecount&"</b> 页 每页：<b>10</b> 共计：<b>"&totalrec&"</b></td>"
response.write "<td valign=middle  align=right>分页："
call DispPageNum(curpage,pagecount,"?shopid="&shopid&"&sex="&sex&"&page=","#VisualTop")
response.write "&nbsp;&nbsp;</td>"
response.write "</tr>"
response.write "</table>"
end sub

sub DispPhoto(ListMethod)
	dim photoid,subtype,photoname,photomsg,fromuser,photostatus,bgwidth,bgheight,photobg,photoBodyBack,photoBodyFore,photoFg
	dim usercount,uservisualsplit(),usernamesplit(),LeftPos,StepPos,FinishDate,PhotoDate
	dim PhotoNameLeft,PhotoNameTop,PhotoNameFont,PhotoNameSize,PhotoNameBold,PhotoNameItalic,PhotoNameColor,PhotoNameDirection
	dim DateLeft,DateTop,DateFont,DateSize,DateBold,DateItalic,DateColor,DateDirection
	dim NameLeft(),NameTop(),NameFont(),NameSize(),NameBold(),NameItalic(),NameColor(),NameDirection()
	dim OuterLeft(),OuterTop(),OuterWidth(),OuterHeight()
	dim InnerLeft(),InnerTop(),InnerWidth(),InnerHeight()
	dim LayerNo(),Direction()
	dim hasFinished,isUpload

	FinishDate=Null
	hasFinished=False
	select case ListMethod
	case 0
		response.write "<form action=""z_visual_photo.asp"" method=post name=photo_request>"
		response.write "<input type=hidden name=""action"" value=""send"">"
		if request.cookies("WxzEtShow_"&WPD_userid)="" then
			response.write "<input type=hidden name=""fromvisual"" value="""&v_myVisual&""">"
		else
			response.write "<input type=hidden name=""fromvisual"" value="""&request.cookies("WxzEtShow_"&WPD_userid)&""">"
		end if
		response.write "<input type=hidden name=""bgwidth"" value=""255"">"
		response.write "<input type=hidden name=""bgheight"" value=""150"">"
		subtype="发送新请求"
		photoname=""
		photomsg=""
		usercount=1
		redim uservisualsplit(0)
		redim usernamesplit(0)
		if request.cookies("WxzEtShow_"&WPD_userid)="" then
			uservisualsplit(0)=v_myvisual
		else
			uservisualsplit(0)=request.cookies("WxzEtShow_"&WPD_userid)
		end if
		usernamesplit(0)=WPD_membername
		bgwidth=255
		bgheight=150
		photobg=""
		photoBodyBack=""
		photoBodyFore=""
		photoFg=""
		PhotoDate=now()
		isUpload=false
	case 1
		photoid=WPD_checkstr(trim(request("photoid")))
		sqlvisual="select * from visual_photo where id="&photoid
		rsvisual.open sqlvisual,conn,1,1
		subtype="发出的请求"
		photoname=rsvisual("name")
		photomsg=rsvisual("content")
		fromuser=rsvisual("fromuser")
		photostatus=rsvisual("status")
		bgwidth=rsvisual("width")
		bgheight=rsvisual("height")
		photobg=rsvisual("background")
		photoBodyBack=rsvisual("BackBody")
		photoBodyFore=rsvisual("ForeBody")
		photoFg=rsvisual("Foreground")
		PhotoDate=rsvisual("adddate")
		isUpload=rsvisual("isupload")
		rsvisual.close
	case 2
		response.write "<form action=""z_visual_photo.asp"" method=post name=photo_confirm>"
		response.write "<input type=hidden name=""action"" value=""confirm"">"
		if request.cookies("WxzEtShow_"&WPD_userid)="" then
			response.write "<input type=hidden name=""uservisual"" value="""&v_myvisual&""">"
		else
			response.write "<input type=hidden name=""uservisual"" value="""&request.cookies("WxzEtShow_"&WPD_userid)&""">"
		end if
		photoid=WPD_checkstr(trim(request("photoid")))
		response.write "<input type=hidden name=""photoid"" value="""&photoid&""">"
		sqlvisual="select * from visual_photo where id="&photoid
		rsvisual.open sqlvisual,conn,1,1
		subtype="收到的请求"
		photoname=rsvisual("name")
		photomsg=rsvisual("content")
		fromuser=rsvisual("fromuser")
		photostatus=rsvisual("status")
		bgwidth=rsvisual("width")
		bgheight=rsvisual("height")
		photobg=rsvisual("background")
		photoBodyBack=rsvisual("BackBody")
		photoBodyFore=rsvisual("ForeBody")
		photoFg=rsvisual("Foreground")
		PhotoDate=rsvisual("adddate")
		isUpload=rsvisual("isupload")
		rsvisual.close
	case 3
		response.write "<form action=""z_visual_photo.asp"" method=post name=photo_design>"
		photoid=WPD_checkstr(trim(request("photoid")))
		response.write "<input type=hidden name=""photoid"" value="""&photoid&""">"
		sqlvisual="select * from visual_photo where id="&photoid
		rsvisual.open sqlvisual,conn,1,1
		subtype="确认的请求"
		photoname=rsvisual("name")
		photomsg=rsvisual("content")
		fromuser=rsvisual("fromuser")
		photostatus=rsvisual("status")
		bgwidth=rsvisual("width")
		bgheight=rsvisual("height")
		photobg=rsvisual("background")
		photoBodyBack=rsvisual("BackBody")
		photoBodyFore=rsvisual("ForeBody")
		photoFg=rsvisual("Foreground")
		FinishDate=rsvisual("FinishDate")
		PhotoDate=rsvisual("adddate")
		isUpload=rsvisual("isupload")
		if not isnull(FinishDate) then
			PhotoNameLeft=rsvisual("PhotoNameLeft")
			PhotoNameTop=rsvisual("PhotoNameTop")
			PhotoNameFont=rsvisual("PhotoNameFont")
			PhotoNameSize=rsvisual("PhotoNameSize")
			PhotoNameBold=rsvisual("PhotoNameBold")
			PhotoNameItalic=rsvisual("PhotoNameItalic")
			PhotoNameColor=rsvisual("PhotoNameColor")
			PhotoNameDirection=rsvisual("PhotoNameDirection")
			DateLeft=rsvisual("DateLeft")
			DateTop=rsvisual("DateTop")
			DateFont=rsvisual("DateFont")
			DateSize=rsvisual("DateSize")
			DateBold=rsvisual("DateBold")
			DateItalic=rsvisual("DateItalic")
			DateColor=rsvisual("DateColor")
			DateDirection=rsvisual("DateDirection")
		end if
		rsvisual.close
		if lcase(trim(WPD_membername))=lcase(trim(fromuser)) then		
			response.write "<input type=hidden name=""action"" value=""design"">"
			response.write "<input type=hidden name=""PhotoNameLeft"" value="""&PhotoNameLeft&""">"
			response.write "<input type=hidden name=""PhotoNameTop"" value="""&PhotoNameTop&""">"
			response.write "<input type=hidden name=""PhotoNameFont"" value="""&PhotoNameFont&""">"
			response.write "<input type=hidden name=""PhotoNameSize"" value="""&PhotoNameSize&""">"
			if PhotoNameBold then
				response.write "<input type=hidden name=""PhotoNameBold"" value=""1"">"
			else
				response.write "<input type=hidden name=""PhotoNameBold"" value=""1"">"
			end if
			if PhotoNameItalic then
				response.write "<input type=hidden name=""PhotoNameItalic"" value=""1"">"
			else
				response.write "<input type=hidden name=""PhotoNameItalic"" value=""1"">"
			end if
			response.write "<input type=hidden name=""PhotoNameColor"" value="""&PhotoNameColor&""">"
			response.write "<input type=hidden name=""PhotoNameDirection"" value="""&PhotoNameDirection&""">"
			response.write "<input type=hidden name=""DateLeft"" value="""&DateLeft&""">"
			response.write "<input type=hidden name=""DateTop"" value="""&DateTop&""">"
			response.write "<input type=hidden name=""DateFont"" value="""&DateFont&""">"
			response.write "<input type=hidden name=""DateSize"" value="""&DateSize&""">"
			if DateBold then
				response.write "<input type=hidden name=""DateBold"" value=""1"">"
			else
				response.write "<input type=hidden name=""DateBold"" value=""1"">"
			end if
			if DateItalic then
				response.write "<input type=hidden name=""DateItalic"" value=""1"">"
			else
				response.write "<input type=hidden name=""DateItalic"" value=""1"">"
			end if
			response.write "<input type=hidden name=""DateColor"" value="""&DateColor&""">"
			response.write "<input type=hidden name=""DateDirection"" value="""&DateDirection&""">"
		else
			response.write "<input type=hidden name=""action"" value=""accept"">"
		end if
	end select
	if isnull(FinishDate) then
		PhotoNameLeft=0
		PhotoNameTop=115
		PhotoNameFont="宋体"
		PhotoNameSize="9pt"
		PhotoNameBold=false
		PhotoNameItalic=false
		PhotoNameColor="#FFFFFF"
		PhotoNameDirection=0
		DateLeft=0
		DateTop=130
		DateFont="宋体"
		DateSize="9pt"
		DateBold=false
		DateItalic=false
		DateColor="#FFFFFF"
		DateDirection=0
	end if
	response.write "<table cellspacing=0 cellpadding=0 width=""98%"" border=0>"
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td width=39 background=images/111/main_right_06.gif><img height=23 src=images/111/photo08.gif width=31></td>"
response.write "<td width=""100%"" background=images/111/main_right_06.gif align=center>"&DEF_SiteNameString&"照相馆 - "&subtype&" </td>"
response.write "</tr></table>"
response.write "<table border=0 cellspacing=1 cellpadding=2 width=""98%"">"
response.write "<tr valign=middle height=30>"
response.write "<td width=18%  align=right>合影的名称：</td>"
response.write "<td align=left >&nbsp;"
	if ListMethod=0 then
		response.write "<input style=""BACKGROUND-COLOR:"" class=2 type=text name=photoname size=68 maxlength=50>"
	else
		response.write "<b>"&photoname&"</b>"
	end if
	response.write "</td>"
	response.write "</tr>"
	response.write "<tr valign=middle height=90>"
	response.write "<td  align=right>请求的内容：</td>"
	response.write "<td align=left >&nbsp;<textarea rows=5 cols=68 name=photomsg"
	if ListMethod<>0 then
		response.write " Readonly"
	end if
	response.write ">"&htmlencode(FilterJS(photomsg))&"</textarea></td>"
	response.write "</tr>"
	if ListMethod<>0 then
		response.write "<tr valign=middle height=30>"
		response.write "<td  align=right>发起者：</td>"
		response.write "<td align=left >&nbsp;<a href=""dispuser.asp?name="&fromuser&""" target=_blank><b>"&fromuser&"</b></a></td>"
		response.write "</tr>"
	end if
	response.write "<tr valign=middle height=30>"
	response.write "<td  align=right>参与者：</td>"
	response.write "<td align=left >&nbsp;"
	if ListMethod=0 then
		response.write "<input style=""BACKGROUND-COLOR:"" class=2 type=text name=photouser size=""50"">"
	else
		response.write "<b>"
		sqlvisual="select * from visual_photouser where photo_id="&photoid
		rsvisual.open sqlvisual,conn,1,1
		usercount=0
		do while not rsvisual.eof
			if rsvisual("confirmed") then
				if not isnull(rsvisual("uservisual")) and rsvisual("uservisual")<>"" then
					redim preserve uservisualsplit(usercount)
					uservisualsplit(usercount)=rsvisual("uservisual")
					redim preserve usernamesplit(usercount)
					usernamesplit(usercount)=rsvisual("username")
					if not isNull(FinishDate) then
						redim preserve LayerNo(UserCount)
						redim preserve OuterLeft(UserCount)
						redim preserve OuterTop(UserCount)
						redim preserve OuterWidth(UserCount)
						redim preserve OuterHeight(UserCount)
						redim preserve InnerLeft(UserCount)
						redim preserve InnerTop(UserCount)
						redim preserve InnerWidth(UserCount)
						redim preserve InnerHeight(UserCount)
						redim preserve Direction(UserCount)
						redim preserve NameLeft(UserCount)
						redim preserve NameTop(UserCount)
						redim preserve NameFont(UserCount)
						redim preserve NameSize(UserCount)
						redim preserve NameBold(UserCount)
						redim preserve NameItalic(UserCount)
						redim preserve NameColor(UserCount)
						redim preserve NameDirection(UserCount)
						LayerNo(UserCount)=rsvisual("LayerNo")
						OuterLeft(UserCount)=rsvisual("OuterLeft")
						OuterTop(UserCount)=rsvisual("OuterTop")
						OuterWidth(UserCount)=rsvisual("OuterWidth")
						OuterHeight(UserCount)=rsvisual("OuterHeight")
						InnerLeft(UserCount)=rsvisual("InnerLeft")
						InnerTop(UserCount)=rsvisual("InnerTop")
						InnerWidth(UserCount)=rsvisual("InnerWidth")
						InnerHeight(UserCount)=rsvisual("InnerHeight")
						Direction(UserCount)=rsvisual("Direction")
						NameLeft(UserCount)=rsvisual("NameLeft")
						NameTop(UserCount)=rsvisual("NameTop")
						NameFont(UserCount)=rsvisual("NameFont")
						NameSize(UserCount)=rsvisual("NameSize")
						NameBold(UserCount)=rsvisual("NameBold")
						NameItalic(UserCount)=rsvisual("NameItalic")
						NameColor(UserCount)=rsvisual("NameColor")
						NameDirection(UserCount)=rsvisual("NameDirection")
						if lcase(trim(rsvisual("UserName")))=lcase(trim(WPD_membername)) then hasFinished=rsvisual("Finished")
					end if
					usercount=usercount+1
				end if
			end if
			if lcase(trim(rsvisual("username")))<>lcase(trim(fromuser)) then
				response.write "<a href=""dispuser.asp?name="&rsvisual("username")&""" target=_blank>"&rsvisual("username")&"</a>"
				rsvisual.movenext
				if not rsvisual.eof then response.write ","
			else
				rsvisual.movenext
			end if
		loop
		rsvisual.close
		response.write "</b>"
	end if
	StepPos=60
	if bgwidth+60<120*usercount-(usercount-1)*StepPos then
		LeftPos=-30
		StepPos=(120*usercount-(bgwidth+60))/(usercount-1)
	else
		LeftPos=((bgwidth+60)-(120*usercount-(usercount-1)*StepPos))\2-30
	end if
	if isNull(FinishDate) then
		redim preserve LayerNo(UserCount-1)
		redim preserve OuterLeft(UserCount-1)
		redim preserve OuterTop(UserCount-1)
		redim preserve OuterWidth(UserCount-1)
		redim preserve OuterHeight(UserCount-1)
		redim preserve InnerLeft(UserCount-1)
		redim preserve InnerTop(UserCount-1)
		redim preserve InnerWidth(UserCount-1)
		redim preserve InnerHeight(UserCount-1)
		redim preserve Direction(UserCount-1)
		redim preserve NameLeft(UserCount-1)
		redim preserve NameTop(UserCount-1)
		redim preserve NameFont(UserCount-1)
		redim preserve NameSize(UserCount-1)
		redim preserve NameBold(UserCount-1)
		redim preserve NameItalic(UserCount-1)
		redim preserve NameColor(UserCount-1)
		redim preserve NameDirection(UserCount-1)
		for i=0 to usercount-1
			LayerNo(i)=i*20+10
			OuterLeft(i)=int(LeftPos+(120-StepPos)*i)
			OuterTop(i)=(bgheight-150)\2
			OuterWidth(i)=120
			OuterHeight(i)=150
			InnerLeft(i)=0
			InnerTop(i)=0
			InnerWidth(i)=120
			InnerHeight(i)=150
			Direction(i)=0

			NameLeft(i)=OuterLeft(i)+30
			NameTop(i)=0
			NameFont(i)="宋体"
			NameSize(i)="9pt"
			NameBold(i)=False
			NameItalic(i)=False
			NameColor(i)="#FFFFFF"
			NameDirection(i)=0
		next
	end if
	redim preserve UserVisualSplit(UserCount+5)
	redim preserve OuterLeft(UserCount+5)
	redim preserve OuterTop(UserCount+5)
	redim preserve OuterWidth(UserCount+5)
	redim preserve OuterHeight(UserCount+5)
	redim preserve InnerLeft(UserCount+5)
	redim preserve InnerTop(UserCount+5)
	redim preserve InnerWidth(UserCount+5)
	redim preserve InnerHeight(UserCount+5)
	redim preserve Direction(UserCount+5)
	for i=0 to 5
		UserVisualSplit(UserCount+i)=""
		OuterLeft(UserCount+i)=0
		OuterTop(UserCount+i)=0
		OuterWidth(UserCount+i)=120
		OuterHeight(UserCount+i)=150
		InnerLeft(UserCount+i)=0
		InnerTop(UserCount+i)=0
		InnerWidth(UserCount+i)=120
		InnerHeight(UserCount+i)=150
		Direction(UserCount+i)=0
	next
	if ListMethod=3 and not isNull(FinishDate) then
		dim rsPhotoUser
		set rsPhotoUser=server.createobject("ADODB.recordset")
		sqlvisual="select * from visual_Accouterment where photo_id="&PhotoID
		rsPhotoUser.open sqlvisual,conn,1,1
		do while not rsPhotoUser.eof
			i=rsPhotoUser("SeqNo")
			uservisualsplit(UserCount+i)=rsPhotoUser("ItemPicPath")
			OuterLeft(UserCount+i)=rsPhotoUser("OuterLeft")
			OuterTop(UserCount+i)=rsPhotoUser("OuterTop")
			OuterWidth(UserCount+i)=rsPhotoUser("OuterWidth")
			OuterHeight(UserCount+i)=rsPhotoUser("OuterHeight")
			InnerLeft(UserCount+i)=rsPhotoUser("InnerLeft")
			InnerTop(UserCount+i)=rsPhotoUser("InnerTop")
			InnerWidth(UserCount+i)=rsPhotoUser("InnerWidth")
			InnerHeight(UserCount+i)=rsPhotoUser("InnerHeight")
			Direction(UserCount+i)=rsPhotoUser("Direction")
			rsPhotoUser.movenext
		loop
		rsPhotoUser.close
		set rsPhotoUser=nothing
	end if
	if ListMethod=0 then
		response.write "&nbsp;"
		response.write "<SELECT name=friend onchange=DoTitle(this.options[this.selectedIndex].value)>"
		response.write "<OPTION selected value="""">选择</OPTION>"
		sqlvisual="select F_friend from Friend where F_username='"&WPD_membername&"' order by F_addtime desc"
		rsvisual.open sqlvisual,conn,1,1
		do while not rsvisual.eof
			response.write "<OPTION value="""&rsvisual(0)&""">"&rsvisual(0)&"</OPTION>"
			rsvisual.movenext
		loop
		rsvisual.close
		response.write "</SELECT>"
	end if
	response.write "</td>"
	response.write "</tr>"
	response.write "<tr valign=middle height=30>"
	response.write "<td width=15%  align=right>照片的状态：</td>"
	response.write "<td align=left >&nbsp;"
	if ListMethod<>0 then
		response.write "<b>"
		if photostatus=1 then
			response.write "公开"
		else
			response.write "保密"
		end if
		response.write "</b>"
	else
		response.write "<input type=radio name=photostatus value=""0"">保密&nbsp;&nbsp;<input type=radio name=photostatus value=""1"" checked>公开"
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=photomyself value=""1"" onclick='if(this.checked){photo_request.photouser.disabled=true;photo_request.photouser.value="""";photo_request.friend.disabled=true;photo_request.photomsg.disabled=true;photo_request.photomsg.value="""";} else {photo_request.photouser.disabled=false;photo_request.friend.disabled=false;photo_request.photomsg.disabled=false;}'>个人写真"
		if WPD_master then
			response.write "&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=forcephoto value=""1"">强制合影"
		end if
	end if
	response.write "</td>"
	response.write "</tr>"
	if ListMethod=0 then
		response.write "<tr valign=middle height=30>"
		response.write "<td width=15%  align=right>后部效果：</td>"
		response.write "<td align=left ><table width=100% cellpadding=0 cellspacing=0 border=0><tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td width=50% >"
		response.write "&nbsp;背景："
		response.write "<select name=photobg onchange='selBg(this.options[this.selectedIndex].value)'>"
		response.write "<option value='' selected>空白背景</option><option value='0'>我的背景</option><option value='1'>上传的背景</option>"
		if v_MyVip=1 then
			sqlvisual="select id,name from visual_items where content='1' and type=0 order by id"
		else
			sqlvisual="select id,name from visual_items where content='1' and type=0 and not vip order by id"
		end if
		rsvisual.open sqlvisual,conn,1,1
		do while not rsvisual.eof
	  	if localpic=1 then
	  		response.write "<option value='1/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
	  	else
	  		response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/01/00/'>"&rsvisual(1)&"</option>"
	  	end if
			rsvisual.movenext
		loop
		rsvisual.close
		response.write "</select></td>"
		response.write "<td width=50% >&nbsp;身后："
		response.write "<select name=photobodyback onchange='selBodyBack(this.options[this.selectedIndex].value)'>"
		response.write "<option value='' selected>空白身后</option>"
		if v_MyVip=1 then
			sqlvisual="select id,name from visual_items where content='2' and type=0 order by id"
		else
			sqlvisual="select id,name from visual_items where content='2' and type=0 and not vip order by id"
		end if
		rsvisual.open sqlvisual,conn,1,1
		do while not rsvisual.eof
	  	if localpic=1 then
	  		response.write "<option value='2/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
	  	else
	  		response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/02/00/'>"&rsvisual(1)&"</option>"
	  	end if
			rsvisual.movenext
		loop
		rsvisual.close
		response.write "</select></td></tr></table>"
		response.write "</td>"
		response.write "</tr>"
		response.write "<tr valign=middle height=30>"
		response.write "<td width=15%  align=right>前部效果：</td>"
		response.write "<td align=left ><table width=100% cellpadding=0 cellspacing=0 border=0><tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td width=50% >"
		response.write "&nbsp;前景："
		response.write "<select name=photofg onchange='selFg(this.options[this.selectedIndex].value)'>"
		response.write "<option value='' selected>空白前景</option>"
		if v_MyVip=1 then
			sqlvisual="select id,name from visual_items where content='25' and type=0 order by id"
		else
			sqlvisual="select id,name from visual_items where content='25' and type=0 and not vip order by id"
		end if
		rsvisual.open sqlvisual,conn,1,1
		do while not rsvisual.eof
	  	if localpic=1 then
	  		response.write "<option value='25/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
	  	else
	  		response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/25/00/'>"&rsvisual(1)&"</option>"
	  	end if
			rsvisual.movenext
		loop
		rsvisual.close
		response.write "</select></td>"
		response.write "<td width=50% >&nbsp;身前："
		response.write "<select name=photobodyfore onchange='selBodyFore(this.options[this.selectedIndex].value)'>"
		response.write "<option value='' selected>空白身前</option>"
		if v_MyVip=1 then
			sqlvisual="select id,name from visual_items where content='26' and type=0 order by id"
		else
			sqlvisual="select id,name from visual_items where content='26' and type=0 and not vip order by id"
		end if
		rsvisual.open sqlvisual,conn,1,1
		do while not rsvisual.eof
	  	if localpic=1 then
	  		response.write "<option value='26/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
	  	else
	  		response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/26/00/'>"&rsvisual(1)&"</option>"
	  	end if
			rsvisual.movenext
		loop
		rsvisual.close
		response.write "</select></td></tr></table>"
		response.write "</td>"
		response.write "</tr>"
		response.write "<tr valign=middle height=30>"
		response.write "<td width=15%  align=right>上传背景：</td>"
		response.write "<td align=left >&nbsp;"
		response.write "<input type=hidden name=bgfname value="""">"
		response.write "<iframe frameborder=0 width=98% height=40 scrolling=no src=z_visual_upload.asp></iframe>"
		response.write "</td>"
	end if
	response.write "<tr valign=middle height=160>"
	response.write "<td colspan=2  align=center>"
	call ShowVisualPhoto(bgWidth,bgHeight,PhotoBg,PhotoBodyBack,PhotoBodyFore,PhotoFg,PhotoName,PhotoNameLeft,PhotoNameTop,PhotoNameFont,PhotoNameSize,PhotoNameBold,PhotoNameItalic,PhotoNameColor,PhotoNameDirection,PhotoDate,DateLeft,DateTop,DateFont,DateSize,DateBold,DateItalic,DateColor,DateDirection,UserCount,UserVisualSplit,LayerNo,OuterLeft,OuterTop,OuterWidth,OuterHeight,InnerLeft,InnerTop,InnerWidth,InnerHeight,Direction,UserNameSplit,NameLeft,NameTop,NameFont,NameSize,NameBold,NameItalic,NameColor,NameDirection,True,isUpload,(UserCount=1 and ListMethod=3))
	response.write "</td>"
	response.write "</tr>"
	if ListMethod=0 then
		response.write "<tr valign=middle height=130>"
		response.write "<td  colspan=2>&nbsp;<b>说明</b>：<br>&nbsp;① 可以用英文状态下的逗号将参与者隔开实现群发，最多<b>"&PhotoUserCount&"</b>个社员，超过的社员将被自动剔除<br>&nbsp;② 名称最多<b>50</b>个字符，内容最多<b>"&WPD_content_wordnum&"</b>个字符<br>&nbsp;③ 合影请求的有效期为<b>"&PhotoPeriod&"</b>天，过期的请求将被自动删除<br>&nbsp;④ 上传背景的图象文件必须为255*150<br>&nbsp;<font color="&WPD_spcolor&">⑤ 每个参与者收取费用"
		if isnull(v_myvip) or v_myvip<>1 then
			response.write PhotoPrice1
		else
			response.write PhotoPrice2
		end if
		response.write "元(包括您自己)，您现在有现金"&WPD_mymoney&"元</font><br>&nbsp;⑥ 如果您的请求没有被同意，所有费用作为短消息群发费用扣除，不再退还</td>"
		response.write "</tr>"
	elseif ListMethod=3 then
		if lcase(trim(WPD_membername))=lcase(trim(fromuser)) then
			response.write "<tr valign=middle height=30>"
			response.write "<td colspan=2  align=center>"&vbNewLine
			response.write "处理人物：<select name=SelBody onchange='selectBody(this.options[this.selectedIndex].value)'>"
			response.write "<option value=''>不选择人物</option>"
			for i=0 to usercount-1
				response.write "<option value='"&i&"'>"&usernamesplit(i)&"</option>"
			next
			response.write "</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			response.write "处理名称：<select name=SelName onchange='selectName(this.options[this.selectedIndex].value)'>"
			response.write "<option value=''>不选择名称</option>"
			for i=0 to usercount-1
				response.write "<option value='"&i&"'>"&usernamesplit(i)&"</option>"
			next
			response.write "<option value='-1'>合影的名称</option>"
			response.write "<option value='-2'>合影的时间</option>"
			response.write "</select>"
			if usercount>1 then
				response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;处理饰物：<select name=SelAccouterment onchange='selectAccouterment(this.options[this.selectedIndex].value)'>"
				response.write "<option value=''>不选择饰物</option>"
				response.write "<option value='0'>身后饰物一</option>"
				response.write "<option value='1'>身后饰物二</option>"
				response.write "<option value='2'>身后饰物三</option>"
				response.write "<option value='3'>身前饰物一</option>"
				response.write "<option value='4'>身前饰物二</option>"
				response.write "<option value='5'>身前饰物三</option>"
				response.write "</select>"
			end if
			response.write "</td>"
			response.write "</tr>"
			response.write "<tr valign=middle height=30>"
			response.write "<td colspan=2  align=center>"
			response.write "操作：<input type=radio name=photo_mode value=0 checked disabled=true>移动&nbsp;<input type=radio name=photo_mode value=1 disabled=true>左上剪裁&nbsp;<input type=radio name=photo_mode value=2 disabled=true>右下剪裁&nbsp;<input type=radio name=photo_mode value=3 disabled=true>放缩&nbsp;<font color="&WPD_spcolor&">使用Ctrl和方向键操作</font>"
			response.write "</td>"
			response.write "</tr>"
			response.write "<tr valign=middle height=30>"
			response.write "<td colspan=2  align=center>"
			if UserCount>1 then
				response.write "<select name=accouterment onchange='setAccouterment(this.options[this.selectedIndex].value)' disabled=true>"
				response.write "<option value=''>不使用饰物</option>"
				if v_myVip=1 then
					sqlvisual="select id,name,content from visual_items where type in ("&AccoutermentType&") order by id"
				else
					sqlvisual="select id,name,content from visual_items where type in ("&AccoutermentType&") and not vip order by id"
				end if
				rsvisual.open sqlvisual,conn,1,1
				do while not rsvisual.eof
			  	if localpic=1 then
			  		response.write "<option value='"&(split(rsvisual(2),"_")(0))&"/"&right("0000"&rsvisual(0),4)&".GIF'>"&rsvisual(1)&"</option>"
			  	else
			  		response.write "<option value='"&right("00000000"&rsvisual(0),8)&"/"&right("00"&(split(rsvisual(2),"_")(0)),2)&"/00/'>"&rsvisual(1)&"</option>"
			  	end if
					rsvisual.movenext
				loop
				rsvisual.close
				response.write "</select>&nbsp;&nbsp;"
			end if
			response.write "<input type=button name=photo_front value=""向前"" disabled=true onclick='forward()'>&nbsp;<input type=button name=photo_rear value=""向后"" disabled=true onclick='reverse()'>"
			response.write "&nbsp;&nbsp;旋转：<input type=radio name=rot_deg value=""0"" checked disabled=true onclick='selectRotation(this.value)'>0度&nbsp;<input type=radio name=rot_deg value=""1"" disabled=true onclick='selectRotation(this.value)'>90度&nbsp;<input type=radio name=rot_deg value=""2"" disabled=true onclick='selectRotation(this.value)'>180度&nbsp;<input type=radio name=rot_deg value=""3"" disabled=true onclick='selectRotation(this.value)'>270度&nbsp;&nbsp;<input type=checkbox name=mirror value=""0"" disabled=true onclick='selectMirror()'>反转"
			response.write "</td>"
			response.write "</tr>"
			response.write "<tr valign=middle height=30>"
			response.write "<td colspan=2  align=center>"
			response.write "字体：<SELECT name=selFont onchange='selectFont(this.options[this.selectedIndex].value)' disabled=true>"
			response.write "<option value=""宋体"" selected>宋体</option>"
			response.write "<option value=""仿宋_GB2312"">仿宋</option>"
			response.write "<option value=""楷体_GB2312"">楷体</option>"
			response.write "<option value=""黑体"">黑体</option>"
			response.write "<option value=""隶书"">隶书</option>"
			response.write "<OPTION value=""Arial"">Arial</OPTION> "
			response.write "<OPTION value=""Arial Black"">Arial Black</OPTION>"
			response.write "<OPTION value=""Comic Sans MS"">Comic Sans MS</OPTION>"
			response.write "<OPTION value=""Courier New"">Courier New</OPTION>"
			response.write "<OPTION value=""Georgia"">Georgia</OPTION>"
			response.write "<OPTION value=""Impact"">Impact</OPTION>"
			response.write "<OPTION value=""Tahoma"">Tahoma</OPTION>"
			response.write "<OPTION value=""Times New Roman"">Times New Roman</OPTION>"
			response.write "<OPTION value=""Trebuchet MS"">Trebuchet MS</OPTION>"
			response.write "<OPTION value=""Script MT Bold"">Script MT Bold</OPTION>"
			response.write "<OPTION value=""Verdana"">Verdana</OPTION>"
			response.write "<OPTION value=""Lucida Console"">Lucida Console</OPTION>"
			response.write "</SELECT>&nbsp;&nbsp;"
			response.write "大小：<select name=selSize onChange='selectSize(this.options[this.selectedIndex].value)' disabled=true>"
			response.write "<option value=""6pt"">6pt</option>"
			response.write "<option value=""7pt"">7pt</option>"
			response.write "<option value=""8pt"">8pt</option>"
			response.write "<option value=""9pt"" selected>9pt</option>"
			response.write "<option value=""10pt"">10pt</option>"
			response.write "<option value=""11pt"">11pt</option>"
			response.write "<option value=""12pt"">12pt</option>"
			response.write "<option value=""14pt"">14pt</option>"
			response.write "<option value=""16pt"">16pt</option>"
			response.write "<option value=""18pt"">18pt</option>"
			response.write "<option value=""20pt"">20pt</option>"
			response.write "<option value=""24pt"">24pt</option>"
			response.write "</select>&nbsp;&nbsp;"
			response.write "颜色：<SELECT name=selColor onchange='selectColor(this.options[this.selectedIndex].value)' disabled=true>" 
			response.write "<option value="""">隐藏</option>"
			response.write "<option style=""background-color:#F0F8FF;color: #F0F8FF"" value=""#F0F8FF"">#F0F8FF</option>"
			response.write "<option style=""background-color:#FAEBD7;color: #FAEBD7"" value=""#FAEBD7"">#FAEBD7</option>"
			response.write "<option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option>"
			response.write "<option style=""background-color:#7FFFD4;color: #7FFFD4"" value=""#7FFFD4"">#7FFFD4</option>"
			response.write "<option style=""background-color:#F0FFFF;color: #F0FFFF"" value=""#F0FFFF"">#F0FFFF</option>"
			response.write "<option style=""background-color:#F5F5DC;color: #F5F5DC"" value=""#F5F5DC"">#F5F5DC</option>"
			response.write "<option style=""background-color:#FFE4C4;color: #FFE4C4"" value=""#FFE4C4"">#FFE4C4</option>"
			response.write "<option style=""background-color:#000000;color: #000000"" value=""#000000"">#000000</option>"
			response.write "<option style=""background-color:#FFEBCD;color: #FFEBCD"" value=""#FFEBCD"">#FFEBCD</option>"
			response.write "<option style=""background-color:#0000FF;color: #0000FF"" value=""#0000FF"">#0000FF</option>"
			response.write "<option style=""background-color:#8A2BE2;color: #8A2BE2"" value=""#8A2BE2"">#8A2BE2</option>"
			response.write "<option style=""background-color:#A52A2A;color: #A52A2A"" value=""#A52A2A"">#A52A2A</option>"
			response.write "<option style=""background-color:#DEB887;color: #DEB887"" value=""#DEB887"">#DEB887</option>"
			response.write "<option style=""background-color:#5F9EA0;color: #5F9EA0"" value=""#5F9EA0"">#5F9EA0</option>"
			response.write "<option style=""background-color:#7FFF00;color: #7FFF00"" value=""#7FFF00"">#7FFF00</option>"
			response.write "<option style=""background-color:#D2691E;color: #D2691E"" value=""#D2691E"">#D2691E</option>"
			response.write "<option style=""background-color:#FF7F50;color: #FF7F50"" value=""#FF7F50"">#FF7F50</option>"
			response.write "<option style=""background-color:#6495ED;color: #6495ED"" value=""#6495ED"">#6495ED</option>"
			response.write "<option style=""background-color:#FFF8DC;color: #FFF8DC"" value=""#FFF8DC"">#FFF8DC</option>"
			response.write "<option style=""background-color:#DC143C;color: #DC143C"" value=""#DC143C"">#DC143C</option>"
			response.write "<option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option>"
			response.write "<option style=""background-color:#00008B;color: #00008B"" value=""#00008B"">#00008B</option>"
			response.write "<option style=""background-color:#008B8B;color: #008B8B"" value=""#008B8B"">#008B8B</option>"
			response.write "<option style=""background-color:#B8860B;color: #B8860B"" value=""#B8860B"">#B8860B</option>"
			response.write "<option style=""background-color:#A9A9A9;color: #A9A9A9"" value=""#A9A9A9"">#A9A9A9</option>"
			response.write "<option style=""background-color:#006400;color: #006400"" value=""#006400"">#006400</option>"
			response.write "<option style=""background-color:#BDB76B;color: #BDB76B"" value=""#BDB76B"">#BDB76B</option>"
			response.write "<option style=""background-color:#8B008B;color: #8B008B"" value=""#8B008B"">#8B008B</option>"
			response.write "<option style=""background-color:#556B2F;color: #556B2F"" value=""#556B2F"">#556B2F</option>"
			response.write "<option style=""background-color:#FF8C00;color: #FF8C00"" value=""#FF8C00"">#FF8C00</option>"
			response.write "<option style=""background-color:#9932CC;color: #9932CC"" value=""#9932CC"">#9932CC</option>"
			response.write "<option style=""background-color:#8B0000;color: #8B0000"" value=""#8B0000"">#8B0000</option>"
			response.write "<option style=""background-color:#E9967A;color: #E9967A"" value=""#E9967A"">#E9967A</option>"
			response.write "<option style=""background-color:#8FBC8F;color: #8FBC8F"" value=""#8FBC8F"">#8FBC8F</option>"
			response.write "<option style=""background-color:#483D8B;color: #483D8B"" value=""#483D8B"">#483D8B</option>"
			response.write "<option style=""background-color:#2F4F4F;color: #2F4F4F"" value=""#2F4F4F"">#2F4F4F</option>"
			response.write "<option style=""background-color:#00CED1;color: #00CED1"" value=""#00CED1"">#00CED1</option>"
			response.write "<option style=""background-color:#9400D3;color: #9400D3"" value=""#9400D3"">#9400D3</option>"
			response.write "<option style=""background-color:#FF1493;color: #FF1493"" value=""#FF1493"">#FF1493</option>"
			response.write "<option style=""background-color:#00BFFF;color: #00BFFF"" value=""#00BFFF"">#00BFFF</option>"
			response.write "<option style=""background-color:#696969;color: #696969"" value=""#696969"">#696969</option>"
			response.write "<option style=""background-color:#1E90FF;color: #1E90FF"" value=""#1E90FF"">#1E90FF</option>"
			response.write "<option style=""background-color:#B22222;color: #B22222"" value=""#B22222"">#B22222</option>"
			response.write "<option style=""background-color:#FFFAF0;color: #FFFAF0"" value=""#FFFAF0"">#FFFAF0</option>"
			response.write "<option style=""background-color:#228B22;color: #228B22"" value=""#228B22"">#228B22</option>"
			response.write "<option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option>"
			response.write "<option style=""background-color:#DCDCDC;color: #DCDCDC"" value=""#DCDCDC"">#DCDCDC</option>"
			response.write "<option style=""background-color:#F8F8FF;color: #F8F8FF"" value=""#F8F8FF"">#F8F8FF</option>"
			response.write "<option style=""background-color:#FFD700;color: #FFD700"" value=""#FFD700"">#FFD700</option>"
			response.write "<option style=""background-color:#DAA520;color: #DAA520"" value=""#DAA520"">#DAA520</option>"
			response.write "<option style=""background-color:#808080;color: #808080"" value=""#808080"">#808080</option>"
			response.write "<option style=""background-color:#008000;color: #008000"" value=""#008000"">#008000</option>"
			response.write "<option style=""background-color:#ADFF2F;color: #ADFF2F"" value=""#ADFF2F"">#ADFF2F</option>"
			response.write "<option style=""background-color:#F0FFF0;color: #F0FFF0"" value=""#F0FFF0"">#F0FFF0</option>"
			response.write "<option style=""background-color:#FF69B4;color: #FF69B4"" value=""#FF69B4"">#FF69B4</option>"
			response.write "<option style=""background-color:#CD5C5C;color: #CD5C5C"" value=""#CD5C5C"">#CD5C5C</option>"
			response.write "<option style=""background-color:#4B0082;color: #4B0082"" value=""#4B0082"">#4B0082</option>"
			response.write "<option style=""background-color:#FFFFF0;color: #FFFFF0"" value=""#FFFFF0"">#FFFFF0</option>"
			response.write "<option style=""background-color:#F0E68C;color: #F0E68C"" value=""#F0E68C"">#F0E68C</option>"
			response.write "<option style=""background-color:#E6E6FA;color: #E6E6FA"" value=""#E6E6FA"">#E6E6FA</option>"
			response.write "<option style=""background-color:#FFF0F5;color: #FFF0F5"" value=""#FFF0F5"">#FFF0F5</option>"
			response.write "<option style=""background-color:#7CFC00;color: #7CFC00"" value=""#7CFC00"">#7CFC00</option>"
			response.write "<option style=""background-color:#FFFACD;color: #FFFACD"" value=""#FFFACD"">#FFFACD</option>"
			response.write "<option style=""background-color:#ADD8E6;color: #ADD8E6"" value=""#ADD8E6"">#ADD8E6</option>"
			response.write "<option style=""background-color:#F08080;color: #F08080"" value=""#F08080"">#F08080</option>"
			response.write "<option style=""background-color:#E0FFFF;color: #E0FFFF"" value=""#E0FFFF"">#E0FFFF</option>"
			response.write "<option style=""background-color:#FAFAD2;color: #FAFAD2"" value=""#FAFAD2"">#FAFAD2</option>"
			response.write "<option style=""background-color:#90EE90;color: #90EE90"" value=""#90EE90"">#90EE90</option>"
			response.write "<option style=""background-color:#D3D3D3;color: #D3D3D3"" value=""#D3D3D3"">#D3D3D3</option>"
			response.write "<option style=""background-color:#FFB6C1;color: #FFB6C1"" value=""#FFB6C1"">#FFB6C1</option>"
			response.write "<option style=""background-color:#FFA07A;color: #FFA07A"" value=""#FFA07A"">#FFA07A</option>"
			response.write "<option style=""background-color:#20B2AA;color: #20B2AA"" value=""#20B2AA"">#20B2AA</option>"
			response.write "<option style=""background-color:#87CEFA;color: #87CEFA"" value=""#87CEFA"">#87CEFA</option>"
			response.write "<option style=""background-color:#778899;color: #778899"" value=""#778899"">#778899</option>"
			response.write "<option style=""background-color:#B0C4DE;color: #B0C4DE"" value=""#B0C4DE"">#B0C4DE</option>"
			response.write "<option style=""background-color:#FFFFE0;color: #FFFFE0"" value=""#FFFFE0"">#FFFFE0</option>"
			response.write "<option style=""background-color:#00FF00;color: #00FF00"" value=""#00FF00"">#00FF00</option>"
			response.write "<option style=""background-color:#32CD32;color: #32CD32"" value=""#32CD32"">#32CD32</option>"
			response.write "<option style=""background-color:#FAF0E6;color: #FAF0E6"" value=""#FAF0E6"">#FAF0E6</option>"
			response.write "<option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option>"
			response.write "<option style=""background-color:#800000;color: #800000"" value=""#800000"">#800000</option>"
			response.write "<option style=""background-color:#66CDAA;color: #66CDAA"" value=""#66CDAA"">#66CDAA</option>"
			response.write "<option style=""background-color:#0000CD;color: #0000CD"" value=""#0000CD"">#0000CD</option>"
			response.write "<option style=""background-color:#BA55D3;color: #BA55D3"" value=""#BA55D3"">#BA55D3</option>"
			response.write "<option style=""background-color:#9370DB;color: #9370DB"" value=""#9370DB"">#9370DB</option>"
			response.write "<option style=""background-color:#3CB371;color: #3CB371"" value=""#3CB371"">#3CB371</option>"
			response.write "<option style=""background-color:#7B68EE;color: #7B68EE"" value=""#7B68EE"">#7B68EE</option>"
			response.write "<option style=""background-color:#00FA9A;color: #00FA9A"" value=""#00FA9A"">#00FA9A</option>"
			response.write "<option style=""background-color:#48D1CC;color: #48D1CC"" value=""#48D1CC"">#48D1CC</option>"
			response.write "<option style=""background-color:#C71585;color: #C71585"" value=""#C71585"">#C71585</option>"
			response.write "<option style=""background-color:#191970;color: #191970"" value=""#191970"">#191970</option>"
			response.write "<option style=""background-color:#F5FFFA;color: #F5FFFA"" value=""#F5FFFA"">#F5FFFA</option>"
			response.write "<option style=""background-color:#FFE4E1;color: #FFE4E1"" value=""#FFE4E1"">#FFE4E1</option>"
			response.write "<option style=""background-color:#FFE4B5;color: #FFE4B5"" value=""#FFE4B5"">#FFE4B5</option>"
			response.write "<option style=""background-color:#FFDEAD;color: #FFDEAD"" value=""#FFDEAD"">#FFDEAD</option>"
			response.write "<option style=""background-color:#000080;color: #000080"" value=""#000080"">#000080</option>"
			response.write "<option style=""background-color:#FDF5E6;color: #FDF5E6"" value=""#FDF5E6"">#FDF5E6</option>"
			response.write "<option style=""background-color:#808000;color: #808000"" value=""#808000"">#808000</option>"
			response.write "<option style=""background-color:#6B8E23;color: #6B8E23"" value=""#6B8E23"">#6B8E23</option>"
			response.write "<option style=""background-color:#FFA500;color: #FFA500"" value=""#FFA500"">#FFA500</option>"
			response.write "<option style=""background-color:#FF4500;color: #FF4500"" value=""#FF4500"">#FF4500</option>"
			response.write "<option style=""background-color:#DA70D6;color: #DA70D6"" value=""#DA70D6"">#DA70D6</option>"
			response.write "<option style=""background-color:#EEE8AA;color: #EEE8AA"" value=""#EEE8AA"">#EEE8AA</option>"
			response.write "<option style=""background-color:#98FB98;color: #98FB98"" value=""#98FB98"">#98FB98</option>"
			response.write "<option style=""background-color:#AFEEEE;color: #AFEEEE"" value=""#AFEEEE"">#AFEEEE</option>"
			response.write "<option style=""background-color:#DB7093;color: #DB7093"" value=""#DB7093"">#DB7093</option>"
			response.write "<option style=""background-color:#FFEFD5;color: #FFEFD5"" value=""#FFEFD5"">#FFEFD5</option>"
			response.write "<option style=""background-color:#FFDAB9;color: #FFDAB9"" value=""#FFDAB9"">#FFDAB9</option>"
			response.write "<option style=""background-color:#CD853F;color: #CD853F"" value=""#CD853F"">#CD853F</option>"
			response.write "<option style=""background-color:#FFC0CB;color: #FFC0CB"" value=""#FFC0CB"">#FFC0CB</option>"
			response.write "<option style=""background-color:#DDA0DD;color: #DDA0DD"" value=""#DDA0DD"">#DDA0DD</option>"
			response.write "<option style=""background-color:#B0E0E6;color: #B0E0E6"" value=""#B0E0E6"">#B0E0E6</option>"
			response.write "<option style=""background-color:#800080;color: #800080"" value=""#800080"">#800080</option>"
			response.write "<option style=""background-color:#FF0000;color: #FF0000"" value=""#FF0000"">#FF0000</option>"
			response.write "<option style=""background-color:#BC8F8F;color: #BC8F8F"" value=""#BC8F8F"">#BC8F8F</option>"
			response.write "<option style=""background-color:#4169E1;color: #4169E1"" value=""#4169E1"">#4169E1</option>"
			response.write "<option style=""background-color:#8B4513;color: #8B4513"" value=""#8B4513"">#8B4513</option>"
			response.write "<option style=""background-color:#FA8072;color: #FA8072"" value=""#FA8072"">#FA8072</option>"
			response.write "<option style=""background-color:#F4A460;color: #F4A460"" value=""#F4A460"">#F4A460</option>"
			response.write "<option style=""background-color:#2E8B57;color: #2E8B57"" value=""#2E8B57"">#2E8B57</option>"
			response.write "<option style=""background-color:#FFF5EE;color: #FFF5EE"" value=""#FFF5EE"">#FFF5EE</option>"
			response.write "<option style=""background-color:#A0522D;color: #A0522D"" value=""#A0522D"">#A0522D</option>"
			response.write "<option style=""background-color:#C0C0C0;color: #C0C0C0"" value=""#C0C0C0"">#C0C0C0</option>"
			response.write "<option style=""background-color:#87CEEB;color: #87CEEB"" value=""#87CEEB"">#87CEEB</option>"
			response.write "<option style=""background-color:#6A5ACD;color: #6A5ACD"" value=""#6A5ACD"">#6A5ACD</option>"
			response.write "<option style=""background-color:#708090;color: #708090"" value=""#708090"">#708090</option>"
			response.write "<option style=""background-color:#FFFAFA;color: #FFFAFA"" value=""#FFFAFA"">#FFFAFA</option>"
			response.write "<option style=""background-color:#00FF7F;color: #00FF7F"" value=""#00FF7F"">#00FF7F</option>"
			response.write "<option style=""background-color:#4682B4;color: #4682B4"" value=""#4682B4"">#4682B4</option>"
			response.write "<option style=""background-color:#D2B48C;color: #D2B48C"" value=""#D2B48C"">#D2B48C</option>"
			response.write "<option style=""background-color:#008080;color: #008080"" value=""#008080"">#008080</option>"
			response.write "<option style=""background-color:#D8BFD8;color: #D8BFD8"" value=""#D8BFD8"">#D8BFD8</option>"
			response.write "<option style=""background-color:#FF6347;color: #FF6347"" value=""#FF6347"">#FF6347</option>"
			response.write "<option style=""background-color:#40E0D0;color: #40E0D0"" value=""#40E0D0"">#40E0D0</option>"
			response.write "<option style=""background-color:#EE82EE;color: #EE82EE"" value=""#EE82EE"">#EE82EE</option>"
			response.write "<option style=""background-color:#F5DEB3;color: #F5DEB3"" value=""#F5DEB3"">#F5DEB3</option>"
			response.write "<option style=""background-color:#FFFFFF;color: #FFFFFF"" value=""#FFFFFF"" selected>#FFFFFF</option>"
			response.write "<option style=""background-color:#F5F5F5;color: #F5F5F5"" value=""#F5F5F5"">#F5F5F5</option>"
			response.write "<option style=""background-color:#FFFF00;color: #FFFF00"" value=""#FFFF00"">#FFFF00</option>"
			response.write "<option style=""background-color:#9ACD32;color: #9ACD32"" value=""#9ACD32"">#9ACD32</option>"
			response.write "</SELECT>&nbsp;&nbsp;"
			response.write "<input type=checkbox name=selBold value=""1"" disabled=true onclick=""selectBold()"">粗体&nbsp;&nbsp;<input type=checkbox name=selItalic value=""1"" disabled=true onclick=""selectItalic()"">斜体"
			response.write "</td>"
			response.write "</tr>"
		end if
	end if
	response.write "<tr valign=middle height=30>"
	response.write "<td  valign=middle colspan=2 align=center>"
	select case ListMethod
	case 0
		response.write "<input type=Submit value=发送 name=Submit style=""BACKGROUND-COLOR: #ebebeb"" class=2>&nbsp; <input style=""BACKGROUND-COLOR: #ebebeb"" class=2 type=reset name=Clear value=清除 onclick=""document.photo_bg.src='';document.photo_bg.style.display='none';document.photo_bodyback.src='';document.photo_bodyback.style.display='none';document.photo_bodyfore.src='';document.photo_bodyfore.style.display='none';document.photo_fg.src='';document.photo_fg.style.display='none';"">"
	case 1
		response.write "<a href=""z_visual.asp?shopid=297"">返回〖发出的请求〗列表</a>"
	case 2
		response.write "<input style=""BACKGROUND-COLOR: #ebebeb"" class=2 type=Submit value=确认 name=Submit title=""使用当前的形象参加这个合影"">&nbsp; <input style=""BACKGROUND-COLOR: #ebebeb"" class=2 type=button name=goback value=返回 onclick=""location.href='z_visual.asp?shopid=397'"" title=""返回〖收到的请求〗列表"">"
	case 3
		if lcase(trim(WPD_membername))=lcase(trim(fromuser)) then
			response.write "<script language=javascript>userCount="""&UserCount&""";</script>"
			for i=0 to UserCount-1
				response.write "<input type=hidden name=""LayerNo_"&i&""" value="""&LayerNo(i)&""">"
				response.write "<input type=hidden name=""OuterLeft_"&i&""" value="""&OuterLeft(i)&""">"
				response.write "<input type=hidden name=""OuterTop_"&i&""" value="""&OuterTop(i)&""">"
				response.write "<input type=hidden name=""OuterWidth_"&i&""" value="""&OuterWidth(i)&""">"
				response.write "<input type=hidden name=""OuterHeight_"&i&""" value="""&OuterHeight(i)&""">"
				response.write "<input type=hidden name=""InnerLeft_"&i&""" value="""&InnerLeft(i)&""">"
				response.write "<input type=hidden name=""InnerTop_"&i&""" value="""&InnerTop(i)&""">"
				response.write "<input type=hidden name=""InnerWidth_"&i&""" value="""&InnerWidth(i)&""">"
				response.write "<input type=hidden name=""InnerHeight_"&i&""" value="""&InnerHeight(i)&""">"
				response.write "<input type=hidden name=""Direction_"&i&""" value="""&Direction(i)&""">"
				response.write "<input type=hidden name=""NameLeft_"&i&""" value="""&NameLeft(i)&""">"
				response.write "<input type=hidden name=""NameTop_"&i&""" value="""&NameTop(i)&""">"
				response.write "<input type=hidden name=""NameFont_"&i&""" value="""&NameFont(i)&""">"
				response.write "<input type=hidden name=""NameSize_"&i&""" value="""&NameSize(i)&""">"
				if NameBold(i) then
					response.write "<input type=hidden name=""NameBold_"&i&""" value=""1"">"
				else
					response.write "<input type=hidden name=""NameBold_"&i&""" value=""0"">"
				end if
				if NameItalic(i) then
					response.write "<input type=hidden name=""NameItalic_"&i&""" value=""1"">"
				else
					response.write "<input type=hidden name=""NameItalic_"&i&""" value=""0"">"
				end if
				response.write "<input type=hidden name=""NameColor_"&i&""" value="""&NameColor(i)&""">"
				response.write "<input type=hidden name=""NameDirection_"&i&""" value="""&NameDirection(i)&""">"
			next
			for i=0 to 5
				response.write "<input type=hidden name=""AccoutermentUserVisual_"&i&""" value="""&UserVisualSplit(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentOuterLeft_"&i&""" value="""&OuterLeft(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentOuterTop_"&i&""" value="""&OuterTop(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentOuterWidth_"&i&""" value="""&OuterWidth(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentOuterHeight_"&i&""" value="""&OuterHeight(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentInnerLeft_"&i&""" value="""&InnerLeft(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentInnerTop_"&i&""" value="""&InnerTop(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentInnerWidth_"&i&""" value="""&InnerWidth(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentInnerHeight_"&i&""" value="""&InnerHeight(UserCount+i)&""">"
				response.write "<input type=hidden name=""AccoutermentDirection_"&i&""" value="""&Direction(UserCount+i)&""">"
			next
			response.write "<input type=Submit value=确认 name=Submit title=""使用当前的设计作为最终的照片"" onclick='SubmitDesign()'>&nbsp; "
		else
			if not isnull(FinishDate) and not hasFinished then
				response.write "<input type=Submit value=同意 name=Submit title=""同意当前照片的设计"">&nbsp; "
			end if
		end if
		response.write "<input type=button name=goback value=返回 onclick=""location.href='z_visual.asp?shopid=497'"" title=""返回〖确认的请求〗列表"">"
		if WPD_master and usercount>1 then
			response.write "&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=forcephoto value=""1"">强制同意"
		end if
	end select	
	response.write "</td>"
	response.write "</tr>"
	response.write "</table>"
	select case ListMethod
	case 0
		response.write "</form>"
	case 2
		response.write "</form>"
	case 3
		response.write "</form>"
	end select
end sub
sub mytop10()
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select top 10 userWealth,username from [user] where userwealth>0 order by userWealth desc"
rs.open sql,conn,1,1
response.write "<table width=100% border=0 cellspacing= cellpadding=3>"
do while Not RS.Eof
response.write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9><td>"
response.write rs(1)
response.write "</td><td>"
response.write rs(0)&" 元</td></tr>"
rs.MoveNext
Loop
response.write "</table>"
rs.close
set rs=nothing
end sub
%>
<%
SiteBottom 
 If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString
%>
 </td>
  </tr>
  </tbody>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
<!--#include file="../../stat.asp" -->
