photo_show.asp

来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 438 行 · 第 1/2 页

ASP
438
字号
                                <tr> 
                                  <td width="10%"><div align="center"><img src="imge/top1.gif" width="20" height="20"></div></td>
                                  <td width="90%" valign="bottom" class="14">网站公告</td>
                                </tr>
                              </table></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <table width="100%" border="0" align="center"  cellpadding="0" cellspacing="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> 
                  <% call ShowAnnounce(1,4) %>
                </td>
              </tr>
            </table></td>
        </tr>
      
      </table>
      <table width="760" border="0" align="center"  cellpadding="0" cellspacing="0">
        <tr> 
          <td height="10"></td>
        </tr>
      </table> </td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="779"> 
      <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="center" valign="top" ><img src="imge/atop.gif" width="760" height="20"> 
          </td>
        </tr>
      </table>
      <table width="760" border="0" align="center"  cellpadding="0" cellspacing="0">
        <tr> 
          <td height="10"></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="779"> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="center" valign="top"  class="tde"><table width="100%" height="7" border="0" align="center"  cellpadding="0" cellspacing="0">
              <tr> 
                <td height="10"></td>
              </tr>
            </table>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
              <tr> 
                <td height="45" align="center" valign="top"> <table width="100%" height="29" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td valign="bottom">
<div align="center"><strong><font size=3><%= dvhtmlencode(rs("PhotoName")) %></font></strong></div></td>
                    </tr>
                  </table>
                  <strong></strong></td>
              </tr>
              <tr class="tdbg_rightall"> 
                <td align="center"><table width="100%" border="0" cellspacing="3" cellpadding="0">
                    <tr> 
                      <td><div align="center">图片大小:<%= rs("PhotoSize") & " K" %></div></td>
                      <td><div align="center">图片作者: 
                          <%
		if rs("Editor")="" then
			response.write "佚名"
		else
			response.write dvhtmlencode(rs("Editor")) 
		end if%>
                        </div></td>
                      <td><div align="center">更新时间:<%= rs("UpdateTime") %></div></td>
                      <td><div align="center">推荐等级:<font color="#009900"><%= string(rs("Stars"),"★") %></font></div></td>
                      <td>查看次数:<%=rs("Hits")%></td>
                    </tr>
                  </table></td>
              </tr>
              <%if rs("PhotoUrl2")<>"" or rs("PhotoUrl3")<>"" or rs("PhotoUrl3")<>"" then%>
              <tr> 
                <td align="center" valign="middle" class="tdbg_leftall"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr align="center"> 
                      <td> 
                        <%
		if UrlID=1 then
			response.write "<a href='Photo_view.asp?UrlID=1&PhotoID=" & rs("PhotoID") & "'  target='down'><font color=red>图片一</font>" & "</a>"
		else
			response.write "<a href='Photo_view.asp?UrlID=1&PhotoID=" & rs("PhotoID") & "'  target='down'><font color=red>图片一</font>" & "</a>"
		end if
		  %>
                      </td>
                      <%if rs("PhotoUrl2")<>"" then %>
                      <td> 
                        <%
		if UrlID=2 then
			response.write "<a href='Photo_view.asp?UrlID=2&PhotoID=" & rs("PhotoID") & "'  target='down'><font color=red>图片二</font>" & "</a>"
		else
			response.write "<a href='Photo_view.asp?UrlID=2&PhotoID=" & rs("PhotoID") & "'  target='down'><font color=red>图片二</font>" & "</a>"
		end if
		  %>
                      </td>
                      <%
		end if
		if rs("PhotoUrl3")<>"" then %>
                      <td> 
                        <%
		if UrlID=3 then
			response.write "<a href='Photo_view.asp?UrlID=3&PhotoID=" & rs("PhotoID") & "' target='down'><font color=red>图片三</font>" & "</a>"
		else
			response.write "<a href='Photo_view.asp?UrlID=3&PhotoID=" & rs("PhotoID") & "' target='down'><font color=red>图片三</font>" & "</a>"
		end if
		  %>
                      </td>
                      <%
		end if
		if rs("PhotoUrl4")<>"" then %>
                      <td> 
                        <%
		if UrlID=4 then
			response.write "<a href='Photo_view.asp?UrlID=3&PhotoID=" & rs("PhotoID") & "' target='down'><font color=red>图片四</font>" & "</a>"
		else
			response.write "<a href='Photo_View.asp?UrlID=4&PhotoID=" & rs("PhotoID") & "'  target='down'><font color=red>图片四</font>" & "</a>"
		end if
		  %>
                      </td>
                      <%end if%>
                    </tr>
                  </table></td>
              </tr>
              <%end if%>
              <tr> 
                <td height="40" align="center" valign="middle" class="tdbg_leftall"> 
                  <input name="smallit" type="button" id="smallit" onClick="smallit();" value="- 缩  小 -" class="input2"> 
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="bigit" type="button" id="bigit" onClick="bigit();" value="+ 放  大 +"  class="input2"> 
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="fullit" type="button" id="fullit" value="+全屏显示+" onClick="fullit();"  class="input2"> 
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="realsize" type="button" id="realsize" value="+实际大小+" onClick="realsize();"  class="input2"> 
                  &nbsp;&nbsp;&nbsp;&nbsp; <input name="featsize" type="button" id="featsize" value="+合适大小+" onClick="featsize();"  class="input2"></td>
              </tr>
              <tr> 
                <td height="500" align="center" valign="middle" class="tdbg_leftall"> 
                  <%
	if FoundErr=True then
		response.write ErrMsg
	else
		response.write "<iframe id='PhotoViewer' width='97%' frameborder=0 name='down' height='500' scrolling='no' src='Photo_View.asp?UrlID=1&PhotoID=" & PhotoID &"'  class=input2></iframe>"
	end if%>
                </td>
              </tr>
              <tr> 
                <td height="30" align="center" valign="middle" class="tdbg_leftall">&nbsp;</td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="760" border="0" align="center"  cellpadding="0" cellspacing="0">
        <tr> 
          <td height="10"></td>
        </tr>
      </table>
      <TABLE align=center border=0 cellPadding=2 cellSpacing=0 width="770">
        <TBODY>
          <TR> 
            <TD class="tdbg_rightall"><strong>&nbsp;<img src="Images/TEAM.gif" width="16" height="16" align="absmiddle">&nbsp;网友评论:</strong>(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)</TD>
            <TD class="tdbg_rightall" align="right"><div align="right">【<a href="Photo_Comment.asp?PhotoID=<%=rs("PhotoID")%>" target="_blank">发表评论</a>】</div></TD>
          </TR>
        </TBODY>
      </TABLE>
      <TABLE align=center bgColor=#CCCCCC border=0 cellPadding=2 
            cellSpacing=1 style="WORD-BREAK: break-all" width="760">
        <TBODY>
          <TR> 
            <TD bgColor=#fffffe style="LINE-HEIGHT: 16px"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="8">
                <tr> 
                  <td> 
                    <%call ShowComment(5)%>
                  </td>
                </tr>
              </table></TD>
          </TR>
        </TBODY>
      </TABLE>
      <table width="760" border="0" align="center"  cellpadding="0" cellspacing="0">
        <tr> 
          <td height="10"></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="780" height="59" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="ebebeb">
  <tr> 
    <td height="25" valign="bottom" bgcolor="#FF6600"> <table width="780" height="55" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <% call Bottom() %>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<% call PopAnnouceWindow(400,300) %>

</body>
</html>
<%
rs.close
set rs=nothing
call CloseConn()
%>
<!--#include file="end.asp"-->

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?