bs_news_add.asp

ChinaWeb标准企业网站管理系统 V3.01

<!--#include file="bsconfig.asp"-->
<!--#include file="Inc/articleCHAR.INC"-->
<!--#include file="zcm.asp"-->
<%
'=========================================================
'
' 产品名称：良精科技 公司(企业)网站管理系统（简称：myszw.com）
' 版权所有: myszw.com 
' 程序制作：myszw.com开发团队
' Copyright 2004-2005 myszw.com - All Rights Reserved. 
'
'========================================================
%>
<%
zj=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(left(replace(Request.ServerVariables("SERVER_NAME"),"www.",""),6),"0","a"),"1","b"),"2","c"),"3","d"),"4","e"),"5","f"),"6","g"),"7","h"),"8","i"),"9","j"),"a","40"),"b","41"),"c","52"),"d","53"),"e","64"),"f","65"),"g","76"),"h","77"),"i","88"),"j","89"),"k","20"),"l","21"),"m","22"),"n","23"),"o","24"),"p","25"),"q","26"),"r","27"),"s","28"),"t","29"),"u","30") ,"v","31") ,"w","32") ,"x","33") ,"y","34") ,"z","35") ,"-","36") ,".","37")
yzcv=zj*(len(zj)+len(zcn&"bossiWebMIB"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write chr(60)&chr(98)&chr(62)&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&chr(111)&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&chr(62)&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&chr(60)&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)&chr(62)&chr(60)&chr(47)&chr(98)&chr(62)
response.end
end if
%>
<%
dim strTitleName,strDataName,strUrlFile,UrlName
UrlName=trim(request("UrlName"))

if UrlName="Co" then
	strTitleName="添 加 公 司 新 闻"
	strDataName="Bs_NewsCo"
%>
<!--#include file="Include/Bs_SysNewsAdd.asp"-->
<%
elseif UrlName="Ye" then
	strTitleName="添 加 业 内 资 讯"
	strDataName="Bs_NewsYe"
%>
<!--#include file="Include/Bs_SysNewsAdd.asp"-->
<%
elseif UrlName="Pr" then
	strTitleName="添 加 产 品 动 态"
	strDataName="Bs_NewsPr"
%>
<!--#include file="Include/Bs_SysNewsAdd.asp"-->
<%
elseif UrlName="Faq" then
	strTitleName="添 加 问 题 解 答"
	strDataName="Bs_Faq"
%>
<!--#include file="Include/Bs_SysNewsAdd.asp"-->
<%
end if
%>