![]() |
JScript Sample: jscript/ado/publishers/publishers.asp |
|
||||||
|
||||||||
<%@ Language=JavaScript %> <HTML> <HEAD> </HEAD> <BODY> <% // Open one connection and create one recordset if (Request.Form("drvtxt").Count > 0) { drv = parseInt( Request.Form("drvtxt") ); url = Request.Form("urltxt"); uid = Request.Form("uidtxt"); pwd = Request.Form("pwdtxt"); DrvArry = new Array(15); 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[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] = "intersolv.jdbc.sequelink.SequeLinkDriver"; DrvArry[15] = "openlink.jdbc2.Driver"; switch ( drv ) { case 1: case 14: dbms = "Access"; break; case 2: case 13: case 15: dbms = "SQLServer"; break; case 3: case 10: dbms = "Oracle"; break; case 4: case 11: dbms = "Informix"; break; case 5: case 6: dbms = "MySQL"; break; case 7: case 12: dbms = "Sybase"; break; case 8: dbms = "Cloudscape"; break; case 9: dbms = "Postgres"; break; default: dbms = ""; } strCnn = "Driver=" + DrvArry[drv] + ";URL=" + url + ";UID=" + uid + ";PWD=" + pwd + ";" conn = Server.CreateObject("ADODB.CONNECTION"); conn.Open( strCnn ); Session("PublishRd") = Server.CreateObject("ADODB.RECORDSET"); Session("PublishRd").Open ("Publishers", conn, 1, 2); movecnt = 1; } else { dbms = Request.QueryString("dbms"); movecnt = parseInt( Request.QueryString("movecnt") ); } RS = Session("PublishRd"); if (RS.RecordCount > 0) { direction = parseInt( Request.QueryString("direction") ); switch ( direction ) { case 1: RS.MoveFirst(); movecnt = 1; break; case 2: if ( !RS.BOF ) { RS.MovePrevious(); movecnt = parseInt(movecnt) - 1; } break; case 3: if ( !RS.EOF ) { RS.MoveNext(); movecnt = parseInt(movecnt) + 1; } break; case 4: RS.MoveLast(); movecnt = RS.RecordCount; break; } // Error Handling if ( RS.EOF ) { movecnt = RS.RecordCount; RS.MoveLast(); } if ( RS.BOF ) { movecnt = 1; RS.MoveFirst(); } } else { movecnt = 0; } %> <font size="4" face="Arial, Helvetica"> <b>BLOB of LONG VARCHAR Database Sample</b></font><br> <hr size="1" color="#000000"> <FORM Method=Post Name=form1> <TABLE width=100%> <TR><TD width=60%> <TABLE width=100%> <% fieldInfo = RS.Fields; for (i = 0; i < fieldInfo.Count - 1; i++) { field = fieldInfo.Item(i);%> <TR><TD align=center width=40%><%=field.Name%>:</TD> <TD width=60%> <% if (RS.Eof || RS.Bof) {%> <Input Type=Text name="Text<%=i%>" size=25 > <% } else {%> <Input Type=Text name="Text<%=i%>" size=25 Value="<%=field.Value%>"> <% }%> </TD></TR> <% }%> </TABLE> <TD width=5%></TD> <TD width=35%> <% field = fieldInfo.Item(9); Response.Write(field.Name)%>:<BR> <% if ( RS.Eof || RS.Bof ) {%> <TextArea Name="Text9" Rows=14 Cols=25></TextArea> <% } else {%> <TextArea Name="Text9" Rows=14 Cols=25><%=field.Value%></TextArea> <% }%> </TD></TR></TABLE> <CENTER><P> <input type=button name=MoveFirst value=" |< " onClick="MoveClick(1);"> <input type=button name=MovePrevious value=" < " onClick="MoveClick(2);"> <INPUT Type=button Name=absolute Value=" <%=movecnt%> of <%=RS.RecordCount%> "> <input type=button name=MoveNext value=" > " onClick="MoveClick(3);"> <input type=button name=MoveLast value=" >| " onClick="MoveClick(4);"> </P></CENTER> <hr size="1" color="#000000"> <EM>This is a <%=dbms%> database.</EM> <font size="+1"> <center><a href="default.asp"> Return Home</a></center></font> </FORM> </BODY> <Script Language="JavaScript"> function MoveClick(option) { document.form1.action = "publishers.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>&direction=" + option; document.form1.submit(); } </Script> </HTML> |
||||||||
|
||||||||
Copyright © 1998-2002, Halcyon
Software Inc. All rights reserved.
|