news.asp

来自「word习题 word习题 word习题」· ASP 代码 · 共 37 行

<!--#include file="bsconfig.asp"-->
<%
dim sqltext,rs,contentID,CurrentPage
dim strTitleName,strDataName,strUrlFile,UrlName,strSeeUrl
UrlName=trim(request("UrlName"))

if UrlName="Co" then
	strTitleName="公 司 新 闻 管 理"
	strDataName="NewsCo"
  strSeeUrl="NewsInfo.asp?Action=Co&"
%>
<!--#include file="Include/SysNews.asp"-->
<%
elseif UrlName="Ye" then
	strTitleName="业 内 资 讯 管 理"
	strDataName="NewsYe"
  strSeeUrl="NewsInfo.asp?Action=Ye&"
%>
<!--#include file="Include/SysNews.asp"-->
<%
elseif UrlName="Pr" then
	strTitleName="产 品 动 态 管 理"
	strDataName="NewsPr"
  strSeeUrl="NewsInfo.asp?Action=Pr&"
%>
<!--#include file="Include/SysNews.asp"-->
<%
elseif UrlName="Faq" then
	strTitleName="问 题 解 答 管 理"
	strDataName="Faq"
  strSeeUrl="FaqInfo.asp?"
%>
<!--#include file="Include/SysNews.asp"-->
<%
end if
%>