mycredit.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: mycredit.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:35:08
'Script Written by www.aspease.com 
'=========================================================
stats=easemycreditstats
header
sql2="select * from pingjia where pj_toid="&userid&""
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
cuser=user
mytabletop
mynavtop easemycreditstats
response.Write("<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" class=border1b><tr align=""left""><th height=26>")
if rs2.eof and rs2.bof then
	response.write(easenorecord)
else 
	response.write(" &nbsp;" & user & "&nbsp;&nbsp;" & ugrade(userid) & easemycreditget) 
    response.write(easemycredithpl & "<font color=red>" & uhaoping(userid) & "</font> " & easemycreditxyd & "<font color=red>" & ucredit(userid) & "</font>")
end if
response.write("  </th>"&ctr&aspeasetableclose)
response.Write("<table align=center border=0 cellpadding=0 cellspacing=0 width=""100%""  class=border1b> ")
response.Write("    <tr><td>       ")
response.Write("      <table align=center border=0 cellpadding=0 cellspacing=1 width=""100%"">")
response.Write("        <tr><td bgcolor=#f8ffeb colspan=3>")
response.Write("                <table border=0 cellpadding=0 cellspacing=0 width=""100%"">                  ")
response.Write("                    <tr><td width=""60%"">                        ")
response.Write("                  	<table border=0 cellpadding=0 cellspacing=0 width=""100%"">")
response.Write("                    <tr><td colspan=2 height=1 bgcolor=""#ffa200""></td></tr>")
response.Write("                    <tr><th colspan=""2"" class=b2 height=30 style=""LINE-HEIGHT: 20px; font-weight: bold;"">")
response.Write(easemycreditallpj)
response.Write("</th></tr>")
response.Write("                </table>")
response.Write("                <table border=0 cellpadding=5 cellspacing=1 width=""100%"">")
response.Write("                   <tr align=center class=b2> ")
response.Write("                      <td width=""19%"" bgcolor=""#FFE58D"">&nbsp;</td>")
response.Write("                      <td width=""14%"" bgcolor=""#FFE58D""><b>" & easemycredit7d & "</b></td>")
response.Write("                      <td width=""17%"" bgcolor=""#FFE58D""><b>" & easemycredit1m & "</b></td>")
response.Write("                      <td width=""18%"" bgcolor=""#FFE58D""><b>" & easemycredit3m & "</b></td>")
response.Write("                      <td width=""18%"" bgcolor=""#FFE58D""><b>" & easemycredit6m & "</b></td>")
response.Write("                      <td width=""14%"" bgcolor=""#FFE58D""><b>" & easemycredittotal & "</b></td>")
response.Write("                   </tr>")
response.Write("                   <tr align=""center"" bgcolor=#ffe58d>                                   ")
response.Write("                      <td align=right class=b2><b>" & easemycredittotal & "：</b></td>")
response.Write("   <td valign=""top"" class=b2><b>")
response.Write(easecredit(cuser,"all","7"))
response.Write("</b></td>")
response.Write("                      <td valign=""top"" class=b2><b>")
response.Write(easecredit(cuser,"all",30))
response.Write("</b></td>")
response.Write("                      <td valign=""top"" class=b2><b>")
response.Write(easecredit(cuser,"all",90))
response.Write("</b></td>")
response.Write("                      <td valign=""top"" class=b2><b>")
response.Write(easecredit(cuser,"all",180))
response.Write("</b></td>")
response.Write("                      <td valign=""top"" class=b2><b>")
response.Write(easecredit(cuser,"all","all"))
response.Write("</b></td>")
response.Write("                   </tr>")
response.Write("                   <tr bgcolor=#fef5ce align=""center""> ")
response.Write("                      <td align=right><font color=green>" & easemycredithao & "：</font></td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"good",7))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"good",30))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"good",90))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"good",180))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"good","all"))
response.Write("</td>")
response.Write("                   </tr>")
response.Write("                   <tr bgcolor=#fef5ce align=""center""> ")
response.Write("                      <td align=right>" & easemycreditzhong & "：</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"middle",7))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"middle",30))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"middle",90))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"middle",180))
response.Write("</td>")
response.Write("                      <td align=middle>")
response.Write(easecredit(cuser,"middle","all"))
response.Write("</td>")
response.Write("                   </tr>")
response.Write("                   <tr bgcolor=#fef5ce align=""center""> ")
response.Write("                   	   <td align=right><font color=#c00000>" & easemycreditcha & "：</font></td>")
response.Write("                       <td align=middle>")
response.Write(easecredit(cuser,"bad",7))
response.Write("</td>")
response.Write("                       <td align=middle>")
response.Write(easecredit(cuser,"bad",30))
response.Write("</td>")
response.Write("                       <td align=middle>")
response.Write(easecredit(cuser,"bad",90))
response.Write("</td>")
response.Write("                       <td align=middle>")
response.Write(easecredit(cuser,"bad",180))
response.Write("</td>")
response.Write("                       <td align=middle>")
response.Write(easecredit(cuser,"bad","all"))
response.Write("</td>")
response.Write("                   </tr>                             ")
response.Write("               </table>")
response.Write("             </td>")
response.Write("        </tr>")
response.Write("      </table>")
response.Write("	</td>")
response.Write("  </tr>")
response.Write("  <tr><th colspan=3 height=29><a       ")
response.Write("                  href=""mycredit.asp?user=")
response.Write( user )
response.Write("&action=all"">" & easemycreditpjall & "</a>&nbsp; <a         ")
response.Write("                  href=""mycredit.asp?user=")
response.Write( user )
response.Write("&action=asbuyer"">" & easemycreditpjasbuyer & "</a>&nbsp; <a         ")
response.Write("                  href=""mycredit.asp?user=")
response.Write( user )
response.Write("&action=asseller"">" & easemycreditpjasseller & "</a>&nbsp; <a         ")
response.Write("                  href=""mycredit.asp?user=")
response.Write( user )
response.Write("&action=onlygood"">" & easemycreditpjhao & "</a>&nbsp; <a         ")
response.Write("                  href=""mycredit.asp?user=")
response.Write( user )
response.Write("&action=onlymid"">" & easemycreditpjzhong & "</a>&nbsp; <a         ")
response.Write("                  href=""mycredit.asp?user=")
response.Write( user )
response.Write("&action=onlybad"" >" & easemycreditpjcha & "</a></th></tr>")
if rst("action")<>"" then
select case rst("action")
case "asbuyer"
sql="select * from pingjia,users where pj_toid=regid and pj_asbuyer='N' and regusername='"&user&"' order by pj_Date desc"
case "asseller"
sql="select * from pingjia,users where pj_toid=regid and pj_asbuyer='Y' and regusername='"&user&"' order by pj_Date desc"
case "onlygood"
sql="select * from pingjia,users where pj_toid=regid and pj_type=1 and regusername='"&user&"' order by pj_Date desc"
case "onlymid"
sql="select * from pingjia,users where pj_toid=regid and pj_type=0 and regusername='"&user&"' order by pj_Date desc"
case "onlybad"
sql="select * from pingjia,users where pj_toid=regid and pj_type=(-1) and regusername='"&user&"' order by pj_Date desc"
case "all"
sql="select * from pingjia,users where pj_toid=regid and regusername='"&user&"' order by pj_Date desc"
case else
sql="select * from pingjia,users where pj_toid=regid and regusername='"&user&"' order by pj_Date desc"
end select
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1		
totalcs=rs.recordcount
response.Write("    <tr> ")
response.Write("          <td class=tdth> ")
response.Write("            <table width=""100%"" border=0 cellpadding=0 cellspacing=1>")
response.Write("              <tr align=""center""><th width=""19%"" height=20>" & easegoodsname & "</th><th width=""14%"">" &easemycredittype & "</th><th width=""39%"">" & easemycreditcontent & "</th><th width=""10%"">" & easemycreditwriter & "</th><th width=""24%"">" & easemycredittime & "</th></tr>")
response.Write("              ")
 if rs.eof then
response.Write("              <tr class=tdbg2><td colspan=""5"">" & easenorecord & "</td></tr>")
else	
auction_page=10%><!--#include file="inc/libt.inc"--><%
response.Write(" <tr ")
if i mod 2=0 then
response.Write("class=tdbg2")
else
response.Write("class=tdbg1")
end if
response.Write("> ")
response.Write("                <td width=""19%""><a href=""viewitem.asp?aucid=")
response.Write( FVal(rs("pj_aucid")) )
response.Write(""">")
response.Write(aspeaseaucname(rs("pj_aucid")))
response.Write("</a></td>")
response.Write("                <td width=""14%"">")
response.Write(pjtype(FVal(rs("pj_type"))))
response.Write(" </td>")
response.Write("                <td width=""39%"">")
response.Write( replace(sqltstr(rs("pj_content")),chr(10),"<BR>") )
response.Write("</td>")
response.Write("                <td width=""10%"">")
response.Write(aspeaseusername(sqlval(rs("pj_fromid"))))
response.Write("</td>")
response.Write("                <td width=""24%"">")
response.Write( sqldate(rs("pj_date")) )
response.Write("</td>")
response.Write("              </tr>")%><!--#include file="inc/libf.inc"--> <%
end if					     
end if
response.Write(aspeasetableclose & ctdr & aspeasetableclose& ctdr & aspeasetableclose) 
myfpage "mycredit.asp",rst("action")
mynavfoot
mytablefoot
activeonline
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: mycredit.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:35:08
'Script Written by www.aspease.com 
'=========================================================%>