bs_sale.asp

来自「此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的」· ASP 代码 · 共 108 行

<!--#include file="bsconfig.asp"-->
<%
'=================================
'
'   冠龙科技 公司(企业)网站管理系统
'    Apollo  [e-mail] 
'        www.xnhost.cn
'
'  copyright(c)2006 LkStar
'
'=================================
%>
<%Sale=server.htmlencode(Trim(Request("Sale"))) %>
<%EnSale=server.htmlencode(Trim(Request("EnSale"))) %>
<%if Request.QueryString("no")="eshop" then
set rs=server.createobject("adodb.recordset")
sql="select * from main"
rs.open sql,conn,3,3
rs("Sale")=Sale
rs("EnSale")=EnSale
rs.update
rs.close
response.redirect "Bs_Sale.asp"
end if
sql="select * from main"
Set rs_home= Server.CreateObject("ADODB.Recordset")
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">
      <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <form method="POST" action="Bs_Sale.asp?no=eshop">
					  <td>
							<table width="100%" border="0" cellspacing="2" cellpadding="0">
                <tr> 
                  <td width="19%" height="300" 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="Sale" cols="58" rows="15">
<%
if rs_home("html")=false then
Sale=replace(rs_home("Sale"),"<br>",chr(13))
Sale=replace(Sale,"&nbsp;"," ")
else
Sale=rs_home("Sale")
end if
response.write Sale
%>
</textarea>
									</td>
                </tr>
                <tr> 
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
                <tr> 
                  <td width="19%" height="300" bgcolor="#C0C0C0"> <div align="center">English信息设置<BR><BR>支持UBB代码 </div></td>
                  <td width="81%" bgcolor="#E3E3E3"> <script src=Inc/Eshopcode.js></script> 
<!--#include file=Inc/Ubb.inc -->
<textarea name="EnSale" cols="58" rows="15">
<%
if rs_home("html")=false then
EnSale=replace(rs_home("EnSale"),"<br>",chr(13))
EnSale=replace(EnSale,"&nbsp;"," ")
else
EnSale=rs_home("EnSale")
end if
response.write EnSale
%>
</textarea>
									</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=25 scrolling=no src=../uploada.asp></iframe></div></td>
                </tr>
              </table>
						</td>
					</form>
        </tr>
      </table>
			<br>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>