📄 show.asp
字号:
%>
</td></tr></table></td>
</tr>
<%if GGAD72860 <> "" then%>
</table></td></table><table width="100%" border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
<tr><td width="100%"><%=GGAD72860%></td></tr></table><table width="100%" border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1"><tr><td><table width="100%" border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
<%end if%>
<tr>
<td align="right">
<%if CookieUserID <> "" then%>
<img src="images/view.gif" alt="引用回复" width="16" height="16" /> <a href="ReSrc.asp?Src_ID=<%=Rs("Src_ID")%>" title="引用回复">引用</a>
<%end if%>
<%
if CookieUserID = Rs("Src_UserID") or UserRoleID=1 then %>
<img src="images/icons/icon_edit.gif" alt="修改" width="16" height="16" /> <a href="ReSubmits.asp?Src_ID=<%=Rs("Src_ID")%>" title="编辑">编辑</a>
<script language="javascript">
function IsDel(src_id,U_id){
if(confirm("您确定要删除此文章吗？")){
location.href="SrcShow.asp?action=delSrc&src_id="+src_id+"&U_id="+U_id;
}
}
</script>
<img src="images/icons/icon_del.gif" alt="删除" width="16" height="16" /> <a href="javascript:IsDel(<%=Rs("Src_ID")%>,<%=User("UserID")%>);" title="删除">删除</a>
<%end if%></td>
</tr>
</table></td>
</tr>
</table>
<%Set User = Nothing%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right"><a href="#rever">我要评论啦>>></a> <a href="javascript:history.back();"> 回去再看看>>></a></div></td>
</tr>
<tr>
<td bgcolor="#F5F5F3"><img src="Images/comments.gif" width="16" height="16" /> <span id="re_count" class="mn"></span></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
<%
Rs.close
Sql = "SELECT Wo_SrcRevert.*, Wo_Users.UserName, Wo_Users.Address, Wo_Users.UserID,Wo_Users.UserFaceUrl, * FROM Wo_Users INNER JOIN Wo_SrcRevert ON Wo_Users.UserID = Wo_SrcRevert.Re_UserID Where Re_SrcID=" & Src_ID & " Order By Re_AddTime Desc"
Rs.open Sql,conn
Re_Count = 0
While Not Rs.eof
Re_Count = Re_Count + 1
Re_Desc = Rs("Re_Content")
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td width="40" valign="top"><img src="<% =Rs("UserFaceUrl")%>" width="40" height="40"/></td>
<td valign="top" class="postfont-hui"> <a href="Profile.asp?UserName=<%=Server.HTMLEncode(Rs("UserName"))%>"><%=Server.HTMLEncode(Rs("UserName"))%></a> 在 <%=Rs("Re_AddTIme")%> 评价道<SPAN class=green>：</SPAN><br>
<%=Re_Desc%></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="postbg1">
<td align="right"><br>
<%if CookieUserID <> "" then%>
<img src="images/view.gif" alt="引用回复" width="16" height="16" /> <a href="ReSrc.asp?Src_ID=<%=Src_ID%>&Rev_ID=<%=Rs("Re_ID")%>" title="引用回复">引用</a>
<%end if%>
<%
if CookieUserID = Rs("Re_UserID") or UserRoleID=1 then %>
<img src="images/icons/icon_edit.gif" alt="修改" width="16" height="16" />
<a href="EditRevert.asp?Src_ID=<%=Src_ID%>&Re_ID=<%=Rs("Re_ID")%>">编辑</a>
<script language="javascript">
function IsDel2(re_id,src_id,U_id){
if(confirm("您确定要删除此条评论吗？")){
location.href="SrcShow.asp?action=delRevert&src_id="+src_id+"&re_id="+re_id+"&U_id="+U_id;
}
}
</script>
<img src="images/icons/icon_del.gif" alt="删除" width="16" height="16" />
<a href="javascript:IsDel2(<%=Rs("Re_ID")%>,<%=Src_ID%>,<%=Rs("UserID")%>);">删除</a> </div>
<% end if %>
</td>
</tr>
</table>
<%
Rs.MoveNext
Wend
Response.Write("<script language='javascript'>document.all.re_count.innerHTML='"&Web_UserCName&"成员的回应 (<font color=#ff0000><strong> "&Re_Count&" </strong></font>)';</script>")
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="25" bgcolor="#F5F5F3"><img src="Images/visitor.gif" width="16" height="16" /> 哪些人投了票</td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td style="padding-left:5px;padding-right:5px;">
<%
Set Rs_SrcHit = Conn.Execute("SELECT Wo_Users.UserID,Wo_Users.UserName,Wo_Users.UserFaceUrl FROM Wo_SrcHit INNER JOIN Wo_Users ON Wo_SrcHit.Hit_UserID = Wo_Users.UserID Where Wo_SrcHit.Hit_SrcID="&Src_ID)
while Not Rs_SrcHit.eof
Response.Write("<img src='"&Rs_SrcHit("UserFaceUrl")&"' width='16' height='16'><a href='Profile.asp?UserName="&Server.HTMLEncode(Rs_SrcHit("UserName"))&"' target='_blank'>"&Server.HTMLEncode(Rs_SrcHit("UserName"))&"</a> ")
Rs_SrcHit.MoveNext
Wend
Rs_SrcHit.Close
Set Rs_SrcHit = Nothing
%>
</td>
</tr>
<tr>
<td class="postbg"> </td>
</tr>
</table></td>
</tr>
</table><br>
<%if CookieUserName <> empty then%>
<table width="99%" border="0" cellspacing="1" cellpadding="0" id=CommonListArea>
<tr id=CommonListTitle3>
<td><a name=rever>发表评论</a></td>
</tr>
<tr id=CommonListCell>
<td>
<form name="form" method="post" onSubmit="return CheckForm(this);">
<input name="Body" type="hidden">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td height="250"><script type="text/javascript" src="Editor/Post.js"></script></td>
</tr>
<%if SiteConfig("EnableAntiSpamTextGenerateForPost")=1 then%>
<tr id=CommonListCell>
<td height="30">验 证 码：
<input type="text" name="VerifyCode" MaxLength="4" size="10" onBlur="CheckVerifyCode(this.value)" onKeyUp="if (this.value.length == 4)CheckVerifyCode(this.value)"> <img src="VerifyCode.asp" title="验证码,看不清楚?请点击刷新验证码" style="cursor:pointer" onClick="this.src='VerifyCode.asp?'+Math.random()"> <span id="CheckVerifyCode" style="color:red"></span>
</td>
</tr>
<%end if%>
<tr>
<td> <INPUT type=submit value=" 提 交 " name="rev_submit2">
<input type='hidden' name='Src_ID' value='<%=Src_ID%>' />
<input type='hidden' name='action' value='AddRev' /></td>
</tr>
<tr>
<td> </td>
</tr>
</table></form>
</td>
</tr>
</table> <br>
</td><%end if%>
<td valign="top"><table width="99%" border="0" cellspacing="1" cellpadding="0" id=CommonListArea>
<tr id=CommonListTitle3>
<td> 分享这篇文章...</td>
</tr>
<tr id=CommonListCell>
<td>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td class="postbg1"><img src="Images/showdigest.gif" width="16" height="16"> <a href="javascript:copy_text('<%=WoDig.GetUrl2()%>');">复制这个链接发送给朋友></a></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td class="postbg1"><img src="Images/2.gif"> <span class="postfonthuo"><%=Src_SeeNum%>个</span><%=Web_UserCName%>读过此条>></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td class="postbg1"><a href="MyFavorites.asp?menu=FavoriteDig&DigID=<%=Src_ID%>"><img title="将该文章加入收藏夹" src="images/favorite.gif" border="0">将该文章加入收藏夹</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" border="0" cellspacing="1" cellpadding="0" id=CommonListArea>
<tr id=CommonListTitle3>
<td> 你可能对相关文章也感兴趣...</td>
</tr>
<tr id=CommonListCell>
<td>
<%
Rs.Close()
Sql = "Select Top 10 Src_ID,Src_Title From Wo_Source Where Src_IsOver=0 and Src_ChildID="&Src_Child&" order by Src_HitNum Desc"
Rs.open Sql,conn
while not Rs.eof
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td class="postbg1">·<a href="SrcShow.asp?Src_ID=<%=Rs("Src_ID")%>"><%=Server.HTMLEncode(Rs("Src_Title"))%></a></td>
</tr>
</table><%Rs.MoveNext
wend
Rs.Close
Set Rs = nothing
%>
</td>
</tr>
</table>
<table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" border="0" cellspacing="1" cellpadding="0" id=CommonListArea>
<tr id=CommonListTitle3>
<td> Tags...<a href="tags.asp">Tags(标签云集)</a></td>
</tr>
<tr id=CommonListCell>
<td><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%=WoDig.Get_TagsList(Web_WebTagsShowNum,Web_WebTagsColNum,Web_WebTagsDCount,Session("_WTypeID"),"Other") %> </td>
</tr>
</table> </td>
</tr>
</table>
<table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" border="0" cellspacing="1" cellpadding="0" id=CommonListArea>
<tr id=CommonListTitle3>
<td> </td>
</tr>
<tr id=CommonListCell>
<td height="289"><div align="center"><img src="Images/283-283.jpg" width="235" height="283"></div></td>
</tr>
</table>
</td>
</tr>
</table>
<%
HtmlBottom
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -