📄 body_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="NetObjects Fusion 4.0 Trial for Windows">
<TITLE>Feed Backs</TITLE>
<BASE TARGET="_parent">
</HEAD>
<% Server.Execute "../ValidateAdministrator.asp"%>
<BODY BACKGROUND="../FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=763 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=763 HEIGHT=98 COLSPAN=2>
<FORM NAME="LayoutRegion2FORM" ACTION="body_feed_backs.asp" TARGET="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion2">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=21 HEIGHT=37><IMG SRC="../clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=742>
<TABLE ID="Table2" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=742>
<TR>
<TD WIDTH=17 HEIGHT=24><P><INPUT ID="FormsRadioButton3" TYPE=RADIO CHECKED NAME="RadioButton3" VALUE="1"> </TD>
<TD WIDTH=82><P><b>Seller Login</b></TD>
<TD WIDTH=156><P>
<SELECT ID="FormsComboBox4" NAME="seller_login">
<%
Dim dbconn,seller_login
seller_login=Request.Form("seller_login")
Response.Write "<OPTION VALUE='"&seller_login&"'>"&seller_login&"</OPTION>"
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.Mode=1
dbconn.open "BidBase","scott","tiger"
Dim dbRec
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open "Select unique (seller_login) from auctiondetails ",dbconn
if dbRec.EOF = true then
Response.Write "<OPTION VALUE='none' SELECTED>----None------</OPTION>"
else
while not dbRec.EOF
seller_login=dbRec("seller_login")
Response.Write "<OPTION VALUE='"&seller_login&"'>"&seller_login&"</OPTION>"
dbRec.MoveNext
wend
end if
dbRec.close
dbconn.close
%>
</SELECT>
</TD>
<TD WIDTH=30><P><DIV ALIGN="RIGHT">
<TABLE WIDTH=13 BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF=TE>
<TR>
<TD><INPUT ID="FormsRadioButton4" TYPE=RADIO NAME="RadioButton3" VALUE="2"></TD>
</TR>
</TABLE>
</DIV></TD>
<TD WIDTH=94><P><b>Buyer Login</b></TD>
<TD WIDTH=159><P>
<SELECT ID="FormsComboBox5" NAME="buyer_login">
<%
Dim dbconn1,buyer_login
Set dbconn1 = Server.CreateObject("ADODB.Connection")
Dim dbRec1,member_buyer_login
member_buyer_login=Request.Form("buyer_login")
Response.Write "<OPTION VALUE='"&member_buyer_login&"'>"&member_buyer_login&"</OPTION>"
dbconn1.Mode=1
dbconn1.open "BidBase","scott","tiger"
Set dbRec1 = Server.CreateObject("ADODB.Recordset")
dbRec1.Open "Select unique (member_buyer_login) from bidding ",dbconn1
if dbRec1.EOF = true then
Response.Write "<OPTION VALUE='none' SELECTED>----None------</OPTION>"
else
while not dbRec1.EOF
member_buyer_login=dbRec1("member_buyer_login")
Response.Write "<OPTION VALUE='"&member_buyer_login&"'>"&member_buyer_login&"</OPTION>"
dbRec1.MoveNext
wend
end if
dbRec1.close
dbconn1.close
%>
</SELECT>
</TD>
<TD WIDTH=166><P><INPUT TYPE=SUBMIT NAME="Submit" VALUE="View Feed Back" ID="FormsButton1"> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=1></TD>
<TD WIDTH=176><IMG SRC="../clearpixel.gif" WIDTH=176 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=587 HEIGHT=344>
<FORM NAME="LayoutRegion5FORM" ACTION="" METHOD=POST>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=534>
<TR VALIGN=TOP ALIGN=LEFT>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=380 NOF="LayoutRegion5">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=47 HEIGHT=44><IMG SRC="../clearpixel.gif" WIDTH=47 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=71><IMG SRC="../clearpixel.gif" WIDTH=71 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=4><IMG SRC="../clearpixel.gif" WIDTH=4 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=167><IMG SRC="../clearpixel.gif" WIDTH=167 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=91><IMG SRC="../clearpixel.gif" WIDTH=91 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=75 COLSPAN=2><P><b>Feed Back</b></TD>
<TD COLSPAN=2></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=5 HEIGHT=12></TD>
</TR>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=47 HEIGHT=13><IMG SRC="../clearpixel.gif" WIDTH=47 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=491>
<TABLE ID="Table1" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH=491>
<TR>
<TD ALIGN=CENTER WIDTH=87 HEIGHT=19><P><b>Giver Login</b></TD>
<TD ALIGN=CENTER WIDTH=91><P><b>Rating</b></TD>
<TD ALIGN=CENTER WIDTH=93><P><b>Feedback</b></TD>
</TR>
<TR>
<%
Dim dbconn3
Set dbconn3 = Server.CreateObject("ADODB.Connection")
dbconn3.Mode=1
dbconn3.open "BidBase","scott","tiger"
if Request.Form("Submit")="View Feed Back" then
dim dbRec3,Rating,Feedback,temp,SqlString
if Request.Form("RadioButton3")=1 then
temp=0
member_buyer_login=Request.Form("seller_login")
else
if Request.Form("RadioButton3")=2 then
member_buyer_login=Request.Form("buyer_login")
temp=1
end if
end if
Set dbRec3 = Server.CreateObject("ADODB.Recordset")
SqlString="Select * from feedback where user_buyer = "&temp&" AND about_login = '"&member_buyer_login&"' "
dbRec3.Open SqlString,dbconn3
while not dbRec3.EOF
Response.Write "<TD>"&dbRec3("giver_login")&"</TD>"
Response.Write "<TD>"&dbRec3("rating")&"</TD>"
Response.Write "<TD>"&dbRec3("feedbacknotes")&"</TD>"
Response.Write "</TR><TR>"
dbRec3.MoveNext
wend
dbRec3.close
dbconn3.close
end if
%></TR></TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=216 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=5 HEIGHT=40></TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=113 NOF="LayoutRegion5">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=37 HEIGHT=130><IMG SRC="../clearpixel.gif" WIDTH=37 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=76><IMG SRC="../clearpixel.gif" WIDTH=76 HEIGHT=1 BORDER=0></TD>
</TR>
</TABLE>
</TD>
<TD>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
<TD></TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -