📄 bs_sysdata.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<script type="text/JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
</head>
<!--#include file="bsconfig.asp"-->
<!--#include file="Include/Bs_SysInfo.asp"-->
<!--#include file="zcm.asp"-->
<%
'=========================================================
'
'产品名称：公司(企业)网站管理系统（简称：www.web300.cn）
'版权所有: www.web300.cn
'程序制作：www.web300.cn开发团队
'Copyright 2003-2006 www.web300.cn - 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","51"),"b","50"),"c","40"),"d","41"),"e","53"),"f","52"),"g","65"),"h","76"),"i","27"),"j","88"),"k","89"),"l","20"),"m","21"),"n","22"),"o","23"),"p","24"),"q","25"),"r","26"),"s","77"),"t","28"),"u","29") ,"v","30") ,"w","31") ,"x","32") ,"y","33") ,"z","35") ,"-","36") ,".","37")
yzcv=zj*(len(zj)+len(zcn&"BlackOutCHK"))
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):call sysconfig()
response.end
end if
%>
<!-- #include file="Inc/Head.asp" -->
<body onmouseover="MM_displayStatusMsg('<%=rs("BsCompanyName")%>');return document.MM_returnValue">
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><strong>网 站 基 本 资 料 设 置</strong></td>
</tr>
<tr class="a4">
<td align="center">
<br>
<%
Str_SysData = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(Str_SysData,"$S01",rs("Code")),"$S02",rs("BsCompanyName")),"$S03",rs("BsEnCompanyName")),"$S04",rs("BsAddress")),"$S05",rs("BsEnAddress")),"$S06",rs("BsLinkman")),"$S07",rs("BsEnLinkman")),"$S08",rs("BsPhone")),"$S09",rs("BsFax")),"$S10",rs("BsWeb")),"$S11",rs("BsEmail")),"$S12",rs("BsWebMail")),"$S13",rs("BsZipcode")),"$S14",rs("BsSkins_Default"))
Response.Write Str_SysData
%>
<br>
</td>
</tr>
</table>
<BR>
<%htmlend%>
<script language=Javascript>
function checkchar(str)
{
str=str.toLowerCase()
if (str.search("<"+"%")>0)
{
window.alert("("+str+")中有非法字符,请检查!")
return false;
}
if (str.search("<scrip"+"t")>0)
{
window.alert("("+str+")中有非法字符,请检查!")
return false;
}
return true;
}
</script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -