ഀ ഀ
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>
ഀ
ഀ ഀ
ഀ