WEB源码(ASP,PHP,...)

开发平台：

VBScript

SysCoSaJo.asp：源码内容

							
<%
'打开站点设置连接
Dim rs_Main,sql_Main,CSJ_Profile,CSJ_Ceo,CSJ_Culture,CSJ_Organize,CSJ_Principle
Dim CSJ_Contact,CSJ_Bulletin,CSJ_Jobs,CSJ_Sale,CSJ_Salea
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("Profile")) '公司简介
CSJ_Ceo=ubbcode(rs_Main("Ceo")) '总裁致辞
CSJ_Culture=ubbcode(rs_Main("Culture")) '公司文化
CSJ_Organize=ubbcode(rs_Main("Organize")) '组织机构
CSJ_Principle=ubbcode(rs_Main("Principle")) '精神理念
CSJ_Contact=ubbcode(rs_Main("Contact")) '联系我们
CSJ_Bulletin=ubbcode(rs_Main("Bulletin")) '公司公告
CSJ_Sale=ubbcode(rs_Main("Sale"))
CSJ_Salea=ubbcode(rs_Main("Salea"))
CSJ_Jobs=ubbcode(rs_Main("Job"))
rs_Main.close
set rs_Main=nothing
%>

						