📄 sysuserimpeachview.asp

📁 asp源码图片ASP整站
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
'==============================================================================
'软件名称：FoosunShop System Form FoosunCMS
'当前版本：Foosun Content Manager System 3.0 系列
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-605、607,客户支持：608
'产品咨询QQ：159410,394226379,125114015,655071
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn,UserConn,sRootDir
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P040901") then Call ReturnError1()
Dim StrUserID,RsImpeach
StrUserID = Request.QueryString("ID")
If StrUserID = "" Then Response.write "<script>alert('参数错误!');history.back();</script>" : Response.End 
Set RsImpeach = server.CreateObject(G_FS_RS)
RsImpeach.Open "select * from Fs_Impeach where ID="&CLng(Request.QueryString("ID")),UserConn,1,1
%>
<HTML>
<HEAD>
<TITLE><%=GetConfig(1)%> >> 会员中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
</HEAD>
<BODY leftmargin="2" topmargin="2">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
  <tr bgcolor="#EEEEEE"> 
    <td height="26" colspan="5" valign="middle">
      <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
          <td>&nbsp; </td>
        </tr>
      </table></td>
  </tr>
</table>
<TABLE cellSpacing="0" width="100%" align=center border=0>
  <TBODY>
    <tr>
  	  <td colspan="5" height="2"></td>
    </tr>
    <TR> 
      <TD width="100%" height="159" valign="top"> 
          <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
		  <%
		  %>
          <tr bgcolor="#EFEFEF"> 
            <td width="19%" bgcolor="#EFEFEF"> <div align="right">被投诉人:</div></td>
            <td width="81%"><%=RsImpeach("ImpeachTo")%></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td bgcolor="#EFEFEF"> <div align="right">投诉人:</div></td>
            <td><%=RsImpeach("ImpeachFrom")%></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td bgcolor="#EFEFEF"> <div align="right">投诉时间:</div></td>
            <td><%=RsImpeach("ImpeachTime")%></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td bgcolor="#EFEFEF"> <div align="right">投诉内容:</div></td>
            <td><%=RsImpeach("ImpeachContent")%></td>
          </tr>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
<%
RsImpeach.close : Set RsImpeach = Nothing 
Set Conn = Nothing 
Set UserConn = Nothing 
%>
⌨️ 快捷键说明

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