<!--#include file="conn.asp"-->
<!--#include file="sub.asp"-->
<%
if Request("a")="show" then
titleid=Request("titleid")
Set TempRS=Server.Createobject("ADODB.Recordset")
SQL="select id from imgbook where titleID="&titleID
TempRS.open sql,conn,1,1
tempRS.movelast
maxnum=TempRS("id")
TempRS.close:Set TempRS=nothing
 if Trim(Request("id"))=Trim(maxnum) then
  response.write "<script language=javascript>alert('播放结束\n自动返回最后一张！');window.location.reload('see.asp?id="&maxnum&"&titleID="&titleid&"')</script>"
  Response.end()
End if
End if
%>
<%
Class Netout 
dim Image 
Private Sub Class_Initialize 
	set Image=CreateObject("Adodb.Stream") 
	Image.Mode=3 
	Image.Type=1 
	Image.Open 
End Sub 

Private Sub Class_Terminate 
	set Image=nothing 
End Sub 

Private Function Bin2Str(Bin) 
	Dim I, Str 
	For I=1 to LenB(Bin) 
		clow=MidB(Bin,I,1) 
		if ASCB(clow)<128 then 
			Str = Str & Chr(ASCB(clow)) 
		else 
			I=I+1 
			if I <= LenB(Bin) then
				Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow)) 
			end if
		end if 
	Next 
	Bin2Str = Str 
End Function 

Private Function Num2Str(num,base,lens) 
	dim ImageInfos 
	ImageInfos = "" 
	while(num>=base) 
		ImageInfos = (num mod base) & ImageInfos 
		num = (num - num mod base)/base 
	wend 
	Num2Str = right(string(lens,"0") & num & ImageInfos,lens) 
End Function 

Private Function Str2Num(str,base) 
	dim ImageInfos 
	ImageInfos = 0 
	for i=1 to len(str) 
		ImageInfos = ImageInfos *base + cint(mid(str,i,1)) 
	next 
	Str2Num=ImageInfos 
End Function 

Private Function BinVal(bin) 
	dim ImageInfos 
	ImageInfos = 0 
	for i = lenb(bin) to 1 step -1 
		ImageInfos = ImageInfos *256 + ascb(midb(bin,i,1)) 
	next 
	BinVal=ImageInfos 
End Function 

Private Function BinVal2(bin) 
	dim ImageInfos 
	ImageInfos = 0 
	for i = 1 to lenb(bin) 
		ImageInfos = ImageInfos *256 + ascb(midb(bin,i,1)) 
	next 
	BinVal2=ImageInfos 
End Function 

Function GetImageSize(ImageFile) 
	if ImageFile="" then exit function
	dim ImageInfos(3) 
	Image.LoadFromFile(ImageFile) 
	bFlag=Image.read(3) 
	select case hex(binVal(bFlag)) 
	case "4E5089": 
		Image.read(15) 
		ImageInfos(0)="PNG" 
		ImageInfos(1)=BinVal2(Image.read(2)) 
		Image.read(2) 
		ImageInfos(2)=BinVal2(Image.read(2)) 
	case "464947": 
		Image.read(3) 
		ImageInfos(0)="GIF" 
		ImageInfos(1)=BinVal(Image.read(2)) 
		ImageInfos(2)=BinVal(Image.read(2)) 
	case "535746": 
		Image.read(5) 
		binData=Image.Read(1) 
		sConv=Num2Str(ascb(binData),2 ,8) 
		nBits=Str2Num(left(sConv,5),2) 
		sConv=mid(sConv,6) 
		while(len(sConv)<nBits*4) 
			binData=Image.Read(1) 
			sConv=sConv&Num2Str(ascb(binData),2 ,8) 
		wend 
		ImageInfos(0)="SWF" 
		ImageInfos(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20) 
		ImageInfos(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20) 
	case "FFD8FF": 
		do 
		do: p1=binVal(Image.Read(1)): loop while p1=255 and not Image.EOS 
		if p1>191 and p1<196 then exit do else Image.read(binval2(Image.Read(2))-2) 
		do:p1=binVal(Image.Read(1)):loop while p1<255 and not Image.EOS 
		loop while true 
		Image.Read(3) 
		ImageInfos(0)="JPG" 
		ImageInfos(2)=binval2(Image.Read(2)) 
		ImageInfos(1)=binval2(Image.Read(2)) 
	case else: 
		if left(Bin2Str(bFlag),2)="BM" then 
			Image.Read(15) 
			ImageInfos(0)="BMP" 
			ImageInfos(1)=binval(Image.Read(4)) 
			ImageInfos(2)=binval(Image.Read(4)) 
		else 
			ImageInfos(0)="" 
		end if 
	end select 
	ImageInfos(3)="width=""" & ImageInfos(1) &""" height=""" & ImageInfos(2) &"""" 
	getimagesize=ImageInfos 
End Function 
End Class 
%>
<%ID=request.QueryString("ID")%>
<%
if Request("action")="del" then
rid=Trim(Request("rid"))
conn.execute("delete from pinlun where ID in("&rid&")")
End if
%>
<%
if Request("action")="add" then
if Trim(Request("author"))="" or Trim(Request("content"))="" then
  response.write "<script language=javascript>alert('评论不完整，无法提交！');window.history.back(1)</script>"
  Response.end()
End if
if len(Request("content"))>100 then
  response.write "<script language=javascript>alert('评论过长，无法提交！');window.history.back(1)</script>"
  Response.end()
End if 
if session(id)=id then
response.write "<script>alert('请不要重复评论！谢谢！');history.back(1);</script>"
response.end
End if
Set RS=Server.Createobject("ADODB.Recordset")
SQL="Select * from pinlun"
RS.open sql,conn,1,3
RS.Addnew
RS("name")=Request("author")
RS("contents")=Request("content")
RS("times")=now()
RS("rid")=id
RS.update
RS.close:Set RS=nothing
session(id)=id
End if
%>
<HTML><HEAD><TITLE><%=RS5(1)%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
	BACKGROUND-COLOR: #333333
}
</STYLE>
<LINK href="images/css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.style1 {
	FONT-STYLE: normal
}
.style2 {
	FONT-WEIGHT: bold; COLOR: #000000
}
.style3 {
	COLOR: #000000
}
.style4 {
	FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #000000
}
</STYLE>

<META 
content=<%=keywords1%> 
name=keywords>
<META 
content=<%=keywords1%> 
name=description>
<META content="MSHTML 6.00.3790.327" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<%
set rs=conn.execute("select ImageInfo,photo,content,Num,exifinfo from imgbook where ID="&ID)
FileName="admin/"&rs(1)
ImageInfo=split(rs(0),",")
intWidth=ImageInfo(0)
intHeight=ImageInfo(1)
FileSize=ImageInfo(2)
Content=rs(2)
Num=rs(3)
exifshow=RS(4)
exifshow1=exifshow
RS.close:set RS=nothing
dim Image
set Image=New Netout
ImageSize=Image.GetImageSize(server.MapPath(FileName))
set Image=nothing

set objFile=server.CreateObject("Scripting.FileSystemObject")
set d=objFile.GetFile(server.MapPath(FileName))
theSize=d.size\1024
set d=nothing
set file=nothing

%>
<script language="javascript">
function popwin(id,titleid)
{		window.open("exif.asp?id="+id+"&titleid="+titleid,"","left=100 height=357,width=323,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=yes,location=no");
}
</script>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
  <TBODY>
  <TR>
    <TD><IMG height=110 alt="摄影 人体摄影 摄影工作室 人像摄影" 
      src="<%=RS5(3)%>" width=750 
  border=0></TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center 
background=images/004.gif border=0>
  <TBODY>
  <TR>
    <TD bgColor=#cccccc>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" 
      background=images/004.gif border=0>
        <TBODY>
        <TR>
          <TD></TD>
          <TD vAlign=bottom align=right height=22><%
	set rs=conn.execute("select ID,ClassName,classtype,url from ClassName order by RootID")
	do while not rs.eof
	Select case rs(2)
	case "1"
	  url1="photo.asp"
	case "2"
	  url1="wen.asp"
	case "3"
	  url1="contents.asp"
	
	case "4"
	  url1=rs(3)
	case "5"
	  url1="photo.asp"
	End Select
		str=str&"■ <a href="&RS5(2)&url1&"?ClassName="&rs(1)&"&ID="&rs(0)&">"
		if CurrentID=rs(0) then
			str=str&"<font color=""#000000"">"&rs(1)&"</font></a> "
		else
			str=str&"<font color=""#000000"">"&rs(1)&"</font></a> "
		end if
		rs.movenext
	loop
	rs.close:Set RS=nothing
	response.Write(str)
%>            &nbsp;&nbsp;</TD>
        </TR>
        <TR>
          <TD bgColor=#333333 colSpan=2 height=2><IMG height=2 src="" 
          width=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top bgColor=#ffffff height=21>
      <TABLE cellSpacing=0 cellPadding=0 width=702 align=center border=0>
        <TBODY>
        <TR>
          <TD width=702>
            <TABLE cellSpacing=0 cellPadding=0 border=0>
              <TBODY>
              <TR>
                <TD vAlign=bottom background=images/sep_40.gif height=25> <strong>位置：</strong>首页→ 
                  <%Set TempRS=Conn.Execute("Select titlename,classid from title where titleid="&Request("titleid"))%>
                  <%titlename1=TempRS("titlename")%>
                  <%classid1=TempRS("classid")%>
                  <%Set TempRS=Conn.Execute("Select classname from classname where id="&classid1)%>
                  <%classname1=TempRS("classname")%>
                  <%TempRS.close:Set TempRS=nothing%>
                  <a href="photo.asp?ClassName=<%=classname1%>&ID=<%=classid1%>" class="black"><%=classname1%></A>→<a href=list.asp?KeyWords=<%=titlename1%>><%=titlename1%></a> 
                  <font color="#FF0000"><img src="Img/slideshow.gif" width="20" height="20">注：</font> 
                  <%if Request("a")="show" then%>
                  已开始自动播放 
                  <%Else%>
                  单击图片自动播放
                  <%End if%>
                </TD>
              </TR>
              <TR>
                <TD background=images/sep_41.gif>
                  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="f1">
                    <tr> 
                      <td height="10"> 
                        <div align="center"></div>
                      </td>
                    </tr>
                    <tr> 
                      <td height="10" bgcolor="#F6F6F6"> 
                        <Center>
                          <%sql3="select top 1 * from imgbook where titleID="&request("titleID")&" and id<"&request("id")&" order by ID desc"
			set rs3=server.CreateObject("adodb.recordset")
			rs3.open sql3,conn,1,1
			if not rs3.eof then%>
                          <%rs3.movelast%>
                          <img src="Img/levelup.gif" width="20" height="20"> <a href="?id=<%=rs3("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">上一张</font></a> 
                          <%end if
			rs3.close
			set rs3=nothing
			sql3="select top 1 * from imgbook where titleID="&request("titleID")&" and id>"&request("id")&" order by ID asc"
			set rs3=server.CreateObject("adodb.recordset")
			rs3.open sql3,conn,1,1
			if not rs3.eof then%>
                          <%rs3.movefirst%>
                          <%NextID=rs3("id")%>
                          <img src="Img/hide.gif" width="20" height="20"> <a href="?id=<%=rs3("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">下一张</font></a> 
                          <img src="Img/back.gif" width="20" height="20"><a href="?a=show&delay=8&id=<%=Request("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300"></font></a> 
                          <%if Request("a")<>"show" then%>
                          <a href="?a=show&delay=8&id=<%=Request("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">自动播放 
                          </font></a> 
                          <%Else%>
                          <img src="Img/stop.gif" width="20" height="20"> <a href="?id=<%=Request("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">停止播放</font></a> 
                          <img src="Img/asc.gif" width="8" height="7"> 速度延迟: 
                          <%Response.write "<a href=see.asp?delay=1&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=1 then%>
                          <b>1秒</b> 
                          <%Else%>
                          1秒 
                          <%End if%>
                          <%Response.write "<a href=see.asp?delay=2&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=2 then%>
                          <b>2秒</b> 
                          <%Else%>
                          2秒 
                          <%End if%>
                          <%Response.write "<a href=see.asp?delay=3&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=3 then%>
                          <b>3秒</b> 
                          <%Else%>
                          3秒 
                          <%End if%>
                          <%Response.write "</a>"%>
                          <%Response.write "<a href=see.asp?delay=5&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=5 then%>
                          <b>5秒</b> 
                          <%Else%>
                          5秒 
                          <%End if%>
                          <%Response.write "</a>"%>
                          <%Response.write "<a href=see.asp?delay=8&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=8 then%>
                          <b>8秒</b> 
                          <%Else%>
                          8秒 
                          <%End if%>
                          <%Response.write "</a>"%>
                          <%Response.write "<a href=see.asp?delay=10&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=10 then%>
                          <b>10秒</b> 
                          <%Else%>
                          10秒 
                          <%End if%>
                          <%Response.write "</a>"%>
                          <%Response.write "<a href=see.asp?delay=12&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=12 then%>
                          <b>12秒</b> 
                          <%Else%>
                          12秒 
                          <%End if%>
                          <%Response.write "</a>"%>
                          <%Response.write "<a href=see.asp?delay=15&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                          <%if Request("delay")=15 then%>
                          <b>15秒</b> 
                          <%Else%>
                          15秒 
                          <%End if%>
                          <%Response.write "</a>"%>
                          <%End if%>
                          <%end if%>
                          <%rs3.close
			set rs3=nothing%>
                          <img src="Img/enc.gif" width="12" height="15"> <a href="javascript:window.close();" class="graybold"> 
                          </a><a href="javascript:window.close();" class="graybold"> 
                          关闭</a> 
                          <%
					  if Request("a")="show" then
	If Session("ShowStarted")="" Then Session("ShowStarted")=Now
	if Request("delay")="" then
	Session("SlideShowDelay")=8
	Else
	Session("SlideShowDelay")=Request("delay")
	End if
	If (ID=maxnum AND NOT Session("LoopShow")) OR DateDiff("s", Session("ShowStarted"), Now)>Application("MaxSlideshowTime")*50 Then
		Response.Write "<META HTTP-EQUIV=Refresh CONTENT='" & Session("SlideShowDelay") & ";URL=see.asp?a=show&delay="&Request("delay")&"&titleid="&Request("titleid")&"&ID=" & NextID & "'>"
	Else 
		URL="see.asp?a=show&delay="&Session("SlideShowDelay")&"&titleid="&Request("titleid")&"&ID=" & NextID
		%>
                          <script>
		function redirect(){
			document.location.href="<%=URL%>";
		}
		setTimeout (redirect,<%=Session("SlideShowDelay")*1000%>);
		</script>
                          <%
	End If
	End if
	%>
                          <div align="center"></div>
                        </Center>
                      </td>
                    </tr>
                    <tr> 
                      <td align="center">&nbsp; </td>
                    </tr>
                    <tr>
                      <td align="center"> 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="3%" background="images/jiao_left1.gif" height="18">&nbsp;</td>
                            <td width="94%" height="18" background="images/up.jpg">&nbsp;</td>
                            <td width="3%" height="18" background="images/jiao_right3.gif">&nbsp;</td>
                          </tr>
                          <tr> 
                            <td width="3%" background="images/left.gif">&nbsp;</td>
                            <td width="94%"> 
                              <%Response.write "<a href=look.asp?id="&Request("id")&"&titleID="&request("titleID")&" alt='原图欣赏' target='_blank'>"%>
                              <Center>                             
                              <script language="javascript" src="showpic.asp?FileName=<%=FileName%>&File=img"></script>
                              </Center>
                              <%Response.write "</a>"%>
                            </td>
                            <td width="3%" background="images/jiao_right4.gif">&nbsp;</td>
                          </tr>
                          <tr> 
                            <td width="3%" background="images/jiaoleft2.gif" height="24">&nbsp;</td>
                            <td width="94%" height="24" background="images/jiaodown.gif">&nbsp;</td>
                            <td width="3%" height="24" background="images/jiaodown1.gif">&nbsp;</td>
                          </tr>
                        </table>
                        
                      </td>
                    </tr>
                    <tr> 
                      <td align="center" height="25"> 
                        <table width="592" height="15" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="229" height="47"> <br>
                              <table width="94%" border="0" cellspacing="0" cellpadding="0" align="center">
                                <tr> 
                                  <td>图片编号：<%=Num%></td>
                                </tr>
                                <tr> 
                                  <td>此图尺寸：<%=ImageSize(1)%> ×<%=ImageSize(2)%> 
                                    ,大小：<%=theSize%> KB</td>
                                </tr>
                                <tr> 
                                  <td> 
                                    <%if intWidth<>"" then%>
                                    原图尺寸：<%=intWidth%> ×<%=intHeight%> ,大小：<%=FileSize%> 
                                    KB 
                                    <%End if%>
                                  </td>
                                </tr>
                              </table>
                              <br>
                            </td>
                            <%
							if exifshow<>"" then
							exifshow=split(exifshow,"|")
							if Ubound(exifshow)>3 then
							 if Ubound(exifshow)=8 then
							xiangji1=exifshow(0)
							xinhao1=exifshow(1)
							iso1=exifshow(4)
							kuaimen1=exifshow(5)
							guanquan1=exifshow(6)
							jiaoju1=exifshow(7)
							  else
							xiangji1=exifshow(0)
							xinhao1=exifshow(1)
							iso1=exifshow(5)
							kuaimen1=exifshow(7)
							guanquan1=exifshow(6)
							jiaoju1=exifshow(10)
							End if
							%>
                            <td width="363" height="47"> 
                              <table width="99%" border="0" cellspacing="1" cellpadding="0">
                                <tr> 
                                  <td width="12%">相机：</td>
                                  <td width="36%"><%=xiangji1%></td>
                                  <td width="11%">型号：</td>
                                  <td width="41%"><%=xinhao1%></td>
                                </tr>
                                <tr> 
                                  <td colspan="4">ISO：<%=iso1%> , 快门：<%=kuaimen1%> 
                                    , 光圈：<%=guanquan1%> , 焦距：<%=jiaoju1%></td>
                                </tr>
                              </table>
                            </td>
                            <%End if%>
                            <%End if%>
                          </tr>
                          <tr bgcolor="#F7F7F7"> 
                            <td colspan="2"> 
                              <%If exifshow1<>"" Then%>
                              <div align="center"><img src="Img/info.gif" width="20" height="20"><a href='javascript:popwin(<%=Request("id")%>,<%=Request("titleid")%>)'>点击查看此图EXIF全部信息</a> 
                                <%End if%>
                              </div>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                    <tr> 
                      <td align="center" height="25"> 
                        <%sql3="select top 1 * from imgbook where titleID="&request("titleID")&" and id<"&request("id")&" order by ID desc"
			set rs3=server.CreateObject("adodb.recordset")
			rs3.open sql3,conn,1,1
			if not rs3.eof then%>
                        <%rs3.movelast%>
                        <img src="Img/levelup.gif" width="20" height="20"> <a href="?id=<%=rs3("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">上一张</font></a> 
                        <%end if
			rs3.close
			set rs3=nothing
			sql3="select top 1 * from imgbook where titleID="&request("titleID")&" and id>"&request("id")&" order by ID asc"
			set rs3=server.CreateObject("adodb.recordset")
			rs3.open sql3,conn,1,1
			if not rs3.eof then%>
                        <%rs3.movefirst%>
                        <%NextID=rs3("id")%>
                        <img src="Img/hide.gif" width="20" height="20"> <a href="?id=<%=rs3("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">下一张</font></a> 
                        <img src="Img/back.gif" width="20" height="20"><a href="?a=show&delay=8&id=<%=Request("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300"></font></a> 
                        <%if Request("a")<>"show" then%>
                        <a href="?a=show&delay=8&id=<%=Request("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">自动播放 
                        </font></a> 
                        <%Else%>
                        <img src="Img/stop.gif" width="20" height="20"> <a href="?id=<%=Request("id")%>&titleID=<%=request("titleID")%>" class="black"><font color="#003300">停止播放</font></a> 
                        <img src="Img/asc.gif" width="8" height="7"> 速度延迟: 
                        <%Response.write "<a href=see.asp?delay=1&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=1 then%>
                        <b>1秒</b> 
                        <%Else%>
                        1秒 
                        <%End if%>
                        <%Response.write "<a href=see.asp?delay=2&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=2 then%>
                        <b>2秒</b> 
                        <%Else%>
                        2秒 
                        <%End if%>
                        <%Response.write "<a href=see.asp?delay=3&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=3 then%>
                        <b>3秒</b> 
                        <%Else%>
                        3秒 
                        <%End if%>
                        <%Response.write "</a>"%>
                        <%Response.write "<a href=see.asp?delay=5&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=5 then%>
                        <b>5秒</b> 
                        <%Else%>
                        5秒 
                        <%End if%>
                        <%Response.write "</a>"%>
                        <%Response.write "<a href=see.asp?delay=8&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=8 then%>
                        <b>8秒</b> 
                        <%Else%>
                        8秒 
                        <%End if%>
                        <%Response.write "</a>"%>
                        <%Response.write "<a href=see.asp?delay=10&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=10 then%>
                        <b>10秒</b> 
                        <%Else%>
                        10秒 
                        <%End if%>
                        <%Response.write "</a>"%>
                        <%Response.write "<a href=see.asp?delay=12&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=12 then%>
                        <b>12秒</b> 
                        <%Else%>
                        12秒 
                        <%End if%>
                        <%Response.write "</a>"%>
                        <%Response.write "<a href=see.asp?delay=15&a=show&titleid="&Request("titleid")&"&ID=" & Request("id")&">" %>
                        <%if Request("delay")=15 then%>
                        <b>15秒</b> 
                        <%Else%>
                        15秒 
                        <%End if%>
                        <%Response.write "</a>"%>
                        <%End if%>
                        <%end if%>
                        <%rs3.close
			set rs3=nothing%>
                        <img src="Img/enc.gif" width="12" height="15"> <a href="javascript:window.close();" class="graybold"> 
                        </a><a href="javascript:window.close();" class="graybold"> 
                        关闭</a> 
                        <%
					  if Request("a")="show" then
	If Session("ShowStarted")="" Then Session("ShowStarted")=Now
	if Request("delay")="" then
	Session("SlideShowDelay")=8
	Else
	Session("SlideShowDelay")=Request("delay")
	End if
	If (ID=maxnum AND NOT Session("LoopShow")) OR DateDiff("s", Session("ShowStarted"), Now)>Application("MaxSlideshowTime")*50 Then
		Response.Write "<META HTTP-EQUIV=Refresh CONTENT='" & Session("SlideShowDelay") & ";URL=see.asp?a=show&delay="&Request("delay")&"&titleid="&Request("titleid")&"&ID=" & NextID & "'>"
	Else 
		URL="see.asp?a=show&delay="&Session("SlideShowDelay")&"&titleid="&Request("titleid")&"&ID=" & NextID
		%>
                        <script>
		function redirect(){
			document.location.href="<%=URL%>";
		}
		setTimeout (redirect,<%=Session("SlideShowDelay")*1000%>);
		</script>
                        <%
	End If
	End if
	%>
                      </td>
                    </tr>
                    <tr> 
                      <td style="line-height: 20px;"><strong>图片说明：</strong><br>
                        <%=Content%></td>
                    </tr>
                    <tr> 
                      <td>&nbsp;</td>
                    </tr>
                    <tr> 
                      <td align="right">&nbsp;</td>
                    </tr>
                  </table>
                </TD></TR>
              <TR>
                <TD background="" height=0><IMG height=9 
                  src="images/sep_42.gif" width=702></TD></TR>
              <TR>
                <TD height=0>&nbsp;</TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD background=images/sep_40.gif>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD vAlign=bottom width=12>&nbsp;</TD>
                      <TD class=sep_02 vAlign=bottom 
                        height=24><STRONG>评论</STRONG></TD>
                      <TD vAlign=bottom>
                        <DIV align=right></DIV></TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD>
                  <TABLE cellSpacing=0 cellPadding=4 width="100%" align=center 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD>
                        <TABLE cellSpacing=0 cellPadding=1 width="100%" 
                        align=center border=0>
                          <TBODY>
                          <TR>
                            <TD bgColor=#f5f5f5>
							<%Set TempRS=Conn.Execute("Select * from pinlun where Rid="&Request("id"))%><%do while not TempRS.eof%>
                              <TABLE cellSpacing=1 cellPadding=0 width="100%" 
                              align=center border=0>
                                <TBODY>
                                <TR>
                                  <TD vAlign=center width="12%" bgColor=#f9f9f9 
                                height=22><STRONG><%=TempRS("name")%></STRONG><i> 
                                    <%sj1=TempRS("times")%>
                                    <%sj_5=right("0"+cstr(year(sj1)),2)+"/"+right("0"+cstr(month(sj1)),2)+"/"+right("0"+cstr(day(sj1)),2)%>
                                    <%=sj_5%></i></TD>
                                  <TD bgColor=#f9f9f9 width="88%"> 
                                    <DIV align=right></DIV></TD></TR>
                                <TR>
                                  <TD vAlign=top bgColor=#ffffff width="12%">&nbsp;</TD>
                                  <TD bgColor=#ffffff width="88%">                                    <DIV 
                                align=left><%=code(TempRS("contents"))%> <%if Session("manage")<>"" then%><a href=see.asp?action=del&id=<%=Request("id")%>&rid=<%=Temprs("id")%>&titleid=<%=Request("titleid")%>><strong><font color="#FF0000">删 </font></strong></a><%End if%></DIV></TD></TR></TBODY></TABLE><%TempRS.movenext%><%Loop%></TD></TR></TBODY></TABLE></TD></TR>
                    <TR>
                      <TD><BR>
                        <TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
                          <FORM name=comment action="see.asp?ID=<%=Request("id")%>&titleID=<%=Request("titleid")%>&action=add" method=post>
                          <TBODY>
                          <TR bgColor=#f5f5f5>
                            <TD width="12%">
                              <DIV align=right>昵　称：</DIV></TD>
                            <TD width="88%" bgColor=#f5f5f5><INPUT id=author4 
                              size=28 name=author></TD></TR>
                          <TR>
                            <TD vAlign=top>
                              <DIV align=right>内　容：</DIV></TD>
                            <TD><TEXTAREA id=textarea3 onmouseover=this.focus() onfocus=this.select() name=content rows=5 cols=52>请仅对摄影技术评论，不要污言秽语不要对模特人身攻击。

提交评论后刷新即可，不要多次提交。</TEXTAREA></TD></TR>
                          <TR>
                            <TD height=24>
                              <DIV align=right></DIV></TD>
                            <TD><INPUT id=comment4 type=submit value=提交评论 name=comment> 
<INPUT type=button value=重写评论 name=Submit2></TD></TR></FORM></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD background="" 
        height=12>&nbsp;</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><LINK 
href="images/css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.style1 {
	COLOR: #666666
}
.unnamed1 {
	FONT-SIZE: 10pt; COLOR: #333333
}
</STYLE>

<META 
content=<%=keywords1%> 
name=keywords>
<META 
content=<%=keywords1%> 
name=description>
<TABLE id=__01 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR background="image/019.gif">
    <TD background="" colSpan=11><EM><IMG height=2 src="" width=2></EM></TD></TR>
  <TR background="image/019.gif">
    <TD noWrap background=images/019.gif colSpan=11 height=66>
      <DIV align=center>
        <%CopyRight%>
      </DIV></TD></TR></TBODY></TABLE><!-- End ImageReady Slices --></BODY>
	  </HTML>
