਍ഀ ਍ഀ View ASP Source code਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
ASP Source Code਍ഀ

ASP File: jscript/ado/dbinfo/dbinfo.asp

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=JavaScript %>
<HTML>
<HEAD>
<%
//Convert int type to String type
function ਍ഀ TypeStr(fdType){
      switch ਍ഀ (fdType){
           case ਍ഀ 0://adEmpty
                ਍ഀ typeStr = ਍ഀ "adEmpty";
                ਍ഀ break;
           case ਍ഀ 16://adTinyInt
                ਍ഀ typeStr = ਍ഀ "adTinyInt";
                ਍ഀ break;
           case ਍ഀ 2://adSmallInt
                ਍ഀ typeStr = ਍ഀ "adSmallInt";
                ਍ഀ break;
           case ਍ഀ 3://adInteger
                ਍ഀ typeStr = ਍ഀ "adInteger";
                ਍ഀ break;
           case ਍ഀ 20://adBigInt
                ਍ഀ typeStr = ਍ഀ "adBigInt";
                ਍ഀ break;
           case ਍ഀ 17://adUnsignedTinyInt
                ਍ഀ typeStr = ਍ഀ "adUnsignedTinyInt";
                ਍ഀ break;
           case ਍ഀ 18://adUnsignedSmallInt
                ਍ഀ typeStr = ਍ഀ "adUnsignedSmallInt";
                ਍ഀ break;
           case ਍ഀ 19://adUnsignedInt
                ਍ഀ typeStr = ਍ഀ "adUnsignedInt";
                ਍ഀ break;
           case ਍ഀ 21://adUnsignedBigInt
                ਍ഀ typeStr = ਍ഀ "adUnsignedBigInt";
                ਍ഀ break;
           case ਍ഀ 4://adSingle
                ਍ഀ typeStr = ਍ഀ "adSingle";
                ਍ഀ break;
           case ਍ഀ 5://adDouble
                ਍ഀ typeStr = ਍ഀ "adDouble";
                ਍ഀ break;
           case ਍ഀ 6://adCurrency
                ਍ഀ typeStr = ਍ഀ "adCurrency";
                ਍ഀ break;
           case ਍ഀ 14://adDecimal
                ਍ഀ typeStr = ਍ഀ "adDecimal";
                ਍ഀ break;
           case ਍ഀ 131://adNumeric
                ਍ഀ typeStr = ਍ഀ "adNumeric";
                ਍ഀ break;
           case ਍ഀ 11://adBoolean
                ਍ഀ typeStr = ਍ഀ "adBoolean";
                ਍ഀ break;
           case ਍ഀ 10://adError
                ਍ഀ typeStr = ਍ഀ "adError";
                ਍ഀ break;
           case ਍ഀ 132://adUserDefined
                ਍ഀ typeStr = ਍ഀ "adUserDefined";
                ਍ഀ break;
           case 12: ਍ഀ //
                ਍ഀ typeStr = ਍ഀ "adVariant";
                ਍ഀ break;
           case ਍ഀ 9://adIDispatch
                ਍ഀ typeStr = ਍ഀ "adIDispatch";
                ਍ഀ break;
           case ਍ഀ 13://adIUnknown
                ਍ഀ typeStr = ਍ഀ "adIUnknown";
                ਍ഀ break;
           case ਍ഀ 72://adGUID
                ਍ഀ typeStr = ਍ഀ "adGUID";
                ਍ഀ break;
           case ਍ഀ 7://adDate
                ਍ഀ typeStr = ਍ഀ "adDate";
                ਍ഀ break;
           case ਍ഀ 133://adDBDate
                ਍ഀ typeStr = ਍ഀ "adDBDate";
                ਍ഀ break;
           case ਍ഀ 134://adDBTime
                ਍ഀ typeStr = ਍ഀ "adDBTime";
                ਍ഀ break;
           case ਍ഀ 135://adDBTimeStamp
                ਍ഀ typeStr = ਍ഀ "adDBTimeStamp";
                ਍ഀ break;
           case 8 ਍ഀ ://adBSTR
                ਍ഀ typeStr = ਍ഀ "adBSTR";
                ਍ഀ break;
           case ਍ഀ 129://adChar
                ਍ഀ typeStr = ਍ഀ "adChar";
                ਍ഀ break;
           case ਍ഀ 200://adVarChar
                ਍ഀ typeStr = ਍ഀ "adVarChar";
                ਍ഀ break;
           case ਍ഀ 201://adLongVarChar
                ਍ഀ typeStr = ਍ഀ "adLongVarChar";
                ਍ഀ break;
           case ਍ഀ 130://adWChar
                ਍ഀ typeStr = ਍ഀ "adWChar";
                ਍ഀ break;
           case ਍ഀ 202://adVarWChar
                ਍ഀ typeStr = ਍ഀ "adVarWChar";
                ਍ഀ break;
           case ਍ഀ 203://adLongVarWCha
                ਍ഀ typeStr = ਍ഀ "adLongVarWCha";
                ਍ഀ break;
           case ਍ഀ 128://adBinary
                ਍ഀ typeStr = ਍ഀ "adBinary";
                ਍ഀ break;
           case ਍ഀ 204://adVarBinary
                ਍ഀ typeStr = ਍ഀ "adVarBinary";
                ਍ഀ break;
           case ਍ഀ 205://adLongVarBinary
                ਍ഀ typeStr = ਍ഀ "adLongVarBinary";
                ਍ഀ break;
           ਍ഀ default:
                ਍ഀ typeStr = ਍ഀ "adUndefined";
                ਍ഀ break;
      }
      ਍ഀ return typeStr;
}
%>

</HEAD>

<BODY ਍ഀ bgcolor=silver>
<%
if ਍ഀ (Request.Form("drvtxt").Count > 0) {
      drv = ਍ഀ parseInt( Request.Form("drvtxt") );
      url = ਍ഀ Request.Form("urltxt");
      uid = ਍ഀ Request.Form("uidtxt");
      pwd = ਍ഀ Request.Form("pwdtxt");

     var DrvArry = new ਍ഀ Array(14); //(17)
     DrvArry[0] = "--Please select a ਍ഀ driver--";
      DrvArry[1] = ਍ഀ "sun.jdbc.odbc.JdbcOdbcDriver";
     DrvArry[2] = ਍ഀ "sun.jdbc.odbc.JdbcOdbcDriver";
     DrvArry[3] = ਍ഀ "oracle.jdbc.driver.OracleDriver";
     DrvArry[4] = ਍ഀ "com.informix.jdbc.IfxDriver";
     DrvArry[5] = ਍ഀ "twz1.jdbc.mysql.jdbcMysqlDriver";
     DrvArry[6] = ਍ഀ "org.gjt.mm.mysql.Driver";
     DrvArry[7] = ਍ഀ "com.sybase.jdbc2.jdbc.SybDriver";
     DrvArry[8] = ਍ഀ "COM.cloudscape.core.JDBCDriver";
     //DrvArry[9] = ਍ഀ "postgresql.Driver";
     DrvArry[9] = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver";
     ਍ഀ DrvArry[10] = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver";
     ਍ഀ DrvArry[11] = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver";
     ਍ഀ DrvArry[12] = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver";
      ਍ഀ DrvArry[13] = ਍ഀ "intersolv.jdbc.sequelink.SequeLinkDriver";
     ਍ഀ DrvArry[14] = "openlink.jdbc2.Driver";

      ਍ഀ switch ( drv ) {
           ਍ഀ case 1:
           case ਍ഀ 13:
                ਍ഀ dbms = ਍ഀ "Access";
                ਍ഀ break;
           case ਍ഀ 2:
           case ਍ഀ 12:
           case ਍ഀ 14:
                ਍ഀ dbms = ਍ഀ "SQLServer"
                ਍ഀ break;
           case ਍ഀ 3:
           case ਍ഀ 9:
                ਍ഀ dbms = ਍ഀ "Oracle"
                ਍ഀ break;
           case ਍ഀ 4:
           case ਍ഀ 10:
                ਍ഀ dbms = ਍ഀ "Informix"
                ਍ഀ break;
           case ਍ഀ 5:
           case ਍ഀ 6:
                ਍ഀ dbms = ਍ഀ "MySQL"
                ਍ഀ break;
           case ਍ഀ 7:
           case ਍ഀ 11:
                ਍ഀ dbms = ਍ഀ "Sybase"
                ਍ഀ break
           case ਍ഀ 8:
                ਍ഀ dbms = ਍ഀ "Cloudscape"
                ਍ഀ break;
           ਍ഀ default:
                ਍ഀ dbms = ""
      ਍ഀ }

      strCnn = "Driver=" + DrvArry[drv] + ਍ഀ ";URL=" + url + ";UID=" + uid + ";PWD=" + pwd + ਍ഀ ";";
      //strCnn = ਍ഀ "DSN=AccessDB;UID=sa;PWD=;";

      conn = ਍ഀ Server.CreateObject("ADODB.CONNECTION");
      ਍ഀ conn.Open (strCnn);

      Session("tbsRS") = ਍ഀ conn.OpenSchema(20);
      selectIndex = -1;
} ਍ഀ else {
      dbms = ਍ഀ Request.QueryString("dbms");
      selectIndex = ਍ഀ parseInt( Request.Form("Listtable") );
      tbName ਍ഀ = Request.QueryString("tbName");
}

RS = ਍ഀ Session("tbsRS");
RS.MoveFirst();
%>

<font size="4" ਍ഀ face="Arial, Helvetica">
<b>Database Base Information ਍ഀ Sample</b></font><br>

<hr size="1" ਍ഀ color="#000000">

<form name=form1 ਍ഀ method=post>
<TABLE><TR>
      ਍ഀ <TD><B>Tables:</B><BR>
           ਍ഀ <SELECT name=Listtable width=200 style="width:200" size=18 ਍ഀ onChange="Listtable_onChange()" >
<%      i = ਍ഀ 0;
      while ( !RS.Eof ) ਍ഀ {
           if ( ਍ഀ RS("TABLE_TYPE").Value == "TABLE" ) ਍ഀ {
                ਍ഀ if (dbms == "Oracle") ਍ഀ {
                     ਍ഀ if (RS(1).Value == "HALCYON") ਍ഀ {
                          ਍ഀ if (selectIndex == i) ਍ഀ {
                               ਍ഀ tbName = RS("TABLE_NAME").Value; ਍ഀ %>

                               ਍ഀ <OPTION value="<%=i%>" selected><%=RS("TABLE_NAME").Value%>
<%                          ਍ഀ } else ਍ഀ {%>
                               ਍ഀ <OPTION value="<%=i%>"><%=RS("TABLE_NAME").Value%>
<%                          ਍ഀ }
                          ਍ഀ i = i + ਍ഀ 1;
                     ਍ഀ }
                ਍ഀ } else ਍ഀ {
                     ਍ഀ if (selectIndex == i) ਍ഀ {%>

                          ਍ഀ <OPTION value="<%=i%>" selected><%=RS("TABLE_NAME").Value%>
<%                     ਍ഀ } else ਍ഀ {%>
                          ਍ഀ <OPTION value="<%=i%>"><%=RS("TABLE_NAME").Value%>
<%                     ਍ഀ }
                     ਍ഀ i = i + ਍ഀ 1;
                ਍ഀ }
      }
      ਍ഀ RS.MoveNext();
      ਍ഀ }%>

           ਍ഀ </SELECT>
      ਍ഀ </TD>

      <TD ਍ഀ valign=top>
           ਍ഀ <TABLE><TR>
<%           ਍ഀ if ( selectIndex > -1 ) ਍ഀ {
                ਍ഀ REC = RS.ActiveConnection.Execute("select * from " + ਍ഀ tbName);
                ਍ഀ fdCnt = REC.Fields.Count; ਍ഀ %>

                ਍ഀ <TD><B>Field Name:</B><SELECT name=listName size=11 ਍ഀ WIDTH=160 style="WIDTH: 160">
<%                     ਍ഀ for (i = 0; i <  fdCnt; i++) ਍ഀ {%>
                          ਍ഀ <OPTION><%=REC.Fields(i).Name%></OPTION>
<%                     ਍ഀ }%>
                     ਍ഀ </SELECT></TD>
                ਍ഀ <TD><B>Field Type:</B><SELECT name=listType size=11 ਍ഀ WIDTH=160 style="WIDTH: 160">
<%                     ਍ഀ for (i = 0; i <  fdCnt; i++) ਍ഀ {%>
                          ਍ഀ <OPTION><%=TypeStr( REC.Fields(i).Type ਍ഀ )%></OPTION>
<%                     ਍ഀ }%>
                     ਍ഀ </SELECT></TD>
                ਍ഀ <TD><B>Field Size:</B><SELECT name=listSize size=11 ਍ഀ WIDTH=160 style="WIDTH: 160">
<%                     ਍ഀ for (i = 0; i <  fdCnt; i++) ਍ഀ {%>
                          ਍ഀ <OPTION><%=REC.Fields(i).DefinedSize%></OPTION>
<%                     ਍ഀ }%>
                     ਍ഀ </SELECT></TD>
<%                ਍ഀ REC.Close();
           } ਍ഀ else ਍ഀ {%>

                ਍ഀ <TD><B>Field Name:</B><BR><SELECT name=listName ਍ഀ size=11 WIDTH=160 style="WIDTH: ਍ഀ 160">
                     ਍ഀ </SELECT></TD>
                ਍ഀ <TD><B>Field Type:</B><BR><SELECT name=listType ਍ഀ size=11 WIDTH=160 style="WIDTH: ਍ഀ 160">
                     ਍ഀ </SELECT></TD>
                ਍ഀ <TD><B>Field Size:</B><BR><SELECT name=listSize ਍ഀ size=11 WIDTH=160 style="WIDTH: ਍ഀ 160">
                     ਍ഀ </SELECT></TD>
<%           ਍ഀ }%>
           ਍ഀ </TR></TABLE>

           ਍ഀ <TABLE><TR>
                ਍ഀ <TD><B>Indexes:<B><BR>
                     ਍ഀ <SELECT name=listIndex size=5 width=320 style="WIDTH: 320">
<%                ਍ഀ if ( selectIndex > -1 ) ਍ഀ {
                     ਍ഀ arr4 = new Array(null, null, tbName, ਍ഀ null);
                     ਍ഀ REC = RS.ActiveConnection.OpenSchema(20, ਍ഀ arr4);
                     ਍ഀ schem = ਍ഀ REC.Fields.Item(0).value;
                     ਍ഀ cotag = ਍ഀ REC.Fields.Item(1).value;
                     ਍ഀ REC.Close();

                     ਍ഀ temp = ਍ഀ "";
                     ਍ഀ if ( selectIndex > -1 ) ਍ഀ {
                          ਍ഀ arr5 = new Array(schem, cotag, null, null, ਍ഀ tbName);
                          ਍ഀ REC = RS.ActiveConnection.OpenSchema(12, ਍ഀ arr5);
                          ਍ഀ while ( !REC.Eof ) ਍ഀ {
                               ਍ഀ idxName = ਍ഀ REC.Fields("INDEX_NAME");
                               ਍ഀ if ( idxName.Value != null && temp != idxName.Value ) ਍ഀ {%>

                                    ਍ഀ <OPTION><%=idxName.Value%>
<%                                    ਍ഀ temp = ਍ഀ idxName.Value;
                               ਍ഀ }
                               ਍ഀ REC.MoveNext();
                          ਍ഀ }
                          ਍ഀ REC.Close();
                     ਍ഀ }
                ਍ഀ }%>

                     ਍ഀ </SELECT></TD>
           ਍ഀ </TR></TABLE>
      ਍ഀ </TD>
</TR></TABLE>
</form>

<hr size="1" ਍ഀ color="#000000">
<EM>This is <B><%=dbms%></B> database.</EM>
<font ਍ഀ size="+1">
<center><a href="default.asp">
Return ਍ഀ Home</a></center></font>

</BODY>
</HTML>

<SCRIPT  language=JavaScript>
function ਍ഀ Listtable_onChange() {
      list = ਍ഀ document.form1.Listtable;
      if ਍ഀ (list.selectedIndex > -1 && list.selectedIndex <  ਍ഀ list.length){
           ਍ഀ document.form1.action = "dbinfo.asp?dbms=<%=dbms%>&tbName=" + ਍ഀ list.options[list.selectedIndex].text;
           ਍ഀ document.form1.submit();
      ਍ഀ }
}
</SCRIPT>

਍ഀ
਍ഀ
਍ഀ

 

਍ഀ