📄 text.asp

📁 强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。开通会员注册和产品

💻 ASP

字号:

<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************
%>
<!--#include file="Inc/Mdbname.asp"-->
<!--#include file="Inc/opendb.asp"-->
<html>
<head>
<title></title>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
body,TD,th {
	font-size: 9pt;
}
-->
</style></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%=session("Content")%>
<%
Action=LCase(request.queryString("Action"))
NewId=request.queryString("Id")
Table_List1=request.queryString("Table_List1")
OldId=request.queryString("OldId")
OldContent=request.queryString("OldContent")

if NewId="" then
else
    if request("Action")="Modify" Then
	    Set Rs=Server.Createobject("Adodb.Recordset")
            Sql="Select * From " & Table_List1 & " Where " & OldId & "=" & NewId 
            Rs.open sql,conn,1,1
	        if Rs.Recordcount<>0 Then
		        Content=Rs(OldContent)
	        end if
	        response.Write Content
	    Rs.close
    end if
    if request("Action")="xBbs" Then
	    Set Rs=server.Createobject("Adodb.Recordset")
            Sql="Select * From Tx_Bbs Where BbsId=" & NewId 
            Rs.open sql,conn,1,1
	        if Rs.Recordcount<>0 Then
		        Content=Rs("BbsContent")
				CName=Rs("BbsAdd")
				xDate=year(Rs("BbsDate")) & "-" & month(Rs("BbsDate")) & "-" & day(Rs("BbsDate")) & " " & hour(Rs("BbsDate")) & ":" & minute(Rs("BbsDate"))
	        end if
	        response.Write "<TABLE WIDTH=90%  BORDER=0 ALIGN=center cellpadding=5 CELLSPACING=1 bgcolor=#999999>"&_
			               "<TR bgcolor=#f7f7f7><TD><B>以下是引用<i>" & CName & "</i>在" & xDate & "的发言：</B><br>" & Content & "</TD></TR>"&_
			               "</TABLE>"
	    Rs.close
    end if
end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -