ഀ ഀ
View ASP Source code
ഀ
ഀ
ഀ ഀ
ഀ
ഀ
ഀ
ASP Source Code
ഀ
ASP File: ഀ jscript/ado/webaccess/opentb.asp
ഀ
ഀ
ഀ
ഀ
ഀ
ഀ
ഀ
ASP Script
ഀ
ഀ
ഀ
ഀ
Comments or Client-side ഀ Script
ഀ
ഀ
ഀ
HTML and Text
ഀ
ഀ
ഀ
<%@ ഀ Language=JScript ഀ %>
<HTML>
<HEAD>
</HEAD>
<BODY ഀ bgcolor=Lavender>
<%
bErr = false;
mvNext = ഀ false;
mvPrev = false;
if ( Request.Form("ticker").count > 0 ) ഀ {
Session("webRd") = ഀ Server.CreateObject("ADODB.RECORDSET");
ഀ Session("webRd").ActiveConnection = ഀ Session("webConn");
ഀ Session("webRd").CursorLocation = 3;
ഀ Session("webRd").CursorType = 2;
ഀ Session("webRd").LockType = 2;
ഀ Session("webRd").Source = "SELECT * FROM " + ഀ Request.Form("ticker");
ഀ Session("webRd").Open();
}
RS = Session("webRd");
mode = ഀ parseInt( Request.QueryString("mode") );
if ( mode == 1 ) ഀ {
direction = parseInt( ഀ Request.QueryString("direction") );
switch ഀ ( direction ) {
case ഀ 1:
if ( !RS.Eof ഀ || !RS.Bof ) ഀ {
ഀ RS.MoveFirst();
ഀ }
ഀ break;
case ഀ 2:
if ( !RS.BOF ) ഀ {
ഀ RS.MovePrevious();
ഀ mvPrev = true;
ഀ }
break;
ഀ case 3:
if ( ഀ !RS.EOF ) ഀ {
ഀ RS.MoveNext();
ഀ mvNext = true;
ഀ }
ഀ break;
case ഀ 4:
if ( !RS.Eof ഀ || !RS.Bof ) ഀ {
ഀ RS.MoveLast();
ഀ }
}
ഀ //'Error Handling
if ( !RS.BOF || !RS.EOF ) ഀ {
if ( RS.EOF ഀ && mvNext ) ഀ {
ഀ RS.MoveLast();
} ഀ else if ( RS.EOF ) ഀ {
ഀ RS.Requery();
ഀ }
if ( ഀ RS.BOF && mvPrev ) ഀ {
ഀ RS.MoveFirst();
ഀ } else if (RS.BOF) ഀ {
ഀ RS.Requery();
ഀ }
}
} else if (mode == 2) ഀ {
//get edit information : ഀ Insert,Update,Delete or Cancel
operate = ഀ parseInt( Request.QueryString("operate") ഀ );
switch ( operate ) ഀ {
case 2: ഀ //Delete
if ( ഀ RS.RecordCount > 0 ) ഀ {
ഀ RS.Delete();
ഀ //RS.MoveNext();
ഀ RS.MovePrevious();
ഀ if (RS.RecordCount > 0 && RS.BOF) ഀ {
ഀ RS.MoveFirst();
ഀ }
ഀ }
ഀ break;
case 3: ഀ //Update
if ( ഀ !RS.EOF && !RS.EOF ) ഀ {
ഀ for (i = 0; i < RS.Fields.Count; i++) ഀ {
ഀ fdType = ഀ RS(i).type;
ഀ if (RS(i).value == null) ഀ {
ഀ fdValue = ഀ "";
ഀ } else ഀ {
ഀ fdValue = ഀ RS(i).value;
ഀ }
ഀ name = "S" + ഀ i;
ഀ txtVal = ഀ Request.Form(name);
ഀ if ( txtVal == null ) ഀ {
ഀ txtVal = ഀ ""
ഀ }
ഀ if (Server.URLEnCode(txtVal) != Server.URLEnCode(fdValue) ) ഀ {
ഀ if ( txtVal == "" ) ഀ {
ഀ RS(i) = ഀ null;
ഀ } else ഀ {
ഀ switch (fdType) ഀ {
ഀ case ഀ 16:
ഀ case ഀ 2:
ഀ case ഀ 3:
ഀ case ഀ 20:
ഀ case ഀ 17:
ഀ case ഀ 18:
ഀ case ഀ 19:
ഀ case ഀ 21:
ഀ case ഀ 4:
ഀ case ഀ 5:
ഀ case ഀ 6:
ഀ case ഀ 14:
ഀ case ഀ 131:
ഀ case ഀ 11:
ഀ if ( !isNaN( parseInt(txtVal) ) ) ഀ {
ഀ RS(i) = ഀ txtVal;
ഀ } else ഀ {
ഀ bErr = ഀ true;
ഀ msgErr = fdName + " must be a numeric data. Please go ഀ back.";
ഀ }
ഀ default:
ഀ RS(i) = ഀ txtVal;
ഀ }
ഀ }
ഀ }
ഀ }
ഀ if ( !bErr ) ഀ {
ഀ RS.Update();
ഀ }
ഀ }
ഀ break;
case 5: //Update for ഀ addnew
ഀ RS.AddNew();
var ഀ needUpdate = ഀ false;
for (i = ഀ 0; i < RS.Fields.Count; i++) ഀ {
ഀ fdType = parseInt( RS(i).type ഀ );
ഀ name = "S" + ഀ i.toString();
ഀ txtVal = ഀ Request.Form(name);
ഀ if ( txtVal == null ) ഀ {
ഀ txtVal = ഀ "";
ഀ }
ഀ if ( txtVal != "" ) ഀ {
ഀ needUpdate = ഀ true;
ഀ switch (fdType) ഀ {
ഀ case ഀ 16:
ഀ case ഀ 2:
ഀ case ഀ 3:
ഀ case ഀ 20:
ഀ case ഀ 17:
ഀ case ഀ 18:
ഀ case ഀ 19:
ഀ case ഀ 21:
ഀ case ഀ 4:
ഀ case ഀ 5:
ഀ case ഀ 6:
ഀ case ഀ 14:
ഀ case ഀ 131:
ഀ case ഀ 11:
ഀ if ( !isNaN( parseInt(txtVal) ) ) ഀ {
ഀ RS(i) = ഀ txtVal;
ഀ } else ഀ {
ഀ bErr = ഀ true;
ഀ msgErr = fdName + " must be a numeric data. Please go ഀ back.";
ഀ }
ഀ break;
ഀ default:
ഀ RS(i) = ഀ txtVal;
ഀ }
ഀ }
ഀ }
if ( bErr == ഀ false && needUpdate == true) ഀ {
ഀ RS.Update();
ഀ RS.MoveLast();
} ഀ else ഀ {
ഀ RS.CancelUpdate();
ഀ }
}
}
%>
<%if ( bErr ) {
ഀ Response.Write( msgErr )
} else {%>
<form name=form1 ഀ Method=Post Action="opentb.asp">
ഀ <CENTER><TABLE><TR>
<% if (mode == 1) ഀ {%>
ഀ <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>
<% } else if ഀ (mode == 2) ഀ {%>
ഀ <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) ഀ {%>
ഀ <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);">
<% ഀ }
if (operate == ഀ 1) ഀ {%>
ഀ <input type=button name=Updatebt value="Update" ഀ onClick="OperateClick(5);">
<% ഀ } else ഀ {%>
ഀ <input type=button name=Updatebt value="Update" ഀ onClick="OperateClick(3);">
<% ഀ }%>
ഀ <input type=button name=Cancelbt value="Cancel" ഀ onClick="OperateClick(4);">
ഀ </TD>
ഀ </TR>
<% ഀ }%>
ഀ </TABLE></CENTER>
<TABLE ഀ border=0 width=100%>
<% for (i = 0; i < ഀ RS.Fields.Count; i++) ഀ {
fd = ഀ RS.Fields.Item(i);
ഀ if ( i % 2 == 0 ) ഀ {%>
ഀ <TR>
<% ഀ }%>
ഀ <TD width=20% align=center><strong>
<%=fd.Name%>
:</strong></TD>
ഀ <TD width=30%>
<% ഀ if (mode == 1) ഀ {
ഀ if (RS.EOF || RS.EOF) ഀ {
ഀ if (fd.type == 201 || fd.type == 203) ഀ {%>
ഀ <TEXTAREA name=S
<%=i%>
disabled ഀ cols=22 rows=4 width=200 style="width:200"></TEXTAREA>
<% ഀ } else ഀ {%>
ഀ <INPUT name=S
<%=i%>
disabled size=26 ഀ value="">
<% ഀ }
ഀ } else ഀ {
ഀ if (fd.type == 201 || fd.type == 203) ഀ {%>
ഀ <TEXTAREA name=S
<%=i%>
disabled ഀ cols=22 rows=4 width=200 style="width:200">
<%=fd.value%>
</TEXTAREA>
<% ഀ } else ഀ {
ഀ if (fd.value == null ) ഀ {%>
ഀ <INPUT name=S
<%=i%>
disabled size=26 ഀ value="">
<% ഀ }else if (fd.type == 129 || fd.type == 200 || fd.type == 130 || fd.type == 202) ഀ {
ഀ aa = ഀ (RS(i).value).toString();
ഀ pos = ഀ aa.indexOf("\"");
ഀ while (pos != -1 ) ഀ {
ഀ bb = aa.substring(0, pos) + ഀ """
ഀ if ( pos < aa.length - ഀ 1)
ഀ aa = bb + aa.substr( pos + ഀ 1);
ഀ else
ഀ aa = ഀ bb;
ഀ pos = ഀ aa.indexOf("\"");
ഀ }%>
ഀ <INPUT name=S
<%=i%>
disabled size=26 ഀ value="
<%=aa%>
">
<% ഀ } else ഀ {%>
ഀ <INPUT name=S
<%=i%>
disabled size=26 ഀ value="
<%=fd.value%>
">
<% ഀ }
ഀ }
ഀ }
}else if (mode ഀ == 2) ഀ {
ഀ if (RS.BOF || RS.EOF || operate == 1) ഀ {
ഀ if (fd.type == 201 || fd.type == 203) ഀ {%>
ഀ <TEXTAREA name=S
<%=i%>
cols=22 rows=4 ഀ width=200 style="width:200"></TEXTAREA>
<% ഀ } else ഀ {%>
ഀ <INPUT name=S
<%=i%>
size=26 ഀ value="">
<% ഀ }
ഀ } else ഀ {
ഀ if (fd.type == 201 || fd.type == 203) ഀ {%>
ഀ <TEXTAREA name=S
<%=i%>
cols=22 rows=4 ഀ width=200 style="width:200">
<%=fd.value%>
</TEXTAREA>
<% ഀ } else ഀ {
ഀ if ( fd.value == null ) ഀ {%>
ഀ <INPUT name=S
<%=i%>
size=26 ഀ value="">
<% ഀ }else if (fd.type == 129 || fd.type == 200 || fd.type == 130 || fd.type == 202) ഀ {
ഀ aa = ഀ RS(i).value.toString();
ഀ pos = ഀ aa.indexOf("\"");
ഀ while (pos != -1 ) ഀ {
ഀ bb = aa.substring(0, pos) + ഀ """
ഀ if ( pos < aa.length - ഀ 1)
ഀ aa = bb + aa.substr( pos + ഀ 1);
ഀ else
ഀ aa = ഀ bb;
ഀ pos = ഀ aa.indexOf("\"");
ഀ }%>
ഀ <INPUT name=S
<%=i%>
size=26 ഀ value="
<%=aa%>
">
<% ഀ } else ഀ {%>
ഀ <INPUT name=S
<%=i%>
size=26 ഀ value="
<%=fd.value%>
">
<% ഀ }
ഀ }
ഀ }
ഀ }%>
ഀ </TD>
<% ഀ if (i % 2 == 1) ഀ {%>
ഀ </TR>
<% ഀ }
}%>
<% if ( i % 2 == 1 ) ഀ {%>
<TD ഀ width=20%> </TD><TD ഀ width=30%> </TD></TR>
<% }%>
ഀ
ഀ </TABLE>
</FORM>
<input type=hidden name=InsertInf ഀ size=4 value="
<%=%>
">
<%}%>
<SCRIPT ഀ Language = "JavaScript">
function ഀ MoveClick(option){
document.form1.action = ഀ "opentb.asp?mode=1&direction=" + option;
ഀ document.form1.submit();
}
function ModeClick(option) ഀ {
if ( option == 1 ഀ )
ഀ document.form1.action = ഀ "opentb.asp?mode=1&direction=0";
ഀ else
ഀ document.form1.action = ഀ "opentb.asp?mode=2&operate=0";
ഀ document.form1.submit();
}
function OperateClick(option) ഀ {
document.form1.action = ഀ "opentb.asp?mode=2&operate=" + option;
ഀ document.form1.submit();
}
</SCRIPT>
</BODY>
</HTML>
ഀ
ഀ ഀ
ഀ