<%@ 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"-->
<!-- #INCLUDE file="../upload/picnam.inc"-->

<%
'================================================================================
' 1. Initial Workspace
'================================================================================

		Const GCSTR_MENU_NAME = "会议征文"

    Call InitialWorkspace("..", PAGE_WSBM_WSTG, True, False)

'================================================================================
' 2. Define All Variable
'================================================================================

	Dim strSgnCod
	Dim strSgnNam
	Dim strLnkTel
	Dim strLnkFil
	Dim strConExp
	Dim strSgnUni
	Dim strEmlAdd
	
	Dim strSigFlg
	Dim strTypArr
	Dim intLoop
	
'================================================================================
' 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"))
	strLnkTel = Trim(GetFieldValue("idLnkTel"))
	strConExp = Trim(GetFieldValue("idConExp"))
	strSgnUni = Trim(GetFieldValue("idSgnUni"))
	strEmlAdd = Trim(GetFieldValue("idEmlAdd"))

	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_WSTG_WSBM_WSTG_OK:
			Call DoOkProcessing()
		Case ERROR_CURRENT_RETURN:
			Call DoErrorReturn()
		Case Else:
			Call SetRedirectInfo("", "")
	End Select

End Function

Function DoOkProcessing()

	strLnkFil = GetPicNam1()
	
	Call SetPicNam("")
	Call SetPicDiv("")
	Call SetPicNam1("")
	Call SetPicNam2("")
	Call SetPicNam3("")
	Call SetPicNam4("")
	Call SetLnkAdd("")

	' 1. Check从画面获取的数据
	Call AddCheckElement("姓名", strSgnNam, True, True, 1, 32, False, CHECK_TYPE_NONE)
	Call AddCheckElement("单位", strSgnUni, True, True, 1,255, False, CHECK_TYPE_NONE)
	Call AddCheckElement("电话", strLnkTel, True, True, 1, 64, False, CHECK_TYPE_NONE)
	Call AddCheckElement("邮箱", strEmlAdd, True, True, 1,255, False, CHECK_TYPE_NONE)
	Call AddCheckElement("文件", strLnkFil, True, True, 1, 64, False, CHECK_TYPE_NONE)
	'Call AddCheckElement("说明", strConExp, True, 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 CONINF(SGNNAM, SGNUNI, LNKTEL, EMLADD, LNKFIL, CONEXP, CRETIM) VALUES(" & _
			 "'" & FilterSQL(strSgnNam)		& "', " & _
			 "'" & FilterSQL(strSgnUni)		& "', " & _
			 "'" & FilterSQL(strLnkTel)		& "', " & _
			 "'" & FilterSQL(strEmlAdd)		& "', " & _
			 "'" & FilterSQL(strLnkFil)		& "', " & _
			 "'" & FilterSQL(strConExp)		& "', " & _
			 " NOW() ) "

	If ExecuteUpdateSQL(strSQL) = False Then

		Call SetErrorMsg(ERR_MSG_COM_001)
		Call SetRedirectInfo(PAGE_ERROR_ERROR, "")

		Exit Function

	End If

	Call SetRedirectInfo("wsbm/wstgts.asp", "")

End Function

Function DoErrorReturn()


End Function
%>

<%
'================================================================================
' 10. HTML View Functions
'================================================================================
%>

<%Function ExportMeta()%>
<%End Function%>

<%Function ExportScriptBody()%>
<SCRIPT LANGUAGE = "JAVASCRIPT">
<!--
var submitEnable = false;

function IsSubmitEnable()
{
	return submitEnable;
}

function ResetSumitStatus()
{
	submitEnable = false;
}

function doInit_GXWH_XXFBONE()
{
    document.idForm.target = "_self";
    document.idForm.action = "../hyzw/hyzw.asp";
    document.idForm.idCommand.value = "10810";
    document.idForm.submit();
    ResetSumitStatus();
}

function doOk_WSBM_WSBM()
{
    if(IsSubmitEnable() == true)
    {
        document.idForm.target = "_self";
        document.idForm.action = "<%=MapPagePath(PAGE_WSBM_WSTG)%>";
        document.idForm.idCommand.value = "<%=WSBM_WSTG_WSBM_WSTG_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()%>
<input type="hidden" name="idTypCod" value="7">
<input type="hidden" name="idTypFlg" value="">
<% '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="#E2F7FC" class="style2"><a href="JavaScript:doInit_GXWH_XXFBONE();">会议征文</a></td>
          </tr>
          <tr>
            <td width="74%" align="center" bordercolor="#FFFFFF" bgcolor="#A4E2F2" class="style2"><a href="wstg.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>
          <TD width="100" align="left" bgcolor="#FFFFFF">姓 名</TD>
          <TD align="left" bgcolor="#FFFFFF"><INPUT type="text" name="idSgnNam" value="<%=Convert2Html(strSgnNam)%>"></td>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">单 位</TD>
          <TD align="left" bgcolor="#FFFFFF"><INPUT type="text" name="idSgnUni" value="<%=Convert2Html(strSgnUni)%>" size="50"></td>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">电 话</TD>
          <TD align="left" bgcolor="#FFFFFF"><INPUT type="text" name="idLnkTel" value="<%=Convert2Html(strLnkTel)%>" size="50"></td>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">邮 箱</TD>
          <TD align="left" bgcolor="#FFFFFF"><INPUT type="text" name="idEmlAdd" value="<%=Convert2Html(strEmlAdd)%>" size="50"></td>
        </TR>
        <TR>
          <TD align="left" bgcolor="#FFFFFF">文 件</TD>
          <TD align="left" bgcolor="#FFFFFF"><a href="../upload/upload.asp?picdiv=<%=GCSTR_UP_01%>&picnam=<%=GetPicNam1()%>&filetype=<%=GCSTR_TYP_01%>">添加附件(word)</a></td>
        </TR>
        <!--TR>
          <TD align="left" bgcolor="#FFFFFF">说 明</TD>
          <TD align="left" bgcolor="#FFFFFF"><INPUT type="text" name="idConExp" value="<%=Convert2Html(strConExp)%>" size="50"></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>
<% 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%>