<!--#include file="head.asp" -->

<%
dim founderr,piccat1,iii,totalcs,reid
iii=0
reid=request.querystring("id")
founderr=false
if request.querystring("id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('請指定操作的對象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('參數非法');javascript:history.back();</script>"
  end if
end if
%>
	<table border="0" cellpadding="0" cellspacing="0" width="996" height="20" bgcolor="#EFEFE7">
		<tr>
			<td>
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="996" height="31" background="images/pic_daohang_Bg.gif">
					<tr>
						
              <td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>&nbsp;&nbsp;<span style="letter-spacing: 3px">首頁 &gt;&gt; <a href='pic.asp'>全部景點</a> 
                &gt;&gt; 
                <% 
    sql="select * from a125_p_news where id="&request.querystring("id")
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    pic_name= rs("pic_name")
    sql="select piccat_id,piccat_name from a125_pic where piccat_id="&rs("piccat_id")
    set rs1=conn.execute(sql)
    Response.Write " <a href=""pic.asp?piccat_id="&rs1("piccat_id")&""">"&rs1("piccat_name")&"</a>" 
    rs1.close 
   piccat1= rs("piccat_id")
%>
                &gt;&gt; 
                <% Response.Write ""&rs("pic_name")&"" %>
                </span></td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>

	<table border="0" cellpadding="0" cellspacing="0" width="996" height="5" bgcolor="#EFEFE7">
		<tr>
			<td></td>
		</tr>
	</table>


	<table border="0" cellpadding="0" cellspacing="0" width="996" height="10" bgcolor="#EFEFE7">
		<tr>
			<td>
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="996" height="48" bgcolor="#FFFFFF" style="border: 1px solid #CECFCE">
					<tr>
						<td valign="top">
<!--主要內容開始-->



                  <table width="100%" align="center" cellspacing="0" cellpadding="0">
                        <tr><td valign="top">
                        
                              <div align="center"><BR>
<% Response.Write "<img src="""&rs("pic_pic")&""" border='0' onmousewheel='return cgimg(this);' onload=""javascript:DrawImage(this);"" title=""按此在新窗口打開圖片"" onmouseover=""this.style.cursor='hand';"" onclick=""window.open(this.src);"">" %>
</div>
</td></tr></table>

<br>

            <table width='700' border='0' cellspacing='1' align='center' class='lanyubg'>
               <tr>
                     <td>
<% Response.Write "圖片說明："&rs("pic_desc")&"" %>
                </td>
                  </tr>
                          </table>                       
<hr align="right" size="1">

            <table width='900' border='0' cellspacing='1' align='center' class='lanyubg'>
               <tr>
               
                     <td height='48' Valign='TOP' style="LINE-HEIGHT: 150%;padding: 5;" align="left">
         
<%
if RS("department")<>"" then
    InfoSql="select * from HX_Department where WS_Did="&RS("department")
    Set InfoRs=Conn.Execute(InfoSql)
    DepartmentName=Infors("WS_DepartmentName")
    Infors.close
    set Infors=nothing
   else
    DepartmentName="" 
end if   
  Select case switch_author
    case "1"
    response.write "錄入：<font color=""#FF0000"">"&RS("author")&"</font>   "
    case "2"
    response.write "錄入：<font color=""#FF0000"">"&DepartmentName&"</font>   "
    case "3"
    response.write "錄入：<font color=""#FF0000"">"&DepartmentName&"&nbsp;&nbsp;"&RS("author")&"</font>   "
    Case else 
    End Select
%>
<%
    Response.Write "   瀏覽指數："&rs("pic_count")&" 上傳時間："&rs("pic_date")&""
 rs.close     
%> 
</td> <td height='48' Valign='TOP' style="LINE-HEIGHT: 150%;padding: 5;" align="right">
跳轉<select name="page" size="1" onChange="window.open(this.value);" >
<% 
    sql="select * from a125_p_news where piccat_id="&piccat1
    set rs2=server.createobject("adodb.recordset")
    rs2.open sql,conn,1,1
    do while not rs2.eof
iii=iii+1
if request("id")=cstr(rs2("id")) then 
Response.Write "<option value='picnews.asp?id="&rs2("id")&"' selected>第"&iii&"張</option> " & vbCrLf
else
Response.Write "<option value='picnews.asp?id="&rs2("id")&"' >第"&iii&"張</option> " & vbCrLf
end if

    rs2.movenext
    loop
totalcs=iii 
rs2.close   
%>
</select>
本景區共<%=totalcs%>張
        
        
          </td>
                </tr>
                       </table>
<!-- 主要內容結束 -->
						</td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
<!--#include file="Foot.asp" -->
<SCRIPT language=javascript>
document.title="<%=pic_name%>--<%=a125_title%>";
</SCRIPT>
<% 
rs.open "select * from a125_p_news where id="&reid,conn,3,2
   rs("pic_count")=rs("pic_count")+1
   rs.update
   rs.close 
%>