ഀ ഀ
View ASP Source code
ഀ
ഀ
ഀ ഀ
ഀ
ഀ
ഀ
ASP Source Code
ഀ
ASP File: ഀ jscript/ado/webaccess/opencnn.asp
ഀ
ഀ
ഀ
ഀ
ഀ
ഀ
ഀ
ASP Script
ഀ
ഀ
ഀ
ഀ
Comments or Client-side ഀ Script
ഀ
ഀ
ഀ
HTML and Text
ഀ
ഀ
ഀ
<%@ ഀ Language=JavaScript %>
<HTML>
<HEAD>
<%
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 = ""
ഀ }
var strCnn = "Driver=" + DrvArry[drv] + ഀ ";URL=" + url + ";UID=" + uid + ";PWD=" + pwd + ഀ ";";
//strCnn = ഀ "DSN=AccessDB;UID=sa;PWD=;";
ഀ Session("webConn") = ഀ Server.CreateObject("ADODB.CONNECTION");
ഀ Session("webConn").Open (strCnn);
} else {
ഀ dbms = Request.QueryString("dbms");
}
if ( ഀ Request.QueryString("NewTable").Count > 0 ) ഀ {
Session("webConn").Execute ഀ (Request.Form("TbSQL"));
idxCnt = ഀ Request.Form("listIndex").Count;
if (idxCnt ഀ > 0) {
for (i ഀ = 0; i < idxCnt; i++) ഀ {
ഀ Session("webConn").Execute( Request.Form("listIndex")(i + 1) ഀ );
ഀ }
}
}
if ( ഀ Request.QueryString("DelTable").count > 0 ) ഀ {
sql = "DROP TABLE " + ഀ Request.Form("ticker");
ഀ Session("webConn").Execute( sql ഀ );
}
%>
</HEAD>
<BODY>
<FORM method=post ഀ action=blank.asp name=form1 target=bottom>
ഀ <TABLE width=100% height=160>
<TR><TD ഀ valign=top bgcolor="#a5bace" ഀ width=10%>
ഀ <font ഀ size=+1><b>Database</b></font>
ഀ <center><P>
<A ഀ href="open.asp?Operator=NewDB">New</A><br>
ഀ <A ഀ href="open.asp?Operator=OpenDB">Open</A></P></Center>
ഀ </TD>
ഀ <TD valign=top bgcolor="#EEEEEE" ഀ width=90%>
ഀ <TABLE><TR>
ഀ <TD><input type=button name=Newtb value="New Table" ഀ onclick="OperateTable(1)"></TD>
ഀ <TD><input type=button name=Opentb value="Open Table" ഀ onclick="OperateTable(2)"></TD>
ഀ <TD><input type=button name=Designtb value="Design Table" ഀ onclick="OperateTable(3)"></TD>
ഀ <TD><input type=button name=Deletetb value="Delete Table" ഀ onclick="OperateTable(4)"></TD>
ഀ </TR></TABLE>
ഀ <TABLE ഀ width=100%><TR><TD>
ഀ Table Name: <INPUT type=textbox name=ticker value="
<%=Request.QueryString("clickName")%>
">
ഀ <FONT size=2>(existing tables, write to textbox or click it to open, ഀ design or ഀ delete.)</FONT>
ഀ </TD></TR></TABLE>
ഀ <TABLE width=100% cellpadding=0 cellspacing=0>
<% ഀ RS = Session("webConn").OpenSchema(20) ഀ //adSchemaTables
ഀ rows = ഀ 0;
ഀ while ( !RS.Eof ) ഀ {
ഀ if ( rows % 5 == 0 ) ഀ {%>
ഀ <TR>
<% ഀ }
ഀ if (RS.Fields.Item("TABLE_TYPE").Value == "TABLE") ഀ {%>
ഀ <TD><A HREF="opencnn.asp?dbms=
<%=dbms%>
&clickName=
<%=RS.Fields.Item("TABLE_NAME")%>
"><font ഀ color=blue class=a>
<%=RS.Fields.Item("TABLE_NAME")%>
</font></A></TD>
<% ഀ rows = rows + ഀ 1;
ഀ }
ഀ if (rows % 5 == 0) ഀ {%>
ഀ </TR>
<% ഀ }
ഀ RS.MoveNext();
ഀ }
ഀ RS.Close();
ഀ rows = rows % ഀ 5;
ഀ if (rows > 0) ഀ {
ഀ for (i = rows; i < 5; i++) ഀ {%>
ഀ <TD> </TD>
<% ഀ }%>
ഀ </TR>
<% ഀ }%>
ഀ </TABLE>
ഀ </TD>
ഀ </TR></TABLE>
</FORM>
ഀ
<SCRIPT ഀ language=javascript>
ഀ document.form1.submit();
ഀ </SCRIPT>
</BODY>
</HTML>
<SCRIPT language=javascript>
function ഀ OperateTable(option){
if ഀ (document.form1.ticker.value == "" && parseInt(option) != 1) ഀ {
alert("Please ഀ enter or select a ഀ table.");
ഀ return;
ഀ }
switch ഀ (option){
case ഀ 1:
ഀ document.form1.action = "newtb.asp?dbms=
<%=dbms%>
";
ഀ document.form1.target="bottom";
ഀ break;
case ഀ 2:
ഀ document.form1.action = ഀ "opentb.asp?mode=1&direction=0";;
ഀ document.form1.target="bottom";
ഀ break;
case ഀ 3:
ഀ document.form1.action = "designtb.asp?dbms=
<%=dbms%>
";
ഀ document.form1.target="bottom";
ഀ break;
case ഀ 4:
ഀ document.form1.action = "opencnn.asp?dbms=
<%=dbms%>
&DelTable=ok";
ഀ document.form1.target = ഀ "top";
ഀ break;
}
ഀ document.form1.submit();
}
</SCRIPT>
ഀ
ഀ ഀ
ഀ