config.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<%
dim aspeasetableopen,aspeasetableclose,aspeasetable1yopen,aspeasetablebyopen,aspeasetablehopen,aspeasetablewopen
dim aspeasetable01open,tr,trw,tr1,tr2,ctr,trcenter,tdstr,ctdr
aspeasetableopen="<table width="""&easetablewidth&""" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
aspeasetablehopen="<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
aspeasetableclose="</table>"
aspeasetable1yopen="<table width="""&easetablewidth&"""  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""border1y"">"
aspeasetable1bopen="<table width="""&easetablewidth&"""  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""border1b"">"
aspeasetable01open="<TABLE align=""center"" border=""0"" cellPadding=""3"" cellSpacing=""1"" id=""bg01"" width=""760"">"
aspeasetablewopen="<table width=""760"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"
tr="<tr>"
tr1="<tr class=""tdbg1"">"
tr2="<tr class=""tdbg2"">"
trw="<tr align=""left"" id=""bg12"">"
ctr="</tr>"
ctdr="</td></tr>"
trc="<tr align=""center"">"
tdstr="<td>&nbsp;</td>"
function td(pwidth,pheight,palign,pvalign,ptype)
dim str,sstr,atype,vtype
str=""
if ptype="th" or ptype="h" then
	sstr="<th "
else
	sstr="<td "
end if
if pwidth<>"" then
	if instr(pwidth,"%")>0 then
		if len(pwidth)-instr(pwidth,"%")=0 then
			str=str & sstr & "width=""" & pwidth & """ "
		end if
	else		
		if isnumeric(pwidth) then
			str=str & sstr & "width=""" & pwidth & """ "
		else
			str=str & sstr
		end if
	end if
else
	str=str & sstr
end if	
if pheight<>"" then
	if instr(pheight,"%")>0 then
		if len(pheight)-instr(pheight,"%")=0 then
			str=str & "height=""" & pheight & """ "
		end if
	else		
		if isnumeric(pheight) then
			str=str & "height=""" & pheight & """ "	
		end if
	end if
end if	
if palign<>"" then
	select case lcase(palign)
		case "l","left"
			atype="left"
		case "r","right"
			atype="right"
		case "c","center"
			atype="center"
		case else
			atype=""
	end select
	if atype<>"" then
		str=str & "align=""" & atype & """ "
	end if
end if	
if pvalign<>"" then
	select case lcase(pvalign)
		case "t","top"
			vtype="top"
		case "m","middle","mid","c","center"
			vtype="middle"
		case "b","bottom","d"
			vtype="bottom"
		case else
			vtype=""
	end select
	if vtype<>"" then
		str=str & "valign=""" & vtype & """ "
	end if
end if	
str=str&">"
td=str
end function
function ctd(ptype)
if ptype="h" or ptype="th" then
	ctd="&nbsp;</th>"
else
	ctd="&nbsp;</td>"
end if
end function
function tdrc(prowspan,pcolspan,ptype,pvalue)
dim str,sstr,ar,ac
str=""
if ptype="th" or ptype="h" then
	sstr="<th "
else
	sstr="<td "
end if
if prowspan<>"" then
	if isnumeric(prowspan) then
		str=str & sstr & "rowspan=""" & cint(prowspan) & """"
	end if
end if
if pcolspan<>"" then
	if isnumeric(pcolspan) then
		str=str & sstr & "colspan=""" & cint(pcolspan) & """"
	end if
end if
str=str&">"
if trim(pvalue)<>"" then
	str=str&pvalue
else
	str=str&"&nbsp;"
end if
if ptype="th" or ptype="h" then
	str=str&"</th>"
else
	str=str&"</td>"
end if
tdrc=str
end function


%>