📄 body_give_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>Give Feed Backs</TITLE>
<BASE TARGET="_parent">
</HEAD>
<%
dim LoginName,AboutLogin,errorMsg,User_Buyer,Auction_Id,Rating,Feedbacknotes
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
AboutLogin=Request.Form("AboutLogin")
Feedbacknotes=Request.Form("FeedbackMultiLine5")
Auction_Id=Request.Form("AuctionId")
Rating=Request.Form("Rating")
Session("LoginName")="hisham"
LoginName=Session("LoginName")
if len(AboutLogin)= 0 then
errorMsg="You must give a login name against the feedback"
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,dbRec2
Set dbRec = Server.CreateObject("ADODB.Recordset")
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
if Request("RadioButton1")=1 then
dbRec.Open "Select * from auctiondetails where Seller_Login ='" & AboutLogin &"'" ,dbconn
dbRec2.Open "Select * from finalizedbids where Buyer_Login ='" & LoginName &"'" ,dbconn
User_Buyer=0
elseif Request("RadioButton1")=2 then
dbRec.Open "Select * from finalizedbids where Buyer_Login ='" & AboutLoginName &"'" ,dbconn
dbRec2.Open "Select * from auctiondetails where Seller_Login='"&LoginName&"'",dbconn
User_Buyer=1
end if
if User_Buyer=0 or User_Buyer=1 then
if dbRec.EOF = true then
errorMsg="<b>Invalid username<b>"
dbRec.Close
dbRec2.Close
elseif dbRec2.EOF = true then
errorMsg="<b>You are not authorized for this auction<b>"
dbRec.Close
dbRec2.Close
end if
end if
if len(errorMsg) <>0 then
Response.Write errorMsg
else
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
SqlString = "insert into feedback values ('" & Auction_Id & "','" &LoginName & "','" & LoginName & "','" & User_Buyer & "','" & Rating & "'," & "'" & Feedback & "')"
dbRec2.open SqlString ,dbconn
dbRec2.Close
Response.Write "Your feedback has been succesfully completed!"
Response.End
end if
dbconn.close
end if
end if
%>
<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=514 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=14 HEIGHT=23>
<IMG SRC="clearpixel.gif" WIDTH=14 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=404></TD>
<TD WIDTH=500>
<FORM NAME="GiveFeedbackFORM" ACTION="" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion4">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=36 HEIGHT=42>
<IMG SRC="clearpixel.gif" WIDTH=36 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=348>
<TABLE ID="Table8" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=348>
<TR>
<TD WIDTH=13><P><INPUT ID="RadioButton1" TYPE=RADIO CHECKED NAME="RadioButton1" VALUE="1"> </TD>
<TD WIDTH=84><P>Seller Login</TD>
<TD WIDTH=29><P><DIV ALIGN="RIGHT">
<TABLE WIDTH=13 BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF=TE>
<TR>
<TD><INPUT ID="RadioButton1" TYPE=RADIO NAME="RadioButton1" VALUE="2"></TD>
</TR>
</TABLE>
</DIV></TD>
<TD WIDTH=82><P>Buyer Login</TD>
<TD WIDTH=112><P><INPUT ID="FormsEditField39" TYPE=TEXT NAME="Login" VALUE="<%=AboutLogin%>" SIZE=20 MAXLENGTH=20> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=384>
<TR VALIGN=TOP ALIGN=LEFT>
<TD>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=236>
<TR VALIGN=TOP ALIGN=LEFT>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=125 NOF="LayoutRegion4">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=60 HEIGHT=44>
<IMG SRC="clearpixel.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=65>
<IMG SRC="clearpixel.gif" WIDTH=65 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=65><P>Auction Id</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=111 NOF="LayoutRegion4">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=7 HEIGHT=44>
<IMG SRC="clearpixel.gif" WIDTH=7 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=22></TD>
<TD WIDTH=104><INPUT ID="FormsEditField40" TYPE=TEXT NAME="AuctionId" VALUE="<%=Auction_Id%>" SIZE=13 MAXLENGTH=5></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=264 NOF="LayoutRegion4">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=61 HEIGHT=43>
<IMG SRC="clearpixel.gif" WIDTH=61 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=203>
<IMG SRC="clearpixel.gif" WIDTH=203 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=203><P>Give Feed Back</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=72 NOF="LayoutRegion4">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=24 HEIGHT=44>
<IMG SRC="clearpixel.gif" WIDTH=24 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=48>
<IMG SRC="clearpixel.gif" WIDTH=48 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=48><P>Rating</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=48 NOF="LayoutRegion4">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=21 HEIGHT=44>
<IMG SRC="clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=24></TD>
<TD WIDTH=27>
<SELECT ID="FormsComboBox2" NAME="Rating">
<OPTION VALUE="0">0</OPTION>
<OPTION VALUE="1">1</OPTION>
<OPTION VALUE="2">2</OPTION>
<OPTION VALUE="3">3</OPTION>
<OPTION VALUE="4">4</OPTION>
<OPTION VALUE="5" SELECTED>5</OPTION>
<OPTION VALUE="6">6</OPTION>
<OPTION VALUE="7">7</OPTION>
<OPTION VALUE="8">8</OPTION>
<OPTION VALUE="9">9</OPTION>
<OPTION VALUE="10">10</OPTION>
</SELECT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=380 NOF="LayoutRegion4">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=60 HEIGHT=12>
<IMG SRC="clearpixel.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=102></TD>
<TD WIDTH=320><TEXTAREA WRAP=PHYSICAL ID="FormsMultiLine5" NAME="FeedbackMultiLine5" VALUE="<%=Feedbacknotes%>" ROWS=6 COLS=33></TEXTAREA></TD>
</TR>
<TR>
</TR>
<TR>
<TD></TD>
<TD WIDTH=177><INPUT TYPE=SUBMIT NAME="FormsButton2" VALUE="SubmitFeedBack" ID="FormsButton2"></TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -