teknik informatika: SISTEM INVENTARISASI

SISTEM INVENTARISASI

Model Data Konseptual

Model Data Fisik

I.1 Implementasi

I.1.1 Coding

· Login

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Validate request to log in to this site.

var MM_LoginAction=Request.ServerVariables("URL");

if (Request.QueryString!="") MM_LoginAction += "?" + Server.HTMLEncode(Request.QueryString);

var MM_valUsername=String(Request.Form("user"));

if (MM_valUsername != "undefined") {

var MM_redirectLoginSuccess;

var MM_redirectLoginFailed="default.asp?e=1";

var MM_flag="ADODB.Recordset";

var MM_rsUser = Server.CreateObject(MM_flag);

MM_rsUser.ActiveConnection = MM_invent_STRING;

MM_rsUser.Source = "SELECT USERNAME, PASSWORD, NAMA";

MM_rsUser.Source += " FROM invent.karyawan WHERE USERNAME='" + MM_valUsername.replace(/'/g, "''") + "' AND PASSWORD=md5('" + String(Request.Form("pass")).replace(/'/g, "''") + "')";

MM_rsUser.CursorType = 0;

MM_rsUser.CursorLocation = 2;

MM_rsUser.LockType = 3;

MM_rsUser.Open();

if (!MM_rsUser.EOF || !MM_rsUser.BOF) {

// username and password match - this is a valid user

Session("MM_Username") = MM_valUsername;

Session("MM_Nama") = String(MM_rsUser.Fields.Item("NAMA").Value);

if (MM_valUsername == "admin") {

Session("MM_UserAuthorization") = "admin";

MM_redirectLoginSuccess = "adwel.asp";

} else {

Session("MM_UserAuthorization") = "user";

MM_redirectLoginSuccess = "uswel.asp";

}

if (String(Request.QueryString("accessdenied")) != "undefined" && false) {

MM_redirectLoginSuccess = Request.QueryString("accessdenied");

}

MM_rsUser.Close();

Response.Redirect(MM_redirectLoginSuccess);

}

MM_rsUser.Close();

Response.Redirect(MM_redirectLoginFailed);

}

· Manage user

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Edit Operations: declare variables

// set the form action variable

var MM_editAction = Request.ServerVariables("SCRIPT_NAME");

if (Request.QueryString) {

MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);

}

// boolean to abort record edit

var MM_abortEdit = false;

// query string to execute

var MM_editQuery = "";

// *** Redirect if username exists

var MM_flag="MM_insert";

if (String(Request(MM_flag)) != "undefined") {

var MM_dupKeyRedirect="muser.asp?e=3";

var MM_rsKeyConnection=MM_invent_STRING;

var MM_dupKeyUsernameValue = String(Request.Form("nuser"));

var MM_dupKeySQL = "SELECT USERNAME FROM invent.karyawan WHERE USERNAME=trim('" + MM_dupKeyUsernameValue.replace(/'/g, "''") + "')"

var MM_adodbRecordset = "ADODB.Recordset";

var MM_rsKey = Server.CreateObject(MM_adodbRecordset);

MM_rsKey.ActiveConnection = MM_rsKeyConnection;

MM_rsKey.Source = MM_dupKeySQL;

MM_rsKey.CursorType=0;

MM_rsKey.CursorLocation=2;

MM_rsKey.LockType=3;

MM_rsKey.Open();

if (!MM_rsKey.EOF || !MM_rsKey.BOF) {

// the username was found - can not add the requested username

var MM_qsChar = "?";

if (MM_dupKeyRedirect.indexOf("?") >= 0) MM_qsChar = "&";

MM_dupKeyRedirect = MM_dupKeyRedirect + MM_qsChar + "requsername=" + MM_dupKeyUsernameValue;

Response.Redirect(MM_dupKeyRedirect);

}

MM_rsKey.Close();

}

// *** Insert Record: set variables

if (String(Request("MM_insert")) == "new") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.karyawan";

var MM_editRedirectUrl = "muser.asp?e=0";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Delete Record: declare variables

if (String(Request("MM_delete")) == "delete" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.karyawan";

var MM_editColumn = "USERNAME";

var MM_recordId = String(Request.Form("MM_recordId"));

MM_recordId = "'" + MM_recordId.replace(/'/g, "''") + "'";

var MM_editRedirectUrl = "muser.asp?e=2";

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Update Record: set variables

if (String(Request("MM_update")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.karyawan";

var MM_editColumn = "USERNAME";

var MM_recordId = "'" + Request.Form("MM_recordId") + "'";

var MM_editRedirectUrl = "muser.asp?e=1";

if (String(Request("MM_update")) == "update") {

var MM_fieldsStr = "unama|value";

var MM_columnsStr = "NAMA|',none,''";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Insert Record: construct a sql insert statement and execute it

if (String(Request("MM_insert")) != "undefined") {

// create the sql insert statement

var MM_tableValues = "", MM_dbValues = "";

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

switch(i) {

case 0: formVal = "lower(trim('" + formVal.replace(/'/g,"''") + "'))";

break;

case 2: formVal = "upper(trim('" + formVal.replace(/'/g,"''") + "'))";

break;

case 4: formVal = "md5('" + formVal.replace(/'/g,"''") + "')";

}

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = altVal;

} else if (delim == "'") { // escape quotes

formVal = "'" + formVal.replace(/'/g,"''") + "'";

} else {

formVal = delim + formVal + delim;

}

MM_tableValues += ((i != 0) ? "," : "") + MM_columns[i];

MM_dbValues += ((i != 0) ? "," : "") + formVal;

}

MM_editQuery = "insert into " + MM_editTable + " (" + MM_tableValues + ") values (" + MM_dbValues + ")";

if (!MM_abortEdit) {

// execute the insert

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

// *** Delete Record: construct a sql delete statement and execute it

if (String(Request("MM_delete")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

// create the sql delete statement

MM_editQuery = "delete from " + MM_editTable + " where " + MM_editColumn + " = " + MM_recordId;

if (!MM_abortEdit) {

// execute the delete

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

var user__MMColParam = "admin";

if (String(Request("MM_EmptyValue")) != "undefined" &&

String(Request("MM_EmptyValue")) != "") {

user__MMColParam = String(Request("MM_EmptyValue"));

}

var user = Server.CreateObject("ADODB.Recordset");

user.ActiveConnection = MM_invent_STRING;

user.Source = "SELECT USERNAME, NAMA FROM invent.karyawan WHERE USERNAME <> '"+ user__MMColParam.replace(/'/g, "''") + "' ORDER BY NAMA ASC";

user.CursorType = 0;

user.CursorLocation = 2;

user.LockType = 1;

user.Open();

var user_numRows = 0;

// *** Update Record: construct a sql update statement and execute it

if (String(Request("MM_update")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

// create the sql update statement

MM_editQuery = "update " + MM_editTable + " set ";

if (String(Request("MM_update")) == "update") {

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = altVal;

} else if (delim == "'") { // escape quotes

formVal = "upper(trim('" + formVal.replace(/'/g,"''") + "'))";

} else {

formVal = delim + formVal + delim;

}

MM_editQuery += ((i != 0) ? "," : "") + MM_columns[i] + " = " + formVal;

}

else {

MM_editQuery += "PASSWORD = md5('')";

}

MM_editQuery += " where " + MM_editColumn + " = " + MM_recordId;

if (!MM_abortEdit) {

// execute the update

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

// *** Restrict Access To Page: Grant or deny access to this page

var MM_authorizedUsers="admin";

var MM_authFailedURL="default.asp?e=3";

var MM_grantAccess=false;

if (String(Session("MM_Username")) != "undefined") {

if (false || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {

MM_grantAccess = true;

}

if (!MM_grantAccess) {

var MM_qsChar = "?";

if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";

var MM_referrer = Request.ServerVariables("URL");

if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());

MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);

Response.Redirect(MM_authFailedURL);

}

var Repeat1__numRows = -1;

var Repeat1__index = 0;

user_numRows += Repeat1__numRows;

· Manage job desk

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Restrict Access To Page: Grant or deny access to this page

var MM_authorizedUsers="admin";

var MM_authFailedURL="default.asp?e=3";

var MM_grantAccess=false;

if (String(Session("MM_Username")) != "undefined") {

if (false || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {

MM_grantAccess = true;

}

if (!MM_grantAccess) {

var MM_qsChar = "?";

if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";

var MM_referrer = Request.ServerVariables("URL");

if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());

MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);

Response.Redirect(MM_authFailedURL);

}

// *** Edit Operations: declare variables

// set the form action variable

var MM_editAction = Request.ServerVariables("SCRIPT_NAME");

if (Request.QueryString) {

MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);

}

// boolean to abort record edit

var MM_abortEdit = false;

// query string to execute

var MM_editQuery = "";

// *** Insert Record: set variables

if (String(Request("MM_insert")) == "new") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.jobdesk";

var MM_editRedirectUrl = "mjobdesk.asp?e=0";

var MM_fieldsStr = "njob|value";

var MM_columnsStr = "JOBDESK|',none,''";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Insert Record: set variables

if (String(Request("MM_insert")) == "add") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.jobdeskkaryawan";

var MM_editRedirectUrl = "mjobdesk.asp?e=1";

var MM_fieldsStr = "aj|value|au|value";

var MM_columnsStr = "IDJOB|none,none,NULL|USERNAME|',none,''";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Delete Record: declare variables

if (String(Request("MM_delete")) == "del" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.jobdeskkaryawan";

var MM_editColumn = "USERNAME='" + String(Request.Form("MM_recordId2")).replace(/'/g, "''") + "' AND IDJOB";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "mjobdesk.asp?e=2";

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Delete Record: declare variables

if (String(Request("MM_delete")) == "delete" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.jobdesk";

var MM_editColumn = "IDJOB";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "mjobdesk.asp?e=2";

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Update Record: set variables

if (String(Request("MM_update")) == "update" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.jobdesk";

var MM_editColumn = "IDJOB";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "mjobdesk.asp?e=1";

var MM_fieldsStr = "ujob|value";

var MM_columnsStr = "JOBDESK|',none,''";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Insert Record: construct a sql insert statement and execute it

if (String(Request("MM_insert")) != "undefined") {

// create the sql insert statement

var MM_tableValues = "", MM_dbValues = "";

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = altVal;

} else if (delim == "'") { // escape quotes

if(i==0) {

formVal = "upper('" + formVal.replace(/'/g,"''") + "')";

}

else {

formVal = "'" + formVal.replace(/'/g,"''") + "'";

}

} else {

formVal = delim + formVal + delim;

}

MM_tableValues += ((i != 0) ? "," : "") + MM_columns[i];

MM_dbValues += ((i != 0) ? "," : "") + formVal;

}

MM_editQuery = "insert into " + MM_editTable + " (" + MM_tableValues + ") values (" + MM_dbValues + ")";

if (!MM_abortEdit) {

// execute the insert

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

// *** Delete Record: construct a sql delete statement and execute it

if (String(Request("MM_delete")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

// create the sql delete statement

MM_editQuery = "delete from " + MM_editTable + " where " + MM_editColumn + " = " + MM_recordId;

if (!MM_abortEdit) {

// execute the delete

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

// *** Update Record: construct a sql update statement and execute it

if (String(Request("MM_update")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

// create the sql update statement

MM_editQuery = "update " + MM_editTable + " set ";

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = altVal;

} else if (delim == "'") { // escape quotes

if(i==0) {

formVal = "upper('" + formVal.replace(/'/g,"''") + "')";

}

else

{

formVal = "'" + formVal.replace(/'/g,"''") + "'";

}

} else {

formVal = delim + formVal + delim;

}

MM_editQuery += ((i != 0) ? "," : "") + MM_columns[i] + " = " + formVal;

}

MM_editQuery += " where " + MM_editColumn + " = " + MM_recordId;

if (!MM_abortEdit) {

// execute the update

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

var kar__MMColParam = "admin";

if (String(Request("MM_EmptyValue")) != "undefined" &&

String(Request("MM_EmptyValue")) != "") {

kar__MMColParam = String(Request("MM_EmptyValue"));

}

var kar = Server.CreateObject("ADODB.Recordset");

kar.ActiveConnection = MM_invent_STRING;

kar.CursorType = 0;

kar.CursorLocation = 2;

kar.LockType = 1;

kar.Source = "SELECT USERNAME FROM invent.karyawan WHERE USERNAME='admin'";

kar.Open();

var kar_numRows = 0;

var jobdesk__MMColParam = "1";

if (String(Request("MM_EmptyValue")) != "undefined" &&

String(Request("MM_EmptyValue")) != "") {

jobdesk__MMColParam = String(Request("MM_EmptyValue"));

}

var jobdesk = Server.CreateObject("ADODB.Recordset");

jobdesk.ActiveConnection = MM_invent_STRING;

jobdesk.Source = "SELECT * FROM invent.jobdesk WHERE IDJOB <> '"+ jobdesk__MMColParam.replace(/'/g, "''") + "' ORDER BY JOBDESK ASC";

jobdesk.CursorType = 0;

jobdesk.CursorLocation = 2;

jobdesk.LockType = 1;

jobdesk.Open();

var jobdesk_numRows = 0;

var jobdeskkar__MMColParam = "1";

if (String(Request("MM_EmptyValue")) != "undefined" &&

String(Request("MM_EmptyValue")) != "") {

jobdeskkar__MMColParam = String(Request("MM_EmptyValue"));

}

var jobdeskkar = Server.CreateObject("ADODB.Recordset");

jobdeskkar.ActiveConnection = MM_invent_STRING;

jobdeskkar.Source = "SELECT jk.IDJOB, jk.USERNAME, k.NAMA FROM invent.jobdeskkaryawan jk, invent.jobdesk j, invent.karyawan k WHERE jk.IDJOB <> "+ jobdeskkar__MMColParam.replace(/'/g, "''") + " AND jk.USERNAME=k.USERNAME AND JK.IDJOB=j.IDJOB ORDER BY j.JOBDESK ASC";

jobdeskkar.CursorType = 0;

jobdeskkar.CursorLocation = 2;

jobdeskkar.LockType = 1;

jobdeskkar.Open();

var jobdeskkar_numRows = 0;

var Repeat1__numRows = -1;

var Repeat1__index = 0;

jobdesk_numRows += Repeat1__numRows;

var list = "";

· Manage inventory

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Edit Operations: declare variables

// set the form action variable

var MM_editAction = Request.ServerVariables("SCRIPT_NAME");

if (Request.QueryString) {

MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);

}

var temp = 0;

var tmp;

// boolean to abort record edit

var MM_abortEdit = false;

// query string to execute

var MM_editQuery = "";

if (String(Request("fusr")) == "cuser") {

Session("cuser") = String(Request.Form("cuser"));

}

// *** Insert Record: set variables

if (String(Request("MM_insert")) == "add") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.attrinv";

var MM_editRedirectUrl = "minventory.asp?e=0";

var MM_fieldsStr = "aattr|value|ainv|value";

var MM_columnsStr = "ATTRIBUT|none,upper,''|IDINV|none,none,NULL";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Delete Record: declare variables

if (String(Request("MM_delete")) == "del" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.attrinv";

var MM_editColumn = "IDATT";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "minventory.asp?e=2";

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Delete Record: declare variables

if (String(Request("MM_delete")) == "dlt" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.invkaryawan";

var MM_editColumn = "IDINVKAR";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "minventory.asp?e=2";

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Update Record: set variables

if (String(Request("MM_update")) == "updt" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.invkaryawan";

var MM_editColumn = "IDINVKAR";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "minventory.asp?e=1";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Insert Record: set variables

if (String(Request("MM_insert")) == "nw") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.invkaryawan";

var MM_editRedirectUrl = "minventory.asp?e=0";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Update Record: set variables

if (String(Request("MM_update")) == "update" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.inventori";

var MM_editColumn = "IDINV";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "minventory.asp?e=1";

var MM_fieldsStr = "uninv|value";

var MM_columnsStr = "NAMAINVENTORI|none,upper,''";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Insert Record: set variables

if (String(Request("MM_insert")) == "neo") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.inventori";

var MM_editRedirectUrl = "minventory.asp?e=0";

var MM_fieldsStr = "nninv|value";

var MM_columnsStr = "NAMAINVENTORI|none,upper,''";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Delete Record: declare variables

if (String(Request("MM_delete")) == "delete" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.inventori";

var MM_editColumn = "IDINV";

var MM_recordId = "" + Request.Form("MM_recordId") + "";

var MM_editRedirectUrl = "minventory.asp?e=2";

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Insert Record: construct a sql insert statement and execute it

if (String(Request("MM_insert")) != "undefined") {

// create the sql insert statement

var MM_tableValues = "", MM_dbValues = "";

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = "upper(trim('" + formVal.replace(/'/g,"''") + "'))";

} else if (delim == "'") { // escape quotes

formVal = "'" + formVal.replace(/'/g,"''") + "'";

} else {

formVal = delim + formVal + delim;

}

MM_tableValues += ((i != 0) ? "," : "") + MM_columns[i];

MM_dbValues += ((i != 0) ? "," : "") + formVal;

}

MM_editQuery = "insert into " + MM_editTable + " (" + MM_tableValues + ") values (" + MM_dbValues + ")";

if (!MM_abortEdit) {

// execute the insert

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

if (String(Request("MM_insert")) == "nw") {

var ninv = Request.Form("ninv");

var nidattr = Request.Form("nidattr");

var nket = Request.Form("nket");

var n = nket.count;

for(temp=1; temp<=n; temp++) {

MM_editCmd.CommandText = "INSERT INTO attrinvkar VALUES((SELECT IDINVKAR FROM invkaryawan WHERE IDINV=" + ninv + " AND USERNAME='" + Session("cuser") + "'), " + nidattr(temp) + ", '" + String(nket(temp)).replace(/'/g,"''") + "')";

MM_editCmd.Execute();

}

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

// *** Delete Record: construct a sql delete statement and execute it

if (String(Request("MM_delete")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

// create the sql delete statement

MM_editQuery = "delete from " + MM_editTable + " where " + MM_editColumn + " = " + MM_recordId;

if (!MM_abortEdit) {

// execute the delete

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

// *** Update Record: construct a sql update statement and execute it

if (String(Request("MM_update")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

// create the sql update statement

MM_editQuery = "update " + MM_editTable + " set ";

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = "upper(trim('" + formVal.replace(/'/g,"''") + "'))";

} else if (delim == "'") { // escape quotes

formVal = "'" + formVal.replace(/'/g,"''") + "'";

} else {

formVal = delim + formVal + delim;

}

MM_editQuery += ((i != 0) ? "," : "") + MM_columns[i] + " = " + formVal;

}

MM_editQuery += " where " + MM_editColumn + " = " + MM_recordId;

if (!MM_abortEdit) {

// execute the update

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

if (String(Request("MM_update")) == "updt") {

var uinvattr = Request.Form("MM_recordId");

var uidattr = Request.Form("uidattr");

var uket = Request.Form("uket");

var n = uket.count;

for(temp=1; temp<=n; temp++) {

MM_editCmd.CommandText = "UPDATE attrinvkar SET KET='" + String(uket(temp)).replace(/'/g,"''") + "' WHERE IDINVKAR=" + uinvattr + " AND IDATT=" + uidattr(temp);

MM_editCmd.Execute();

}

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

var kar__MMColParam = "admin";

if (String(Request("MM_EmptyValue")) != "undefined" &&

String(Request("MM_EmptyValue")) != "") {

kar__MMColParam = String(Request("MM_EmptyValue"));

}

var kar = Server.CreateObject("ADODB.Recordset");

kar.ActiveConnection = MM_invent_STRING;

kar.Source = "SELECT USERNAME, NAMA FROM invent.karyawan WHERE USERNAME <> '"+ kar__MMColParam.replace(/'/g, "''") + "' ORDER BY NAMA ASC";

kar.CursorType = 0;

kar.CursorLocation = 2;

kar.LockType = 1;

kar.Open();

var kar_numRows = 0;

// *** Restrict Access To Page: Grant or deny access to this page

var MM_authorizedUsers="admin";

var MM_authFailedURL="default.asp?e=3";

var MM_grantAccess=false;

if (String(Session("MM_Username")) != "undefined") {

if (false || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {

MM_grantAccess = true;

}

if (!MM_grantAccess) {

var MM_qsChar = "?";

if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";

var MM_referrer = Request.ServerVariables("URL");

if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());

MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);

Response.Redirect(MM_authFailedURL);

}

var attr = Server.CreateObject("ADODB.Recordset");

attr.ActiveConnection = MM_invent_STRING;

attr.Source = "SELECT a.IDATT, a.IDINV, a.ATTRIBUT FROM invent.attrinv a, invent.inventori i WHERE i.IDINV=a.IDINV ORDER BY i.NAMAINVENTORI, a.ATTRIBUT ASC";

attr.CursorType = 0;

attr.CursorLocation = 2;

attr.LockType = 1;

attr.Open();

var attr_numRows = 0;

var inv = Server.CreateObject("ADODB.Recordset");

inv.ActiveConnection = MM_invent_STRING;

inv.Source = "SELECT * FROM invent.inventori ORDER BY NAMAINVENTORI ASC";

inv.CursorType = 0;

inv.CursorLocation = 2;

inv.LockType = 1;

inv.Open();

var inv_numRows = 0;

var invkar__MMColParam = "admin";

if (String(Session("cuser")) != "undefined" &&

String(Session("cuser")) != "") {

invkar__MMColParam = String(Session("cuser"));

}

var invkar = Server.CreateObject("ADODB.Recordset");

invkar.ActiveConnection = MM_invent_STRING;

invkar.Source = "SELECT ik.IDINVKAR, i.namainventori, ik.JUMLAH, ik.MERK, ik.TAHUNMASUK FROM invent.invkaryawan ik, invent.inventori i WHERE USERNAME = '"+ invkar__MMColParam.replace(/'/g, "''") + "' AND ik.idinv=i.idinv ORDER BY i.namainventori ASC";

invkar.CursorType = 0;

invkar.CursorLocation = 2;

invkar.LockType = 1;

invkar.Open();

var invkar_numRows = 0;

var notinvkar__MMColParam = "1";

if (String(Session("cuser")) != "undefined" &&

String(Session("cuser")) != "") {

notinvkar__MMColParam = String(Session("cuser"));

}

var notinvkar = Server.CreateObject("ADODB.Recordset");

notinvkar.ActiveConnection = MM_invent_STRING;

notinvkar.Source = "SELECT * FROM invent.inventori WHERE IDINV NOT IN (SELECT IDINV FROM invkaryawan WHERE username='"+ notinvkar__MMColParam.replace(/'/g, "''") + "') ORDER BY NAMAINVENTORI ASC ";

notinvkar.CursorType = 0;

notinvkar.CursorLocation = 2;

notinvkar.LockType = 1;

notinvkar.Open();

var notinvkar_numRows = 0;

var attrinvkar__MMColParam = "admin";

if (String(Session("cuser")) != "undefined" &&

String(Session("cuser")) != "") {

attrinvkar__MMColParam = String(Session("cuser"));

}

var attrinvkar = Server.CreateObject("ADODB.Recordset");

attrinvkar.ActiveConnection = MM_invent_STRING;

attrinvkar.Source = "SELECT ak.IDINVKAR, a.IDATT, a.ATTRIBUT, ak.KET FROM invent.attrinv a, invent.attrinvkar ak, invent.inventori i, invent.invkaryawan ik WHERE ak.IDATT=a.IDATT AND i.IDINV=a.IDINV AND ak.IDINVKAR=ik.IDINVKAR AND ik.username='"+ attrinvkar__MMColParam.replace(/'/g, "''") + "' ORDER BY i.NAMAINVENTORI, a.ATTRIBUT ASC";

attrinvkar.CursorType = 0;

attrinvkar.CursorLocation = 2;

attrinvkar.LockType = 1;

attrinvkar.Open();

var attrinvkar_numRows = 0;

var Repeat1__numRows = -1;

var Repeat1__index = 0;

inv_numRows += Repeat1__numRows;

var Repeat2__numRows = -1;

var Repeat2__index = 0;

invkar_numRows += Repeat2__numRows;%>

· Login Setting

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Restrict Access To Page: Grant or deny access to this page

var MM_authorizedUsers="user";

var MM_authFailedURL="default.asp?e=2";

var MM_grantAccess=false;

if (String(Session("MM_Username")) != "undefined") {

if (false || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {

MM_grantAccess = true;

}

if (!MM_grantAccess) {

var MM_qsChar = "?";

if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";

var MM_referrer = Request.ServerVariables("URL");

if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());

MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);

Response.Redirect(MM_authFailedURL);

}

// *** Update Record: set variables

// set the form action variable

var MM_editAction = Request.ServerVariables("SCRIPT_NAME");

if (Request.QueryString) {

MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);

}

var MM_abortEdit = false;

var merror;

if(Request.QueryString("s")==1) {

merror = "password berhasil diganti";

} else {

merror = " ";

}

if (String(Request("MM_update")) == "ganti") {

var lama = String(Request.Form("passLama")).replace(/'/g, "''");

var baru1 = String(Request.Form("passBaru1")).replace(/'/g, "''");

var baru2 = String(Request.Form("passBaru2")).replace(/'/g, "''");

if(baru1 == baru2) {

var MM_editConnection = MM_invent_STRING;

var MM_editRedirectUrl = "logsetting.asp?s=1";

MM_editQuery = "update invent.karyawan set password=md5('" + baru1 + "') WHERE username='" + Session("MM_Username") + "' AND password=md5('" + lama + "')";

// cek password lama

var MM_rsKey = Server.CreateObject("ADODB.Recordset");

MM_rsKey.ActiveConnection = MM_editConnection;

MM_rsKey.Source = "SELECT username FROM karyawan WHERE password=md5('" + lama + "')";

MM_rsKey.CursorType=0;

MM_rsKey.CursorLocation=2;

MM_rsKey.LockType=3;

MM_rsKey.Open();

if (MM_rsKey.EOF && MM_rsKey.BOF) {

MM_abortEdit = true;

merror = "password lama salah"

}

MM_rsKey.Close();

if (!MM_abortEdit) {

// execute the update

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

else {

merror = "password baru tidak sama"

}

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

}

· Lihat Komentar

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Restrict Access To Page: Grant or deny access to this page

var MM_authorizedUsers="admin";

var MM_authFailedURL="default.asp?e=3";

var MM_grantAccess=false;

if (String(Session("MM_Username")) != "undefined") {

if (false || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {

MM_grantAccess = true;

}

if (!MM_grantAccess) {

var MM_qsChar = "?";

if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";

var MM_referrer = Request.ServerVariables("URL");

if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());

MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);

Response.Redirect(MM_authFailedURL);

}

var komen = Server.CreateObject("ADODB.Recordset");

komen.ActiveConnection = MM_invent_STRING;

komen.Source = "SELECT ko.tglkomen, ko.komentar, ka.nama, ka.foto FROM invent.komen ko, invent.karyawan ka WHERE ko.username=ka.username ORDER BY ko.tglkomen DESC";

komen.CursorType = 0;

komen.CursorLocation = 2;

komen.LockType = 1;

komen.Open();

var komen_numRows = 0;

var Repeat1__numRows = 10;

var Repeat1__index = 0;

komen_numRows += Repeat1__numRows;

// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

// set the record count

var komen_total = komen.RecordCount;

// set the number of rows displayed on this page

if (komen_numRows < 0) { // if repeat region set to all records

komen_numRows = komen_total;

} else if (komen_numRows == 0) { // if no repeat regions

komen_numRows = 1;

}

// set the first and last displayed record

var komen_first = 1;

var komen_last = komen_first + komen_numRows - 1;

// if we have the correct record count, check the other stats

if (komen_total != -1) {

komen_numRows = Math.min(komen_numRows, komen_total);

komen_first = Math.min(komen_first, komen_total);

komen_last = Math.min(komen_last, komen_total);

}

<% var MM_paramName = ""; %>

// *** Move To Record and Go To Record: declare variables

var MM_rs = komen;

var MM_rsCount = komen_total;

var MM_size = komen_numRows;

var MM_uniqueCol = "";

MM_paramName = "";

var MM_offset = 0;

var MM_atTotal = false;

var MM_paramIsDefined = (MM_paramName != "" && String(Request(MM_paramName)) != "undefined");

// *** Move To Record: handle 'index' or 'offset' parameter

if (!MM_paramIsDefined && MM_rsCount != 0) {

// use index parameter if defined, otherwise use offset parameter

r = String(Request("index"));

if (r == "undefined") r = String(Request("offset"));

if (r && r != "undefined") MM_offset = parseInt(r);

// if we have a record count, check if we are past the end of the recordset

if (MM_rsCount != -1) {

if (MM_offset >= MM_rsCount || MM_offset == -1) { // past end or move last

if ((MM_rsCount % MM_size) != 0) { // last page not a full repeat region

MM_offset = MM_rsCount - (MM_rsCount % MM_size);

} else {

MM_offset = MM_rsCount - MM_size;

}

// move the cursor to the selected record

for (var i=0; !MM_rs.EOF && (i < MM_offset || MM_offset == -1); i++) {

MM_rs.MoveNext();

}

if (MM_rs.EOF) MM_offset = i; // set MM_offset to the last possible record

}

// *** Move To Specific Record: handle detail parameter

if (MM_paramIsDefined && MM_rsCount != 0) {

// get the value of the parameter

var param = String(Request(MM_paramName));

// find the record with the unique column value equal to the parameter value

for (MM_offset=0; !MM_rs.EOF; MM_offset++) {

if (MM_rs.Fields.Item(MM_uniqueCol).Value == param) break;

MM_rs.MoveNext();

}

// if not found, set the number of records and reset the cursor

if (MM_rs.EOF) {

if (MM_rsCount < 0) MM_rsCount = MM_offset;

if (MM_size < 0 || MM_size > MM_rsCount) MM_size = MM_rsCount;

MM_offset = 0;

// reset the cursor to the beginning

if (MM_rs.CursorType > 0) {

if (!MM_rs.BOF) MM_rs.MoveFirst();

} else {

MM_rs.Close();

MM_rs.Open();

}

// *** Move To Record: if we dont know the record count, check the display range

if (MM_rsCount == -1) {

// walk to the end of the display range for this page

for (var i=MM_offset; !MM_rs.EOF && (MM_size < 0 || i < MM_offset + MM_size); i++) {

MM_rs.MoveNext();

}

// if we walked off the end of the recordset, set MM_rsCount and MM_size

if (MM_rs.EOF) {

MM_rsCount = i;

if (MM_size < 0 || MM_size > MM_rsCount) MM_size = MM_rsCount;

}

// if we walked off the end, set the offset based on page size

if (MM_rs.EOF && !MM_paramIsDefined) {

if ((MM_rsCount % MM_size) != 0) { // last page not a full repeat region

MM_offset = MM_rsCount - (MM_rsCount % MM_size);

} else {

MM_offset = MM_rsCount - MM_size;

}

// reset the cursor to the beginning

if (MM_rs.CursorType > 0) {

if (!MM_rs.BOF) MM_rs.MoveFirst();

} else {

MM_rs.Requery();

}

// move the cursor to the selected record

for (var i=0; !MM_rs.EOF && i < MM_offset; i++) {

MM_rs.MoveNext();

}

// *** Move To Record: update recordset stats

// set the first and last displayed record

komen_first = MM_offset + 1;

komen_last = MM_offset + MM_size;

if (MM_rsCount != -1) {

komen_first = Math.min(komen_first, MM_rsCount);

komen_last = Math.min(komen_last, MM_rsCount);

}

// set the boolean used by hide region to check if we are on the last record

MM_atTotal = (MM_rsCount != -1 && MM_offset + MM_size >= MM_rsCount);

// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

// create the list of parameters which should not be maintained

var MM_removeList = "&index=";

if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "=";

var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone="";

// add the URL parameters to the MM_keepURL string

for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {

var nextItem = "&" + items.item().toLowerCase() + "=";

if (MM_removeList.indexOf(nextItem) == -1) {

MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));

}

// add the Form variables to the MM_keepForm string

for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) {

var nextItem = "&" + items.item().toLowerCase() + "=";

if (MM_removeList.indexOf(nextItem) == -1) {

MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item()));

}

// create the Form + URL string and remove the intial '&' from each of the strings

MM_keepBoth = MM_keepURL + MM_keepForm;

if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);

if (MM_keepURL.length > 0) MM_keepURL = MM_keepURL.substring(1);

if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);

// *** Move To Record: set the strings for the first, last, next, and previous links

var MM_moveFirst="",MM_moveLast="",MM_moveNext="",MM_movePrev="";

var MM_keepMove = MM_keepBoth; // keep both Form and URL parameters for moves

var MM_moveParam = "index";

// if the page has a repeated region, remove 'offset' from the maintained parameters

if (MM_size > 1) {

MM_moveParam = "offset";

if (MM_keepMove.length > 0) {

params = MM_keepMove.split("&");

MM_keepMove = "";

for (var i=0; i < params.length; i++) {

var nextItem = params[i].substring(0,params[i].indexOf("="));

if (nextItem.toLowerCase() != MM_moveParam) {

MM_keepMove += "&" + params[i];

}

if (MM_keepMove.length > 0) MM_keepMove = MM_keepMove.substring(1);

}

// set the strings for the move to links

if (MM_keepMove.length > 0) MM_keepMove = Server.HTMLEncode(MM_keepMove) + "&";

var urlStr = Request.ServerVariables("URL") + "?" + MM_keepMove + MM_moveParam + "=";

MM_moveFirst = urlStr + "0";

MM_moveLast = urlStr + "-1";

MM_moveNext = urlStr + (MM_offset + MM_size);

MM_movePrev = urlStr + Math.max(MM_offset - MM_size,0);

· Profil

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Edit Operations: declare variables

// set the form action variable

var MM_editAction = Request.ServerVariables("SCRIPT_NAME");

if (Request.QueryString) {

MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);

}

// boolean to abort record edit

var MM_abortEdit = false;

// query string to execute

var MM_editQuery = "";

// *** Update Record: set variables

if (String(Request("MM_update")) == "editData" &&

String(Request("MM_recordId")) != "undefined") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.karyawan";

var MM_editColumn = "USERNAME";

var MM_recordId = "'" + Request.Form("MM_recordId") + "'";

var MM_editRedirectUrl = "profil.asp?e=0";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Update Record: construct a sql update statement and execute it

if (String(Request("MM_update")) != "undefined" &&

String(Request("MM_recordId")) != "undefined") {

// create the sql update statement

MM_editQuery = "update " + MM_editTable + " set ";

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = altVal;

} else if (delim == "'") { // escape quotes

formVal = "'" + formVal.replace(/'/g,"''") + "'";

} else {

formVal = delim + formVal + delim;

}

MM_editQuery += ((i != 0) ? "," : "") + MM_columns[i] + " = " + formVal;

}

MM_editQuery += " where " + MM_editColumn + " = " + MM_recordId;

if (!MM_abortEdit) {

// execute the update

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

var profilUser__MMColParam = "1";

if (String(Session("MM_Username")) != "undefined" &&

String(Session("MM_Username")) != "") {

profilUser__MMColParam = String(Session("MM_Username"));

}

var profilUser = Server.CreateObject("ADODB.Recordset");

profilUser.ActiveConnection = MM_invent_STRING;

profilUser.Source = "SELECT USERNAME, NAMA, ALAMAT, TELP, HP, FOTO, EMAIL FROM invent.karyawan WHERE USERNAME = '"+ profilUser__MMColParam.replace(/'/g, "''") + "'";

profilUser.CursorType = 0;

profilUser.CursorLocation = 2;

profilUser.LockType = 1;

profilUser.Open();

var profilUser_numRows = 0;

var jobdesk__MMColParam = "1";

if (String(Session("MM_Username")) != "undefined" &&

String(Session("MM_Username")) != "") {

jobdesk__MMColParam = String(Session("MM_Username"));

}

var jobdesk = Server.CreateObject("ADODB.Recordset");

jobdesk.ActiveConnection = MM_invent_STRING;

jobdesk.Source = "SELECT j.JOBDESK FROM invent.jobdeskkaryawan jk, invent.jobdesk j WHERE USERNAME = '"+ jobdesk__MMColParam.replace(/'/g, "''") + "' AND j.IDJOB=jk.IDJOB ORDER BY j.JOBDESK ASC";

jobdesk.CursorType = 0;

jobdesk.CursorLocation = 2;

jobdesk.LockType = 1;

jobdesk.Open();

var jobdesk_numRows = 0;

· Upload foto

<%@LANGUAGE="VBSCRIPT"%>

' *** Restrict Access To Page: Grant or deny access to this page

MM_authorizedUsers="user"

MM_authFailedURL="default.asp?e=2"

MM_grantAccess=false

If Session("MM_Username") <> "" Then

If (false Or CStr(Session("MM_UserAuthorization"))="") Or _

(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then

MM_grantAccess = true

End If

If Not MM_grantAccess Then

MM_qsChar = "?"

If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"

MM_referrer = Request.ServerVariables("URL")

if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()

MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)

Response.Redirect(MM_authFailedURL)

End If

' recordset

Set rsFoto = Server.CreateObject("ADODB.Recordset")

rsFoto.ActiveConnection = MM_inv_STRING

rsFoto.CursorType = 0

rsFoto.CursorLocation = 2

rsFoto.LockType = 1

on error resume next

' Proses upload

dim gambar, path, namaFile, gambar_path, kd

kd = Replace(Session("MM_Username"), "'", "''")

gambar_path = "Foto\"

set gambar = GetUpload()

if gambar("fileFoto").length>0 then

' command

'dim cmdFoto

set cmdFoto = Server.CreateObject("ADODB.Command")

cmdFoto.ActiveConnection = MM_inv_STRING

cmdFoto.CommandType = 1

cmdFoto.CommandTimeout = 0

cmdFoto.Prepared = true

path = Server.MapPath("upload.asp")

path = left(path, len(path)-10)

' Hapus gambar sebelumnya jika ada

rsFoto.Source = "SELECT FOTO FROM invent.karyawan WHERE USERNAME = '" + kd + "'"

rsFoto.Open()

if rsFoto("foto")<>"" then

dim fs, fileGambar

set fs=Server.CreateObject("Scripting.FileSystemObject")

set fileGambar=fs.GetFile(replace(path & rsFoto("foto"),"/", "\"))

fileGambar.Delete

set fileGambar=nothing

set fs=nothing

end if

' Buat Nama file di server

namaFile = Session("MM_Username") & "." & right(gambar("fileFoto").FileName, 5 - (instr(right(gambar("fileFoto").FileName, 5),".")))

gambar("fileFoto").Value.SaveAs path & gambar_path & namaFile

cmdFoto.CommandText = "UPDATE karyawan SET Foto='" & replace(gambar_path & namaFile, "\", "/") & "' WHERE username='" & Session("MM_Username") & "'"

cmdFoto.Execute()

else

set cmdFoto=nothing

rsFoto.Close()

Response.Redirect("profil.asp?e=2")

end if

cmdFoto.Execute

set cmdFoto=nothing

rsFoto.Close()

Response.Redirect("profil.asp?e=1")

· Inventarisasi dan kirim komentar

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Restrict Access To Page: Grant or deny access to this page

var MM_authorizedUsers="user";

var MM_authFailedURL="default.asp?e=2";

var MM_grantAccess=false;

if (String(Session("MM_Username")) != "undefined") {

if (false || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {

MM_grantAccess = true;

}

if (!MM_grantAccess) {

var MM_qsChar = "?";

if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";

var MM_referrer = Request.ServerVariables("URL");

if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());

MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);

Response.Redirect(MM_authFailedURL);

}

// *** Edit Operations: declare variables

// set the form action variable

var MM_editAction = Request.ServerVariables("SCRIPT_NAME");

if (Request.QueryString) {

MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);

}

// boolean to abort record edit

var MM_abortEdit = false;

// query string to execute

var MM_editQuery = "";

// *** Insert Record: set variables

if (String(Request("MM_insert")) == "komen") {

var MM_editConnection = MM_invent_STRING;

var MM_editTable = "invent.komen";

var MM_editRedirectUrl = "dinventarisasi.asp?e=0";

// create the MM_fields and MM_columns arrays

var MM_fields = MM_fieldsStr.split("|");

var MM_columns = MM_columnsStr.split("|");

// set the form values

for (var i=0; i+1 < MM_fields.length; i+=2) {

MM_fields[i+1] = String(Request.Form(MM_fields[i]));

}

// append the query string to the redirect URL

// if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {

// MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;

// }

}

// *** Insert Record: construct a sql insert statement and execute it

if (String(Request("MM_insert")) != "undefined") {

// create the sql insert statement

var MM_tableValues = "", MM_dbValues = "";

for (var i=0; i+1 < MM_fields.length; i+=2) {

var formVal = MM_fields[i+1];

var MM_typesArray = MM_columns[i+1].split(",");

var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";

var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";

var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";

if (formVal == "" || formVal == "undefined") {

formVal = emptyVal;

} else {

if (altVal != "") {

formVal = altVal;

} else if (delim == "'") { // escape quotes

formVal = "'" + formVal.replace(/'/g,"''") + "'";

} else {

formVal = delim + formVal + delim;

}

MM_tableValues += ((i != 0) ? "," : "") + MM_columns[i];

MM_dbValues += ((i != 0) ? "," : "") + formVal;

}

MM_editQuery = "insert into " + MM_editTable + " (" + MM_tableValues + ") values (" + MM_dbValues + ")";

if (!MM_abortEdit) {

// execute the insert

var MM_editCmd = Server.CreateObject('ADODB.Command');

MM_editCmd.ActiveConnection = MM_editConnection;

MM_editCmd.CommandText = MM_editQuery;

MM_editCmd.Execute();

MM_editCmd.ActiveConnection.Close();

if (MM_editRedirectUrl) {

Response.Redirect(MM_editRedirectUrl);

}

var inventori__MMColParam = String(Session("MM_Username"));

if (String(Session("MM_Username")) != "undefined" &&

String(Session("MM_Username")) != "") {

inventori__MMColParam = inventori__MMColParam.replace(/'/g, "''");

}

var inventori = Server.CreateObject("ADODB.Recordset");

inventori.ActiveConnection = MM_invent_STRING;

inventori.Source = "SELECT ik.IDINVKAR, i.namainventori, ik.merk, ik.jumlah, ik.tahunmasuk FROM invent.invkaryawan ik, invent.inventori i WHERE i.idinv=ik.idinv AND USERNAME = '" + inventori__MMColParam + "' ORDER BY i.namainventori ASC";

inventori.CursorType = 0;

inventori.CursorLocation = 2;

inventori.LockType = 1;

inventori.Open();

var inventori_numRows = 0;

var attrinv = Server.CreateObject("ADODB.Recordset");

attrinv.ActiveConnection = MM_invent_STRING;

attrinv.Source = "SELECT ak.IDINVKAR, a.ATTRIBUT, ak.KET FROM invent.attrinv a, invent.attrinvkar ak, invent.inventori i, invent.invkaryawan ik WHERE a.IDATT=ak.IDATT AND a.IDINV=i.IDINV AND ik.USERNAME='" + Session("MM_Username") + "' AND ik.IDINVKAR=ak.IDINVKAR ORDER BY i.NAMAINVENTORI, a.ATTRIBUT ASC";

attrinv.CursorType = 0;

attrinv.CursorLocation = 2;

attrinv.LockType = 1;

attrinv.Open();

var attrinv_numRows = 0;

var Repeat1__numRows = -1;

var Repeat1__index = 0;

inventori_numRows += Repeat1__numRows;

· Logout

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

// *** Logout the current user.

var MM_logoutRedirectPage = "default.asp?e=0";

Session.Contents.Remove("MM_Username");

Session.Contents.Remove("cuser");

Session.Contents.Remove("MM_Nama");

Session.Contents.Remove("MM_UserAuthorization");

if (MM_logoutRedirectPage != "") Response.Redirect(MM_logoutRedirectPage);

teknik informatika

Translate

Tuesday, August 9, 2016

SISTEM INVENTARISASI

I.1 Implementasi

I.1.1 Coding

No comments:

Post a Comment