<!-- 
var CID=0;
var CFID=1;
var CTEXT=2;
var CIN=3;
var CST=4;
var CAREA=2;
var CPROD=3;
var CCD=4;
var CYS=5;


function showp(id,tb) { //v2.0
window.open("showitem.asp?id="+id+'&table='+tb,'','');
}
function dbcSelectInit(obj1,fid) {
for(i=0;i<dbc.length;i++) {
if(dbc[i][CFID]==fid) {
obj1.options.add(new Option(trim(dbc[i][CTEXT],"ĄĄ"),dbc[i][CID]));
}
}
}
function setSelect(obj1,str1) {
for(i=0;i<obj1.options.length;i++) {
if(obj1.options[i].value==str1) {obj1.options[i].selected=true;return;}
}
}
function dbcGetText(id) {
for(i=0;i<dbc.length;i++) {
if(dbc[i][CID]==id) {
return(trim(dbc[i][CTEXT],'ĄĄ'));
}
}
}
function dbcExportText(id) {
for(i=0;i<dbc.length;i++) {
if(dbc[i][CID]==id) {
document.write(trim(dbc[i][CTEXT],'ĄĄ'));
break;
}
}
}

function trim(str,str2) {
strlen=str.length;
for (var i=0;i<str.length;i++){
if (str.charAt(i)!=str2) {
str=str.substr(i);
break;
}
}
for (var j=str.length;j>=0;j--){
if (str.charAt(j-1)!=str2) {
str=str.substring(0,j);
break;
}
}
return str;
}
                  //Programming by Calvin Cai 2003 
function popmaillist(addr) {
if(isEmail(addr)) {
var saction=obj.action;
var starget=obj.starget;
obj.action="maillist.asp";
obj.target="_blank";
obj.submit();
obj.action=saction;
obj.target=starget;
}
else {
alert('error email!');
}
}
function isEmail(str) { 
var supported = 0; 
if (window.RegExp) { 
var tempStr = "a"; 
var tempReg = new RegExp(tempStr); 
if (tempReg.test(tempStr)) supported = 1; 
} 
if (!supported) return (str.indexOf(".") > 2) && (str.indexOf("@") > 0); 
var r1 = new RegExp("(@.*@)|(\\.\\.)|(@\\.)|(^\\.)"); 
var r2 = new RegExp("^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$"); 
return (!r1.test(str) && r2.test(str)); 
}
//* zjb Popup *//
function pop(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}