📄 focusview.asp

📁 相对于流通企业

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'┌┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┐
'┊　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┊
'┊　　　　　　　速群企业网站管理系统（www.suqun.net） 　　　　┊
'┊　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┊
' 　版权所有　Suqun.Net
'
'　　程序制作　速群网络
'　　　　　　　Add:江西省九江市速群网络科技
'　　　　　　　Tel:13879284993
'　　　　　　　E-m:suqun@suqun.net
'　　　　　　　Q Q:190771179
'
'　　相关网址　[产品介绍]http://www.suqun.net
'　　　　　　　[支持论坛]http://bbs.suqun.net
'
'　　演示网址　http://www.suqun.net
'┊　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　┊
'└┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┘
%>
<% Option Explicit %>
<% response.charset="utf-8" %>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
dim LangPack,LangData
if request.cookies("Language")="" then
  LangPack="Simplified"
  LangData="Si"
else
  LangPack=request.cookies("Language")
  LangData=left(LangPack,2)
end if
dim rs,ADsName,Content
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 1 * from suqun_ADs where ViewFlag"&LangData&" order by id desc",conn,1,1
ADsName=rs("ADsName"&LangData)
Content=rs("Content"&LangData)
rs.close
set rs=nothing  
%> 
<HTML>
<HEAD>
<TITLE><%=ADsName%></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" href="Images/CssHtml.css">
</HEAD>
<BODY>
<%=Content%>
</BODY>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -