<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%'//定义上传文件大小，单位KB
sc_dx=200%>
<script language="javascript" src="include/images.js">
</script>
<!--#include file="top.asp"-->
<!--#include file="../include/page.asp" -->
<!--#include file="fso.asp" -->
    <style type="text/css" media="screen">
	@import url("../home/css/sys/detail.php@t=20060522.css");
</style>
<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="15" colspan="2"></td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->
    </td>
    <td width="582" height="280" valign="middle"> 
<%hy "login.asp"
if my_jpeg="0" then
if conn.execute("select vip from huiyuan where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")(0)>0 then
Select case request("abc")
case "add_xc_ok"
if request("mc")<>"" then
conn.execute("Insert into photo_xc(lbid,mc,lx,pass,js,huiyuan)values("&shopnet("lbid")&",'"&shopnet("mc")&"',"&shopnet("lx")&",'"&shopnet("pass")&"','"&shopnet("js")&"','"&Request.Cookies(Rikee)("huiyuan")&"')")
end if
Response.redirect "?"
case "xiu_xc_ok"
if conn.execute("select count(id) from photo_xc where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&shopnet("id")&"")(0)>0  and request("mc")<>"" then
conn.execute("Update photo_xc set lbid="&shopnet("lbid")&",mc='"&shopnet("mc")&"',lx="&shopnet("lx")&",pass='"&shopnet("pass")&"',js='"&shopnet("js")&"',sj2='"&now()&"',zt=0 where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&shopnet("id")&"")
end if
Response.redirect "?"
case "xiu_x_ok"
if conn.execute("select count(id) from photo where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and xc_id="&shopnet("lbid")&" and id="&shopnet("id")&"")(0)>0  and request("mc")<>"" then
conn.execute("Update photo set mc='"&shopnet("mc")&"',js='"&shopnet("js")&"',sj2='"&now()&"',zt=0 where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&shopnet("id")&"")
end if
Response.redirect "?abc=xc&id="&request("lbid")&""

case "del_xc"
if conn.execute("select count(id) from photo_xc where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&shopnet("id")&"")(0)>0 then
set rs = conn.execute("select xt,dt from photo where xc_id="&shopnet("id")&"")
do while not rs.eof
if rs(0)<>"" then
wj="images/photo/"&rs(0)
del_wj_myfso wj
end if
if rs(1)<>"" then
wj="images/photo/"&rs(1)
del_wj_myfso wj
end if
rs.movenext
loop
rs.close
conn.execute("Delete * from photo where xc_id="&shopnet("id")&"")
conn.execute("Delete * from photo_xc where id="&shopnet("id")&"")
end if
Response.redirect "?"
case "del_x"
if conn.execute("select count(id) from photo where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and xc_id="&shopnet("lbid")&" and id="&shopnet("id")&"")(0)>0 then
set rs = conn.execute("select xt,dt from photo where id="&shopnet("id")&"")
if rs(0)<>"" then
wj="images/photo/"&rs(0)
del_wj_myfso wj
end if
if rs(1)<>"" then
wj="images/photo/"&rs(1)
del_wj_myfso wj
end if
rs.close
conn.execute("Delete * from photo where id="&shopnet("id")&"")
end if
Response.redirect "?abc=xc&id="&request("lbid")&""
case "fm"
set rs=conn.execute("select xt from photo where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and xc_id="&shopnet("lbid")&" and id="&shopnet("id")&" and zt<>0")
if rs.eof then
width="500"
my_bt="操 作 失 败 ！<font color=red>对不起，该相片目前尚未经过审核，只有经过审核后的相片才可进行该操作！</font>"
my_nr="<meta http-equiv=refresh content=4;url=javascript:history.go(-1)><a href=javascript:history.go(-1)>点击这里返回上页</a>"
xitongtishi()
else
conn.execute("Update photo_xc set tp='"&rs(0)&"' where id="&shopnet("lbid")&"")
Response.redirect "?abc=xc&id="&request("lbid")&""
end if
case "add_x_ok"

lxid = shopnet("tid")
if lxid = "" then
response.write "not"
response.end
end if


'生成上传图片文件夹名
bh=year(date) & right("00"&month(date),2)
wjj="images//photo/"&bh
add_myfso(wjj) 
set c=new clsUp
c.AllowExt="gif;jpg;png;bmp;jpeg;"    '限制文件格式
c.SetFileSize(sc_dx*1024)	 '最大文件大小
'id=c.GetValue("id")    
mc=c.form("mc")
js=c.form("js")
randomize
ranNum=int(900*rnd)+100 
wj=trim(year(date()))&right("0"&trim(month(date)),2)&right("0"&trim(day(date)),2)&right("0"&trim(hour(time())),2)&right("0"&trim(minute(time())),2)&right("0"&trim(second(time())),2)&ranNum
wz=wjj&"/"&wj
FSPath=server.MapPath(wz)
fn=c.AutoSave("file",FSPath&"/")	
if c.iserr then 
Response.Write c.errmessage
response.end
end if
dx=c.Filesize
my_tp=fn

'缩图、水印==============================

if testObject("Persits.Jpeg") then

lj=Server.MapPath(wjj)



Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open (lj&"\"&my_tp)
'开始变更所有文件扩展名为jpg
dt=my_tp
xt=left(my_tp,len(my_tp)-4)
xt=xt&".jpg"
'结束文件名变更

'开始判断哪边为长边，以长边进行缩放
imgWidth=Jpeg.OriginalWidth
imgHeight=Jpeg.OriginalHeight
if imgWidth>=imgHeight and imgWidth>120 then 
Jpeg.Width=120
Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/120)
end if
if imgHeight>imgWidth and imgHeight>120 then 
Jpeg.Height=120
Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/120)
end if
'结束判断
Jpeg.Sharpen 1, 120
Jpeg.Save (lj & "\xt_" & xt)
'如果设置支持ASPJPEG组件并图片大于指定设置大小就添加水印
if my_jpeg="1" and dx>yin_tp_huiyuan then
Jpeg.Open (lj&"\"&my_tp)
if yin_lx="0" then
' 添加文字水印
Jpeg.Canvas.Font.Color = &H000000  '字体颜色
Jpeg.Canvas.Font.Family = "宋体"   '文字的字体
Jpeg.Canvas.Font.Size =12   '//（文字的大小）
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 5, 5, "www."&my_url   '加入文字的位置坐标
elseif yin_lx="1" then
'打开水印图片
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath(yin_logo) '水印图片所在的路径
Logo.Open LogoPath    
' 重新定义水印图片的大小
Logo.Width =yin_logo_Width '更改水印图片的宽度
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth '按照原先的长宽比计算新的水印高度
'将水印放置于上传图片中
Jpeg.DrawImage imgWidth-Logo.Width,imgHeight-Logo.Height, Logo,yin_logo_tm
end if' 保存文件
Jpeg.Save (lj&"\"&my_tp)
set Logo=nothing
Set Jpeg = nothing
end if
dt=bh&"/"&dt
xt=bh&"/xt_"&xt

else
dt=bh&"/"&my_tp
xt=dt
imgHeight=c.imgHeight
imgWidth=c.imgWidth
end if
set c=nothing

'将上传图片记录入数据库以备审核
if Request.ServerVariables("HTTP_X_FORWARDED_FOR") = ""  then
ip=Request.ServerVariables("REMOTE_ADDR")
else
ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
conn.execute("Insert into shangchuan(tp,dx,name,lx,ip)values('tp/photo/"&dt&"',"&dx&",'"&Request.Cookies(Rikee)("huiyuan")&"',1,'"&ip&"')")
conn.execute("Insert into shangchuan(tp,dx,name,lx,ip)values('tp/photo/"&xt&"',"&dx&",'"&Request.Cookies(Rikee)("huiyuan")&"',1,'"&ip&"')")
lbid=conn.execute("select lbid from photo_xc where id="&lxid&"")(0)
conn.execute("Insert into photo(lbid,xc_id,huiyuan,mc,js,xt,dt,g,k,dx)values("&lbid&","&lxid&",'"&Request.Cookies(Rikee)("huiyuan")&"','"&mc&"','"&js&"','"&xt&"','"&dt&"',"&clng(imgHeight)&","&clng(imgWidth)&","&dx&")")
Response.redirect "?abc=xc&id="&lxid&""
'结束上传
case "add_x"
if conn.execute("select count(id) from photo_xc where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&shopnet("id")&"")(0)>0 then%>
      <form action='?abc=add_x_ok&ids=1&tid=<%=request("id")%>' method="post" name="myform" id="myform" onSubmit="javascript:return jc(this)" enctype="multipart/form-data">
<script>
var img=null;
function sc(){
//判断浏览器及版本
var ua=navigator.userAgent;
var ie=false;
if(navigator.appName=="Microsoft Internet Explorer"){
ie=true;}
if(!ie){
form.file.outerHTML=form.file.outerHTML.replace(/value=\w/g,'');
alert("建议您使用IE6。0以上的浏览器,在非IE浏览器中上传功能不能正常使用。");
return;}
var IEversion=parseFloat(ua.substring(ua.indexOf("MSIE ")+5,ua.indexOf(";",ua.indexOf("MSIE "))));
if(IEversion< 6.0){
form.file.outerHTML=form.file.outerHTML.replace(/value=\w/g,'');
alert("系统检测到您的浏览器的版本比较低,建议您使用IE6。0以上的浏览器,否则上传功能不能正常使用。\n您可以http://www.microsoft.com/china/免费获得IE的最新版本!");
return;}
//判断是否图片  inp为文本框id
myform.btn.disabled=true;
if(img)img.removeNode(true);
img=document.createElement("img"); //创建img对象
img.style.position="absolute";
img.style.visibility="hidden";
img.attachEvent("onreadystatechange",orsc);
img.attachEvent("onerror",oe);
document.body.insertAdjacentElement("beforeend",img);
img.src=myform.inp.value;}
function oe(){
 //不是图片显示错误信息
alert("对不起，只能上传图片文件！");
myform.file.outerHTML=myform.file.outerHTML.replace(/value=\w/g,'');}
function orsc(){ 
//取得图片信息
var t
if(img.readyState!="complete")return false;
t=img.fileSize
myform.img_s.value=t  //这是filesize
if (t><%=sc_dx*1024%>) {			
alert("对不起,上传图片不能超过指定大小<%=sc_dx%>kb！");
myform.file.outerHTML=myform.file.outerHTML.replace(/value=\w/g,'');
return false;}
myform.btn.disabled=false;}
function jc(aa){		 
if(aa.mc.value==''){			
alert("对不起,您必须输入相片名称!");
return false;}
if(aa.mc.value.length<1){			
alert("对不起,相片名称字数太少不明确!，请输入1字个以上的名称");
return false;}
if(aa.js.value.length>255){			
alert("对不起,相片简介内容不能超过255字!");
return false;}}
</script>
  <br>
  <br>
        <table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="30" colspan="2" valign="middle"><font color="#FF6600"><strong>上传照片(图片)限制规则：</strong></font><br>
              1、本站只允许上传用户拥有版权的照片(图片)。不是自己或朋友拍摄或绘画的照片(图片)将不允许上传和保存。限制范围包括各类明星、卡通、搞笑图片、回帖用图和其他网上收集的图片； 
              <br>
              2、禁止上传含有色情、反动等非法内容的图片，如果有发现立即删除并封IP。<br>
              3、上传的相片只支持JPG、GIF格式，200K以下<br>
            </td>
          </tr>
          <tr> 
            <td height="30" align="center" valign="middle"><font color="#FF6600">相片上传</font></td>
            <td height="30" valign="middle"><input name="file" type="file" class="wenbenkuang" size="30" id="inp" onChange="sc()"></td>
          </tr>
          <tr> 
            <td width="103" height="30" align="center" valign="middle"><font color="#FF6600">相片名称</font></td>
            <td width="347" height="30" valign="middle"> <input name="mc" type="text" class="wenbenkuang" id="mc" size="38" maxlength="25"> 
               <font color="#FF6600">* </font>2--25字以内</td>
          </tr>
          <tr> 
            <td width="103" height="90" align="center" valign="middle" nowrap><font color="#FF6600">相片简介</font><br>
              (255字以内) </td>
            <td height="90" valign="middle"> <textarea name="js" cols="45" rows="8" class="wenbenkuang" id="js"></textarea> 
            </td>
          </tr>
          <tr> 
            <td width="103" height="35" align="center" valign="middle">&nbsp;</td>
            <td height="35" valign="middle"> <input name="Submit" type="submit" class="go-wenbenkuang" value="OK,添加相片" id=btn disabled> 
              <input name="Submit" type="reset" class="go-wenbenkuang" value="重写"> 
              <input name="Submit" type="button" class="go-wenbenkuang" value="返回" onClick="javascript:window.history.go(-1)">
              <input name="id" type="hidden" id="id" value="<%=request("id")%>">
              <input name="img_s" type="hidden" id="img_s"></td>
          </tr>
        </table>
      </form>
<%else
width="500"
my_bt="操 作 失 败 ！<font color=red>对不起，参数错误！</font>"
my_nr="<meta http-equiv=refresh content=4;url=?><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=../index.asp>返回首页</a><br><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=# onclick='javascript:window.history.go(-1)'>返回上一页</a><meta http-equiv='refresh' content='8; url="&Request.Cookies(rikee)("url")&"'>"
xitongtishi()
end if
case "xiu_x"
set rs = conn.execute("select id,xc_id,mc,js from photo where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and xc_id="&shopnet("lbid")&" and id="&shopnet("id")&"")
if not rs.eof then%>
      <form action="?abc=xiu_x_ok"  method="post" name="myform" id="myform" onSubmit="javascript:return jc(this)">
<script language="javascript">
function jc(aa){		 
if(aa.mc.value==''){			
alert("对不起,您必须输入相片名称!");
return false;								
}
if(aa.mc.value.length<1){			
alert("对不起,相片名称字数太少不明确!，请输入1字个以上的名称");
return false;								
}
if(aa.js.value.length>255){			
alert("对不起,相片简介内容不能超过255字!");
return false;								
}
}
</script>
  <br>
  <br>
        <table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="30" colspan="2" valign="middle"><font color="#FF6600"><strong>上传照片(图片)限制规则：</strong></font><br>
              1、本站只允许上传用户拥有版权的照片(图片)。不是自己或朋友拍摄或绘画的照片(图片)将不允许上传和保存。限制范围包括各类明星、卡通、搞笑图片、回帖用图和其他网上收集的图片； 
              <br>
              2、禁止上传含有色情、反动等非法内容的图片，如果有发现立即删除并封IP。<br>
              3、上传的相片只支持JPG、GIF格式，200K以上<br> </td>
          </tr>
          <tr> 
            <td width="103" height="30" align="center" valign="middle"><font color="#FF6600">相片名称</font></td>
            <td width="347" height="30" valign="middle"> <input name="mc" type="text" class="wenbenkuang" id="mc" value="<%=rs("mc")%>" size="38" maxlength="25"> 
               <font color="#FF6600">* </font>2--25字以内</td>
          </tr>
          <tr> 
            <td width="103" height="90" align="center" valign="middle" nowrap><font color="#FF6600">相片简介</font><br>
              (255字以内)</td>
            <td height="90" valign="middle"> <textarea name="js" cols="45" rows="8" class="wenbenkuang" id="js"><%=rs("js")%></textarea> 
            </td>
          </tr>
          <tr> 
            <td width="103" height="35" align="center" valign="middle">&nbsp;</td>
            <td height="35" valign="middle"> <input name="Submit" type="submit" class="go-wenbenkuang" value="OK,修改相片"> 
              <input name="Submit" type="reset" class="go-wenbenkuang" value="重写"> 
              <input name="Submit" type="button" class="go-wenbenkuang" value="返回" onClick="javascript:window.history.go(-1)"> 
              <input name="lbid" type="hidden" id="lbid" value="<%=rs("xc_id")%>">
              <input name="id" type="hidden" id="id" value="<%=rs("id")%>"></td>
          </tr>
        </table>
      </form>
<%rs.close
set rs=nothing
else
width="500"
my_bt="操 作 失 败 ！<font color=red>对不起，参数错误！</font>"
my_nr="<meta http-equiv=refresh content=4;url=?><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=../index.asp>返回首页</a><br><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=# onclick='javascript:window.history.go(-1)'>返回上一页</a><meta http-equiv='refresh' content='8; url="&Request.Cookies(rikee)("url")&"'>"
xitongtishi()
end if
case "add_xc"%>
      <form action="photo.asp?abc=add_xc_ok" method="post" name="myform" id="myform" onSubmit="javascript:return jc(this)">
        <script language="javascript">
function shareOnChange(mySelect)
{
if (mySelect.selectedIndex == 1)
{
PPassword.style.display = ""
myform.pass.focus()
}
else
PPassword.style.display = "none"
}
function jc(aa){		 
if(aa.mc.value==''){			
alert("对不起,您必须输入相册名称!");
return false;								
}
if(aa.mc.value.length<2){			
alert("对不起,相册名称字数太少不明确!，请输入2字个以上的名称");
return false;								
}
if(aa.js.value==''){
alert("对不起,相册简介内容不能为空!");
return false;								
}
if(aa.js.value.length>255){			
alert("对不起,相册简介内容不能超过255字!");
return false;								
}
}
</script>
  <br>
  <br>
        <table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="100" height="30" align="center" valign="middle"><font color="#FF6600">相册名称</font></td>
            <td height="30" valign="middle"> <input name="mc" type="text" class="wenbenkuang" id="mc" size="38" maxlength="25">
              2--25字以内</td>
          </tr>
          <tr valign="middle">
            <td height="30" align="center"><font color="#FF6600">相册归类</font></td>
            <td height="30" bgcolor="#FFFFFF"><select name=lbid size=1>
<%set rs = conn.execute("select lbid,lbmc from photo_lb order by lbid") 
while not rs.eof
Response.Write("<option value="&rs(0)&">  "&rs(1)&"  </option>")
rs.movenext
wend
rs.Close
set rs=nothing%>
              </select></td>
          </tr>
          <tr valign="middle"> 
            <td width="100" height="30" align="center"><font color="#FF6600">相册共享</font></td>
            <td width="349" height="30" bgcolor="#FFFFFF"> <select name=lx class="wenbenkuang" onchange=shareOnChange(this)>
                <option selected value=0>完全共享</option>
                <option value=1>密码共享</option>
                <option value=2>不共享</option>
              </select> </td>
          </tr>
          <tr valign="middle" id=PPassword style="DISPLAY: none"> 
            <td width="100" height="30" align="center"><font color="#FF6600">设置密码</font></td>
            <td width="349" height="30" bgcolor="#FFFFFF"> <input maxlength=20 name=pass size=15 class="wenbenkuang" type="password"> 
            </td>
          </tr>
          <tr> 
            <td width="100" height="90" align="center" valign="middle"><font color="#FF6600">相册简介</font><br>
              (255字以内) </td>
            <td height="90" valign="middle"> <textarea name="js" cols="45" rows="8" class="wenbenkuang" id="js"></textarea> 
            </td>
          </tr>
          <tr> 
            <td width="100" height="35" align="center" valign="middle">&nbsp;</td>
            <td height="35" valign="middle"> <input name="Submit" type="submit" class="go-wenbenkuang" value="OK,新建相册"> 
              <input name="Submit" type="reset" class="go-wenbenkuang" value="重写"> 
              <input name="Submit" type="button" class="go-wenbenkuang" value="返回" onClick="javascript:window.history.go(-1)"> 
            </td>
          </tr>
        </table>
      </form>
<%case "xiu_xc"
set xc= conn.execute("select * from photo_xc where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and id="&shopnet("id")&"")
if not xc.eof then%>
      <form action="?abc=xiu_xc_ok" method="post" name="myform" id="myform" onSubmit="javascript:return jc(this)">
        <script language="javascript">
function shareOnChange(mySelect)
{
if (mySelect.selectedIndex == 1)
{
PPassword.style.display = ""
myform.pass.focus()
}
else
PPassword.style.display = "none"
}
function jc(aa){		 
if(aa.mc.value==''){			
alert("对不起,您必须输入相册名称!");
return false;								
}
if(aa.mc.value.length<2){			
alert("对不起,相册名称字数太少不明确!，请输入2字个以上的名称");
return false;								
}
if(aa.js.value==''){
alert("对不起,相册简介内容不能为空!");
return false;								
}
if(aa.js.value.length>255){			
alert("对不起,相册简介内容不能超过255字!");
return false;								
}
}
</script>
  <br>
  <br>
        <table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="100" height="30" align="center" valign="middle"><font color="#FF6600">相册名称</font></td>
            <td height="30" valign="middle"> <input name="mc" type="text" class="wenbenkuang" id="mc" value="<%=xc("mc")%>" size="38" maxlength="25">
              2--25字以内</td>
          </tr>
          <tr valign="middle">
            <td height="30" align="center"><font color="#FF6600">相册归类</font></td>
            <td height="30" bgcolor="#FFFFFF"><select name=lbid size=1>
<%set rs = conn.execute("select lbid,lbmc from photo_lb order by lbid") 
while not rs.eof
if rs("lbid")=xc("lbid") then myselected="selected" else myselected=""
Response.Write("<option value="&rs(0)&" "&myselected&">  "&rs(1)&"  </option>")
rs.movenext
wend
rs.Close
set rs=nothing%>
              </select></td>
          </tr>
          <tr valign="middle"> 
            <td width="100" height="30" align="center"><font color="#FF6600">相册共享</font></td>
            <td width="349" height="30" bgcolor="#FFFFFF"> <select name=lx class="wenbenkuang" onchange=shareOnChange(this)>
                <option value=0 <%If xc("lx")=0 Then Response.Write("selected")%>>完全共享</option>
                <option value=1 <%If xc("lx")=1 Then Response.Write("selected")%>>密码共享</option>
                <option value=2 <%If xc("lx")=2 Then Response.Write("selected")%>>不共享</option>
              </select> </td>
          </tr>
          <tr valign="middle" id=PPassword style="<%If xc("lx")=1 Then Response.Write("") else Response.Write("DISPLAY: none")%>"> 
            <td width="100" height="30" align="center"><font color="#FF6600">设置密码</font></td>
            <td width="349" height="30" bgcolor="#FFFFFF"> <input name=pass type="password" class="wenbenkuang" value="<%=xc("pass")%>" size=15 maxlength=20> 
            </td>
          </tr>
          <tr> 
            <td width="100" height="90" align="center" valign="middle"><font color="#FF6600">相册简介</font><br>
              (255字以内) </td>
            <td height="90" valign="middle"> <textarea name="js" cols="45" rows="8" class="wenbenkuang" id="js"><%=xc("js")%></textarea> 
            </td>
          </tr>
          <tr> 
            <td width="100" height="35" align="center" valign="middle">&nbsp;</td>
            <td height="35" valign="middle"> <input name="Submit" type="submit" class="go-wenbenkuang" value="OK,修改相册"> 
              <input name="Submit" type="reset" class="go-wenbenkuang" value="重写"> 
              <input name="Submit" type="button" class="go-wenbenkuang" value="返回" onClick="javascript:window.history.go(-1)">
              <input name="id" type="hidden" id="id" value="<%=xc("id")%>"> </td>
          </tr>
        </table>
      </form>
<%else
width="500"
my_bt="操 作 失 败 ！<font color=red>对不起，参数错误！</font>"
my_nr="<meta http-equiv=refresh content=4;url=?><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=../index.asp>返回首页</a><br><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=# onclick='javascript:window.history.go(-1)'>返回上一页</a><meta http-equiv='refresh' content='8; url="&Request.Cookies(rikee)("url")&"'>"
xitongtishi()
end if
xc.close
set xc=nothing
case "xc"
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from photo where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and xc_id="&shopnet("id")&" order by sj2 desc"
rs.open sql,conn,3,1 
if not rs.eof then%>
<script language="javascript">
function checkclick(msg){
if(confirm(msg)){
event.returnValue=true;
}else{
event.returnValue=false;
}
}
</script>
<table width="550" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
        <tr valign="middle" bgcolor="#FFFFFF" onMouseOver ="this.style.backgroundColor = '#F8FFDF'" onMouseOut ="this.style.backgroundColor = ''"> 
          <td height="25" colspan="2" align="center">[<a href="?">查看浏览相册</a>] 
            [<a href="?abc=add_xc">我要新建相册</a>] [<a href="?abc=add_x&id=<%=request("id")%>">在此相册下添加相片</a>]</td>
        </tr>
<%page1("3")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td width="150" height="150" align="center"><a href="images/photo/<%=rs("dt")%>" target="_blank"><img src="images/photo/<%=rs("xt")%>" border="0" onload="javascript:DrawImage(this,150);" ></a></td>
          <td height="25" valign="top" onMouseOver ="this.style.backgroundColor = '#F8FFDF'" onMouseOut ="this.style.backgroundColor = ''"><table width="99%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td>相片名称：<a href=?abc=xc&id=<%=rs("id")%>><%=rs("mc")%></a> [<%If rs("zt")=0 Then Response.Write("<font color=red>未审</font>") else Response.Write("已审")%>]<br>
                  相片尺寸：<%=rs("g")%>x<%=rs("k")%><br>
                  建立日期：<%=rs("sj")%><br>
                  最后编辑：<%=rs("sj2")%></td>
                <td width="70" align="center" valign="middle">[<a href="?abc=fm&lbid=<%=rs("xc_id")%>&id=<%=rs("id")%>">设为封面</a>]<br>
                  [<a href=?abc=xiu_x&lbid=<%=rs("xc_id")%>&id=<%=rs("id")%>>编辑相片</a>]<br>
                  [<a href=?abc=del_x&lbid=<%=rs("xc_id")%>&id=<%=rs("id")%> onClick="checkclick('该操作不可还原，是否执行此删除操作？')">删除相片</a>] 
                </td>
              </tr>
            </table>
            相片简介：<%=rs("js")%> </td>
        </tr>
        <%i=i+1
        rs.MoveNext                                              
        loop%>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height="25" colspan="2" align="center"><%page2("abc=xc&id="&shopnet("id")&"&")%></td>
        </tr>
      </table>
<%else
Response.Write("&nbsp;&nbsp;提示：该相册尚未上传相片<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=?abc=add_x&id="&request("id")&">点击这里上传相片到该相册</a><br>")
end if
rs.close
set rs=nothing
case else%>
<script language="javascript">
function checkclick(msg){
if(confirm(msg)){
event.returnValue=true;
}else{
event.returnValue=false;
}
}
</script>
<table width="550" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
        <tr valign="middle" bgcolor="#FFFFFF" onMouseOver ="this.style.backgroundColor = '#F8FFDF'" onMouseOut ="this.style.backgroundColor = ''"> 
          <td height="25" colspan="2" align="center">[<a href="?abc=add_xc">我要新建相册</a>]</td>
        </tr>
<%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select id,tp,mc,js,lx,sj,sj2,zt from photo_xc where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' order by sj2 desc"
rs.open sql,conn,3,1 
if not rs.eof then
page1("3")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td width="150" height="150" align="center"><a href=?abc=xc&id=<%=rs("id")%>><img src="images//photo/<%=rs("tp")%>" border="0" onload="javascript:DrawImage(this,150);"></a></td>
          <td height="25" valign="top" onMouseOver ="this.style.backgroundColor = '#F8FFDF'" onMouseOut ="this.style.backgroundColor = ''"><table width="99%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td style="word-break:break-all;">相册名称：<a href=?abc=xc&id=<%=rs("id")%>><%=rs("mc")%></a> [<%If rs("zt")=0 Then Response.Write("<font color=red>未审</font>") else Response.Write("已审")%>]<br>
                  相册共享：<%Select case rs("lx")
case "0"
Response.Write("完全共享")
case "1"
Response.Write("密码共享")
case "2"
Response.Write("不共享")
End Select%>，共 <b><%=conn.execute("select count(id) from photo where xc_id="&rs("id")&"")(0)%></b> 张相片
                  <br>
                  建立日期：<%=rs("sj")%><br>
                  最后编辑：<%=rs("sj2")%><br>
                  相册网址：<a href="http://www.<%=my_url%>/photo/photo.asp?id=<%=rs("id")%>" target="_blank">http://www.<%=my_url%>/photo/photo.asp?id=<%=rs("id")%></a> 
                </td>
                <td width="70" align="center" valign="middle">[<a href=?abc=xc&id=<%=rs("id")%>>查看相册</a>]<br>
                  [<a href=?abc=add_x&id=<%=rs("id")%>>添加相片</a>]<br>
                  [<a href=?abc=xiu_xc&id=<%=rs("id")%>>编辑相册</a>]<br>
                  [<a href=?abc=del_xc&id=<%=rs("id")%> onClick="checkclick('删除相册，相册里的所有照片都会被删除，是否执行此操作？')">删除相册</a>] </td>
              </tr>
            </table>
            相册简介：<%=rs("js")%> </td>
        </tr>
        <%i=i+1
        rs.MoveNext                                              
        loop%>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height="25" colspan="2" align="center"> <%page2("")
else
Response.Write("&nbsp;&nbsp;提示：您目前暂未申请建立自己的相册<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=?abc=add_xc>点击这里建立您的个人电子相册</a><br>")
end if
rs.close
set rs=nothing%></td>
        </tr>
      </table>
<%end select
else
width="500"
my_bt="操 作 失 败 ！<font color=red>只有VIP会员才享受该权利！</font>"
my_nr="<meta http-equiv=refresh content=5;url=javascript:history.go(-1)><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=../index.asp>返回首页</a><br><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=# onclick='javascript:window.history.go(-1)'>返回上一页</a><meta http-equiv='refresh' content='8; url="&Request.Cookies(rikee)("url")&"'>"
xitongtishi()
end if
else
width="500"
my_bt="操 作 失 败 ！<font color=red>系统未安装JPEG缩略图组件，相册模块无法启用！</font>"
my_nr="<meta http-equiv=refresh content=5;url=javascript:history.go(-1)><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=../index.asp>返回首页</a><br><img src=../../pics/2k5/sys/component/icon_arrow_r.gif><a href=# onclick='javascript:window.history.go(-1)'>返回上一页</a><meta http-equiv='refresh' content='8; url="&Request.Cookies(rikee)("url")&"'>"
xitongtishi()
end if%></td>
  </tr>
</table>
<br>
<!--#include file="bottom.asp"-->
