view-script.asp

AspMaker调用的自定义包

<!--##session aspheader##-->
<%
Response.Buffer = 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 Response.Redirect "<!--##=fn_list##-->"
<!--##
	End If
Next
##-->

' Get action
sAction = Request.Form("a_view")
If sAction = "" Or IsNull(sAction) Then
	sAction = "I"	' Display with input box
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 "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
End Select

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

<p><span class="aspmaker"><!--##@Browse##--> <!--##$TABLE.TblType##-->: <!--##=TABLE.TblCaption##--><br><br>
<a href="<!--##=fn_list##-->"><!--##@BackToList##--></a>&nbsp;
<!--##
If bUserLevel Then
	sEditSecChkStart = "<% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %>"
	sEditSecChkEnd = "<% End If %>"
	sAddSecChkStart = "<% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>"
	sAddSecChkEnd = "<% End If %>"
	sDeleteSecChkStart = "<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>"
	sDeleteSecChkEnd = "<% End If %>"
Else
	sEditSecChkStart = ""
	sEditSecChkEnd = ""
	sAddSecChkStart = ""
	sAddSecChkEnd = ""
	sDeleteSecChkStart = ""
	sDeleteSecChkEnd = ""
End If

If TABLE.TblEdit Then
##-->
<!--##=sEditSecChkStart##-->
<a href="<!--##=edit_url##-->"><!--##@Edit##--></a>&nbsp;
<!--##=sEditSecChkEnd##-->
<!--##
End If

If TABLE.TblCopy And TABLE.TblAdd Then
##-->
<!--##=sAddSecChkStart##-->
<a href="<!--##=copy_url##-->"><!--##@Copy##--></a>&nbsp;
<!--##=sAddSecChkEnd##-->
<!--##
End If

If TABLE.TblDelete Then
	If bInlineDelete Then
		sDeleteConfirm = " onclick=""return ew_confirm('" & LANG.Phrase("DeleteConfirmMsg") & "');"""
	Else
		sDeleteConfirm = ""
	End If
##-->
<!--##=sDeleteSecChkStart##-->
<a<!--##=sDeleteConfirm##--> href="<!--##=delete_url##-->"><!--##@DeleteLink##--></a>&nbsp;
<!--##=sDeleteSecChkEnd##-->
<!--##
End If

For i = 1 to DB.Tables.Count
	If DB.Tables(i).TblMasterTbl = TABLE.TblName And DB.Tables(i).TblMasterFld <> "" And DB.Tables(i).TblDetailFld <> "" Then
		'Save Current Table
		Set MASTERTABLE = TABLE
		Set TABLE = DB.Tables(i)
##-->
<a href="<!--##=detail_url##-->"><!--##=TABLE.TblCaption##--> <!--##@Detail##--></a>&nbsp;
<!--##
		' Restore Current Table
		Set TABLE = MASTERTABLE
	End If
Next
##-->
</span></p>
<p>
<form>

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

<!--##
For i = 1 to TABLE.Fields.Count
	Set FIELD = TABLE.Fields.Seq(i)
	If FIELD.FldGenerate And FIELD.FldView Then
##-->
	<tr>
		<td<!--##=ewCSSTableHeaderClass##-->><span<!--##=ewCSSCaptionSpanClass##-->><!--##=FIELD.FldCaption##--></span></td>
		<td<!--##=ewCSSTableAltRowClass##-->><span<!--##=ewCSSItemSpanClass##-->><!--##=FieldView##--></span></td>
	</tr>
<!--##
	End If
Next
##-->
</table>
</form>
<p>
<!--##/session##-->
<!--##session aspfooter##-->
<%
conn.Close ' Close Connection
Set conn = Nothing
%>
<!--##/session##-->