📄 user_book.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥
💻 ASP
字号:
<!--#include file="../ACT_INC/ACT.User.asp"-->
<!--#include file="../ACT_INC/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.css" rel="stylesheet" type="text/css">
</head>
<body >
<% 
Dim  UserHS,ID
 Set UserHS = New ACT_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 = 20
	Dim arrRecordInfo, i
	Dim sql, sqlCount,Sqls,pages
	pages = "Type="&Request("Type")&"&page"
	Select Case Request.QueryString("Type")
		Case "Lock"
			Sqls = " Where ModeID = 1 And Locked = 1 and UserName='"& UserHS.UserName &"'"
		Case "UnLock"
			Sqls = " Where ModeID = 1 And Locked = 0  and UserName='"& UserHS.UserName &"'"
		Case Else
			Sqls = " Where ModeID = 1  and UserName='"& UserHS.UserName &"'"
	End Select
	sql = "SELECT [ID], [ModeID], [Content], [AddDate],[Locked],[UserIP],[ClassID],[acticleID]" & _
		" FROM [Comment_Act]" &Sqls& _
		"ORDER BY [ID] DESC"
	sqlCount = "SELECT Count([ID])" & _
			" FROM [Comment_Act]  " &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="100%" 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;'" class="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="100%" 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 target="_blank" href="<%=AcTCMS.ActCMSDM&"Comment.asp?ModeID="&arrRecordInfo(1,i)&"&ClassID="&arrRecordInfo(6,i)&"&ID="&arrRecordInfo(7,i)%>"><%=arrRecordInfo(2,i)%></a></td>
      <td  ><%= 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>
<% CloseConn %>
</body>
</html>
⌨️ 快捷键说明

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