<%@ Language=JavaScript %>
<%
dbms = Request.QueryString("dbms");
movecnt = Request.QueryString("movecnt");
var path, pos;
var fs, f, fc;
path = Server.mappath("register.asp");
pos = path.indexOf("animals");
path = path.substring(0,pos) + "gif/";
fs = Server.CreateObject("Scripting.FileSystemObject");
f = fs.GetFolder(path);
fc = f.Files;
var idval =
"";
var nameval = "";
var areaval = "";
var hval = "";
var wval = "";
var gifval = "boa.gif";
var RS = Session("animalsRd");
if (Request.Form("GifField").Count > 0)
{
idval = Request.Form("IdField");
nameval = Request.Form("NameField");
areaval = Request.Form("AreaField");
hval = Request.Form("HeightField");
wval = Request.Form("WeightField");
gifval = Request.Form("GifField");
gifFile = path + gifval;
if ( parseInt( Request.QueryString("chggif")
) == 0 ) {
RS.AddNew();
RS("Id")
= idval;
RS("Name")
= nameval;
RS("Area")
= areaval;
RS("Height")
= hval;
RS("Weight")
= wval;
RS("Gif")
= "$file:" + gifFile;
RS.Update();
RS.MoveLast();
movecnt = RS.RecordCount;
Response.Redirect(
"main.asp?dbms=" + dbms + "&movecnt=" + movecnt
);
}
} else {
gifFile = fc.item("boa.gif");
}
%>
<HTML>
<HEAD>
</HEAD>
<BODY onLoad="document.form1.GifField.focus();">
<form name=form1 method=post action="main.asp?dbms=<%=dbms%>&movecnt=<%=movecnt%>">
<TABLE width=100%><TR>
<TD align=center width=360>
<table width=100%>
<tr><td align=center width=40%><b>Id:</b></td>
<td width=60%><INPUT name=IdField size=25 value="<%=idval%>"></td></tr>
<tr><td align=center width=40%><b>Name:</b></td>
<td><INPUT name=NameField size=25 value="<%=nameval%>"></td></tr>
<tr><td align=center width=40%><b>Area:</b></td>
<td><INPUT name=AreaField size=25 value="<%=areaval%>"></td></tr>
<tr><td align=center width=40%><b>Height:</b></td>
<td><INPUT name=HeightField size=25 value="<%=hval%>"></td></tr>
<tr><td align=center width=40%><b>Weight:</b></td>
<td><INPUT name=WeightField size=25 value="<%=wval%>"></td></tr>
<tr><td align=center width=40%><b>Gif:</b></td>
<td><select name=GifField width=180 style="WIDTH:180"
onchange=ChgPicture()>
<%
for ( ff in fc ) {
if (gifval == ff.name) {
%>
<option selected><%=ff.name%>
<%
} else {
%>
<option><%=ff.name%>
<%
}
}
%>
</select></td></tr>
<tr><td align=center width=40%><BR>
<INPUT name=register type=button value=" OK " onClick="return
regOnClick();"></td>
<td><BR><INPUT type=submit name=back value="Cancel"></td></tr>
</table>
</TD><TD valign=top><img src="<%=gifFile%>"
border=0></TD>
</TR></TABLE>
</form>
<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>
</HTML>
|