usercredit.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: usercredit.asp
'Version:2.0
'UpdateTime: 2004-10-5 22:56:02
'Script Written by www.aspease.com 
'=========================================================
stats=easeusercreditstats
header
call activeonline()
userid=request.querystring("userid")	
if userid<>"" then
	set rs3=conn.execute("select regusername,reggrade from users where regid="&sqlval(userid))
	if not rs3.eof then
		cuser=rs3(0)
		cgrade=fval(rs3(1))
	rs3.close
	else
		err_msg="<li>"& easelosspassnullusermsg
		aspease_err
		footer
		response.End()
	end if
else
	cuser=checkstr(request.form("cuser"))
	if request.form("cuser")<>"" then
		set rs3=conn.execute("select regid,reggrade from users where regusername='"&checkstr(cuser)&"'")
		if rs3.eof then
		err_msg="<li>" & easelosspassnullusermsg & "("&cuser&")！"
		aspease_err
		footer
		response.End()
		else
		userid=fval(rs3(0))
		cgrade=fval(rs3(1))
		end if
	else
		easeseecreditform
		footer
		response.end
	end if
end if
sql="select * from users,pingjia where pj_toid=regid and pj_type=1 and regusername='"&cuser&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
haoping=rs("reghaoping")
zhongping=rs("regzhongping")
chaping=rs("regchaping")
credit=rs("regcredit")
totalcs=rs.recordcount
else
haoping=0
zhongping=0
chaping=0
credit=0
totalcs=0
end if
rs.close
set rs=nothing
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;&nbsp;&nbsp;"& cuser &"&nbsp;&nbsp; " & ugrade(userid) & easemycreditget&"&nbsp;&nbsp;</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&easeusercreditenterusername)
response.Write("		<input type=text name=cuser><input type=submit value="&easeusercreditseecredit&">")
response.Write("	</td>")
response.Write("	</tr>")
response.Write("  </form>")
response.Write("</table>")
response.Write("<table align=center border=0 cellpadding=0 cellspacing=1 width=""760"" class=border1y>          ")
response.Write("	<tr>")
response.Write("	<td colspan=3>")
response.Write("		<table border=0 cellpadding=0 cellspacing=0 width=""100%"">                  ")
response.Write("			<tr class=tdbg1>")
response.Write("			<td width=""60%"">")
response.Write("				<table bgcolor=#ffa200 border=0 cellpadding=0 cellspacing=1 width=""100%"">                          ")
response.Write("					<tr>")
response.Write("					<th align=middle bgcolor=#ffefce height=30 style=""BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; LINE-HEIGHT: 20px; font-weight: bold;"">"&easemycreditallpj&"</th>")
response.Write("					</tr>                          ")
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>")
response.Write("						<table border=0 cellpadding=5 cellspacing=1 width=""100%"">                                  ")
response.Write("							<tr align=center class=tdbg1>")
response.Write("                            <td width=""19%"" bgcolor=""#FFE58D"">&nbsp;</td>")
response.Write("                            <td width=""14%""><b>"&easemycredit7d&"</b></td>")
response.Write("                            <td width=""17%""><b>"&easemycredit1m&"</b></td>")
response.Write("                            <td width=""18%""><b>"&easemycredit3m&"</b></td>")
response.Write("                            <td width=""18%""><b>"&easemycredit6m&"</b></td>")
response.Write("                            <td width=""14%""><b>"&easemycredittotal&"</b></td>")
response.Write("                            </tr>")
response.Write("                            <tr align=center bgcolor=#fef5ce>")
response.Write("                            <td align=right class=b2><b>"&easemycredittotal&" </b></td>")
response.Write("							<td valign=""top"" class=b2> <b>"&easecredit(cuser,"all",7)&"</b></td>")
response.Write("                            <td valign=""top"" class=b2><b>"&easecredit(cuser,"all",30)&"</b></td>")
response.Write("                            <td valign=""top"" class=b2><b>"&easecredit(cuser,"all",90)&"</b></td>")
response.Write("                            <td valign=""top"" class=b2><b>"&easecredit(cuser,"all",180)&"</b></td>")
response.Write("                            <td valign=""top"" class=b2><b>"&easecredit(cuser,"all","all")&"</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> "&easecredit(cuser,"good",7)&"</td>")
response.Write("                            <td> "&easecredit(cuser,"good",30)&"</td>")
response.Write("                            <td> "&easecredit(cuser,"good",90)&"</td>")
response.Write("                            <td> "&easecredit(cuser,"good",180)&"</td>")
response.Write("                            <td> "&easecredit(cuser,"good","all")&"</td>")
response.Write("                            </tr>")
response.Write("                            <tr bgcolor=#fef5ce align=center>")
response.Write("                            <td align=right>"&easemycreditzhong&"</td>")
response.Write("                            <td>"&easecredit(cuser,"middle",7)&"</td>")
response.Write("                            <td>"&easecredit(cuser,"middle",30)&" </td>")
response.Write("                            <td>"&easecredit(cuser,"middle",90)&"</td>")
response.Write("                            <td>"&easecredit(cuser,"middle",180)&"</td>")
response.Write("                            <td>"&easecredit(cuser,"middle","all")&"</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>"&easecredit(cuser,"bad",7)&"</td>")
response.Write("                            <td>"&easecredit(cuser,"bad",30)&"</td>")
response.Write("                            <td>"&easecredit(cuser,"bad",90)&"</td>")
response.Write("                            <td>"&easecredit(cuser,"bad",180)&"</td>")
response.Write("                            <td>"&easecredit(cuser,"bad","all")&"</td>")
response.Write("                            </tr>                                  ")
response.Write("						</table>")
response.Write("					</td>")
response.Write("                    </tr>                          ")
response.Write("				</table>")
response.Write("			</td>")
response.Write("            <td align=right width=10>&nbsp;</td>")
response.Write("            <td align=right valign=top>")
response.Write("				<table bgcolor=#ffa200 border=0 cellpadding=0 cellspacing=1 width=""100%"">                          ")
response.Write("					<tr><th align=middle height=30><b>"&easeusercredittjstr&"</b></th></tr>")