bs_bulletin.asp

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

<!--#include file="bsconfig.asp"-->
<!--#include file="zcm.asp"-->
<%
'=========================================================
'
' 产品名称：良精软件科技 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' 联系 方式：QQ ：2113269
' Copyright 2004-2005 liangjing.net - 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
%>
<%content=server.htmlencode(Trim(Request("content"))) %>
<%EnBulletin=server.htmlencode(Trim(Request("EnBulletin"))) %>
<%if Request.QueryString("no")="eshop" then
set rs=server.createobject("adodb.recordset")
sql="select * from Bs_Company"
rs.open sql,conn,3,3
rs("Bulletin")=content
rs("EnBulletin")=EnBulletin
rs.update
rs.close
response.redirect "Bs_Bulletin.asp"
end if
sql="select * from Bs_Company"
Set rs_home= Server.CreateObject("ADODB.Recordset")
if yzcv<>zcv then response.end
rs_home.open sql,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<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">
			<form method="POST" action="Bs_Bulletin.asp?no=eshop">
			<table width="550" border="0" cellspacing="2" cellpadding="0">
				<tr> 
				<td width="19%" height="220" bgcolor="#C0C0C0"> <div align="center">中文信息设置<BR><BR>支持UBB代码</div></td>
				<td width="81%" bgcolor="#E3E3E3">
<script src=Inc/Eshopcode.js></script> 
<!--#include file=Inc/Ubb.inc -->
<textarea name="content" cols="58" rows="10">
<%
if rs_home("html")=false then
content=replace(rs_home("Bulletin"),"<br>",chr(13))
content=replace(content,"&nbsp;"," ")
else
content=rs_home("Bulletin")
end if
response.write content
%>
</textarea></td>
				</tr>
				<tr> 
					<td>&nbsp;</td>
					<td>&nbsp;</td>
				</tr>
				<tr> 
				<td width="19%" height="220" bgcolor="#C0C0C0"> <div align="center">English信息设置<BR><BR>支持UBB代码<BR></div></td>
				<td width="81%" bgcolor="#E3E3E3">
<textarea name="EnBulletin" cols="58" rows="10">
<%
if rs_home("html")=false then
EnBulletin=replace(rs_home("EnBulletin"),"<br>",chr(13))
EnBulletin=replace(EnBulletin,"&nbsp;"," ")
else
EnBulletin=rs_home("EnBulletin")
end if
response.write EnBulletin
%>
</textarea>
<BR>&nbsp;英文栏的UBB代码只能直接输入.
<BR>&nbsp;如:图片连接[img]http://www.xxx.com/xxx.gif[/img],[b]文字加粗体效果[/b].
<BR>&nbsp;或从中文栏中复制UBB代码,或查看系统帮助.</td>
				</tr>
				<tr> 
					<td>&nbsp;</td>
					<td>&nbsp;</td>
				</tr>
				<tr> 
					<td colspan="2"><div align="center"
><input type="submit" value=" 修 改 "	 name="cmdok">&nbsp;<input type="reset" value=" 重 写 " name="cmdcancel"></div></td>
				</tr>
				<tr>
					<td colspan="2">图片上传</td>
				</tr>
				<tr>
					<td colspan="2"><div align="center"
><iframe name="ad" frameborder=0 width=100% height=48 scrolling=no src='../WebEdit/Upload_File.asp'></iframe></div></td>
				</tr>
			</table>
			</form>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>