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

ASP File: ਍ഀ vbscript/ado/authors/authors.asp

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=VBScript ਍ഀ %>
<HTML>
<HEAD>
</HEAD>
<BODY ਍ഀ bgcolor=Lavender>
<%
bErr = false
mvNext = ਍ഀ false
mvPrev = false

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(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"

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

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

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

      set Session("authorsRd") ਍ഀ = Server.CreateObject("ADODB.RECORDSET")
      ਍ഀ Session("authorsRd").CursorLocation = 3
      ਍ഀ Session("authorsRd").Open "Authors", conn, 2, ਍ഀ 2
else
      dbms = ਍ഀ Request.QueryString("dbms")
end if

set RS = ਍ഀ Session("authorsRd")

mode = CInt( Request.QueryString("mode") )
If ਍ഀ mode = 1 then
      direction = CInt( ਍ഀ Request.QueryString("direction") )

      select ਍ഀ case direction
      case ਍ഀ 1:
           If not RS.Eof ਍ഀ or not RS.Bof ਍ഀ then
                ਍ഀ RS.MoveFirst
           End ਍ഀ If
      case 2:
      ਍ഀ If not RS.BOF ਍ഀ Then
                ਍ഀ RS.MovePrevious
                ਍ഀ mvPrev = true
      End ਍ഀ If
      case ਍ഀ 3:
           If not RS.EOF ਍ഀ Then
                ਍ഀ RS.MoveNext
                ਍ഀ mvNext = true
           ਍ഀ End If
      case ਍ഀ 4:
           If not RS.Eof ਍ഀ or not RS.Bof ਍ഀ then
                ਍ഀ RS.MoveLast
           End ਍ഀ If
      end ਍ഀ select

      'Error Handling ਍ഀ
      If not RS.BOF or not RS.EOF ਍ഀ then
           If RS.EOF ਍ഀ and mvNext Then
           ਍ഀ RS.MoveLast
           ਍ഀ elseif RS.EOF ਍ഀ then
                ਍ഀ RS.Requery
           End ਍ഀ If

           If RS.BOF ਍ഀ and mvPrev Then
           ਍ഀ RS.MoveFirst
           ਍ഀ elseif RS.BOF ਍ഀ then
                ਍ഀ RS.Requery
           End ਍ഀ If
      End If
elseif mode = 2 ਍ഀ then
      'get edit information : ਍ഀ Insert,Update,Delete or Cancel
      operate = CInt( ਍ഀ Request.QueryString("operate") )

      select ਍ഀ case operate
      case 1: ਍ഀ 'Insert
      case 2: ਍ഀ 'Delete
           If ਍ഀ RS.RecordCount > 0 ਍ഀ then
                ਍ഀ RS.Delete
                ਍ഀ RS.MoveNext
                ਍ഀ 'RS.MovePrevious
                ਍ഀ if RS.RecordCount > 0 and RS.BOF ਍ഀ then
                     ਍ഀ RS.MoveFirst
                ਍ഀ end if
           End ਍ഀ If
      case 3: ਍ഀ 'Update
           if not ਍ഀ RS.EOF and not RS.EOF ਍ഀ then
                ਍ഀ for i = 0 to RS.Fields.Count - 1
      on error ਍ഀ resume ਍ഀ next

                     ਍ഀ fdType = ਍ഀ RS(i).type
                     ਍ഀ if IsNull(RS(i).value) ਍ഀ then
                          ਍ഀ fdValue = ਍ഀ ""
                     ਍ഀ else
                          ਍ഀ fdValue = ਍ഀ RS(i).value
                     ਍ഀ end ਍ഀ if

                     ਍ഀ name = "S" & ਍ഀ CStr(i)
                     ਍ഀ txtVal = ਍ഀ Request.Form(name)
                     ਍ഀ if IsNull(txtVal) or IsEmpty(txtVal) ਍ഀ then
                          ਍ഀ txtVal = ਍ഀ ""
                     ਍ഀ end ਍ഀ if

                     ਍ഀ if Server.URLEnCode(txtVal) <> Server.URLEnCode(fdValue) ਍ഀ then
                          ਍ഀ if Len(txtVal) = 0 ਍ഀ then
                               ਍ഀ RS(i) = ਍ഀ null
                          ਍ഀ else
                               ਍ഀ select case ਍ഀ fdType
                               ਍ഀ case 16, 2, 3, 20, 17, 18, 19, 21, 4, 5, 6, 14, 131, ਍ഀ 11
                                    ਍ഀ if IsNumeric(txtVal) ਍ഀ then
                                         ਍ഀ RS(i) = ਍ഀ txtVal
                                    ਍ഀ else
                                         ਍ഀ bErr = ਍ഀ true
                                         ਍ഀ msgErr = fdName & " must be a numeric data. Please go ਍ഀ back."
                                    ਍ഀ end ਍ഀ if
                               ਍ഀ case ਍ഀ else
                                    ਍ഀ RS(i) = ਍ഀ txtVal
                               ਍ഀ end ਍ഀ select
                          ਍ഀ end ਍ഀ if
                     ਍ഀ end ਍ഀ if
                ਍ഀ next
                ਍ഀ if bErr = false ਍ഀ then
                     ਍ഀ RS.Update
                ਍ഀ end ਍ഀ if
             ਍ഀ on error goto 0
           ਍ഀ end if
      case 5: 'Update for ਍ഀ addnew
         on error resume ਍ഀ next

           ਍ഀ RS.AddNew
           for i ਍ഀ = 0 to RS.Fields.Count - ਍ഀ 1
                ਍ഀ fdType = ਍ഀ RS(i).type

                ਍ഀ name = "S" & ਍ഀ CStr(i)
                ਍ഀ txtVal = ਍ഀ Request.Form(name)
                ਍ഀ if IsNull(txtVal) or IsEmpty(txtVal) ਍ഀ then
                     ਍ഀ txtVal = ਍ഀ ""
                ਍ഀ end ਍ഀ if

                ਍ഀ if Len(txtVal) <> 0 ਍ഀ then
                     ਍ഀ select case ਍ഀ fdType
                     ਍ഀ case 16, 2, 3, 20, 17, 18, 19, 21, 4, 5, 6, 14, 131, ਍ഀ 11
                          ਍ഀ if IsNumeric(txtVal) ਍ഀ then
                               ਍ഀ RS(i) = ਍ഀ txtVal
                          ਍ഀ else
                               ਍ഀ bErr = ਍ഀ true
                               ਍ഀ msgErr = fdName & " must be a numeric data. Please go ਍ഀ back."
                          ਍ഀ end ਍ഀ if
                     ਍ഀ case ਍ഀ else
                          ਍ഀ RS(i) = ਍ഀ txtVal
                     ਍ഀ end ਍ഀ select
                ਍ഀ end if
           ਍ഀ next
           if bErr = ਍ഀ false ਍ഀ then
                ਍ഀ RS.Update
                ਍ഀ RS.MoveLast
           ਍ഀ else
                ਍ഀ RS.CancelUpdate
           ਍ഀ end if
         on error goto ਍ഀ 0
      end select
End ਍ഀ If
%>


<%if bErr then ਍ഀ
      Response.write ਍ഀ msgErr
else%>


<font size="4" face="Arial, ਍ഀ Helvetica">
<b>Database's Operation ਍ഀ Sample</b></font><br>
<hr>

<form name=form1 ਍ഀ method=Post action="authors.asp">
      ਍ഀ <CENTER><TABLE><TR>
<%      if mode = 1 ਍ഀ then%>
           ਍ഀ <TD>
                ਍ഀ <input type=button name=Browsebt value="Browse Mode" ਍ഀ disabled>
                ਍ഀ <input type=button name=Editbt value="Edit Mode" ਍ഀ onClick="ModeClick(2);">
           ਍ഀ </TD>
           ਍ഀ <TD ਍ഀ width=10> </TD>
           ਍ഀ <TD>
                ਍ഀ <input type=button name=MoveFirst value=" |<    " ਍ഀ onClick="MoveClick(1);">
                ਍ഀ <input type=button name=MovePrevious value=" <    " ਍ഀ onClick="MoveClick(2);">
                ਍ഀ <input type=button name=MoveNext value=" > " ਍ഀ onClick="MoveClick(3);">
                ਍ഀ <input type=button name=MoveLast value=" >| " ਍ഀ onClick="MoveClick(4);">
           ਍ഀ </TD>
           ਍ഀ </TR>
<%      elseif ਍ഀ mode = 2 ਍ഀ then%>
           ਍ഀ <TD>
                ਍ഀ <input type=button name=Browsebt value="Browse Mode" ਍ഀ onClick="ModeClick(1);">
                ਍ഀ <input type=button name=Editbt value="Edit Mode" ਍ഀ disabled>
           ਍ഀ </TD>
           ਍ഀ <TD ਍ഀ width=10> </TD>
           ਍ഀ <TD>
<%           ਍ഀ if operate = 1 ਍ഀ then%>
                ਍ഀ <input type=button name=Insertbt value="Insert" ਍ഀ disabled>
                ਍ഀ <input type=button name=Deletebt value="Delete" disabled>
<%           ਍ഀ else%>
                ਍ഀ <input type=button name=Insertbt value="Insert" ਍ഀ onClick="OperateClick(1);">
                ਍ഀ <input type=button name=Deletebt value="Delete" ਍ഀ onClick="OperateClick(2);">
<%           ਍ഀ end if
           if ਍ഀ operate = 1 ਍ഀ then%>

                ਍ഀ <input type=button name=Updatebt value="Update" ਍ഀ onClick="OperateClick(5);">
<%           ਍ഀ else%>
                ਍ഀ <input type=button name=Updatebt value="Update" ਍ഀ onClick="OperateClick(3);">
<%           ਍ഀ end ਍ഀ if%>
                ਍ഀ <input type=button name=Cancelbt value="Cancel" ਍ഀ onClick="OperateClick(4);">
           ਍ഀ </TD>
           ਍ഀ </TR>
<%      end ਍ഀ if%>
      ਍ഀ </TABLE>

      ਍ഀ <BR>
      <TABLE>
<%      for i = 0 to RS.Fields.Count - ਍ഀ 1%>
           ਍ഀ <TR>
                ਍ഀ <TD align=right><strong><%=RS(i).name%>:</strong></TD>
                ਍ഀ <TD>
<%           ਍ഀ if mode = 1 ਍ഀ then%>
                ਍ഀ <%if RS.BOF or RS.EOF ਍ഀ then%>
                     ਍ഀ <INPUT type=text name=S<%=i%>  disabled ਍ഀ size=38>
                ਍ഀ <%else
                     ਍ഀ if isNull(RS(i).value) or isEmpty(RS(i).value) ਍ഀ then%>

                          ਍ഀ <INPUT name=S<%=i%>  disabled size=38 ਍ഀ value="">
<%                     ਍ഀ else%>
                          ਍ഀ <INPUT name=S<%=i%>  disabled size=38 ਍ഀ value="<%=Replace(RS(i).value, """", ਍ഀ """)%>">
<%                     ਍ഀ end ਍ഀ if
                ਍ഀ end if
           elseif ਍ഀ mode = 2 ਍ഀ then
                ਍ഀ if RS.BOF or RS.EOF or operate = 1 ਍ഀ then%>

                     ਍ഀ <input type=text name=S<%=i%>  ਍ഀ size=38>
<%                ਍ഀ else
                     ਍ഀ if isNull(RS(i).value) or isEmpty(RS(i).value) ਍ഀ then%>

                          ਍ഀ <INPUT name=S<%=i%>  size=38 ਍ഀ value="">
<%                     ਍ഀ else%>
                          ਍ഀ <INPUT name=S<%=i%>  size=38 ਍ഀ value="<%=Replace(RS(i).value, """", ਍ഀ """)%>">
<%                     ਍ഀ end ਍ഀ if
                ਍ഀ end if
           end ਍ഀ if%>

           ਍ഀ </TD></TR>
      <%next%>
      ਍ഀ </TABLE>
</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>
<%end if%>

<SCRIPT  Language = "JavaScript">
function ਍ഀ MoveClick(option){
      document.form1.action = ਍ഀ "authors.asp?dbms=<%=dbms%>&mode=1&direction=" + ਍ഀ option;
      ਍ഀ document.form1.submit();
}

function ModeClick(option) ਍ഀ {
      if ( option == 1 ਍ഀ )
           ਍ഀ document.form1.action = "authors.asp?dbms=<%=dbms%>&mode=1&direction=0";
      ਍ഀ else
           ਍ഀ document.form1.action = "authors.asp?dbms=<%=dbms%>&mode=2&operate=0";
      ਍ഀ document.form1.submit();
}
function ਍ഀ compare(value)
{
      for (var ਍ഀ i=0;i<value.length;i++)
           ਍ഀ {
           if( ਍ഀ isNaN(parseInt(value.charAt(i))))
                ਍ഀ return "error";
           ਍ഀ }
      return "";
}
function ਍ഀ OperateClick(option) {
      if (option == 3 || ਍ഀ option == 5){
           if ਍ഀ ( compare(document.form1.S0.value).indexOf("error")!=-1 ਍ഀ ){
                ਍ഀ alert("Please enter a numeric for 'Au_ID' ਍ഀ field.");
                ਍ഀ return;
           ਍ഀ }

           if ( ਍ഀ document.form1.S2.value != "" && isNaN( ਍ഀ parseInt(document.form1.S2.value) ) ਍ഀ ){
                ਍ഀ alert("Please enter a numeric for 'Year Born' ਍ഀ field.");
                ਍ഀ return;
           ਍ഀ }
      }
      ਍ഀ document.form1.action = "authors.asp?dbms=<%=dbms%>&mode=2&operate=" + ਍ഀ option;
      ਍ഀ document.form1.submit();
}
</SCRIPT>

਍ഀ
਍ഀ
਍ഀ

 

਍ഀ