<%@ LANGUAGE = VBSCRIPT %>
<% OPTION EXPLICIT %>

<%
'*************************************************************
'PageName:      zjjsxx.asp
'Version:		VER 1.0
'Author:        AspMaker 3.0
'Create Date:   2007/02/26 09:31:37
'Description:   专家详细
'*************************************************************
%>

<!-- #INCLUDE file="../common/Comm.inc"-->
<!-- #INCLUDE file="../common/Error.inc"-->

<!-- #INCLUDE file="../common/Common.inc"-->
<!-- #INCLUDE file="../common/Check.inc"-->

<%
'================================================================================
' 1. Initial Workspace
'================================================================================

		Const GCSTR_MENU_NAME = "网上报名"

    Call InitialWorkspace("..", PAGE_WSBM_WSBM, True, False)

'================================================================================
' 2. Define All Variable
'================================================================================

	Dim strSgnCod
	Dim strSgnNam
	Dim strSgnSex
	Dim strBthDat
	Dim strSchAge
	Dim strHedShp
	Dim strUniNam
	Dim strOffNam
	Dim strPosCde
	Dim strLnkTel
	Dim strComSet
	Dim strLnkFax
	Dim strEmlAdd
	Dim strArvDat
	Dim strLevDat
	Dim strResFlg
	Dim strRemArk
	Dim strSgnFlg
	
	Dim strSigFlg

'================================================================================
' 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()

	strSgnNam = Trim(GetFieldValue("idSgnNam"))
	strSgnSex = Trim(GetFieldValue("idSgnSex"))
	strBthDat = Trim(GetFieldValue("idBthDat"))
	strSchAge = Trim(GetFieldValue("idSchAge"))
	strHedShp = Trim(GetFieldValue("idHedShp"))
	strUniNam = Trim(GetFieldValue("idUniNam"))
	strOffNam = Trim(GetFieldValue("idOffNam"))
	strPosCde = Trim(GetFieldValue("idPosCde"))
	strLnkTel = Trim(GetFieldValue("idLnkTel"))
	strComSet = Trim(GetFieldValue("idComSet"))
	strLnkFax = Trim(GetFieldValue("idLnkFax"))
	strEmlAdd = Trim(GetFieldValue("idEmlAdd"))
	strArvDat = Trim(GetFieldValue("idArvDat"))
	strLevDat = Trim(GetFieldValue("idLevDat"))
	strResFlg = Trim(GetFieldValue("idResFlg"))
	strRemArk = Trim(GetFieldValue("idRemArk"))

	Dim staDat
	Dim endDat
	
	staDat = GetSetInfo("STADAT")
	endDat = GetSetInfo("ENDDAT")
	
	If doCheckValue(staDat) and doCheckValue(endDat) Then
	
		If staDat <= GetCurrentDate() and endDat >= GetCurrentDate() Then

			strSigFlg = True

		End If
	
	End If

End Function

Function SetCurrentData()

End Function

Function DoProcessing()

	Select Case GetCommand()
		Case WSBM_WSBM_WSBM_WSBM_OK:
			Call DoOkProcessing()
		Case ERROR_CURRENT_RETURN:
			Call DoErrorReturn()
		Case Else:
			Call SetRedirectInfo("", "")
	End Select

End Function

Function DoOkProcessing()

	' 1. Check从画面获取的数据
	Call AddCheckElement("姓名", 						strSgnNam, True, True, 1, 32, False, CHECK_TYPE_NONE)
	Call AddCheckElement("性别", 						strSgnSex, True, True, 1, 32, False, CHECK_TYPE_NONE)
	Call AddCheckElement("出生年月", 				strBthDat, True, False, -1, -1, False, CHECK_TYPE_NONE)
	Call AddCheckElement("学历", 						strSchAge, True, True, 1, 64, False, CHECK_TYPE_NONE)
	Call AddCheckElement("职称/职务", 			strHedShp, True, True, 1, 64, False, CHECK_TYPE_NONE)
	Call AddCheckElement("单位地址及全称", 	strUniNam, True, True, 1, 128, False, CHECK_TYPE_NONE)
	Call AddCheckElement("科室/病区", 			strOffNam, True, True, 1, 128, False, CHECK_TYPE_NONE)
	Call AddCheckElement("邮编", 						strPosCde, True, True, 1, 6, False, CHECK_TYPE_NONE)
	Call AddCheckElement("电话", 						strLnkTel, True, True, 1, 64, False, CHECK_TYPE_NONE)
	Call AddCheckElement("手机", 						strComSet, True, True, 1, 64, False, CHECK_TYPE_NONE)
	Call AddCheckElement("传真", 						strLnkFax, False, True, 1, 64, False, CHECK_TYPE_NONE)
	Call AddCheckElement("电子邮件", 				strEmlAdd, True, True, 1, 64, False, CHECK_TYPE_NONE)
	Call AddCheckElement("到达日期", 				strArvDat, True, False, -1, -1, False, CHECK_TYPE_NONE)
	Call AddCheckElement("离开日期", 				strLevDat, True, False, -1, -1, False, CHECK_TYPE_NONE)
	Call AddCheckElement("是否住宿", 				strResFlg, True, False, -1, -1, False, CHECK_TYPE_NONE)
	Call AddCheckElement("备注/留言", 			strRemArk, False, True, 1, 255, False, CHECK_TYPE_NONE)

	If DoCheck() = False Then

		Call SetErrorMsgs(GetCheckErrMsg())
		Call SetRedirectInfo(PAGE_ERROR_ERROR, "")

		Exit Function

	End If

	' 2. 保存数据到数据库
	Dim strSQL

	' 插入数据
	strSQL = "INSERT INTO SGNINF(SGNNAM, SGNSEX, BTHDAT, SCHAGE, HEDSHP, UNINAM, OFFNAM, POSCDE, LNKTEL, COMSET, LNKFAX, EMLADD, ARVDAT, LEVDAT, RESFLG, REMARK) VALUES(" & _
			 "'" & FilterSQL(strSgnNam)		& "', " & _
			 "'" & FilterSQL(strSgnSex)		& "', " & _
			 "'" & FilterSQL(strBthDat)		& "', " & _
			 "'" & FilterSQL(strSchAge)		& "', " & _
			 "'" & FilterSQL(strHedShp)		& "', " & _
			 "'" & FilterSQL(strUniNam)		& "', " & _
			 "'" & FilterSQL(strOffNam)		& "', " & _
			 "'" & FilterSQL(strPosCde)		& "', " & _
			 "'" & FilterSQL(strLnkTel)		& "', " & _
			 "'" & FilterSQL(strComSet)		& "', " & _
			 "'" & FilterSQL(strLnkFax)		& "', " & _
			 "'" & FilterSQL(strEmlAdd)		& "', " & _
			 "'" & FilterSQL(strArvDat)		& "', " & _
			 "'" & FilterSQL(strLevDat)		& "', " & _
			 "'" & FilterSQL(strResFlg)		& "', " & _
			 "'" & FilterSQL(strRemArk)		& "') "

	If ExecuteUpdateSQL(strSQL) = False Then

		Call SetErrorMsg(ERR_MSG_COM_001)
		Call SetRedirectInfo(PAGE_ERROR_ERROR, "")

		Exit Function

	End If

	Call SetRedirectInfo("wsbm/wsbmts.asp", "")

End Function

Function DoErrorReturn()


End Function
%>

<%
'================================================================================
' 10. HTML View Functions
'================================================================================
%>

<%Function ExportMeta()%>
<%End Function%>

<%Function ExportScriptBody()%>
<SCRIPT LANGUAGE="JavaScript" SRC="<%=GetMapPath()%>/resource/js/calendar.js"></SCRIPT>
<SCRIPT LANGUAGE = "JAVASCRIPT">
<!--
var submitEnable = false;

function IsSubmitEnable()
{
	return submitEnable;
}

function ResetSumitStatus()
{
	submitEnable = false;
}

function doOk_WSBM_WSBM()
{
    if(IsSubmitEnable() == true)
    {
        document.idForm.target = "_self";
        document.idForm.action = "<%=MapPagePath(PAGE_WSBM_WSBM)%>";
        document.idForm.idCommand.value = "<%=WSBM_WSBM_WSBM_WSBM_OK%>";
        document.idForm.submit();
        ResetSumitStatus();
    }
}
//-->
</SCRIPT>
<%End Function%>

<%Function ExportStyleBody()%>
<STYLE TYPE="text/css">
<!--
.style1 {font-size: 12px}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	color: #000000;
	text-decoration: none;
}
a:hover {
	color: #FF6600;
	text-decoration: underline;
}
a:active {
	color: #000000;
	text-decoration: none;
}
//-->
</STYLE>
<%End Function%>

<%Function ExportBodyHead()%>
<BODY bgcolor="#FFFFFF">
<%End Function%>

<%Function ExportHTMLBody()%>
<% 'HTML BLOCK BEGIN %>
<!-- #include file="../include/head.asp" -->
        <table width="90%" border="0" cellspacing="1" cellpadding="4">
          <!--tr>
            <td width="74%" align="center" bordercolor="#FFFFFF" bgcolor="#A4E2F2" class="style2"><a href="wsbm.asp">网上报名</a></td>
          </tr-->
        </table>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br>
        <br></td>
    <td width="758" align="center" valign="top" bgcolor="#FFFFFF">
      <br>
<% If strSigFlg Then %>
      <table width="80%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC" class="style2">
        <TR bgcolor="#FFFFFF">
          <TD width="20%" align="left" bgcolor="#FFFFFF">姓 名</TD>
          <TD width="30%" align="left"><INPUT type="text" name="idSgnNam" value="<%=Convert2Html(strSgnNam)%>">←</TD>
          <td width="16%">&nbsp;</td>
          <td width="34%">&nbsp;</td>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">性 别</TD>
          <TD align="left" bgcolor="#FFFFFF">
            <INPUT type="radio" name="idSgnSex"  value="男" <%=GetStrVal(strSgnSex, "男", "checked", "")%>>男
            <INPUT type="radio" name="idSgnSex" value="女" <%=GetStrVal(strSgnSex, "女", "checked", "")%>>女</TD>
          <TD align="left" width="16%" bgcolor="#FFFFFF">出生年月</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idBthDat" value="<%=strBthDat%>" size="16" readonly>
          	<img align="center" src="../resource/images/calendar.gif" onClick="fPopCalendar(idBthDat, idBthDat); return false;" width="26" height="18" alt="请选择日期">←</TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">学 历</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idSchAge" value="<%=Convert2Html(strSchAge)%>">←</TD>
          <TD width="16%" align="left" bgcolor="#FFFFFF">职称/职务</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idHedShp" value="<%=Convert2Html(strHedShp)%>">←</TD>
        </TR>
        <TR>
          <TD align="left" nowrap bgcolor="#FFFFFF">工作单位及通讯地址</TD>
          <TD align="left" colSpan="3" bgcolor="#FFFFFF"><INPUT type="text" name="idUniNam" value="<%=Convert2Html(strUniNam)%>">←</TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">科室/病区</TD>
          <TD align="left" colSpan="3" bgcolor="#FFFFFF"><INPUT type="text" name="idOffNam" value="<%=Convert2Html(strOffNam)%>">←</TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">邮 编</TD>
          <TD align="left" colSpan="3" bgcolor="#FFFFFF"><INPUT type="text" name="idPosCde" value="<%=Convert2Html(strPosCde)%>">←</TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">电 话</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idLnkTel" value="<%=Convert2Html(strLnkTel)%>">←</TD>
          <TD align="left" bgcolor="#FFFFFF">手 机</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idComSet" value="<%=Convert2Html(strComSet)%>">←</TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">传 真</TD>
          <TD align="left" bgcolor="#FFFFFF"><INPUT type="text" name="idLnkFax" value="<%=Convert2Html(strLnkFax)%>"></TD>
          <TD align="left" bgcolor="#FFFFFF">电子邮件</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idEmlAdd" value="<%=Convert2Html(strEmlAdd)%>">←</TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">到达日期</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idArvDat" value="<%=strArvDat%>" size="16" readonly>
          	<img align="center" src="../resource/images/calendar.gif" onClick="fPopCalendar(idArvDat, idArvDat); return false;" width="26" height="18" alt="请选择日期">←</TD>
          <TD align="left" bgcolor="#FFFFFF">离开日期</TD>
          <TD align="left" nowrap bgcolor="#FFFFFF"><INPUT type="text" name="idLevDat" value="<%=strLevDat%>" size="16" readonly>
          	<img align="center" src="../resource/images/calendar.gif" onClick="fPopCalendar(idLevDat, idLevDat); return false;" width="26" height="18" alt="请选择日期">←</TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">是否住宿</TD>
          <TD align="left" colSpan="3" bgcolor="#FFFFFF"><SELECT id="idResFlg" name="idResFlg">
              <OPTION <%=GetStrVal(strResFlg, "是", "selected", "")%> value="是">是</OPTION>
              <OPTION <%=GetStrVal(strResFlg, "否", "selected", "")%> value="否">否</OPTION>
          </SELECT>
          <SPAN id="ctl00_ContentPlaceHolder1_Label1"><%=GetSetInfo("SIGEXP")%></SPAN></TD>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">备注/留言</TD>
          <TD align="left" colSpan="3" bgcolor="#FFFFFF">
           <textarea name="idRemArk" cols="50"><%=strRemArk%></textarea>	
          </TD>
        </TR>
      </table>
      <br>
      <table width="20%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="center">
            <input name="Submit" type="button" onClick="JavaScript:doOk_WSBM_WSBM()" class="style2" value="提交">
          </td>
          <td align="center"><input name="Submit2" type="reset" class="style2" value="重写"></td>
        </tr>
      </table><br>
<% Else %>
		<table width="90%" border="0" cellspacing="0" cellpadding="0">
			<tr align="center">
  			<td width="98%" height="250"><strong>网上报名截止！</strong></td>
			</tr>
		</table>
<% End If %>
      </td>
  </tr>
<!-- #include file="../include/foot.asp" -->
<% 'HTML BLOCK END %>
<%End Function%>

<%Function ExportTailScriptBody()%>
<SCRIPT LANGUAGE = "JAVASCRIPT">
<!--
submitEnable = true;
//-->
</SCRIPT>
<%End Function%>