<%@ LANGUAGE = VBSCRIPT %> <% OPTION EXPLICIT %> <% '************************************************************* 'PageName: index.asp 'Version: VER 1.0 'Author: AspMaker 3.0 'Create Date: 2007/03/02 10:55:01 'Description: 首页 '************************************************************* %> <% '================================================================================ ' 1. Initial Workspace '================================================================================ Call InitialWorkspace(".", PAGE_INDEX, True, False) '================================================================================ ' 2. Define All Variable '================================================================================ Dim GCSTR_TYP Dim GCSTR_SIZ Dim GCSTR_NUM Dim GCSTR_CLR_1 Dim GCSTR_CLR_2 Dim strBgClr Dim strArray Dim strTypCod Dim intLoop Dim strCurPageNum Dim PAGE_GXWH_XXFBONE Dim strSQL Dim objRecordset '================================================================================ ' 3. Get Current Data From PrePage '================================================================================ Call GetCurrentData() '================================================================================ ' 4. Export Current HTML View for Head Part '================================================================================ Call ExportHTMLHeader("欢迎访问第三届左主干暨冠状动脉分叉病变峰会") '================================================================================ ' 5. Do Processing and Redirect to Other Page '================================================================================ Call DoProcessing() '================================================================================ ' 6. Display Current Page or Redirect to Other Page '================================================================================ If Need2Redirect() = True Then Call Redirect() Else Call SetCurrentData() Call ExportHTMLBody() End If '================================================================================ ' 7. Export Current HTML View for Foot Part '================================================================================ Call ExportHTMLTail() '================================================================================ ' 8. Release Workspace '================================================================================ Call ReleaseWorkspace() %> <% '================================================================================ ' 9. Data Process Functions '================================================================================ Function GetCurrentData() 'GCSTR_CLR_1 = "#FFFFFF" 'GCSTR_CLR_2 = "#FFFFFF" End Function Function SetCurrentData() End Function Function DoProcessing() Select Case GetCommand() Case ERROR_CURRENT_RETURN: Call DoErrorReturn() Case Else: Call SetRedirectInfo("", "") End Select End Function Function DoErrorReturn() End Function %> <% '================================================================================ ' 10. HTML View Functions '================================================================================ %> <%Function ExportMeta()%> <%End Function%> <%Function ExportScriptBody()%> <%End Function%> <%Function ExportStyleBody()%> <%End Function%> <%Function ExportBodyHead()%> <%End Function%> <%Function ExportHTMLBody()%> <% 'HTML BLOCK BEGIN %>

首 页 | 专家委员 | 大会动态 | 会议议题 | 会议日程 | 会议征文 | 网上报名 | 会议服务 | 会议展览 | 往届回顾

大会动态 <% GCSTR_TYP = 5 GCSTR_SIZ = 6 GCSTR_NUM = 13 %> 主办单位 <%=GetNewsInfo(2, "NEWCON")%>

大会致辞 <%=GetNewsInfo(1, "NEWCON")%> 会议相关信息 <%=GetNewsInfo(16, "NEWCON")%> <% GCSTR_TYP = 15 %> 联系我们 电 话： 13913895477、025-52271341 传 真： 025-52208048 E-mail: ryophj@126.com 地 址： 江苏省南京市长乐路68号，         南京市心血管病医院心内科 邮 编： 210006

<% 'HTML BLOCK END %> <%End Function%> <%Function ExportTailScriptBody()%> <%End Function%>