register.asp

AspMaker调用的自定义包

<!--##session aspheader##-->
<%
' Initialize common variables
<!--##
Set TABLE = DB.Tables(PROJ.SecTbl)
' Config form
sFormName = "f" & TABLE.TblVar & CTRL.CtrlID ' form name
If ewCond_DHtmlEditor() Then ' DHtml Editor
	sFormSubmit = ""
	sListFormSubmit = "EW_submitForm(document." & sFormName & ");"
	sButtonType = "button"
	sButtonSubmit = " onClick=""EW_submitForm(this.form);"""
Else
	sFormSubmit = " onSubmit=""return EW_checkMyForm(this);"""
	sListFormSubmit = "if (EW_checkMyForm(document." & sFormName & ")) document." & sFormName & ".submit();"
	sButtonType = "submit"
	sButtonSubmit = ""
End If
If ewCond_HasFileField() Then
	sEncType = " enctype=""multipart/form-data"""
Else
	sEncType = ""
End If
' Declare Variables
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	sFldVar = FIELD.FldVar
	If Not PROJ.OptionExplicit Then
##-->
<!--##=sFldVar##--> = Null: o<!--##=sFldVar##--> = Null
<!--##
		If FIELD.FldName = PROJ.SecPasswdFld Then
			sFldVar = "c_" & Mid(sFldVar, 3)
##-->
<!--##=sFldVar##--> = Null ' Initialize Password Confirmation Field
<!--##
		End If
		If FIELD.FldHtmlTag = "FILE" Then
##-->
fs_<!--##=sFldVar##--> = 0: fn_<!--##=sFldVar##--> = "": ct_<!--##=sFldVar##--> = ""
wd_<!--##=sFldVar##--> = 0: ht_<!--##=sFldVar##--> = 0: a_<!--##=sFldVar##--> = ""
<!--##
		End If
	Else
##-->
Dim <!--##=sFldVar##-->, o<!--##=sFldVar##-->
Dim ar_<!--##=sFldVar##-->, ari_<!--##=sFldVar##-->, lst_<!--##=sFldVar##-->, chk_<!--##=sFldVar##-->, cbo_<!--##=sFldVar##-->_js
<!--##
		If FIELD.FldName = PROJ.SecPasswdFld Then
			sFldVar = "c_" & Mid(sFldVar, 3)
##-->
Dim <!--##=sFldVar##-->
<!--##
		End If
		If FIELD.FldHtmlTag = "FILE" Then
##-->
Dim fs_<!--##=sFldVar##-->, fn_<!--##=sFldVar##-->, ct_<!--##=sFldVar##-->,  wd_<!--##=sFldVar##-->, ht_<!--##=sFldVar##-->, a_<!--##=sFldVar##-->
<!--##
		End If
	End If
Next
If PROJ.OptionExplicit Then
	If ewCond_HasFileField() Then ' Blob Field Exists
##-->
Dim EW_Max_File_Size, oStream
<!--##
	End If
##-->
Dim sSqlWrk, sWhereWrk, sWhere, sGroupBy, sHaving, sOrderBy, sUserSql
Dim rswrk, datawrk, rowswrk, rowcntwrk
Dim bUserExists
Dim sEmail, sFilter
<!--##
End If
##-->

Response.Buffer = True

<!--##
If ewCond_HasFileField() Then ' Blob Field Exists
##-->
sAction = ""
If Not RequestBlobData() Then
	sAction = "I" ' Display Blank Record
End If

<!--##
Else ' No Blob Field
##-->

' Get action
sAction = Request.Form("a_register")
If (sAction = "" Or IsNull(sAction)) Then
	sAction = "I" ' Display blank record
Else

	' Get fields from form
	<!--##
	For i = 1 to TABLE.Fields.Count
		Set FIELD = TABLE.Fields.Seq(i)
	##-->
	<!--##=FIELD.FldVar##--> = Request.Form("<!--##=FIELD.FldVar##-->")
	<!--##
	Next
	##-->
End If

<!--##
End If
Set FIELD = TABLE.Fields(PROJ.SecLoginIDFld)
If PROJ.SecRegisterEmail And PROJ.SecEmailFld <> "" Then
	Set EMAILFIELD = TABLE.Fields(PROJ.SecEmailFld)
End If
##-->

' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
<!--## If InStr(1,DB.DBDBMSName,"ORA",vbTextCompare) > 0 And TABLE.TblBlob Then ##-->
' For Oracle database, use connection string for proper handling of BLOB field
xDb_Conn_Str = xDb_Conn_Str_Ora_Blob
<!--## End If ##-->
conn.Open xDb_Conn_Str

Select Case sAction

	Case "A": ' Add

<!--## If Not FIELD.FldAutoIncrement Then ##-->
		' Check for Duplicate User ID
		sFilter = "(<!--##=Quote(DB.DBQuoteS & FIELD.FldName & DB.DBQuoteE)##--> = <!--##=FIELD.FldQuoteS##-->" & AdjustSql(<!--##=FIELD.FldVar##-->) & "<!--##=FIELD.FldQuoteE##-->)"

		sUserSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "")

		Set rs = conn.Execute(sUserSql)
		If Not rs.Eof Then
			bUserExists = True
			Session(ewSessionMessage) = "<!--##@UserExists##-->"
		End If
		rs.Close
		Set rs = Nothing
<!--## Else ##-->
bUserExists = False
<!--## End If ##-->

		If Not bUserExists Then
			If AddData() Then ' Add New Record
<!--## If PROJ.SecRegisterEmail And PROJ.SecEmailFld <> "" Then ##-->
				' Load Registrant Email
				sEmail = <!--##=EMAILFIELD.FldVar##-->

				' Load Email Content
				If sEmail <> "" Then
					Call LoadEmail("<!--##=fn_registertxt##-->")
					sEmailFrom = Replace(sEmailFrom, "<!--$From-->", "<!--##=PROJ.SecSenderEmail##-->") ' Replace Sender
					sEmailTo = Replace(sEmailTo, "<!--$To-->", sEmail) ' Replace Receiver
<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldGenerate Then
		If FIELD.FldRegister Then
##-->
					sEmailContent = Replace(sEmailContent, "<!--<!--##=FIELD.FldName##-->-->", <!--##=FIELD.FldVar##-->)
<!--##
		End If
	End If
Next
##-->
					' Send Email
					Call Send_Email(sEmailFrom, sEmailTo, sEmailCc, sEmailBcc, sEmailSubject, sEmailContent, sEmailFormat)
				End If
<!--## End If ##-->
				Session(ewSessionMessage) = "<!--##@RegisterSuccess##-->"
				conn.Close
				Set conn = Nothing
				Response.Redirect "<!--##=fn_login##-->"
			End If
		End If

End Select
%>
<!--##/session##-->

<!--##session htmtable##-->

<p><span class="aspmaker">
<!--##@RegisterPage##--><br><br>
<a href="<!--##=fn_login##-->"><!--##@BackToLogin##--></a>
</span></p>

<%
If Session(ewSessionMessage) <> "" Then
%>
<p><span<!--##=ewCSSMsg##-->><%= Session(ewSessionMessage) %></span></p>
<%
	Session(ewSessionMessage) = "" ' Clear message
End If
%>

<form name="<!--##=sFormName##-->" id="<!--##=sFormName##-->" action="<!--##=fn_register##-->" method="post"<!--##=sEncType##--><!--##=sFormSubmit##-->>
<p>
<input type="hidden" name="a_register" value="A">
<!--##If ewCond_HasFileField() Then##-->
<input type="hidden" name="EW_Max_File_Size" value="<!--##=DB.MaxUploadSize##-->">
<!--##End If##-->

<table<!--##=ewCSSTableClass##-->>

<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldGenerate And FIELD.FldRegister Then
		If FIELD.FldName <> DB.SecUserLevelFld Then ' Skip User Level Field
			If FIELD.FldHtmlTag <> "HIDDEN" Or FIELD.FldDefault = "" Then
				sSpanID = "cb_" & FIELD.FldVar
				If FIELD.FldReq Or FIELD.FldRequired Then
					sFldReqInd = LANG.Phrase("FieldRequiredIndicator")
				Else
					sFldReqInd = ""
				End If
##-->
	<tr>
		<td<!--##=ewCSSTableHeaderClass##-->><span<!--##=ewCSSCaptionSpanClass##-->><!--##=FIELD.FldCaption##--><!--##=sFldReqInd##--></span></td>
		<td<!--##=ewCSSTableAltRowClass##-->><span id="<!--##=sSpanID##-->"<!--##=ewCSSItemSpanClass##-->><!--##=FieldEdit##--></span></td>
	</tr>
<!--##
				If FIELD.FldName = PROJ.SecPasswdFld Then ' Generate Confirm Password Field
					sFldVar = FIELD.FldVar ' Save Field Variable Name
					FIELD.FldVar = "c_" & Mid(sFldVar, 3) ' New Variable as c_FldVar
					'sRowID = "r_" & FIELD.FldVar ' Generate As r_c_field
##-->
	<!--tr id="<!--##=sRowID##-->"-->
	<tr>
		<td<!--##=ewCSSTableHeaderClass##-->><span<!--##=ewCSSCaptionSpanClass##-->><!--##@Confirm##--> <!--##=FIELD.FldCaption##-->&nbsp;</span></td>
		<td<!--##=ewCSSTableAltRowClass##-->><span<!--##=ewCSSItemSpanClass##-->><!--##=FieldEdit##--></span></td>
	</tr>
<!--##
					FIELD.FldVar = sFldVar ' Restore Field Variable Name
				End If
			Else
##-->
	<!--##=FieldEdit##-->
<!--##
			End If
		End If
	End If
Next
##-->
</table>
<!--## If ewCond_MultiPage Then ##-->
<p>
<!-- Next Page and Prev Page Button -->
<div name="ewMultiPagePager" id="ewMultiPagePager" class="ewMultiPagePager"></div>
<!--input type="button" name="btnPrevPage" id="btnPrevPage" value="<!--##@PagerPrevious##-->" onClick="EW_PrevPage();">&nbsp;<input type="button" name="btnNextPage" id="btnNextPage" value="<!--##@PagerNext##-->" onClick="EW_NextPage(this.form);">&nbsp;&nbsp;<span id="ewPageInfo" class="aspmaker"></span-->
<!--## End If ##-->
<p>
<input type="<!--##=sButtonType##-->" name="btnAction" id="btnAction" value="<!--##@RegisterBtn##-->"<!--##=sButtonSubmit##-->>
</form>
<!--## If ewCond_MultiPage Then ##-->
<!-- Multi-page initialization -->
<script type="text/javascript">
<!--
ew_InitMultiPage(); // Multi-page initialization
//-->
</script>
<!--## Else ##-->
	<!--## If ewCond_DHtmlEditor() Then ##-->	
<script type="text/javascript">
<!--
EW_createEditor(); // Create DHTML editor(s)
//-->
</script>
	<!--## End If ##-->
<!--## End If ##-->
<!--##=UpdateComboJS##-->
<!--##/session##-->
<!--##session aspfooter##-->
<%
conn.Close ' Close Connection
Set conn = Nothing
%>
<!--##/session##-->