Online Database Management Tool (db007) v1.5

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Online database management tool db007 1.5</title>
<style type="text/css">

</style>
</head>

<body>
<%
if request("key") = "db" then
    session("dbtype") = request("dbtype")
    session("dbstr") = request("dbstr")
     "?"
end if

if request("key") = "createdatabase" then
    call createdatabase()
end if

if session("dbtype") = "" or session("dbstr") = "" then
    %>
    <form action="?key=db" method="post" name="dbt">
          <br>
Connection type:
          <input name="dbtype" type="radio" value="access" onClick="='Provider=.4.0;Persist Security Info=False;Password=;Data Source=<%=("/")&"\"%>'" checked>
          ACCESS
          <input disabled="disabled" type="radio" name="dbtype" value="sql" onClick="='driver={SQL Server};database=;Server=;uid=;pwd='">
          SQL<br><br>
Connection characters: <input name="dbstr" type="text" size="120" value="Provider=.4.0;Persist Security Info=False;Password=;Data Source=<%=("/")&"\"%>">
<input type="submit" name="Submit" value="Connection"/><br><br>
Note: Please use the absolute path to access, the path of this file: <%=("")%>
    </form>
    <form name="createdatabase" method="post" action="?key=createdatabase">
<font color=red>Create a database:</font>path
      <input name="dataname" type="text" value="<%=("/")&"\"%>" size="100">
<input type="submit" name="Submit" value="Create">
    </form>
    <%
    ()
end if

'=========================================================================================================
sub createdatabase()
    dim DBName,dbstr,myCat
    on error resume next
    DBName = request("dataname")
    dbstr = "PROVIDER=.4.0;DATA SOURCE=" & DBName
    Set myCat = ( "" )
     dbstr

    if err <> 0 then

        session("dbtype") = ""
        session("dbstr") = ""
"<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"

    end if

    session("dbtype") = "access"
    session("dbstr") = dbstr
     "?"
end sub

'============================================================================================================== Call the link function
conn()

function conn()
    dim conn1,connstr
    on error resume next
    select case session("dbtype")
    case "access"
'==================================================================================================================================================================================Connect the ACCESS database
        connstr = session("dbstr")
        Set Conn1 = ("")
         connstr
    case "sql"
'======================================================================================================================================================= Connect to SQL database
        set conn1 = ("")
         session("dbstr")
    end select

    if err <> 0 then

        session("dbtype") = ""
        session("dbstr") = ""
"<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"

    end if

    set conn = conn1
end function

Sub echo(str)
    (str)
End Sub

Function IIf(var, val1, val2)
    If var = True Then
        IIf = val1
     Else
        IIf = val2
    End If
End Function

'regex function, used to delete comments
'-------------------------------------
Function RegExpReplace(strng, patrn, replStr)
Dim regEx,match,matches
Set regEx= New RegExp
= patrn              'Set mode.
= True            'Set whether it is case sensitive.
= True  'Set global availability.

RegExpReplace = (strng, replStr)          ' For replacement.
End Function

'==================================================================================================== ADOVBS Constant Declaration

'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000

'---- SchemaEnum Values ----
'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialConstraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
Const adSchemaDBInfoKeywords = 30
Const adSchemaDBInfoLiterals = 31
Const adSchemaCubes = 32
Const adSchemaDimensions = 33
Const adSchemaHierarchies = 34
Const adSchemaLevels = 35
Const adSchemaMeasures = 36
Const adSchemaProperties = 37
Const adSchemaMembers = 38
Const adSchemaTrustees = 39
Const adSchemaFunctions = 40
Const adSchemaActions = 41
Const adSchemaCommands = 42
Const adSchemaSets = 43

'===================================================================================== Return field type function
Function typ(field_type)
'field_type = Field type value
    Select Case field_type
        case adEmpty:typ = "Empty"
        case adTinyInt:typ = "TinyInt"
        case adSmallInt:typ = "SmallInt"
        case adInteger:typ = "Integer"
        case adBigInt:typ = "BigInt"
        case adUnsignedTinyInt:typ = "TinyInt" 'UnsignedTinyInt
        case adUnsignedSmallInt:typ = "UnsignedSmallInt"
        case adUnsignedInt:typ = "UnsignedInt"
        case adUnsignedBigInt:typ = "UnsignedBigInt"
        case adSingle:typ = "Single" 'Single
        case adDouble:typ = "Double" 'Double
        case adCurrency:typ = "Money" 'Currency
        case adDecimal:typ = "Decimal"
        case adNumeric:typ = "Numeric" 'Numeric
        case adBoolean:typ = "Bit" 'Boolean
        case adError:typ = "Error"
        case adUserDefined:typ = "UserDefined"
        case adVariant:typ = "Variant"
        case adIDispatch:typ = "IDispatch"
        case adIUnknown:typ = "IUnknown"
        case adGUID:typ = "GUID" 'GUID
        case adDATE:typ = "DateTime" 'Date
        case adDBDate:typ = "DBDate"
        case adDBTime:typ = "DBTime"
        case adDBTimeStamp:typ = "DateTime" 'DBTimeStamp
        case adBSTR:typ = "BSTR"
        case adChar:typ = "Char"
        case adVarChar:typ = "VarChar"
        case adLongVarChar:typ = "LongVarChar"
case adWChar:typ= "Text" 'WChar type Text in SQL
        case adVarWChar:typ = "VarChar" 'VarWChar
        case adLongVarWChar:typ = "Text" 'LongVarWChar
        case adBinary:typ = "Binary"
        case adVarBinary:typ = "VarBinary"
        case adLongVarBinary:typ = "LongBinary"'LongVarBinary
        case adChapter:typ = "Chapter"
        case adPropVariant:typ = "PropVariant"
        case else:typ = "Unknown"
    end select
End Function

'======================================================================================== Return to the field type list
Function fieldtypelist(n)
    dim strlist,str1,str2
    strlist = "<select name=""field_type"">"
    if session("dbtype") = "access" then
strlist = strlist & "<option value=""VarChar"">text</option>"
strlist = strlist & "<option value=""Text"">Remarks</option>"
strlist = strlist & "<option value=""Bit"">(Yes/No)</option>"
strlist = strlist & "<option value=""TinyInt"">number (byte)</option>"
strlist = strlist & "<option value=""SmallInt"">number (integer)</option>"
strlist = strlist & "<option value=""Integer"">number (long integer)</option>"
strlist = strlist & "<option value=""Single"">number (single precision)</option>"
strlist = strlist & "<option value=""Double"">number (double precision)</option>"
strlist = strlist & "<option value=""Numeric"">number (decimal)</option>"
strlist = strlist & "<option value=""GUID"">number (synchronous ID)</option>"
strlist = strlist & "<option value=""DateTime"">Time/Date</option>"
strlist = strlist & "<option value=""Money"">currency</option>"
strlist = strlist & "<option value=""Binary"">binary</option>"
strlist = strlist & "<option value=""LongBinary"">Long Binary</option>"
strlist = strlist & "<option value=""LongBinary"">OLE Object</option>"

    else
strlist = strlist & "<option value="""">Select type</option>"
        strlist = strlist & "<option value=""BigInt"">bigint</option>"
strlist = strlist & "<option value=""Binary"">binary(binary data type)</option>"
strlist = strlist & "<option value=""Bit"">bit(integer)</option>"
strlist = strlist & "<option value=""Char"">char(character type)</option>"
strlist = strlist & "<option value=""DateTime"">datetime(datetime type)</option>"
strlist = strlist & "<option value=""Decimal"">decimal(accurate numerical type)</option>"
strlist = strlist & "<option value=""Float"">float(approximate numerical type)</option>"
strlist = strlist & "<option value=""Image"">image(binary data type)</option>"
strlist = strlist & "<option value=""Int"">int(int)</option>"
strlist = strlist & "<option value=""Money"">money(money type)</option>"
strlist = strlist & "<option value=""nchar"">nchar(Unified Encoding Character Type)</option>"
strlist = strlist & "<option value=""text"">ntext(Unified Encoding Character Type)</option>"
strlist = strlist & "<option value=""numeric"">numeric(accurate numeric)</option>"
strlist = strlist & "<option value=""nvarchar"">nvarchar(Unified Encoding Character Type)</option>"
strlist = strlist & "<option value=""real"">real(approximate numerical type)</option>"
strlist = strlist & "<option value=""smalldatetime"">Smalldatetime(datetime)</option>"
strlist = strlist & "<option value=""smalllint"">smalllint(integral)</option>"
strlist = strlist & "<option value=""smallmoney"">smallmoney(currency type)</option>"
        strlist = strlist & "<option value=""sql_variant"">sql_variant()</option>"
strlist = strlist & "<option value=""text"">text(character type)</option>"
strlist = strlist & "<option value=""timestamp"">timestamp(Special Data Type)</option>"
strlist = strlist & "<option value=""tinyint"">tinyint(integral)</option>"
strlist = strlist & "<option value=""uniqueidentifier"">Uniqueidentifier(Special Data Type)</option>"
strlist = strlist & "<option value=""varbinary"">varbinary(binary data type)</option>"
strlist = strlist & "<option value=""varchar"">varchar(character type)</option>"
    end if
    str1 = """" & n & """"
    str2 = """" & n & """" & " selected"
    strlist = replace(strlist,str1,str2)
    strlist = strlist & "</select>"
    echo strlist
End Function

'=======================================================================================================================================================
sub main(str)
    on error resume next
    %>
    <script language=javascript>
    ie = ()? true:false
    if (ie){
    function ctlent(eventobject){if( &&
    ==13){();}}
    }
    </script>
    <script language="javascript">
        function table_delete()
        {
if (confirm("Confirm to delete the record? This operation will be irrevocable!!!"))
            return true;
        else
            return false;
        }
    </script>

    <form action="?key=sql" method=post name="exesql">
<font color=red>Execute sql statement:</font><font color=#999999>(Each statement ends with ";", supports (--)SQL comments, Ctrl + Enter quick submission)</font>  <input type="button" value="Refresh this page" onClick="javascript:()">      
        <span onClick="+=5;" style="cursor:pointer;">+</span>
        <span onClick="if(>9)-=5" style="cursor:pointer;">-</span>
        <div style="float:left;width:600px;">
        <textarea  name="sql" style="width:600px;" rows="9" ondblClick="();" onKeyDown="ctlent()"><%=request("sql")%></textarea><br />
        <input type="checkbox" name="SchemaTable" value="1" style="border:0px;">adSchemaTables
        <input type="checkbox" name="SchemaColumn" value="2" style="border:0px;">adSchemaColumns
        <input type="checkbox" name="SchemaProvider" value="3" style="border:0px;">adSchemaProviderTypes  
Page size:
        <select name="pageSize">
          <%
          if request("pageSize") <> "" and  isNumeric(request("pageSize")) then
             echo "<option value='"&request("pageSize")&"' selected>"&request("pageSize")&"</option>"
          else
             echo "<option value='50'>50</option>"
          end if
          %>
          <option value="10">10</option>
          <option value="20">20</option>
          <option value="30">30</option>
          <option value="40">40</option>
          <option value="50">50</option>
          <option value="60">60</option>
          <option value="70">70</option>
          <option value="80">80</option>
          <option value="90">90</option>
          <option value="100">100</option>
        </select>

        </div>
        <div style="float:left;width:50px;padding:60px 0px 0px 5px;">
<input type="submit" name="Submit_confirm" value="submit"> <br /// <br //
<input type="button" name="Submit3" value="Clear" onClick="=''"><br /><br />
<input type="button" name="ok" value="return" onClick="javascript:(-1)">
        </div>
    </form>
    <div style="clear:both"></div>
    <% if str = "" then %>
    <form action="?key=addtable" method="post">
        <div style="clear:both;text-align:left;"><br />
<font color=red>Create a new table:</font><br>
Table  Name: <input type="text" name="table_name" size="20"><br>
Number of fields: <input type="text" name="field_num" size="20">
<input type="submit" name="Submit_create" value="submit">
<input type="reset" name="Submit32" value="Reset">
        </div>
    </form>
    <br><br>
<a href="?key=tosql&strt=2">Export all table structures to SQL</a>
    <%
    end if
end sub

'========================================================================================== Create table interface
sub add_table(table_name,field_num)
'table_name = Table name
'field_num  = Number of fields
    on error resume next
    if not IsNumeric(field_num) then
echo "The number of fields must be an integer."
echo "<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"
        exit sub
    end if
    %>
<p class="hei"><span>Create table:</span><%=table_name%></p>
    <form action="?key=createtable" method="post">
    <table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
      <tr>
<td width="75" height="20" align="center">field name</td>
<td width="99" height="20" align="center">Category</td>
<td width="73" height="20" align="center">Large Small</td>
<td width="96" height="20" align="center">null value</td>
<td width="83" height="20" align="center">Auto number</td>
<td width="143" height="20" align="center">main key</td>
      </tr>
      <% for i = 0 to field_num - 1 %>
      <tr>
        <td width="75" height="20" align="center">
            <input type="text" name="field_name" size="10">
        </td>
        <td width="99" height="20" align="center">
            <% fieldtypelist(0) %>
        </td>
        <td width="73" height="20" align="center">
            <input type="text" name="field_size" size="10">
        </td>
        <td width="96" height="20" align="center">
            <select name="null">
              <option value="NOT_NULL">NOT_NULL</option>
              <option value="NULL">NULL</option>
            </select>
        </td>
        <td width="83" height="20" align="center">
          <select size="1" name="autoincrement">
            <option></option>
<option>Auto number</option>
          </select>
        </td>
        <td width="143" height="20" align="left">
              <select name="primarykey">
                <option></option>
                <option value="primarykey">primarykey</option>
              </select>
        </td>
      </tr>
      <% next %>
      <tr>
        <td height="35" align="center" colspan="5">
            <input type="hidden" name="i" value=<%=field_num%>>
            <input type="hidden" name="table_name" value="<%=table_name%>">
<input type="submit" name="Submit" value=" Submit">
              
<input type="reset" name="Submit2" value=" Reset ">
            
<input type="button" name="ok" value=" Give Up" onClick="javascript:(-1)">
        </td>
        <td height="20"></td>
      </tr>
    </table>
    </form>
    <%
end sub

'=================================================================================================== Build SQL statements that create tables
sub create_table()
    dim sql,i,primarykey
    on error resume next
    sql = "CREATE TABLE ["&request("table_name")&"] ("
    for i = 1 to request("i")
       sql = sql & "[" & request("field_name")(i) & "] " & request("field_type")(i)
          if request("field_size")(i) <> "" then
              sql = sql & "(" & request("field_size")(i) & ")"
          end if
          if request("null")(i) = "NOT_NULL" then
              sql = sql & " not null"
          end if
if request("autoincrement")(i) = "Autoincrement" then
              sql = sql & " identity"
          end if
          if request("primarykey")(i) = "primarykey" then
              primarykey = request("field_name")(i)
          end if
        'if primarykey <> "" then
           sql = sql & ","
        'end if
    next
    if primarykey<>"" then
       sql=sql&" primary key (["&primarykey&"]) "
    end if
    sql = sql & ")"
sql = replace(sql,"()","")  'Build an empty table
     "?key=sql&sql=" & sql
end sub

'================================================================================ Modify the table name or field name 2006-09-08
sub reobj()
    on error resume next
    Dim mydb,mytable,tablename
    tablename = request("tablename")
    Set mydb = ("")
     = conn

if request("obj")= "field" then  'Modify the field name
        dim fieldsname,newfieldsname
        fieldsname = request("fieldsname")
        newfieldsname = request("newfieldsname")
        Set mytable = ("")
        Set mytable = (tablename)
        (fieldsname).Name = newfieldsname
    end if

if request("obj") = "table" then 'Modify the table name
        dim newtablename
        newtablename = request("newtablename")
        (tablename).Name = newtablename
    end if

    if err <> 0 then
        echo
echo "<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"
        exit sub
    end if

    if request("obj") = "field" then
         "?key=view&table_name=" & tablename
    else
         "?key=view&table_name=" & newtablename
    end if

end sub

'============================================================================================== View table structure function
sub view(table_name)
'table_name = Table name
    dim rs,sql,table,primary,primarykey,i,editstr,typs
    on error resume next
    table = table_name
    Set primary = (adSchemaPrimaryKeys,Array(empty, empty, table))
    if primary("COLUMN_NAME") <> "" then
        primarykey = primary("COLUMN_NAME")
    end if

    Set primary = Nothing

    %>

    <script language="javascript">
        function table_delete()
        {
if (confirm("Confirm to delete the record? This operation will be irrevocable!!!"))
            return true;
        else
            return false;
        }
    </script>

<font color=red>Table: <%=table_name%></font>      <input type="button" value="Refresh this page" onClick="javascript:()"><br><br>
    <% if request("key") = "editfidlevi" then call editfidlevi() %>
    <table width="600" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
    <tr>
<td width="125" height="20" align="center">word segment name</td>
<td width="110" align="center">Category</td>
<td width="83" align="center"> Set size</td>
<td width="48" align="center">Available</td>
<td width="76" align="center">Auto number</td>
<td width="54" align="center">primary key</td>
<td width="82" align="center">Perform an action</td>
    </tr>
    <%
    sql = "SELECT * FROM [" & table_name & "] "
    Set rs = (sql)
    if err = 0 then
        For i = 0 to -1
        %>
        <tr>
          <td height="20" align="left"><%=rs(i).name%></td>
          <td align="left"><%=typ(rs(i).type)%></td>
          <td align="center"><%=rs(i).definedsize%></td>
          <td align="center"><%=iif((rs(i).Attributes and adFldIsNullable)=0,"No","Yes")%></td>
<td align="center"><%=iif(rs(i).Properties("ISAUTOINCREMENT")= True,"Yes","No")%></td>
<td align="center"><%=iif(rs(i).name = primarykey,"Yes","No")%></td>
          <td align="center">
<a href="?key=editfidlevi&fidle=<%=rs(i).name%>&table_name=<%=table_name%>&fidletype=<%=typ(rs(i).type)%>">Modify</a> 
<a href="?key=sql&sql=alter table [<%=table_name%>] drop [<%=rs(i).name%>];" onClick="return table_delete();">Delete</a>
          </td>
        </tr>
        <%
            editstr = editstr&"<option value='"&rs(i).name&"'>"&rs(i).name&"</option>"
        next
        %>
        </table>
        <br>
<a href="?key=tosql&strt=0&table_name=<%=table_name%>">Export table structure</a>  
<a href="?key=sql&sql=select * from <%=table_name%>&table_name=<%=table_name%>&primarykey=<%=primarykey%>">Browse table records</a>  
<a href="?key=sql&sql=DROP TABLE <%=table_name%>" onClick="return table_delete();">Delete table</a>    
        <input type="text" name="newtablename" size="20" value="<%=table_name%>">
<input type="button" value="Modify table name" onClick="='?key=reobj&obj=table&tablename=<%=table_name%>&newtablename='+">
        <br><br>
        <%
'Just determine whether there is a primary key
        if primarykey = "" then
echo "<font color=red>This table has no primary key, and performing operations may cause data corruption or loss.</font><br>"
echo “You can:”
            echo "<select name='keyname'>"
            For i=0 to -1
                echo "<option value=" & rs(i).name & ">" & rs(i).name & "</option>"
            next
            echo "</select> "
echo "<input type=button value=Set as primary key onclick=""='?key=sql&sql=ALTER TABLE ["&table_name&"] ADD PRIMARY KEY (['++'])';"">"
            echo "<br><br>"
        end if
'Show modify field name
        echo "<select name='fieldsname'>"
echo "<option value=''>Select field</option>"
        echo editstr
echo "</select> Renamed to " & chr(10)
        echo "<input type='text' name='newfieldsname' size='20'> "  & chr(10)
echo "<input type=button value=Modify field name onclick=""='?key=reobj&obj=field&tablename="&table_name&"&fieldsname='++'&newfieldsname='+"">"
        echo "<br><br>"
    end if

    set rs = nothing
    %>
<font color=red>Add field:</font><br><br>
    <form action="?key=addfield" method="post">
      <table width="600" height="39" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
        <tr>
<td width="60" height="20" align="center">field name</td>
<td width="50" height="20" align="center">type</td>
<td width="58" height="20" align="center">Set size</td>
<td width="64" height="20" align="center">Number values are allowed</td>
<td width="66" height="20" align="center"> Auto number</td>
          <td width="96" height="20" align="center">  </td>
        </tr>
        <tr>
          <td width="60" height="20" align="center">
            <input type="text" name="fldname" size="10">
          </td>
          <td width="50" height="20" align="center">
            <% fieldtypelist(0) %>
          </td>
          <td width="58" height="20" align="center">
            <input type="text" name="fldsize" size="10">
          </td>
          <td width="64" height="20" align="center">
            <input name="null" type="checkbox" value="ON" checked>
          </td>
          <td width="66" height="20" align="center">
            <input type="checkbox" name="autoincrement" value="ON">
          </td>
          <td width="96" height="20" align="center">
            <input type="hidden" name="table_name" value="<%=table_name%>">
<input type="submit" value="submit">
          </td>
        </tr>
    </table>
    </form>
    <%
end sub

'===================================================================================== The interface for modifying field properties
sub editfidlevi()
    dim sql,rs,i
    on error resume next
    sql = "Select * From [" & request("table_name") & "]"
    set rs = (sql)
    for i = 0 to  - 1
        if rs(i).name = request("fidle") then
        %>
        <script LANGUAGE="JavaScript">
            function validate(theForm) {
                if ( == "")
                {
alert("Please enter data type");
                ();
                return (false);
                }
                return (true);
            }
        </script>
<font color=red>Modify field properties:</font>
        <form action="?key=editfidle&fidle=<%=request("fidle")%>&table_name=<%=request("table_name")%>" method="post" name=frm onSubmit="return validate(frm)">
        <table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
          <tr>
<td width="60" height="20" align="center">field name</td>
<td width="50" height="20" align="center">type</td>
<td width="58" height="20" align="center">Set size</td>
<td width="64" height="20" align="center">Accept null values</td>
<td width="66" height="20" align="center">Auto number</td>
            <td width="96" height="20"></td>
          </tr>
          <tr>
            <td width="60" height="20" align="center"><%=rs(i).name%></td>
            <td width="50" height="20" align="center">
            <% fieldtypelist(request("fidletype")) %>
              </td>
              <td width="58" height="20"><input type="text" name="size" size="10"></td>
              <td width="64" height="20" align="center">
              <input type="checkbox" name="null" value="null"<%=iif((rs(i).Attributes and adFldIsNullable)=0,""," checked")%>>
              </td>
              <td width="66" height="20" align="center">
              <input type="checkbox" name="autoincrement" value="y"<%=iif(rs(i).Properties("ISAUTOINCREMENT") = True," checked","")%>>
              </td>
              <td width="96" height="20" align="center">
<input type="submit" name="Submit" value="submit">
              </td>
            </tr>
          </table><br>
        </form>
        <%
        end if
    next
end sub

'======================================================================================================================== Modify field properties
sub editfidle()
       on error resume next
       sql = "ALTER TABLE [" & request("table_name") & "] "
       sql = sql&"ALTER COLUMN [" & request("fidle") & "] "
       if request("field_type") <> "" then
          sql = sql & request("field_type")
       end if
       if request("size") <> "" then
          sql = sql & "(" & request("size") & ") "
       end if
          if request("null") = "" then
              sql = sql & " not null"
          end if
          if request("autoincrement") = "y" then
              sql = sql & " identity"
          end if
    sql = trim(sql)
    (sql)
     "?key=view&table_name="& request("table_name")
end sub

'=============================================================================================== Add field function
sub addfield()
    on error resume next
    fldname = request("fldname")
    fldtype = request("field_type")
    fldsize = request("fldsize")
    fldnull = request("null")
    fldautoincrement = request("autoincrement")
    table_name = request("table_name")
    if fldname <> "" and fldtype <> "" then
      sql = "alter table [" & table_name & "] add ["&fldname&"] " & fldtype

      if fldsize <> "" then
        sql = sql & "(" & fldsize & ")"
      end if

      if fldnull <> "ON" then
        sql = sql & " not null"
      end if

      if fldautoincrement = "ON" then
        sql = sql & " identity"
      end if
      (sql)
       "?key=view&table_name=" & table_name
    else
echo "Input data error! <input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"
    end if
    if err <> 0 then
        echo
echo "<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"

    end if
end sub

'================================================================================================ Edit data
sub editdata()
    dim keys,names,values,action,rs,sql,tab
    on error resume next
    keys = request("primarykey")
    names = request("table_name")
    values = request("primarykeyvalue")
    action = request("action")
    Set rs = ("")
    if action = "" or action = "save" or action = "new" then
        sql = "select * from " & names & " where " & keys & " = " & values
    end if
    if action = "pre" then
        sql = "select top 1 * from " & names & " where " & keys & " < " & values & " order by " & keys & " desc"
    end if
    if action = "next" then
        sql = "select top 1 * from " & names & " where " & keys & " > " & values & " order by " & keys & " asc"
    end if
    if action = "add" then
        sql = "Select * From [" & names & "]"
    end if
     sql, conn, 1, 3

    if  and action = "new" then
        sql = "Select * From [" & names & "]"
         sql, conn, 1, 3
    end if

    if action = "save" or action = "new" then
        If action = "new" Then
        For Each tab In
            If Keys <>  Then
                rs() = ( & "_Column")
                if err <> 0 then
                    echo  &
echo "<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"

                end if
            End If
        Next

    end if

echo “Field Data Editing<br>”
    echo "<table width=600 border=0 cellpadding=5 cellspacing=1 bgcolor=#CCCCCC><tr><td>"
    echo "<form action='?key=edit&table_name=" & names & "&primarykey=" & keys & "&primarykeyvalue=" & iif(action<>"add",rs(keys),"") & "' method='post' name='editor'>"
    echo "<br>"
    echo "<input type=hidden name=action value=save>"
echo iif(action="add","","<input type=submit value=Save onclick=='save';> ")
echo "<input type=button value=add onclick=if(confirm('Are you really going to add the current as a new record?')){='new';();};> "
echo "<input type=button value=previous onclick=""='pre';();""> "
echo "<input type=button value=next onclick=""='next';();"">  "
echo "<a href='?key=view&table_name=" & names & "'>Table structure</a>  "
echo "<a href='?key=sql&sql=select * from " & names & "&table_name="& names & "&primarykey="&keys&"'>Table browsing</a>  "
echo "<a href='?'>Main interface</a><br>"
    if not  or action = "add" then
        For Each tab In
            echo ""
            echo "<BR><font color=red>" &  & "</font> <font color=#999999>( " & typ() & " )</font><br>"
            if  = 201 Or  = 203 then
                echo "<textarea style='width:600;' name=""" &  & "_Column"" rows=6"
echo IIif( = keys, " disabled title='Primary key constraint, will not be modified.'>", ">")
                if action <> "add" then echo trim()
                echo "</textarea>"
            else
                echo "<input type='text' style='width:600;' name='" &  & "_Column'"
echo IIif( = keys, " disabled title='Primary key constraint, will not be modified.'", " ") & " value='"
                if action <> "add" then echo trim()
                echo "'>"
            end if
            echo "<br>"
        Next

    else
echo "<script>alert('no longer!');();</script>"
        ()
    end if
    echo "<br>"
echo iif(action="add","","<input type=submit value=Save onclick=='save';> ")
echo "<input type=button value=add onclick=if(confirm('Are you really going to add the current as a new record?')){='new';();};> "
echo "<input type=button value=previous onclick=""='pre';();""> "
echo "<input type=button value=next onclick=""='next';();"">  "
echo "<a href='?key=view&table_name=" & names & "'>Table structure</a>  "
echo "<a href='?key=sql&sql=select * from " & names & "&table_name="& names & "&primarykey="&keys&"'>Table browsing</a>  "
echo "<a href='?'>Main interface</a>  "
    echo "</form></td></tr></table>"
end sub

'=============================================================================================================================================================================================================================================================
sub showproc()
    dim sTableName,adox
    on error resume next
echo "Store procedure: <font color=red>" & Request("table_name") & "<font><br>"
    sTableName = Request("table_name")
    Set adox = ("")
     = Conn
    echo "<textarea cols=70 rows=8>" & (sTableName). & "</textarea><br>"
    if err <> 0 then
        echo
        exit sub
    end if
end sub

'=================================================================================================================================
'Pagination Navigation
sub showNavBar (rs,page,pageUrl,pageSize)
    page = cint(page)
    %>
    <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
    <tr>
      <% if request("primarykey") <> "" and request("table_name") <> "" then %>
<td align="left">Current table: <font color=red><%=request("table_name")%></font>     
<a href="?key=edit&table_name=<%=request("table_name")%>&primarykey=<%=request("primarykey")%>&action=add">Insert a new record</a>
      </td>
      <% end if %>
      <td align="right">
        <%
echo “There are total” & n ” records current” & page & "/" &  & "page”
        if page > 1 then
echo "<a href='" & pageUrl & "&page=1&pageSize="&pageSize&"'>Home</a> "
echo "<a href='" & pageUrl & "&page=" & page - 1 & "&pageSize="&pageSize&"'>Previous Page</a> "
        end if
        if ( > 1 and page < ) then
echo "<a href='" & pageUrl & "&page=" & page + 1 & "&pageSize="&pageSize&"'>Next Page</a> "
echo "<a href='" & pageUrl & "&page=" &  & "&pageSize="&pageSize&"'>Last Page</a> "
        end if
echo “Go to:”
        echo "<select name='select2' onChange='=;'>"
        dim i
        for i = 1 to
            echo "<option value='"& pageUrl &"&pageSize="&pageSize&"&page="& i & "' "
            if i = cint(page) then echo "selected"
            echo ">"& i &"</option>"
        next
echo "</select> page"
        %>
        </td>
    </tr>
    </table>
    <%
end sub

'=============================================================================================================================================================================================================================================================
sub showselect(sql)
    dim page,pageUrl,strdel,geturl
pageSize = request("pageSize")                                                                                                                         �
    if pageSize = "" or not isNumeric(pageSize) then pageSize = 50

'Just determine whether to delete
    if request("keylog") <> "" then
        strdel = "delete from " & request("table_name") & " where " & request("primarykey") & "=" & request("keylog")
         strdel
        (strdel)
        geturl = "?" & replace(,"&keylog="&request("keylog"),"")
         geturl
    end if

page= request("page")            'Set the number of pages currently displayed
    if page="" or not isNumeric(page) then page=1
    pageUrl = "?key=sql&sql=" & sql
    if request("primarykey") <> "" and request("table_name") <> "" then
      pageUrl = pageUrl & "&table_name=" & request("table_name") & "&primarykey=" & request("primarykey")
    end if

    '--------------------------
   dim rs
   set rs = ("")
    sql,conn,3

   if not  then
          = pageSize
      if cint(page) < 1 then page = 1
         if cint(page) >  then page =
          = page
   end if

'Show paging navigation
   showNavBar rs,page,pageUrl,pageSize

   '-------------------------------
   echo "<div style='overflow-x:auto;overflow-y:auto; width:800;height:380;'>"
   echo "<table border=0 border=0 cellpadding=3 cellspacing=1 bgcolor=#CCCCCC><tr>"
   primarykey = request("primarykey")
   if primarykey <> "" and request("table_name") <> "" then
echo "<td bgcolor=#ffffff>operation</td><td bgcolor=#ffffff>delete</td>"
   end if
for i = 0 to  - 1        'Loop field name
      set field = (i)
      echo "<td bgcolor=#ffffff>" &  & " </td>"
   next
   echo "</tr>"

   dim i,field,j
do while not  and j <
      echo "<tr>"

      if primarykey <> "" and request("table_name") <> "" then
echo "<td bgcolor=#ffffff nowrap><a href='?key=edit&table_name=" & request("table_name") & "&primarykey=" & primarykey & "&primarykeyvalue=" & rs(primarykey) & "'><font color=#666666>Editor</font></a></td>"
      echo "<td><a href='?"&&"&keylog="&rs(primarykey)&"' onClick='return table_delete();'><font color=#FF000>×</font></a></td>"
      end if

      for i = 0 to  - 1
         set field = (i)
         if len() < 12 then
             echo "<td bgcolor=#ffffff nowrap>" &  & " </td>"
         else
             echo "<td bgcolor='#ffffff'><span class='fixspan'>" &  & " </span></td>"
         end if
      next
      echo "</tr>"

      j = j + 1
   loop
' ="application/-excel"' generates EXCEL table
   echo "</table></div>"

end sub

sub exesql(sql)
    on error resume next
'============================================================================================================== Execute the SQL function

    if trim(("SchemaTable")) <> "" then Call showSchema (adSchemaTables)
    if trim (("SchemaColumn")) <> "" then Call showSchema(adSchemaColumns)
    if trim (("SchemaProvider")) <> "" then Call showSchema(adSchemaProviderTypes)

    sql = trim(request("sql"))
    if sql = "" then exit sub

sql = RegExpReplace(sql, "(--)(.)*\n", "")   'Replace comment
sql = RegExpReplace(sql,"\n[\s| ]*\r", ") 'Replace empty lines
sql= RegExpReplace(sql, "\n", "")
sql= RegExpReplace(sql, "\r", "")
    if (LCase(left(sql,len("select"))) = "select") and instr(sql,"into") = 0 then
       Call showSelect (sql)
       if err <> 0 then echo "<br><font color=red>" &  & "</font>"

    else
'If it is not a select statement, multiple semicolon-separated statements are allowed
           dim aSql,iLoop
           aSql = split(sql,";")
           for iLoop = 0 to UBound(aSql)
            if trim(aSql(iLoop)) <> "" then
                   (aSql(iLoop))
                if err <> 0 then
                    echo "<br><font color=red>" &  & "<br>  <b>"
                    echo iLoop + 1 & "、</b></font><font color=#CC6600>" & aSql(iLoop) & "</font><br>"
'()          'Ignore the error
Exit sub             'Abort execution
                else
                    echo "<div style='padding:3px 0px;border-bottom:1px solid #069;'><b>" & iLoop + 1 & "、</b>" & aSql(iLoop) & "</div>"
                end if
            end if
        next
echo "<font color=red><h4>command execution was successful</h4></font>"
   end if
end sub

'Display database information
'QueryType has the following three main parameters
'adSchemaTables
'adSchemaColumns
'adSchemaProviderTypes
'Call showSchema (adSchemaTables)
sub showSchema(QueryType)
dim rs
'set rs = ()
set rs =  (QueryType)
'set rs =  (adSchemaProviderTypes)

   echo "<div style='overflow-x:auto;overflow-y:auto; width:800;height:380;'><table border=0 border=0 cellpadding=3 cellspacing=1 bgcolor=#CCCCCC><tr>"
for i = 0 to  - 1        'Loop field name
      set field = (i)
      echo "<td bgcolor='#FFFFFF'>" &  & " </td>"
   next
   echo "</tr>"

   dim i,field
do while not                                                                                                                           �
      echo "<tr>"
      for i = 0 to  - 1
         set field = (i)
         echo "<td bgcolor='#FFFFFF'>" &  & "  </td>"
      next
      echo "</tr>"

   loop

   echo "</table></div>"
end sub

%>

<%
'======================================================================================================== Export SQL
sub tosql(strt)
'strt= 0 Export structure
'strt= 1 Export content
    dim strsql
    if strt = "0"  then
        table = request("table_name")
echo "The following is the structure of the table <font color=red>" & request("table_name") & "</font> : "
echo "<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"
        strsql = getsql(table)
    end if
    if strt = "2" then
echo “The following is the structure of the <font color=red> database </font>:”
echo "<input type='button' name='ok' value=' return ' onClick='javascript:(-1)'>"
        set objSchema = (adSchemaTables)
        Do While Not
            if objSchema("TABLE_TYPE") = "TABLE" then
                table = objSchema("TABLE_NAME")
                strsql = strsql & getsql(table)'table & "|"'getsql(table)
            end if

        Loop

    end if
    echo "<textarea cols=110 rows=38>" & strsql & "</textarea>"

end sub

'============================================================================== Output table structure
function getsql(table)
    on error resume next
getsql = "-- SQL statement of table structure " & table & "." & chr(10)
    dim primary,primarykey
    Set primary = (adSchemaPrimaryKeys,Array(empty,empty,table))
    if primary("COLUMN_NAME") <> "" then
        primarykey = primary("COLUMN_NAME")
    end if


    set primary = nothing

    tbl_struct = "CREATE TABLE [" & table & "] ( " & chr(10)
    sql = "SELECT * FROM " & table
    Set rs = (sql)
    if err = 0 then
        for i = 0 to -1
           tbl_struct = tbl_struct & "[" & rs(i).name & "] "
           typs = typ(rs(i).type)
           if typs = "VARCHAR" or typs = "BINARY" or typs = "CHAR" then
             tbl_struct = tbl_struct & typs & "(" & rs(i).definedsize & ")"
           else
             tbl_struct = tbl_struct & typs & " "
           end if
           attrib = rs(i).attributes
           if (attrib and adFldIsNullable) = 0 then
             tbl_struct = tbl_struct&" NOT NULL"
           end if
           if rs(i).Properties("ISAUTOINCREMENT") = True then
             tbl_struct = tbl_struct & " IDENTITY"
           end if
           tbl_struct = tbl_struct & "," & chr(10)
        next
        if primarykey <> "" then
            tbl_struct = tbl_struct & "PRIMARY KEY ([" & primarykey & "]));"
        else
            len_of_sql = Len(tbl_struct)
            tbl_struct = Mid(tbl_struct,1,len_of_sql-2)
            tbl_struct = tbl_struct & ");"
        end if
    else
        tbl_struct = "CREATE TABLE [" & table & "];"
    end if
    getsql = getsql & tbl_struct & chr(10) & chr(10)
end function

sub help()
echo “SQL Commonly used sentences: <br><br>”
echo “Create table:<br>”
echo “CREATE TABLE [Table Name] (<br>"
    echo "[test1] int not null identity,<br>"
    echo "[test2] binary not null,<br>"
    echo "primary key ([test1]))<br><br>"
echo “Set the primary key: ALTER TABLE [tablename] ADD PRIMARY KEY ([fieldname])<br><br>”
echo “Query: select * from tablename where fieldname *** order by id desc<br><br>"
echo “Update: update tanlename set fieldname = values,cn_name='values' where ID = 1<br><br>"
echo "Add: insert into tanlename (fieldnam,fieldnam2)values (1,'values')<br><br>"
echo “Delete: delete from tanlename where fieldname = values<br><br>”
echo “Delete table: DROP TABLE DATATITUDE TABLE
echo “Add field: ALTER TABLE [Table name] ADD [Field name] NVARCHAR (50) NULL<br><br>"
echo “Delete field: alter table [tablename] drop [fieldname]<br><br>”
echo “Modify field: ALTER TABLE [Table name] ALTER COLUMN [Field name] Type (Size) NULL<br><br>"
echo "New constraint: ALTER TABLE [Table name] ADD CONSTRAINT Constraint name CHECK ([Constraint field] <= '2000-1-1')<br><br>"
echo “Delete constraint: ALTER TABLE [Table name] DROP CONSTRAINT Constraint name<br><br>"
echo “New default value: ALTER TABLE [Table name] ADD CONSTRAINT Default value name DEFAULT '' FOR [Field name]<br><br>"
echo “Delete the default value: ALTER TABLE [Table name] DROP CONSTRAINT Default value name<br><br>”

end sub
%>


<table width="100%" height="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td width="18%" valign="top">

<div  style="overflow-x:auto;overflow-y:auto; width:100%;height:100%;">
<div style="width:140px;height:0px;overflow:hidden;"></div>
Table:  <a href="?">Main interface</a> <a href="?key=exit">Exit</a> <a href="?key=help">Help</a><br>

<%
set objSchema = (adSchemaTables)
Do While Not
    if objSchema("TABLE_TYPE") = "TABLE" then
'Output table name
        echo "<a href='?key=view&table_name="& objSchema("TABLE_NAME") &"'>" & objSchema("TABLE_NAME") & "</a><br>"
    end if

Loop

echo "All views:<br>"

Do While Not
    if objSchema("TABLE_TYPE") = "VIEW" then
'Output table name
        echo "<a href='?key=sql&sql=SELECT * FROM [" & objSchema("TABLE_NAME")& "]'>" & objSchema("TABLE_NAME") & "</a><br>"
    end if

Loop

set objSchema = nothing

'echo "Store procedure:<br>"
'set objSchema = (adSchemaProcedures)
'Do While Not
'    echo "<a href='?key=proc&table_name="& objSchema("PROCEDURE_NAME") &"'>" & objSchema("PROCEDURE_NAME") & "</a><br>"
'
'Loop
'
'set objSchema = nothing

%>
</div>
    </td>
    <td width="82%" valign="top">
<div  style="overflow-x:anto;overflow-y:auto; width:100%;height:100%;">
<%
select case request("key")
case "" 'Show the main interface
  call main("")
case "addtable" 'display the table creation interface
  call add_table(request("table_name"),request("field_num"))
case "createtable" 'Execute create table
  call create_table()
case "view"
  call view(request("table_name"))
case "sql"
  call main("1")
  call exesql(trim(request("sql")))
case "addfield"
  call addfield()
case "editfidlevi"
  call view(request("table_name"))
case "editfidle"
  call editfidle()
case "exit"
  session("dbtype") = ""
  session("dbstr") = ""
  session("db007pass") = ""
   "?"
case "tosql"
  call tosql(request("strt"))
case "proc"
  call main("1")
  call showproc()
case "help"
  call help()
case "edit"
  call EditData()
case "reobj"
  call reobj()
end select
%>
</div>
    </td>
  </tr>
</table>

</body>
</html>