📄 body_view_feed_backs.asp
字号:
<%@ Language=VBScript%>
<% option explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
<TITLE>View Feed Backs</TITLE>
<BASE TARGET="_parent">
</HEAD>
<BODY BACKGROUND="../FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<%
dim LoginName,errorMsg,Rating
Dim SellerBuyer
server.execute "../ValidateUser.asp"
if len(Request.QueryString("chk"))<>0 then
LoginName=Request.QueryString("chk")
SellerBuyer=1
elseif len(Request.QueryString("chkbuy"))<>0 then
LoginName=Request.QueryString("chkbuy")
SellerBuyer=2
end if
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
LoginName=Request.Form("LoginName")
if len(LoginName)= 0 then
if len(Session("FeedBackName"))=0 then
errorMsg="You must enter the login name"
else
LoginName=Session("FeedBackName")
end if
else
Session("FeedBackName")=LoginName
end if
if len(errorMsg) <> 0 then
Response.Write errorMsg
else
Dim dbconn
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.mode= adModeRead
dbconn.open "BidBase","scott","tiger"
Dim dbRec
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open "Select * from Member where Member_Login ='" & LoginName &"'" ,dbconn
if dbRec.EOF = true then
Response.Write "<b>Invalid username<b>"
'else
' Response.Write "You may continue!!"
end if
dbRec.close
dbconn.close
end if
end if
%>
</SELECT>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=552 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=14 HEIGHT=12>
<IMG SRC="clearpixel.gif" WIDTH=14 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=105></TD>
<TD WIDTH=538>
<FORM NAME="LayoutRegion5FORM" ACTION="body_view_feed_backs.asp" TARGET="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion5">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=12 HEIGHT=34>
<IMG SRC="clearpixel.gif" WIDTH=12 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=504>
<TABLE ID="Table2" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=504>
<TR>
<TD WIDTH=13><P><INPUT ID="FormsRadioButton1" TYPE=RADIO CHECKED NAME="RadioButton1" VALUE="1"> </TD>
<TD WIDTH=85><P>Seller Login</TD>
<TD WIDTH=31><P><DIV ALIGN="RIGHT">
<TABLE WIDTH=13 BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF=TE>
<TR>
<TD><INPUT ID="FormsRadioButton2" TYPE=RADIO NAME="RadioButton1" VALUE="2"></TD>
</TR>
</TABLE>
</DIV></TD>
<TD WIDTH=80><P>Buyer Login</TD>
<TD WIDTH=129><P><INPUT ID="FormsEditField38" TYPE=TEXT NAME="LoginName" VALUE="<%=LoginName%>" SIZE=16 MAXLENGTH=16> </TD>
<TD WIDTH=133><P><INPUT TYPE=SUBMIT NAME="FormsButton1" VALUE="ViewAuctions" ID="FormsButton1"> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=555 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=14 HEIGHT=12>
<IMG SRC="clearpixel.gif" WIDTH=14 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=140>
<IMG SRC="clearpixel.gif" WIDTH=140 HEIGHT=1 BORDER=0></TD>
<TD></TD>
<TD WIDTH=327>
<IMG SRC="clearpixel.gif" WIDTH=327 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=50></TD>
<TD WIDTH=541 COLSPAN=3 ROWSPAN=2>
<FORM NAME="LayoutRegion7FORM" ACTION="body_view_feed_backs.asp" TARGET="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=324 NOF="LayoutRegion7">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=36 HEIGHT=36>
<IMG SRC="clearpixel.gif" WIDTH=36 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=65>
<IMG SRC="clearpixel.gif" WIDTH=65 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=13>
<IMG SRC="clearpixel.gif" WIDTH=13 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=12>
<IMG SRC="clearpixel.gif" WIDTH=12 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=21>
<IMG SRC="clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=65><P>Auctions</TD>
<TD COLSPAN=4></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=6 HEIGHT=5></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=24></TD>
<TD WIDTH=90 COLSPAN=20>
<SELECT ID="FormsComboBox3" NAME="auctions">
<%
if Request("Submit")="ViewFeedback" then
dim dbRec2 , temp,dbConn2,auction_id
set dbConn2=Server.CreateObject("ADODB.Connection")
set dbRec2=Server.CreateObject("ADODB.RecordSet")
dbConn2.mode= adModeRead
dbConn2.open "BidBase","Scott","tiger"
if Request("RadioButton1")=1 then
dbRec2.Open "Select item_title,auction_id from view_sold_items where seller_Login ='" & LoginName &"' and auction_id=(select auction_id from feedback) ",dbconn2
else
if Request("RadioButton1")=2 then
dbRec2.Open "Select item_title,auction_id from view_bought_items where member_buyer_login='"& LoginName&"'",dbConn2
end if
end if
while not dbRec2.EOF
item_title=dbRec2("item_title")
Response.Write "<OPTION VALUE='"&auction_id&"'>"&item_title&"</OPTION>"
dbRec2.MoveNext
wend
dbRec2.close
dbConn2.close
elseif len(Request.QueryString("chk")) <> 0 then
dim dbRec4 ,dbConn4
set dbConn4=Server.CreateObject("ADODB.Connection")
set dbRec4=Server.CreateObject("ADODB.RecordSet")
dbConn4.mode= adModeRead
dbConn4.open "BidBase","scott","tiger"
dbRec4.Open "Select item_title,auction_id from view_sold_items where seller_Login ='" & LoginName &"'",dbConn4
while not dbRec4.EOF
item_title=dbRec4("item_title")
Response.Write "<OPTION VALUE='"&auction_id&"'>"&item_title&"</OPTION>"
dbRec4.MoveNext
wend
dbRec4.close
dbConn4.close
end if
%>
</SELECT>
</TD>
<TD></TD>
<TD WIDTH=177><INPUT TYPE=SUBMIT NAME="FormsButton2" VALUE="DisplayFeedBack" ID="FormsButton2"></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=6 HEIGHT=53></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=78 COLSPAN=2><P>Feed Backs</TD>
<TD COLSPAN=3></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=6 HEIGHT=12></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=118></TD>
<TD WIDTH=288 COLSPAN=5><TEXTAREA WRAP=PHYSICAL ID="FormsMultiLine2" NAME="FormsMultiLine2" ROWS=7 COLS=34></TEXTAREA></TD>
<%
if Request("Submit")="DisplayFeedback" then
dim dbRec3,dbConn3
auction_id=Request.Form("auctions")
set dbConn3=Server.CreateObject("ADODB.Connection")
DbConn3.mode= adModeRead
dbConn3.open "BidBase","Scott","tiger"
if Not item_title="" then
dbRec3.Open "Select FeedbackNotes from feedback where auction_id ='" & auction_id&"'" ,dbConn3
Response.Write dbRec3("FeedbackNotes")
Rating=dbRec3("rating")
dbRec3.close
end if
dbConn3.close
elseif len(Request.QueryString("chkbuy")) <> 0 then
dim dbRec5 ,dbConn5
set dbConn5=Server.CreateObject("ADODB.Connection")
set dbRec5=Server.CreateObject("ADODB.RecordSet")
dbConn5.mode= adModeRead
dbConn5.open "BidBase","scott","tiger"
dbRec5.Open "Select item_title,auction_id from view_bought_items where member_buyer_Login ='" & LoginName &"'",dbConn5
while not dbRec5.EOF
item_title=dbRec5("item_title")
Response.Write "<OPTION VALUE='"&auction_id&"'>"&item_title&"</OPTION>"
dbRec5.MoveNext
wend
dbRec5.close
dbConn5.close
end if
%>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=118></TD>
<TD WIDTH=288 COLSPAN=5>
<B>UserRating: </B><%=Rating%>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=275></TD>
<TD WIDTH=74>
<FORM NAME="LayoutRegion6FORM" ACTION="body_view_feed_backs.asp" TARGET="body" METHOD=POST>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -