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

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

਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ ਍ഀ
      ਍ഀ  ASP Script
      ਍ഀ  Comments or Client-side ਍ഀ Script
        HTML and Text ਍ഀ
਍ഀ
਍ഀ <%@ ਍ഀ Language=JavaScript ਍ഀ %>

<HTML>
<HEAD>
</HEAD>
<BODY>

<%
dbms = Request.QueryString("dbms");
RS = ਍ഀ Session("animalsRd");

direction = parseInt( ਍ഀ Request.QueryString("direction") );
if ( RS.RecordCount > 0 ) ਍ഀ {
      movecnt = parseInt( ਍ഀ Request.QueryString("movecnt") );

      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;
      ਍ഀ default:
           ਍ഀ RS.CancelUpdate();
      ਍ഀ }

      //Error Handling ਍ഀ
      if ( RS.EOF ) ਍ഀ {
      movecnt = ਍ഀ RS.RecordCount;
      ਍ഀ RS.MoveLast();
      ਍ഀ }

      if ( RS.BOF ) ਍ഀ {
      movecnt = ਍ഀ 1;
      ਍ഀ RS.MoveFirst();
      }
} else ਍ഀ {
      movecnt = ਍ഀ 0;
}
%>


<FORM Method=post Name=form1>
<TABLE ਍ഀ width=100%>

<%
var fieldInfo = ਍ഀ RS.Fields;
for (i = 0; i <  fieldInfo.Count - 1; i++) ਍ഀ {
      var 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>

<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);">
<INPUT Type=button Name=AddNew value="Add" ਍ഀ onclick="AddRecord()"></P>
</CENTER>
</FORM>

<%if (direction > 0) {%>
<SCRIPT  ਍ഀ language=javascript>
      ਍ഀ parent.blob.location.reload();
</SCRIPT>

<%}%>
<hr size="1" ਍ഀ color="#000000">
<EM>This is <%=dbms%>  database.</EM>
<font ਍ഀ size="+1">
<center><a href="selectdb.asp" ਍ഀ target=main>
Return ਍ഀ Home</a></center></font>
</BODY>

<SCRIPT  Language="JavaScript">
function ਍ഀ MoveClick(option) {
      document.form1.action = ਍ഀ "animals.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>&direction=" + ਍ഀ option;
      ਍ഀ document.form1.submit();
}
function ਍ഀ AddRecord(){
      document.form1.action = ਍ഀ "register.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>&chggif=0";
      ਍ഀ document.form1.target = "main";
      ਍ഀ document.form1.submit();
}
</SCRIPT>

</HTML>
਍ഀ
਍ഀ ਍ഀ

 

਍ഀ