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

ASP File: vbscript/ado/animals/main.asp

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=VBScript %>
<%
if ਍ഀ Request.Form("drvtxt").Count <> 0 then
      ਍ഀ drv = Request.Form("drvtxt")
      url = ਍ഀ Request.Form("urltxt")
      uid = ਍ഀ Request.Form("uidtxt")
      pwd = ਍ഀ Request.Form("pwdtxt")

     dim ਍ഀ DrvArry(14)
     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"

      ਍ഀ select case drv
           ਍ഀ case 1, ਍ഀ 13:
                ਍ഀ dbms = "Access"
           ਍ഀ case 2, 12, ਍ഀ 14:
                ਍ഀ dbms = ਍ഀ "SQLServer"
           case ਍ഀ 3, ਍ഀ 9:
                ਍ഀ dbms = "Oracle"
           ਍ഀ case 4, ਍ഀ 10:
                ਍ഀ dbms = ਍ഀ "Informix"
           case ਍ഀ 5, ਍ഀ 6:
                ਍ഀ dbms = "MySQL"
           ਍ഀ case 7, ਍ഀ 11:
                ਍ഀ dbms = "Sybase"
           ਍ഀ case ਍ഀ 8:
                ਍ഀ dbms = ਍ഀ "Cloudscape"
           ਍ഀ case ਍ഀ else
                ਍ഀ dbms = ""
      end ਍ഀ select

      strCnn = "Driver=" & ਍ഀ DrvArry(drv) & ";URL=" & url & ";UID=" & uid & ";PWD=" & ਍ഀ pwd & ";"
      'strCnn = ਍ഀ "DSN=AccessDB;UID=sa;PWD=;"

      Set connDb = ਍ഀ Server.CreateObject("ADODB.CONNECTION")
      ਍ഀ connDb.Open strCnn

      Set ਍ഀ Session("animalsRd") = ਍ഀ Server.CreateObject("ADODB.RECORDSET")
      ਍ഀ Session("animalsRd").Open "select * from animals", connDb, 1, ਍ഀ 2
      movecnt = ਍ഀ 1
else
      dbms = ਍ഀ Request.QueryString("dbms")
      movecnt = ਍ഀ Request.QueryString("movecnt")
end ਍ഀ if
%>


<html>
<head>
<title>Webaccess</title>
</head>

<frameset ਍ഀ frameborder="0" border="0" cols="*">
    <frameset ਍ഀ cols="360,*" frameborder=0>
      <frame ਍ഀ name="normal" src="animals.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>&direction=0">
      ਍ഀ <frame name="blob" src="gif.asp">
    ਍ഀ </frameset>
   <noframes>
   <body ਍ഀ bgcolor="#FFFFFF">
   <p><!--webbot ਍ഀ bot="PurpleText" preview="The frameset on this page can be edited with the ਍ഀ FrontPage Frames Wizard; use the Open or Open With option from the FrontPage ਍ഀ Explorer's edit menu. This page must be saved to a web before you can edit it ਍ഀ with the Frames Wizard. Browsers that don't support frames will display the ਍ഀ contents of this page, without these instructions. Use the Frames Wizard to ਍ഀ specify an alternate page for browsers without frames." s-viewable=" " ਍ഀ -->               ਍ഀ </p>
   <p>This web page uses frames, but your browser ਍ഀ doesn't support them.</p>
   </body>
   ਍ഀ </noframes>
</frameset>
</html>
਍ഀ
਍ഀ
਍ഀ

 

਍ഀ