?? bs_syscompany.asp
字號:
<%
'=========================================================
'
'
'產品名稱:科技 公司(企業)網站管理系統(簡稱:www.web300.cn)
'版權所有:www.web300.cn
'程序制作:QQ812256@hotmail.com
'聯系 方式:QQ :812256
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'
'========================================================
%>
<%content=server.htmlencode(Trim(Request("content"))) %>
<%EnContent=server.htmlencode(Trim(Request("EnContent"))) %>
<%if Request.QueryString("no")="eshop" then
set rs=server.createobject("adodb.recordset")
sql="select * from Bs_Company"
rs.open sql,conn,3,3
rs(strContent)=content
rs(strEnContent)=EnContent
rs.update
rs.close
response.redirect "Bs_Company.asp?UrlName="& UrlName &""
end if
sql="select * from Bs_Company"
Set rs2= Server.CreateObject("ADODB.Recordset")
rs2.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><%=strTitleName%></strong></td>
</tr>
<tr class="a4">
<td align="center">
<form method="POST" action="Bs_Company.asp?UrlName=<%=UrlName%>&no=eshop">
<table width="550" 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="content" cols="58" rows="15">
<%
if rs2("html")=false then
content=replace(rs2(strContent),"<br>",chr(13))
content=replace(content," "," ")
else
content=rs2(strContent)
end if
response.write content
%>
</textarea></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td width="19%" height="300" bgcolor="#C0C0C0"> <div align="center">English信息設置<BR><BR>支持UBB代碼</div></td>
<td width="81%" bgcolor="#E3E3E3">
<textarea name="EnContent" cols="58" rows="15">
<%
if rs2("html")=false then
EnContent=replace(rs2(strEnContent),"<br>",chr(13))
EnContent=replace(EnContent," "," ")
else
EnContent=rs2(strEnContent)
end if
response.write EnContent
%>
</textarea>
<BR> 英文欄的UBB代碼只能直接輸入.
<BR> 如:圖片連接[img]http://www.xxx.com/xxx.gif[/img],[b]文字加粗體效果[/b].
<BR> 或從中文欄中復制UBB代碼,或查看系統幫助.</td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="2"><div align="center"
><input type="submit" value=" 修 改 " name="cmdok"> <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%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -