bs_salea.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<!--#include file="bsconfig.asp"-->
<%
'=================================
'
'   冠龙科技 公司(企业)网站管理系统
'    Apollo  [e-mail] 
'        www.xnhost.cn
'
'  copyright(c)2006 LkStar
'
'=================================
%>
<%Salea=server.htmlencode(Trim(Request("Salea"))) %>
<%EnSalea=server.htmlencode(Trim(Request("EnSalea"))) %>
<%if Request.QueryString("no")="eshop" then
set rs=server.createobject("adodb.recordset")
sql="select * from main"
rs.open sql,conn,3,3
rs("Salea")=Salea
rs("EnSalea")=EnSalea
rs.update
rs.close
response.redirect "Bs_Salea.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_Salea.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="Salea" cols="58" rows="15">
<%
if rs_home("html")=false then
Salea=replace(rs_home("Salea"),"<br>",chr(13))
Salea=replace(Salea,"&nbsp;"," ")
else
Salea=rs_home("Salea")
end if
response.write Salea
%>
</textarea> </td>
							</tr>
							<tr> 
								<td>&nbsp;</td>
								<td>&nbsp;</td>
							</tr>
							<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="EnSalea" cols="58" rows="15">
<%
if rs_home("html")=false then
EnSalea=replace(rs_home("EnSalea"),"<br>",chr(13))
EnSalea=replace(EnSalea,"&nbsp;"," ")
else
EnSalea=rs_home("EnSalea")
end if
response.write EnSalea
%>
</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%>