my.asp

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

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!--#include file="inc/info.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/myinc.asp"-->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: my.asp
'Version:2.0
'UpdateTime: 2004-10-5 14:07:36
'Script Written by www.aspease.com 
'=========================================================
stats=easemystats
header
mytabletop
mynavtop easemystats
response.Write("<table align=center border=0 cellpadding=0 cellspacing=0 class=b1 width=100% id=border1b style=margin-top:3px>")
response.Write("  <tr><th height=26 id=bg10 width=""100%"">")
response.Write(easemycontentt&ctdr&aspeasetableclose)
response.Write("<table align=center border=0 cellpadding=0 cellspacing=1 width=""100%"" class=border1b>")
response.Write("  <tr> ")
response.Write("    <td bgcolor=#f8ffeb colspan=3> ")
response.Write("      <table border=0 cellpadding=0 cellspacing=0 width=""100%"">")
response.Write("        <tr> ")
response.Write("          <td width=""60%""> ")
response.Write("            <table border=0 cellpadding=0 cellspacing=0 width=""100%"">")
response.Write("              <tr bgcolor=#ffa200> ")
response.Write("                <td height=1></td>")
response.Write("              </tr>")
response.Write("            </table>")
response.Write("            <table bgcolor=#ffa200 border=0 cellpadding=0 cellspacing=1 width=""100%"">")
response.Write("              <tr> ")
response.Write("                <td bgcolor=#ffffff> ")
response.Write("                  <table border=0 cellpadding=5 cellspacing=1 width=""100%"">")
response.Write("                    <tr align=center class=b2 bgcolor=""#FFE58D""> ")
response.Write("                      <td width=""19%"">" & easemylist(0) & "</td>")
response.Write("                      <td width=""19%"">" & easemylist(1) & "</td>")
response.Write("                      <td width=""19%"">" & easemylist(2) & "</td>")
response.Write("                      <td width=""20%"">" & easemylist(3) & "</td>")
response.Write("                      <td width=""23%"">" & easemylist(4) & "</td>")
response.Write("                    </tr>")
response.Write("                    <tr bgcolor=#fef5ce align=center> ")
response.Write("                      <td>" & aucsellinggoods() & "</td>")
response.Write("                      <td>" & aucendedgoods() & "</td>")
response.Write("                      <td>" & aucokgoods() & "</td>")
response.Write("                      <td>" & auctuijiangoods() & "</td>")
response.Write("                      <td>" & aucshopgoods() & ctdr &aspeasetableclose & ctdr & aspeasetableclose & ctdr & aspeasetableclose & ctdr & aspeasetableclose)
response.Write("<table align=center border=0 cellpadding=0 cellspacing=0 width=100% class=border1Y>")
response.Write(tr2 & "    <td width=""100%""> " & easemycontentf & ctdr & aspeasetableclose)
mynavfoot
mytablefoot
activeonline
footer
function aucsellinggoods()
set rs=conn.execute("select count(auc_id) from auctions where auc_ended='N' and auc_itemowner="&sqlval(userid))
    aucsellinggoods=rs(0)
	set rs=nothing
	if isnull(aucsellinggoods) then aucsellinggoods=0
end function
function aucendedgoods()
set rs=conn.execute("select count(auc_id) from auctions where auc_ended='Y' and auc_itemowner="&sqlval(userid))
    aucendedgoods=rs(0)
	set rs=nothing
	if isnull(aucendedgoods) then aucendedgoods=0
end function
function aucokgoods()
sql="select distinct get_itemid from gets where get_sellerid="&sqlval(userid)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
aucokgoods=rs.recordcount
rs.close
	set rs=nothing
end function
function auctuijiangoods()
set rs=conn.execute("select count(tj_id) from tuijian where tj_shopownerid="&sqlval(userid))
    auctuijiangoods=rs(0)
	set rs=nothing
	if isnull(auctuijiangoods) then auctuijiangoods=0
end function
function aucshopgoods()
set rs=conn.execute("select count(auc_id) from auctions where auc_ended='N' and auc_upshelf='Y' and auc_itemowner="&sqlval(userid))
    aucshopgoods=rs(0)	
	set rs=nothing
	if isnull(aucshopgoods) then aucshopgoods=0
end function
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: my.asp
'Version:2.0
'UpdateTime: 2004-10-5 14:07:36
'Script Written by www.aspease.com 
'=========================================================%>