edit-script.asp

AspMaker调用的自定义包

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

' Load key from QueryString
<!--##
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##-->")
<!--##
	End If
Next
##-->
<!--## If ewCond_HasFileField() Then ' Blob Field Exists ##-->
sAction = ""
If Not RequestBlobData()  Then ' Load Blob Data
	sAction = "I" ' Display Record
End If
<!--## Else ' No Blob Field ##-->
' Get action
sAction = Request.Form("a_edit")
If sAction = "" Or IsNull(sAction) Then
	sAction = "I"	' Display with input box
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 ##-->

' Check if valid key
<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldIsPrimaryKey Then
		sFldVar = FIELD.FldVar
##-->
If <!--##=sFldVar##--> = "" Or IsNull(<!--##=sFldVar##-->) Then Response.Redirect "<!--##=fn_list##-->"
<!--##
	End If
Next
##-->

' 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 "I": ' 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 "U": ' Update

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

End Select

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

<p><span class="aspmaker"><!--##@Edit##--> <!--##$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_edit##-->" method="post"<!--##=sEncType##--><!--##=sFormSubmit##-->>
<p>
<input type="hidden" name="a_edit" value="U">
<!--##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.FldEdit Then
		If FIELD.FldHtmlTag <> "HIDDEN" 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
	ElseIf FIELD.FldIsPrimaryKey Then
##-->
	<!--##=FieldEdit_HIDDEN##-->
<!--##
	End If
Next
##-->

</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="<!--##@EditBtn##-->"<!--##=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##-->