/SQL/scripts/db/udfstruct.asp
ASP | 62 lines | 58 code | 4 blank | 0 comment | 0 complexity | ff1b2979bb62f0cc1f0a4a5d74245dbc MD5 | raw file
1<!-- #INCLUDE FILE="../inc/mla_sql_include.asp" --> 2<% 3 Dim myNodeId, myDbName, myUdfName, myArrCol, myColCount, i, myObjStr, myStrClass, myUdfTxt, myStrTree 4 myNodeId = Request.QueryString("nid") 5 myDbName = Request.QueryString("db") 6 myUdfName = Request.QueryString("udf") 7 openConnection 8 myStrTree = getTreeStr(Mid(myNodeId, 2) & "_9_1", Array(myDbName, myUdfName)) 9 myArrCol = getSpParam(myDbName, myUdfName) 10 myUdfTxt = txt2html(getObjTxt(myDbName, myUdfName)) 11 closeConnection 12 If isArray(myArrCol) Then myColCount = UBound(myArrCol, 2) Else myColCount = -1 End If 13%> 14<!-- #INCLUDE FILE="../inc/metaheader.asp" --> 15<BODY> 16 <P CLASS="treeinfo"><% = myStrTree %></P> 17 18 <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="content" SUMMARY="Database Information"> 19 <TR><TD CLASS="caption"><% = myTObj.getTerm(174) %></TD></TR> 20 <TR><TD> 21 <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 ALIGN=CENTER CLASS="content" WIDTH="100%" SUMMARY="UDF Stucture"> 22 <THEAD> 23 <TR><TD CLASS="collabel"><% = myTObj.getTerm(172) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(301) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(302) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(303) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(304) %></TD><TD CLASS="collabel"><% = myTObj.getTerm(305) %></TD></TR> 24 </THEAD> 25 <TBODY> 26 <% 27 Set myObjStr = New mlt_string 28 For i = 0 To myColCount 29 If i MOD 2 = 0 Then myStrClass = "odd" Else myStrClass = "even" End If 30 myObjStr.strAppend "<TR CLASS=""" & myStrClass & """>" & vBCrLf 31 myObjStr.strAppend "<TD NOWRAP><B>" 32 If myArrCol(0, i) = "" Then myObjStr.strAppend "@RETURN_VALUE" Else myObjStr.strAppend myArrCol(0, i) End If 33 myObjStr.strAppend "</B></TD>" & vbCrLf 34 myObjStr.strAppend "<TD NOWRAP>" & myArrCol(1, i) & "</TD>" & vbCrLf 35 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT>" & myArrCol(2, i) & "</TD>" & vbCrLf 36 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT> " & myArrCol(3, i) & "</TD>" & vbCrLf 37 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT> " & myArrCol(4, i) & "</TD>" & vbCrLf 38 myObjStr.strAppend "<TD NOWRAP ALIGN=RIGHT> " & myArrCol(5, i) & "</TD>" & vbCrLf 39 myObjStr.strAppend "</TR>" & vBCrLf 40 Next 41 Response.Write myObjStr.getStr() 42 Set myObjStr = Nothing 43 %> 44 </TBODY> 45 </TABLE> 46 47 <BR> 48 49 <TABLE BORDER=0 CELLPADDING=2 CELLSPACING=2 ALIGN=CENTER CLASS="content" WIDTH="100%" SUMMARY="UDF Definition"> 50 <THEAD> 51 <TR><TD CLASS="collabel"><% = myTObj.getTerm(175) %></TD></TR> 52 </THEAD> 53 <TBODY> 54 <TR><TD><% = myUdfTxt %></TD></TR> 55 </TBODY> 56 </TABLE> 57 58 </TD></TR> 59 </TABLE> 60</BODY> 61</HTML> 62<!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->