📄 body_feed_backs.html
字号:
<%@ 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>
<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="" 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="FormsRadioButton3" VALUE=""> </TD>
<TD WIDTH=82><P>Seller Login</TD>
<TD WIDTH=156><P>
<SELECT ID="FormsComboBox4" NAME="FormsComboBox1">
<%
Dim dbconn,temp
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.open "BidBase","scott","tiger"
Dim dbRec
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open "Select seller_login from auctiondetails ",dbconn
if dbRec.EOF = true then
Response.Write "<OPTION VALUE='none' SELECTED>----None------</OPTION>"
else
while dbRec.EOF
temp=0
seller_login=dbRec2("seller_login")
Response.Write "<OPTION VALUE=''>"&seller_login&"</OPTION>"
dbRec2.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="FormsRadioButton3" VALUE=""></TD>
</TR>
</TABLE>
</DIV></TD>
<TD WIDTH=94><P>Buyer Login</TD>
<TD WIDTH=159><P>
<SELECT ID="FormsComboBox5" NAME="FormsComboBox1">
<%
Dim dbconn1
Set dbconn1 = Server.CreateObject("ADODB.Connection")
dbconn1.open "BidBase","scott","tiger"
Dim dbRec1
Set dbRec1 = Server.CreateObject("ADODB.Recordset")
dbRec1.Open "Select member_buyer_login from bidding ",dbconn
if dbRec1.EOF = true then
Response.Write "<OPTION VALUE='none' SELECTED>----None------</OPTION>"
else
while dbRec1.EOF
temp=1
member_buyer_login=dbRec2("member_buyer_login")
Response.Write "<OPTION VALUE=''>"&member_buyer_login&"</OPTION>"
dbRec1.MoveNext
wend
end if
dbRec1.close
dbconn1.close
%>
</SELECT>
</TD>
<TD WIDTH=166><P><INPUT TYPE=SUBMIT NAME="FormsButton1" 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>Feed Back</TD>
<TD COLSPAN=2></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=5 HEIGHT=12></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=134></TD>
<TD WIDTH=333 COLSPAN=4><TEXTAREA WRAP=PHYSICAL ID="FormsMultiLine2" NAME="FormsMultiLine2" ROWS=8 COLS=40></TEXTAREA></TD>
<%
if Request.Form("Submit")="View Feed Back" then
dim dbRec3,dbRec4,Rating
dbRec3.Open "Select FeedbackNotes from feedback where user_buyer = temp ,dbconn
Response.Write dbRec3("FeedbackNotes")
dbRec4.Open "Select rating from feedback where user_buyer = temp ,dbconn
Rating=Response.Write dbRec4("rating")
end if
dbRec3.close
dbRec4.close
dbconn.close
%>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=5 HEIGHT=40></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=2 HEIGHT=24></TD>
<TD WIDTH=171 COLSPAN=2><INPUT TYPE=SUBMIT NAME="FormsButton3" VALUE=" Ban This Asshole" ID="FormsButton3"></TD>
<TD></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>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=76><P>User Rating </TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=41 NOF="LayoutRegion5">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=9 HEIGHT=128><IMG SRC="../clearpixel.gif" WIDTH=9 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=22></TD>
<TD WIDTH=32><INPUT ID="FormsEditField1" TYPE=TEXT NAME="FormsEditField1" VALUE="<%=Rating%>" SIZE=4 MAXLENGTH=10></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
<TD></TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -