📄 user_comment.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file="User_conn.asp"-->
<!--#include file="../Include/cls_pageview.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>评论显示</title>
<link href="Images/css.css" rel="stylesheet" type="text/css">
</head>
<body >
<% 
  Dim  UserHS
		Set UserHS = New Art_User
		IF Cbool(UserHS.UserLoginChecked)=false then
		  Response.Write "<script>top.location.href ='login.asp' ;</script>"
		  Response.end
		End If
		
	Dim strLocalUrl
	strLocalUrl = request.ServerVariables("SCRIPT_NAME")
	Dim intPageNow
	intPageNow = request.QueryString("page")
	Dim intPageSize, strPageInfo
	intPageSize = 15
	Dim arrRecordInfo, i
	Dim sql, sqlCount,Sqls,pages
	pages = "Type="&Request("Type")&"&page"
	Select Case Request.QueryString("Type")
		Case "Lock"
			Sqls = " Where Anonymous=0 and sh = 1 and username='"& UserHS.UserName &"'"
		Case "UnLock"
			Sqls = " Where Anonymous=0 and sh = 0  and username='"& UserHS.UserName &"'"
		Case Else
			Sqls = " Where Anonymous=0 and username='"& UserHS.UserName &"'"
	End Select
	sql = "SELECT [ID], [username], [content], [addtime],[sh],[ip],[Newsid]" & _
		" FROM [NewsPL]" &Sqls& _
		"ORDER BY [ID] DESC"
	sqlCount = "SELECT Count([ID])" & _
			" FROM [NewsPL]  " &Sqls

		Dim clsRecordInfo
		Set clsRecordInfo = New Cls_PageView
			clsRecordInfo.intRecordCount = 2816
			clsRecordInfo.strSqlCount = sqlCount
			clsRecordInfo.strSql = sql
			clsRecordInfo.intPageSize = intPageSize
			clsRecordInfo.intPageNow = intPageNow
			clsRecordInfo.strPageUrl = strLocalUrl
			clsRecordInfo.strPageVar = pages

		clsRecordInfo.objConn = Conn		
		arrRecordInfo = clsRecordInfo.arrRecordInfo
		strPageInfo = clsRecordInfo.strPageInfo
		Set clsRecordInfo = nothing
	 %><form name="Article" method="post" action="?Action=">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <tr>
    <td  class="bg_tr"><strong>您现在的位置：文章中心管理 &gt;&gt; 我参与的评论<a href="#" target="_blank" style="cursor:help;'" ></a></strong></td>
  </tr>
  <tr>
    <td ><strong>评论选项：</strong><strong><a href="?">所有评论</a> ┆ <a href="?Type=Lock">已审核</a>┆ <a href="?Type=UnLock">未审核</a>┆</strong>&nbsp;</td>
    </tr>
</table>
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  
    <tr>
      <td width="45" align="center" class="bg_tr">ID</td>
      <td width="529" align="center" class="bg_tr">评论内容</td>
      <td width="223" align="center" class="bg_tr">发表时间</td>
      <td width="121" colspan="2" align="center" class="bg_tr">审核与否</td>
    </tr>
	 <%
		Dim bgColor
		If IsArray(arrRecordInfo) Then
			For i = 0 to UBound(arrRecordInfo, 2)
	%>
    <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
      <td align="center"  ><%= arrRecordInfo(0,i) %></td>
      <td  ><a href="<%=fun_html_url(arrRecordInfo(6,i))%>" target="_blank" ><%=arrRecordInfo(2,i)%></a></td>
      <td align="center"><%= arrRecordInfo(3,i) %></td>
      <td align="center"  >
	 	<% IF arrRecordInfo(4,i) = 1 Then Response.Write "<font color=red>&nbsp;&nbsp;已审核&nbsp;&nbsp;</font>" Else Response.Write "<font color=#0000FF>&nbsp;&nbsp;未审核&nbsp;&nbsp;</font>"%>	  </td>
    </tr>
	<% 
	Next
	End If
	%>

    <tr >
      <td height="25" colspan="6" align="center" ><%= strPageInfo%></td>
    </tr>
  </table>
</form>
<script language="javascript">

//CSS背景控制
function overColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg1"
		Obj.bgColor="";
	}
	
}
function outColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg";
		Obj.bgColor="";
	}
}
 

</script>

</body>
</html>
<% Set UserHS = Nothing:call CloseConn() %>
⌨️ 快捷键说明

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