📄 photoshow.asp
字号:
dim ph_cate,ph_CateName
Set ph_cate=znwl.Execute("SELECT cate_Name FROM photo_Cate WHERE cate_ID="&phCateID&"")
IF ph_cate.EOF AND ph_cate.BOF Then
ph_CateName=" "
Else
ph_CateName=" 所在分类：<a href='photo.asp?cateID="&phCateID&"'><strong>"&ph_cate(0)&"</strong></a>"
End IF
ph_cate.close
Set ph_cate=Nothing%>
<div id="ph_main">
<div id="ph_main_bg">
<!-- 循环组图 -->
<%Dim Ph_Img
For Each Ph_Img In Ph_Images
If Not (Right(Ph_Img, 1) = "@") Then Ph_Img = Ph_Img & "@"
Dim ph_Itexts
ph_Itexts=split(""&Ph_Img&"","@")
Dim Ph_Image,Ph_Text
Ph_Image=ph_Itexts(0)
Ph_Text=ph_Itexts(1)
%>
<table border="0" align="center" cellspacing="0" cellpadding="0" style="margin-top:10px; margin-bottom:10px;">
<tr>
<td id="photo_show">
<!-- 加载图片防止宽度大于680 -->
<img onload='javascript:if(this.width>680)this.width=680;' src="<%=""&Ph_Image&""%>?v=<%=""&phid&""%>" border="0" alt="" />
</td>
</tr>
<tr>
<td style="text-indent: 20px;"><%=""&Ph_Text&""%></td>
</tr>
</table>
<%Next%>
<!-- 循环组图结束 -->
<table width="98%" style="margin-bottom: 10px;" border="0" align="center" cellpadding="6" cellspacing="6" bgcolor="#FFFFFF">
<tr bgcolor="#f8f8f8">
<td width="34%" align="left" valign="top">
<p>图片名称：<strong><%=""&Ph_Show("ph_Name")&""%></strong></p>
<p>浏览/评论次数：<%=""&Ph_Show("ph_Views")&""%>/<%=""&Ph_Show("ph_Comments")&""%></p>
<p>发布作者：<a href="member.asp?action=view&memName=<%=""&Server.URLEncode(Ph_Show("ph_Author"))&""%>"><%=""&Ph_Show("ph_Author")&""%></a></p>
<p>添加时间：<%=""&Ph_Show("ph_PostTime")&""%>
<%IF (memStatus="Admin" AND memName=CommAuthor) OR memStatus="SupAdmin" Then
Response.Write(" <a href=""photoedit.asp?photoID="&phid&""" title=""编辑"" target=""_blank""><img src='images/icon_edit.gif' border='0' align='absmiddle'></a>")
End IF%>
</p>
</td>
<td width="66%" valign="top">
<p>图片简介：</p>
<p style="text-indent: 20px;"><%Response.Write(UbbCode(HTMLEncode(Ph_Show("ph_Remark")),0,0,1,1,0))%></p>
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#f8f8f8"><%=""&photo_Prev&""%> <%=""&photo_Next&""%> <%=""&ph_CateName&""%></td>
</tr>
</table>
</div>
</div><br />
<div id="ph_main">
<div id="ph_main_bg">
<div id="photo_left">
<%if Ph_Show("Ph_DisVote")=false then%>
<a name="vote"></a>
<table width="100%" border="0" align="center" cellspacing="1" cellpadding="6" class="photo_bg">
<tr>
<td><span style="cursor:hand;" onclick="showIntro('open_vote');" title="点击查看详细介绍"><strong>看图打分</strong></span>(分不在高，打了就好)</td>
</tr>
<tr bgcolor="#ffffff" style="display:underline;" id="open_vote">
<td align="center">
<form name="postvote" id="postvote" method="post" action="photoshow.asp?action=postvote">
<table width="80%" border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<%dim k,tmp1,tmp2,tmp3
for k = 0 to 4
if TotalNum>0 then
tmp1 = phvote(k)/TotalNum*100
tmp2 = cint(tmp1 * 100) / 100
tmp3 = tmp2
else
tmp2 = 0
tmp3 = 1 '如果总数为0的时候,防止溢出设为1
end if
Response.Write("<td valign=bottom>"&tmp2&"%<br /><img src=""images/vote/"&k&".gif"" height="""&tmp3&""" width=""18"" border=""0"" alt="""" /> "&phvote(k)&"</td>")
next%>
</tr>
<tr align="center">
<td><input type="radio" name="voteNums" value="1" />1分</td>
<td><input type="radio" name="voteNums" value="2" />2分</td>
<td><input type="radio" name="voteNums" value="3" />3分</td>
<td><input type="radio" name="voteNums" value="4" />4分</td>
<td><input type="radio" name="voteNums" value="5" />5分</td>
</tr>
<tr>
<td colspan="5">
总打分次数: <font color=red><%=TotalNum%></font>
<%Dim V
for v = 0 to 4
Response.Write("<input name=""VoteNum"&V&""" value="""&phvote(V)&""" type=""hidden"" />")
Next%>
<input name="ph_commID" value="<%=""&PhotoID&""%>" type="hidden" />
<input name="Votesubmit" type="submit" value="打分" />
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<p></p>
<%end if%>
</div>
<!-- 评论开始 -->
<div id="photo_right">
<%if Ph_Show("Ph_DisComm")=false then%>
<%Dim CurPage,Url_Add
Url_Add="?photoID="&PhotoID&"&"
If CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=CheckStr(Request.QueryString("Page"))
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If
Dim ph_Comment
Set ph_Comment=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT * FROM photo_Comment WHERE ph_ID="&PhotoID&" ORDER BY comm_PostTime DESC"
ph_Comment.Open SQL,znwl,1,1
SQLQueryNums=SQLQueryNums+1
IF ph_Comment.EOF AND ph_Comment.BOF Then%>
<table width="100%" border="0" cellpadding="6" cellspacing="1" class="photo_bg">
<tr>
<td><strong>所有评论</strong></td>
</tr>
<tr bgcolor="#ffffff">
<td>暂无</td>
</tr>
</table>
<%Else
Dim Comm_Nums,MultiPages,PageCount
ph_Comment.PageSize=5
ph_Comment.AbsolutePage=CurPage
Comm_Nums=ph_Comment.RecordCount
MultiPages=""&MultiPage(Comm_Nums,5,CurPage,Url_Add)&""%>
<a name="comment"></a>
<table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" class="photo_bg">
<tr>
<td width="20%"><strong>所有评论</strong></td>
<td align="right"><%=""&MultiPages&""%></td>
</tr>
<%Do Until ph_Comment.EOF OR PageCount=5
Dim CommID,CommAuthor,CommContent,CommHide,commPostIP
CommID=ph_Comment("comm_ID")
CommAuthor=ph_Comment("comm_Author")
CommContent=ph_Comment("comm_Content")
CommHide=ph_Comment("comm_Hide")
commPostIP=ph_Comment("comm_PostIP")%>
<tr bgcolor="#ffffff">
<td colspan="2">
<%If CommHide= 1 OR (memStatus="SupAdmin" OR memStatus="Admin" OR memName=CommAuthor) Then
Response.Write(UbbCode(HTMLEncode(CommContent),0,0,0,1,0))
Else
Response.Write("<font color=red>这是一篇隐藏评论,只有管理员才能查看!</font>")
End If%>
<br /><br />
<p>
<strong><a href="member.asp?action=view&memName=<%=""&Server.URLEncode(CommAuthor)&""%>" target="new"><%=""&CommAuthor&""%></a></strong>
发表于 <%=""&DateToStr(ph_Comment("comm_PostTime"),"Y-m-d H:I A")&""%>
<%IF (memStatus="Admin" AND memName=CommAuthor) OR memStatus="SupAdmin" Then
Response.Write(" <a href=""photoedit.asp?action=editcomm&commID="&CommID&""" title=""编辑评论"" target=""_blank""><img src='images/icon_edit.gif' border='0' align='absmiddle'></a>")
Response.Write(" <a href=""photoshow.asp?action=delecomm&photoID="&PhotoID&"&commID="&CommID&""" title=""删除评论"" onClick=""winconfirm('你真的要删除这个评论吗？','photoshow.asp?action=delecomm&photoID="&PhotoID&"&commID="&CommID&"'); return false""><img src=""images/icon_del.gif"" border=""0"" align=""absmiddle"" alt="""" /></a>")
Response.Write(" <a href=""http://whois.pconline.com.cn/whois/?ip="&commPostIP&""" title=""点击查看IP来源"" target=""_blank""><img src=""images/ip.gif"" alt="""" border=""0"" align=""absmiddle"" /></a>")
End IF%>
</p>
</td>
</tr>
<%PageCount=PageCount+1
ph_Comment.MoveNext
Loop%>
</table>
<%End IF
ph_Comment.Close
Set ph_Comment=Nothing
End if%>
<%if Ph_Show("Ph_DisComm")=false then%>
<script language="JavaScript" src="include/ubbcode.js" type="text/javascript"></script>
<table width="100%" border="0" cellspacing="1" cellpadding="6" class="photo_bg">
<tr>
<td><strong>看图评论</strong>(不用注册也可发表评论，但要输入呢称)</td>
</tr>
<tr bgcolor="#ffffff">
<td>
<form action="photoshow.asp?action=postcomm" method="post" name="inputform" id="inputform">
<p>
呢称：
<%IF memName<>Empty Then%>
<input name="username" type="text" id="username" value="<%=""&memName&""%>" class="input_bg" size="10" readonly />
<%Else%>
<input name="username" type="text" id="username" class="input_bg" size="10" maxlength="12" onMouseOver="this.focus();" />
密码：
<input name="mem_Password" type="password" id="mem_Password" class="input_bg" size="12" />
<input name="SaveMem" type="checkbox" id="SaveMem" value="1" />注册成员?
<%End IF%>
</p>
<p><textarea name="message" style="width: 98%;" rows="6" wrap="VIRTUAL" id="Message" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyUp="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();"></textarea></p>
<div style="float: right">不支持html代码 缩放输入框: <span title="放大" style="cursor:hand" onClick="document.inputform.message.rows+=5"><img src="images/icon_ar2.gif" align="absmiddle" border="0" /></span> <span title="缩小" style="cursor:hand" onclick='if(document.inputform.message.rows>=5)document.inputform.message.rows-=5;else return false'><img src="images/icon_al2.gif" align="absmiddle" border="0" /></span></div>
<p><input name="hidden_message" type="checkbox" id="hidden_message" value="0" /> 隐藏评论</p>
<p>
<input name="ph_commID" value="<%=""&PhotoID&""%>" type="hidden" />
<input type="submit" name="replysubmit" value=" 发表 " onClick="this.disabled=true;document.inputform.submit();" />
<input name="reset" type="reset" value=" 重置 " />
</p>
</form>
</td>
</tr>
</table>
<%end if%>
</div>
</div>
</div>
<%znwl.ExeCute("UPDATE Photo SET ph_Views=ph_Views+1 WHERE ph_ID="&PhotoID&"")
Ph_Show.UPDATE
Ph_Show.Close
End If
End If
End If%>
<td>
<tr>
</table>
<!--#include file="footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -