📄 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>
<%
dim LoginName,errorMsg
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.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>
<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=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="" 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="SellerRadioButton1" 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="BuyerRadioButton1" 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="" 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="FormsComboBox3">
<%
if Request("Submit")="ViewFeedback" then
dim dbRec2 , temp,dbConn2
set dbConn2=Server.CreateObject("ADODB.Connection")
dbConn2.open "BidBase","Scott","tiger"
if Request("SellerRadioButton1")=1 then
dbRec2.Open "Select item_title from auctiondetails where seller_Login ='" & LoginName &"' ",dbconn2
else
if Request("BuyerRadioButton1")=2 then
dbRec2.Open "Select item_title from auctiondetails where auction_id = (Select auction_id from finalizedbids where buyer_login = '" & LoginName &"')",dbConn2
end if
end if
'Response.Write "<SELECT ID='FormsComboBox3' NAME='FormsComboBox3'>"
while dbRec2.EOF
item_title=dbRec2("item_title")
Response.Write "<OPTION VALUE=''>"&item_title&"</OPTION>"
dbRec2.MoveNext
wend
dbRec2.close
dbConn2.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
set dbConn3=Server.CreateObject("ADODB.Connection")
dbConn3.open "BidBase","Scott","tiger"
if Not item_title="" then
dbRec3.Open "Select FeedbackNotes from feedback where auction_id = (Select auction_id from auctiondetails where item_title ='" & item_title &"') " ,dbConn3
Response.Write dbRec3("FeedbackNotes")
dbRec3.close
end if
dbConn3.close
end if
%>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=275></TD>
<TD WIDTH=74>
<FORM NAME="LayoutRegion6FORM" ACTION="" METHOD=POST>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -