WEB(ASP,PHP,...)

Development Platform:

VBScript

En_SysCoSaJo.asp：Code Content

							
<%
'打开站点设置连接
Dim rs_Main,sql_Main,CSJ_Profile,CSJ_Ceo,CSJ_Culture,CSJ_Organize,CSJ_Principle
Dim CSJ_Contact,CSJ_Bulletin,CSJ_Sale,CSJ_Salea,CSJ_Jobs
Set rs_Main= Server.CreateObject("ADODB.Recordset")
sql_Main="select * from Company"
rs_main.open sql_Main,conn,1,1
CSJ_Profile=ubbcode(rs_Main("EnProfile")) '公司简介
CSJ_Ceo=ubbcode(rs_Main("EnCeo")) '总裁致辞
CSJ_Culture=ubbcode(rs_Main("EnCulture")) '公司文化
CSJ_Organize=ubbcode(rs_Main("EnOrganize")) '组织机构
CSJ_Principle=ubbcode(rs_Main("EnPrinciple")) '精神理念
CSJ_Contact=ubbcode(rs_Main("EnContact")) '联系我们
CSJ_Bulletin=ubbcode(rs_Main("EnBulletin")) '公司公告
CSJ_Sale=ubbcode(rs_Main("EnSale"))
CSJ_Salea=ubbcode(rs_Main("EnSalea"))
CSJ_Jobs=ubbcode(rs_Main("EnJob"))
rs_Main.close
set rs_Main=nothing
%>

						