📄 web_new_commentread.asp

📁 直接附加数据库！修改 Include/ Class_Main.asp 为自己信息后台admin admin 绍兴人才网程序
💻 ASP
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="Web_Session.asp" -->
<% 
Dim Rs,SQL
Dim PageNo,ThePage,Psize,PCount,RCount
Dim Action,Param,ParamName
'//检测管理员是否有权限操作该页面
If Instr(1,Session("Web_Power"),"183") <= 0 Then 
  Call CloseDB()
  Response.write "对不起!您没有访问该页面的权限..."
  Response.End()
End If

Ncid = Replace_Text(Request("Ncid"))


 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../CSS/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function SelectAllItem(item)
{
    if( typeof(item.length) == "undefined" )
    {
        item.checked = !item.checked
    }
    else
    {
        for(i=0;i<item.length;i++)
        {
            item[i].checked=!item[i].checked
        }
    }
}

function theForm_Submit(id)
{
		
		if (id=="delschool")
		{
		  if(confirm('确认彻底删除选定的记录'))
		  {
		    form.target='_self';
			form.action="Web_New_Option.asp?param=delschool&pageno=Web_New_Comment.asp?pageno=<%= PageNo %>";
			form.submit();	   
		   }

		}
		
		if (id=="shenhe")
		{
		    form.target='_self';
			form.action="Web_New_Option.asp?param=shenhe&pageno=Web_New_Comment.asp?pageno=<%= PageNo %>";
			form.submit();	   
		}
		
			
		if (id=="noshenhe")
		{
		 if(confirm('确认取消审核'))
		  {
			form.target='_self';
			form.action="Web_New_Option.asp?param=noshenhe&pageno=Web_New_Comment.asp?pageno=<%= PageNo %>";
			form.submit();
		   }	   
		}		
		
		
}

</script>

</head>

<body leftmargin="0" topmargin="0">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="5"></td>
  </tr>
  <tr> 
    <td height="25" bgcolor="fb7a03">&nbsp;<font color="#FFFFFF">::<strong>新闻评论</strong></font></td>
  </tr>
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td align="left"> <table width="50%" border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="eff0eb">
        <tr> 
          <td bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="1" cellpadding="4">
              <% 	
'查找会员的数据  
 Set Rs = Conn.Execute("Select Title,Content From [pH_New_Comment] Where Ncid="&Ncid)
 If Not Rs.Eof Then
  Title = Rs(0)
  Content = Rs(1)
%>
             
                <tr bgcolor="eff0eb"> 
                  <td width="100" height="25" align="right" bgcolor="eff0eb">评论标题：</td>
                  <td bgcolor="eff0eb"><%= Title %></td>
                </tr>
                <tr bgcolor="eff0eb"> 
                  <td width="100" height="25" align="right" bgcolor="eff0eb">评论内容：</td>
                  <td bgcolor="eff0eb"><%= Content %></td>
                </tr>
        
              <% 
 Else
 %>
              <tr bgcolor="eff0eb"> 
                <td height="25" colspan="2" bgcolor="eff0eb">没有找到该信息!</td>
              </tr>
              <% 
 End if
 Rs.Close
 Set Rs = Nothing
 %>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<%


Call CloseDB()
%>
⌨️ 快捷键说明

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