myinc.asp

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

<%sub myrighttop(pvwidth,pvcellspacing,pvcellpadding,pvid,pvstyle)
if fval(pvwidth)=0 then 
	pvtable="100%"
end if
pstr=" <table width="""& pvwidth & """ border=""0"" cellspacing="""& fval(pvcellspacing) & """ cellpadding=""" & fval(pvcellpadding) & """ id=""" & pvid & """ style=""" & pvstyle & """>"
response.write pstr
end sub
sub myrighttr(pvwidthvalue)
pvwidth=split(pvwidthvalue,"|")
a=split(pvwidth(0),",")
b=split(pvwidth(1),",")
pstr=pstr& "   <tr> "
ib=0
for i = 0 to ubound(a) 
pstr=pstr& "  <td width=""" & a(i) & """"
if i=0 then
pstr=pstr & " style=padding-left:10px"
end if
pstr=pstr & " valign=""top"">" & b(ib) & "</td> "
if i=ubound(b) then exit for
ib=ib+1
next
pstr=pstr& " </tr>"
response.write pstr
end sub
sub myrighthr(pvwidth,pvheght,pvcolor)
if pvcolor="" then pvcolor="#009900"
if pvwidth = "" then pvwidth="100%"
if pvheight="" then pvheight="1"
pstr=" <table width=""" & pvwidth &""" border=""0"" height=""" & pvheight &""" style=""margin-top:0px;margin-bottom:0px;"" cellspacing=""0"" cellpadding=""0""><tr> "
pstr=pstr & " <td height=""" & pvheight &""" bgcolor=""" & pvcolor & """></td></tr>"
pstr=pstr & "<tr> </table>"
response.write pstr
end sub
sub myrightfoot
response.write "</table>"
end sub
sub mycontenttop(ttlvalue)
pstr="<table width=""100%"" border=""0"" cellpadding=""3"" cellspacing=""1"" class=""border1b""> "
ttlvalue=split(ttlvalue,"|")
a=split(ttlvalue(0),",")
b=split(ttlvalue(1),",")
pstr=pstr& "   <tr align=""center"" height=""25""> "
ib=0
for i = 0 to ubound(a) 
pstr=pstr& "  <th width=""" & a(i) & """ valign=""middle"" >" & b(ib) & "</th> "
if i=ubound(b) then exit for
ib=ib+1
next
pstr=pstr& " </tr>"
response.write pstr	 
end sub
sub mycontentfoot
response.write "</table>"
end sub

sub mytabletop
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
response.Write("  <tr>")
response.Write("    <td width=""150"" align=""left"" valign=""top"">")
myleftnav
response.Write(" </td>")
response.Write("    <td width=""7""><img src=""images/tran_1.gif"" width=""1"" height=""1""></td>")
response.Write("    <td width=""801"" align=""left"" valign=""top"">")
end sub
response.Write("")
sub mytablefoot
response.Write("	</td>")
response.Write("  </tr>")
response.Write("</table>")
end sub
response.Write("")
sub mynavtop(pvalue)
response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""b1"">")
response.Write("   <tr>           ")
response.Write("    <td width=""8"" valign=""top"" id=""bg11""></td>          ")
response.Write("    <td width=""338"" align=""center"" valign=""bottom"" id=""bg11""><font color=""#FFFFFF""><strong>您的位置 ")
response.Write("      &nbsp;&nbsp;> ")
response.Write(pvalue)
response.Write("</strong></font></td>          ")
response.Write("    <td width=""4"" valign=""top"" id=""bg11""><img src=""images/corner_2.gif"" width=""4"" height=""4""></td>          ")
response.Write("    <td width=600>&nbsp;</td></tr>")
response.Write("    <tr> 	")
response.Write("    <td height=""2"" colspan=""4"" id=""bg11""></td></tr>")
response.Write("	<tr><td colspan=""4"">")
end sub
response.Write("")
sub mynavfoot
response.Write("	</td>")
response.Write("        </tr>")
response.Write("      </table>")
end sub
response.Write("	    ")
sub myleftnav
response.Write("<table border=0 cellpadding=0 cellspacing=0 width=150>")
response.Write("  <tr> ")
response.Write("    <td width=6><img src=""images/left_01.gif"" width=""6"" height=""10""></td>")
response.Write("    <td background=""images/left_02.gif"" width=""138""></td>")
response.Write("    <td width=6><img height=10 src=""images/left_03.gif"" width=6></td>")
response.Write("  </tr>")
response.Write(" <tr> ")
response.Write("    <td><img src=""images/left_04.gif"" width=""6"" height=""30""></td>")
response.Write("    <td align=left id=b2 valign=middle background=""images/admin_bg_1.gif"" height=""25"" width=""138""> ")
response.Write("