?? view-script.asp
字號:
<!--##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>
<!--##
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>
<!--##=sEditSecChkEnd##-->
<!--##
End If
If TABLE.TblCopy And TABLE.TblAdd Then
##-->
<!--##=sAddSecChkStart##-->
<a href="<!--##=copy_url##-->"><!--##@Copy##--></a>
<!--##=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>
<!--##=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>
<!--##
' 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##-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -