add-script.asp

AspMaker调用的自定义包

<!--##session aspheader##-->
<%
Response.Buffer = True

' Load key from QueryString
<!--## If PROJ.OptionExplicit Then ##-->
Dim bCopy
<!--## End If ##-->
bCopy = True
<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldIsPrimaryKey Then
		sFldVar = FIELD.FldVar
		sFldVar2 = Mid(sFldVar, 3)
##-->
<!--##=sFldVar##--> = Request.QueryString("<!--##=sFldVar2##-->")
If <!--##=sFldVar##--> = "" Or IsNull(<!--##=sFldVar##-->) Then
	bCopy = False
End If
<!--##
	End If
Next
##-->
<!--##
If ewCond_HasFileField() Then ' Blob Field Exists
##-->
sAction = ""
If Not RequestBlobData() Then
	If bCopy Then
		sAction = "C" ' Copy Record
	Else
		sAction = "I" ' Display Blank Record
	End If
End If

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

' Get action
sAction = Request.Form("a_add")
If (sAction = "" Or IsNull(sAction)) Then
	If bCopy Then
		sAction = "C" ' Copy record
	Else
		sAction = "I" ' Display blank record
	End If
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
	##-->
	<!--## If bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl Then ##-->
	Dim x_ewPriv
	x_ewPriv = CInt(Request.Form("x_ewAllowAdd")) + _
		CInt(Request.Form("x_ewAllowEdit")) + CInt(Request.Form("x_ewAllowDelete")) + _
		CInt(Request.Form("x_ewAllowList"))
	<!--## End If ##-->
End If
<!--##
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 "C": ' Get a record to display

		If Not LoadData() Then ' Load Record based on key
			Session(ewSessionMessage) = "<!--##@NoRecord##-->"
			conn.Close ' Close Connection
			Set conn = Nothing
			Response.Clear
			Response.Redirect "<!--##=fn_list##-->"
		End If

	Case "A": ' Add

		If AddData() Then ' Add New Record
			Session(ewSessionMessage) = "<!--##@AddSuccess##-->"
			conn.Close ' Close Connection
			Set conn = Nothing
			Response.Clear
			Response.Redirect "<!--##=fn_list##-->"
		Else

		End If

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

<p><span class="aspmaker"><!--##@Add##--> <!--##$TABLE.TblType##-->: <!--##=TABLE.TblCaption##--><br><br><a href="<!--##=fn_list##-->"><!--##@BackToList##--></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_add##-->" method="post"<!--##=sEncType##--><!--##=sFormSubmit##-->>
<p>
<input type="hidden" name="a_add" value="A">
<!--##If ewCond_HasFileField() Then##-->
<input type="hidden" name="EW_Max_File_Size" value="<!--##=DB.MaxUploadSize##-->">
<!--##End If##-->

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

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

<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldGenerate And FIELD.FldAdd Then
		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>
<!--##
		Else
##-->
	<!--##=FieldEdit##-->
<!--##
		End If
	End If
Next
##-->
<!--## If bDynamicUserLevel And TABLE.TblName = DB.UserLevelTbl Then ##-->
	<!--tr id="r_ewPermission"-->
	<tr>
		<td<!--##=ewCSSTableHeaderClass##-->><span<!--##=ewCSSCaptionSpanClass##-->><!--##@Permission##--></span></td>
		<td<!--##=ewCSSTableAltRowClass##-->><span<!--##=ewCSSItemSpanClass##-->>
<input type="checkbox" id="Add" name="x_ewAllowAdd" value="<%= ewAllowAdd %>"><!--##@PermissionAddCopy##-->
<input type="checkbox" id="Delete" name="x_ewAllowDelete" value="<%= ewAllowDelete %>"><!--##@PermissionDelete##-->
<input type="checkbox" id="Edit" name="x_ewAllowEdit" value="<%= ewAllowEdit %>"><!--##@PermissionEdit##-->
<input type="checkbox" id="List" name="x_ewAllowList" value="<%= ewAllowList %>"><!--##@PermissionListSearchView##-->
</span></td>
	</tr>	
<!--## End If ##-->
</table>

<!--## If ewCond_MultiPage Then ##-->
<p>
<!-- Next Page and Prev Page Button -->
<div name="ewMultiPagePager" id="ewMultiPagePager" class="ewMultiPagePager"></div>
<!--## End If ##-->
<p>
<input type="<!--##=sButtonType##-->" name="btnAction" id="btnAction" value="<!--##@AddBtn##-->"<!--##=sButtonSubmit##-->>
</form>
<!--## If ewCond_MultiPage Then ##-->
<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##-->