usercredit.asp

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

response.Write("				</table>")
response.Write("                <table bgcolor=#ffa200 border=0 cellpadding=0 cellspacing=1 width=""100%"" style=margin-top:3px>  ")
response.Write("                	<tr>")
response.Write("                    <td valign=top>")
response.Write("						<table border=0 cellpadding=5 cellspacing=1 width=""100%"">                                  ")
response.Write("                            <tr class=tdbg2>")
response.Write("                            <td height=33 align=right nowrap style=""WIDTH: 54px"">"&easemycredithao&"</td>")
response.Write("                            <td nowrap>"& easecredit(cuser,"good","all") & "</td>")
response.Write("                            <td nowrap>"& easehowmany(userid,1) & easeusercredithowmany &"</td>")
response.Write("                            </tr>")
response.Write("                            <tr class=tdbg2>")
response.Write("                            <td height=32 align=right nowrap>"&easemycreditzhong&"</td>")
response.Write("                            <td nowrap>"& easecredit(cuser,"middle","all") &" </td>")
response.Write("                            <td nowrap>"& easehowmany(userid,0) & easeusercredithowmany&"</td>")
response.Write("                            </tr>")
response.Write("                            <tr class=tdbg2>")
response.Write("                            <td height=32 align=right nowrap>"&easemycreditcha&"</td>")
response.Write("                            <td nowrap>"& easecredit(cuser,"bad","all") &" </td>")
response.Write("                            <td nowrap>" & easehowmany(userid,-1) & easeusercredithowmany&"</td>")
response.Write("                            </tr>")
response.Write("                            <tr align=middle class=tdbg2>")
response.Write("                            <td height=32 align=right nowrap style=""WIDTH: 54px""><font color=red>"&easemycredithpl&"</font></td>")
response.Write("                            <td align=left nowrap>"& uhaoping(userid) & "</td>")
response.Write("                            <td align=left nowrap>"&easemycreditxyd&"&nbsp;&nbsp;" & credit & "  </td>")
response.Write("                            </tr>                                  ")
response.Write("						</table>")
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 class=tdbg1>")
response.Write("    <td colspan=3 height=29 style=""HEIGHT: 29px"">&nbsp;&nbsp; <a href=""usercredit.asp?userid="& userid & "&action=all"" >"&easemycreditpjall&"</a>&nbsp; <a href=""usercredit.asp?userid="& userid &"&action=asbuyer"" >"&easemycreditpjasbuyer&"</a>&nbsp; <a href=""usercredit.asp?userid="& userid &"&action=asseller"" >"&easemycreditpjasseller&"</a>&nbsp;")
response.Write(" 		<a href=""usercredit.asp?userid="& userid &"&action=onlygood"" >"&easemycreditpjhao&"</a>&nbsp; <a href=""usercredit.asp?userid="& userid &"&action=onlymid"" >"&easemycreditpjzhong&"</a>&nbsp; <a href=""usercredit.asp?userid="& userid &"&action=onlybad"" >"&easemycreditpjcha&"</a></td>")
response.Write("	</tr>")
response.Write("</table>")
if rst("action")<>"" then
 select case rst("action")
case "asbuyer"
isql="pj_asbuyer='N' and"
case "asseller"
isql="pj_asbuyer='Y' and"
case "onlygood"
isql="pj_type=1 and"
case "onlymid"
isql="pj_type=0 and"
case "onlybad"
isql="pj_type=(-1) and"
case "all"
isql=""
case else
isql=""
end select
sql="select users.regUsername,pingjia.pj_aucid,pingjia.pj_type,pingjia.pj_Date,pingjia.pj_content,pingjia.pj_toid,"
sql=sql&"pingjia.pj_asbuyer,pingjia.pj_fromid FROM users INNER JOIN pingjia ON users.regID = pingjia.pj_toid "
sql=sql&"where "&isql&" regusername='"&cuser&"' order by pj_Date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1		
totalcs=rs.recordcount
response.Write("<table width=""760"" border=0 cellpadding=0 cellspacing=1 align=center>                  ")
response.Write("			<tr align=""center"" class=tdbg1>")
response.Write("            <th width=""162"" height=25>"&easegoodsname&"</th>")
response.Write("            <th width=""62"" height=25>"&easemycredittype&"</th>")
response.Write("            <th width=""*"" height=25>"&easemycreditcontent&"</th>")
response.Write("            <th width=""100"" height=25>"&easemycreditwriter&"</th>")
response.Write("            <th width=""200"" height=25>"&easemycredittime&"</th>")
response.Write("            </tr>")
if rs.eof and rs.bof then
response.Write("			<tr bgcolor=""#FFE58D"" align=""center"">")
response.Write("            <td align=middle colspan=""5"">"&easenorecord&"</td>")
response.Write("            </tr>")
else					 
auction_page=10
%><!--#include file="inc/libt.inc"--><%
response.Write("   	        <tr bgcolor=""#FFE58D"" align=""center"">")
response.Write("            <td><a href=""viewitem.asp?aucid="& FVal(rs("pj_aucid")) & """>" & aspeaseaucname(sqlval(rs("pj_aucid"))) & "</a>  </td>")
response.Write("            <td>" & pjtype(rs("pj_type")) & "</td>")
response.Write("            <td>" & printout(rs("pj_content")) & "</td>")
response.Write("            <td>" & aspeaseusername(sqlval(rs("pj_fromid"))) & "</td>")
response.Write("            <td>" & sqldate(rs("pj_date")) & "</td>")
response.Write("            </tr>")
%><!--#include file="inc/libf.inc"--> <%
end if
response.Write("			<tr>")
response.Write("			<td colspan=5>")
myFPage "usercredit.asp",rst("action")
response.Write("			</td>")
response.Write("			</tr>")
response.Write("</table>")
end if

footer
function easehowmany(puserid,ptype)
if puserid=null or isnumeric(puserid)=false or trim(puserid)="" then
	easehowmany=0
else
	if isnumeric(ptype)=true then
	select case ptype
		case 1 
		sqls="select distinct pj_fromid from pingjia where pj_toid="&puserid&" and pj_type=1"
		case 0
		sqls="select distinct pj_fromid from pingjia where pj_toid="&puserid&" and pj_type=0"
		case -1
		sqls="select distinct pj_fromid from pingjia where pj_toid="&puserid&" and pj_type=-1"
		case else
		sqls="select distinct pj_fromid from pingjia where pj_toid="&puserid&" and pj_type=1"
	end select
		set rshowmany=server.createobject("adodb.recordset")
		rshowmany.open sqls,conn,1,1
		easehowmany=rshowmany.recordcount
		rshowmany.close
		set rshowmany=nothing
	else
		easehowmany=0
	end if
end if
end function
sub easeseecreditform
response.Write("<table align=center border=0 cellpadding=0 cellspacing=0 class=border1y width=760>")
response.Write("	<tr><th height=26 align=left><a href="&weburl&">"&webname&"</a>&gt;&gt;&gt;" & stats &"</th></tr></table>")
response.Write("<table align=center border=0 cellpadding=0 cellspacing=0 class=border1y width=760>")
response.Write("<form action=usercredit.asp method=post>")
response.Write("    <tr class=tdbg1>")
response.Write("      <td height=26><b>&nbsp;"&easeusercreditstats&" &nbsp;&nbsp;</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&easeusercreditenterusername&"<input type=text name=cuser><input type=submit value="&easeusercreditseecredit&"></td> ")     
response.Write("    </tr>")
response.Write("</form>")
response.Write("</table>")
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: usercredit.asp
'Version:2.0
'UpdateTime: 2004-10-5 22:56:02
'Script Written by www.aspease.com 
'=========================================================%>