📄 showpic.asp
字号:
<!--#include file="Gaobei_head.asp" -->
<%
dim founderr
founderr=false
if request.querystring("pic_id")="" then
founderr=true
Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
if not isInteger(request.querystring("pic_id")) then
founderr=true
Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
end if
end if
%>
<%sub navigation()%>
>> <a href='picshow.asp'>图片展示</a> >>
<%
sql="select * from pic where pic_id="&request.querystring("pic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
sql="select piccat_id,piccat_name from piccat where piccat_id="&rs("piccat_id")
set rs1=conn.execute(sql)
Response.Write " <a href=""picshow.asp?piccat_id="&rs1("piccat_id")&""">"&rs1("piccat_name")&"</a>"
rs1.close
%>
<%end sub%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="20" bgcolor="#EFEFE7">
<tr>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="768" height="20" background="images/gaobei_skin/public_dh.gif">
<tr>
<td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style="letter-spacing: 3px">图片浏览 - <% Response.Write ""&rs("pic_name")&"" %></span></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="5" bgcolor="#EFEFE7">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="10" bgcolor="#EFEFE7">
<tr>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="768" 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>
<table width='700' border='0' cellspacing='1' align='center' class='lanyubg'>
<tr>
<td height='48' Valign='TOP' style="LINE-HEIGHT: 150%;padding: 5;" align="right">
<hr align="right" size="1">
<%
Response.Write "浏览指数："&rs("pic_count")&" 上传时间："&rs("pic_date")&""
%>
</td>
</tr>
</table>
<!-- 主要内容结束 -->
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<!--
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="5" bgcolor="#EFEFE7">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="20" bgcolor="#EFEFE7">
<tr>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="768" height="20" background="images/gaobei_skin/public_dh.gif">
<tr>
<td style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style="letter-spacing: 3px">相关评论 - </span><% Response.Write ""&rs("pic_name")&"" %></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="5" bgcolor="#EFEFE7">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="768" height="15" bgcolor="#ffffff" style="border: 1px solid #CECFCE">
<tr>
<td>
<TABLE width="98%" cellSpacing=0 cellPadding=0 align=center boder="0">
<TBODY><TR><TD>
<%
Response.Write "<br><SCRIPT type=text/javascript>lanyutable(""相关评论<font class='view'>"&rs("reviewcount")&"</font>篇,当前显示最新的<font class='view'>5</font>篇"");</SCRIPT>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to 5
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""view.asp?action=pic&pic_id="&rs("pic_id")&""">查看全部评论</a> </td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
%>
<hr size="1" width="98%">
<%
Response.Write "<SCRIPT type=text/javascript>lanyutable(""发表评论"");</SCRIPT>" & vbCrLf
Response.Write "<form action=""viewsave.asp?action=pic&pic_id="&rs("pic_id")&""" method=""POST"" name=""form"" onsubmit=""return checkRemark();"">" & vbCrLf
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td align=""center""><input type=""radio"" value=""1"" name=""face"" checked>" & vbCrLf
Response.Write " <img src=""img/mood1.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""2"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood2.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""3"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood3.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""4"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood4.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""5"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood5.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""6"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood6.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""7"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood7.gif"" tppabs="""" width=""15"" height=""15""> <br>" & vbCrLf
Response.Write " <input type=""radio"" value=""8"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood8.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""9"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood9.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""10"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood10.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""11"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood11.gif"" tppabs="""" width=""15"" height=""15"">" & vbCrLf
Response.Write " <input type=""radio"" value=""12"" name=""face"">" & vbCrLf
Response.Write " <img src=""img/mood12.gif"" tppabs="""" width=""15"" height=""15""> 字数：<input type='text' value='0' id='reviewLen' size='2' style='border-width:0;background:transparent;'><font title='等于或小于255个字！'>≤255</font><br>" & vbCrLf
Response.Write "点评：<textarea name=""review"" cols=""54"" rows=""3"" onkeydown=""showLen(this)"" onkeyup=""showLen(this)""></textarea><br>" & vbCrLf
Response.Write "邮箱：<input type=""text"" name=""reviewemail"" value="""" maxlength=""25"" size=""27"" autocomplete=""off""/>" & vbCrLf
Response.Write "姓名：<input type=""text"" name=""reviewname"" value="""" maxlength=""25"" size=""20"" autocomplete=""off""/><br>" & vbCrLf
Response.Write "<input type=""submit"" name=""submit"" value=""发表"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""> <input type=""reset"" value=""重填"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""></td>" & vbCrLf
Response.Write " <td width=""350"">" & vbCrLf
Response.Write " <ul style=""list-style-type:square;margin-left:1em;line-height:180%"">" & vbCrLf
Response.Write " <li>尊重网上道德，遵守中华人民共和国的各项有关法律法规</li>" & vbCrLf
Response.Write " <li>承担一切因您的行为而直接或间接导致的民事或刑事法律责任</li>" & vbCrLf
Response.Write " <li>本站管理人员有权保留或删除其管辖留言中的任意内容</li>" & vbCrLf
Response.Write " <li>本站有权在网站内转载或引用您的评论</li>" & vbCrLf
Response.Write " <li>参与本评论即表明您已经阅读并接受上述条款</li>" & vbCrLf
Response.Write " </ul>" & vbCrLf
Response.Write " </td></tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </form>"& vbCrLf
Response.Write "</div>" & vbCrLf
Response.Write "</TD>" & vbCrLf
Response.Write "</TR></TBODY></TABLE>"
set rscount=conn.execute("select * from pic")
sql="UPDATE pic SET pic_count = pic_count + 1 where pic_id="&request.querystring("pic_id")
conn.execute (sql)
rscount.close
set rscount=nothing
%>
</td>
</tr>
</table>
</div>
-->
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="5" bgcolor="#EFEFE7">
<tr>
<td></td>
</tr>
</table>
</div>
<!--#include file="Gaobei_Foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -