ew_addon.js

AspMaker调用的自定义包

<!--##session js_selectrow##-->
<!--## If iRecPerRow < 1 And PROJ.HighlightColor <> "" Then ##-->
<script type="text/javascript">
<!--
var firstrowoffset = 1; // first data row start at
var tablename = 'ewlistmain'; // table name
<!--## 'If PROJ.UseCss Then ##-->
var usecss = true; // use css
<!--## 'Else ##-->
//var usecss = false; // use css
<!--## 'End If ##-->
var rowclass = 'ewTableRow'; // row class
var rowaltclass = 'ewTableAltRow'; // row alternate class
var rowmoverclass = 'ewTableHighlightRow'; // row mouse over class
var rowselectedclass = 'ewTableSelectRow'; // row selected class
var roweditclass = 'ewTableEditRow'; // row edit class
var rowcolor = '<!--##=PROJ.TblAltColor1##-->'; // row color
var rowaltcolor = '<!--##=PROJ.TblAltColor2##-->'; // row alternate color
var rowmovercolor = '<!--##=PROJ.HighlightColor##-->'; // row mouse over color
var rowselectedcolor = '<!--##=PROJ.SelectColor##-->'; // row selected color
var roweditcolor = '<!--##=PROJ.EditBackColor##-->'; // row edit color
//-->
</script>
<!--## End If ##-->
<!--##/session##-->
<!--##session js_global##-->
<script type="text/javascript">
<!--
EW_LookupFn = "<!--##=fn_ewlookup##-->"; // ewlookup file name
EW_AddOptFn = "<!--##=fn_ewaddopt##-->"; // ewaddopt.asp file name
//-->
</script>
<script type="text/javascript" src="ew.js"></script>
<!--## If ewCond_AutoSuggest Then ##-->
<script type ="text/javascript" src="ewast.js"></script>
<!--## End If ##-->
<!--##/session##-->
<!--##session js_validate##-->
<script type="text/javascript">
<!--
EW_dateSep = "<!--##=PROJ.DateSeparator##-->"; // set date separator
EW_UploadAllowedFileExt = "<!--##=PROJ.UploadAllowedFileExt##-->"; // allowd upload file extension
//-->
</script>
<!--##
sId = LCase(Ctrl.CtrlID)
If (TABLE.TblInlineEdit And sId = "list") Or sId = "add" Or sId = "edit" Or sId = "search" Or sId = "register" then
##-->
<script type="text/javascript">
<!--
function EW_checkMyForm(EW_this) {
<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)

	'Generate JS
	If FIELD.FldGenerate And FIELD.FldHtmlTag <> "HIDDEN" Then

		If (((FIELD.FldList And sId = "list" And Not FIELD.FldHtmlTagReadOnly) Or _
			(FIELD.FldAdd And sId = "add") Or _
			(FIELD.FldEdit And sId = "edit" And Not FIELD.FldHtmlTagReadOnly) Or _
			(FIELD.FldRegister And sId = "register")) And FIELD.FldHtmlTag <> "NO") Or _
			(FIELD.FldSearch And sId = "search") Then

			' Field validation required
			If FIELD.FldRequired Then

				' Generate for add/edit/list/register page
				If (sId = "add" Or sId = "edit" Or sId = "list" Or sId = "register") Then
##-->
<!--##=Js_ReqValidator##-->
<!--##
				End If
			End If
		End If

		If (((FIELD.FldList And sId = "list" And Not FIELD.FldHtmlTagReadOnly) Or _
			(FIELD.FldAdd And sId = "add") Or _
			(FIELD.FldEdit And sId = "edit" And Not FIELD.FldHtmlTagReadOnly) Or _
			(FIELD.FldRegister And sId = "register")) And (FIELD.FldHtmlTag = "TEXT" Or FIELD.FldHtmlTag = "PASSWORD")) Or _
			(FIELD.FldSearch And sId = "search" And _
			(FIELD.FldHtmlTag = "TEXT" Or FIELD.FldHtmlTag = "NO")) Then
##-->
<!--##=Js_Validator##-->
<!--##
		End If

		If (((FIELD.FldList And sId = "list" And Not FIELD.FldHtmlTagReadOnly) Or _
			(FIELD.FldAdd And sId = "add") Or _
			(FIELD.FldEdit And sId = "edit" And Not FIELD.FldHtmlTagReadOnly) Or _
			(FIELD.FldRegister And sId = "register")) And (FIELD.FldHtmlTag = "FILE")) Then 'P4.2
##-->
if (EW_this.<!--##=FIELD.FldVar##--> && !EW_checkfiletype(EW_this.<!--##=FIELD.FldVar##-->.value)) { 
	if (!EW_onError(EW_this, EW_this.<!--##=FIELD.FldVar##-->, "FILE", "<!--##@WrongFileType##-->")) 
	return false; 
}
<!--##
		End If

	End If
Next  ' Field
##-->

<!--##
If TABLE.TblName = DB.UserLevelTbl And bDynamicUserLevel Then
    Set FIELD = TABLE.Fields(DB.UserLevelIdFld)
    sUserLevelIDFldVar = FIELD.FldVar
    Set FIELD = TABLE.Fields(DB.UserLevelNameFld)
    sUserLevelNameFldVar = FIELD.FldVar
##-->
EW_this.<!--##=sUserLevelIDFldVar##-->.value = EW_this.<!--##=sUserLevelIDFldVar##-->.value.replace(/^\s+|\s+$/, '');
if (EW_this.<!--##=sUserLevelIDFldVar##--> && !EW_checkinteger(EW_this.<!--##=sUserLevelIDFldVar##-->.value)) {
	if (!EW_onError(EW_this, EW_this.<!--##=sUserLevelIDFldVar##-->, "TEXT", "<!--##@UserLevelIDInteger##-->"))
		return false;
}
var level = parseInt(EW_this.<!--##=sUserLevelIDFldVar##-->.value);
if (level == 0) { 
	if (EW_this.<!--##=sUserLevelNameFldVar##-->.value.toLowerCase() != "anonymous") {
		if (!EW_onError(EW_this, EW_this.<!--##=sUserLevelNameFldVar##-->, "TEXT", "<!--##@UserLevelAnonymousName##-->"))
			return false;
	}
} else if (level == -1) { 
	if (EW_this.<!--##=sUserLevelNameFldVar##-->.value.toLowerCase() != "administrator") {
		if (!EW_onError(EW_this, EW_this.<!--##=sUserLevelNameFldVar##-->, "TEXT", "<!--##@UserLevelAdministratorName##-->"))
			return false;
	}
} else if (level < -1) {
	if (!EW_onError(EW_this, EW_this.<!--##=sUserLevelIDFldVar##-->, "TEXT", "<!--##@UserLevelIDIncorrect##-->"))
		return false;
} else if (level > 0) {
	EW_this.<!--##=sUserLevelNameFldVar##-->.value = EW_this.<!--##=sUserLevelNameFldVar##-->.value.replace(/^\s+|\s+$/, '');
	if (EW_this.<!--##=sUserLevelNameFldVar##-->.value.toLowerCase() == "administrator" || EW_this.<!--##=sUserLevelNameFldVar##-->.value.toLowerCase() == "anonymous") {
		if (!EW_onError(EW_this, EW_this.<!--##=sUserLevelNameFldVar##-->, "TEXT", "<!--##@UserLevelNameIncorrect##-->"))
			return false;
	}
}
<!--## End If ##-->

return true;
}
//-->
</script>
<!--## End If ##-->

<!--## If bExtendedBasicSearch And sId = "list" Then ##-->
<script type="text/javascript">
<!--
function EW_checkMyForm2(EW_this) {
<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	'Generate JS
	If FIELD.FldGenerate And FIELD.FldHtmlTag <> "HIDDEN" Then
		If FIELD.FldList And FIELD.FldExtendedBasicSearch Then
##-->
	<!--##=Js_Validator##-->
<!--##
		End If
	End If
Next  ' Field
##-->
	for (var i=0;i<EW_this.elements.length;i++) {
		var elem = EW_this.elements[i];
		if (elem.name.substring(0,2) == "s_" || elem.name.substring(0,3) == "sv_")
			elem.value = "";
	}
	return true;
}
//-->
</script>
<!--## End If ##-->
<!--##/session##-->
<!--##session js_dhtmleditor##-->
<script type="text/javascript">
<!--
// js for DHtml Editor
//-->
</script>
<!--##/session##-->
<!--##session js_popupcalendar##-->
<script type="text/javascript">
<!--
// js for Popup Calendar
//-->
</script>
<!--##/session##-->
<!--##session js_multidelete##-->
<!--## If bMultiDelete Then ##-->
<script type="text/javascript">
<!--
function EW_selectKey(elem) {
	var f = elem.form;	
	if (!f.key_d) return;
	if (f.key_d[0]) {
		for (var i=0; i<f.key_d.length; i++)
			f.key_d[i].checked = elem.checked;	
	} else {
		f.key_d.checked = elem.checked;	
	}
<!--## If iRecPerRow < 1 And PROJ.HighlightColor <> "" Then ##-->
	ew_clickall(elem);
<!--## End If ##-->
}
function EW_selected(elem) {
	var f = elem.form;	
	if (!f.key_d) return false;
	if (f.key_d[0]) {
		for (var i=0; i<f.key_d.length; i++)
			if (f.key_d[i].checked) return true;
	} else {
		return f.key_d.checked;
	}
	return false;
}
//-->
</script>
<!--## End If ##-->
<!--##/session##-->
<!--##session js_multiplepage##-->
<!--##
	If ewCond_MultiPage Then
 ##-->
<script type="text/javascript" src="ewmultipage.js"></script>
<script type="text/javascript">
<!--
ew_MultiPagePage = "<!--##@Page##-->"; // multi-page Page Text
ew_MultiPageOf = "<!--##@Of##-->"; // multi-page Of Text
var ew_MultiPagePrev = "<!--##@Prev##-->"; // multi-page Prev Text
var ew_MultiPageNext = "<!--##@Next##-->"; // multi-page Next Text
var ew_PageIndex = 0;
var ew_MaxPageIndex = 0;
var ew_MinPageIndex = 0;
<!--##
sId = LCase(CTRL.CtrlID)
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	' Generate Multi-Page elements
	If FIELD.FldGenerate And FIELD.FldHtmlTag <> "HIDDEN" Then
		If (FIELD.FldList And sId = "list") Or _
			(FIELD.FldAdd And sId = "add") Or _
			(FIELD.FldEdit And sId = "edit") Or _
			(FIELD.FldRegister And sId = "register") Or _
			(FIELD.FldSearch And sId = "search") Then
			sFldVar = FIELD.FldVar
			nPageIndex = FIELD.FldPageIndex
##-->
ew_MultiPageAddElement('<!--##=sFldVar##-->', <!--##=nPageIndex##-->);
<!--##
			If sId = "register" And TABLE.TblName = PROJ.SecTbl And FIELD.FldName = PROJ.SecPasswdFld Then
				sFldVar = "c_" & Mid(sFldVar, 3)
##-->
ew_MultiPageAddElement('<!--##=sFldVar##-->', <!--##=nPageIndex##-->);
<!--##
			End If
		End If
	End If
Next
##-->
//-->
</script>
<!--## End If ##-->
<!--##/session##-->