pj_toother.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: pj_toother.asp
'Version:2.0
'UpdateTime: 2004-10-4 11:10:17
'Script Written by www.aspease.com 
'=========================================================
stats=easepjtootherstats
header
call activeonline()
action=rst("action")
select case action
case "asbuyer"
sql="select * from pingjia,users where pj_fromid=regid and pj_asbuyer='Y' and regusername="&sqlstr(user)&" order by pj_Date desc"
case "asseller"
sql="select * from pingjia,users where pj_fromid=regid and pj_asbuyer='N' and regusername="&sqlstr(user)&" order by pj_Date desc"
case "onlygood"
sql="select * from pingjia,users where pj_fromid=regid and pj_type=1 and regusername="&sqlstr(user)&" order by pj_Date desc"
case "onlymid"
sql="select * from pingjia,users where pj_fromid=regid and pj_type=0 and regusername="&sqlstr(user)&" order by pj_Date desc"
case "onlybad"
sql="select * from pingjia,users where pj_fromid=regid and pj_type=(-1) and regusername="&sqlstr(user)&" order by pj_Date desc"
case "all"
sql="select * from pingjia,users where pj_fromid=regid and regusername="&sqlstr(user)&" order by pj_Date desc"
case else
sql="select * from pingjia,users where pj_fromid=regid and regusername="&sqlstr(user)&" order by pj_Date desc"
end select
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
totalcs=rs.recordcount
mytabletop
mynavtop easepjtootherstats
myrighttop "100%","0","0","b1","style=margin-top:1px;margin-bottom:1px"
myrighttr "4,*| ," & easepjcontenttoplist
myrightfoot
mycontenttop "20%,15%,18%,10%,*|" & easepjcontenttitlelist
if rs.eof then 
response.Write("<tr><td colspan=5 class=tdbg2>" & easenorecord & "</td>")
else
auction_page=10 %><!--#include file="inc/libt.inc"--><%
response.Write("  <tr align=""center"" valign=""middle"" height=25 ")
if i mod 2 =0 then
response.Write("class=tdbg2")
else
response.Write("class=tdbg1")
end if
response.Write(">") 
response.Write("    <td> <a href=""viewitem.asp?aucid=" & FVal(rs("pj_aucid")) & """ title=" & searchaucid & ":" & FVal(rs("pj_aucid")) & ">" & aspeaseaucname(sqlval(rs("pj_aucid"))) &"</a></td>")
response.Write("    <td>" & aspeaseusername(sqlval(rs("pj_toid"))) & "</td>")
response.Write("    <td>" & rs("pj_date") & "</td>")
response.Write("    <td>" & pjtype(FVal(rs("pj_type"))) & "</td>")
response.Write("    <td>" & printout((rs("pj_content"))) & "</td>")
response.Write("  </tr>")
%><!--#include file="inc/libf.inc"--> <%
end if 
mycontentfoot
MyFPage "pj_toother.asp",rst("action")
mynavfoot
mytablefoot
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: pj_toother.asp
'Version:2.0
'UpdateTime: 2004-10-4 11:10:17
'Script Written by www.aspease.com 
'=========================================================%>