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

ASP File: ਍ഀ jscript/ado/publishers/publishers.asp

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ 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 + ";"
      //strCnn = ਍ഀ "DSN=AccessDB;UID=sa;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 <%=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>
਍ഀ
਍ഀ ਍ഀ

 

਍ഀ