📄 body_index3.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>BidBase</TITLE>
<BASE TARGET="_parent">
</HEAD>
<%
dim LoginName,Password
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
LoginName= Request.Form("Login")
Password= Request.Form("Password")
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 &"' And Member_password='"&Password&"'" ,dbconn
if dbRec.EOF = true then
Response.Write "Please Choose a different LoginName"
else
Response.Write "You may continue!!"
Response.End
end if
dbRec.close
dbconn.close
end if
%>
<BODY BGCOLOR="#003333" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=557 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=31 HEIGHT=10><IMG SRC="./clearpixel.gif" WIDTH=31 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=452></TD>
<TD WIDTH=526>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=526 HEIGHT=452 NOF="LayoutRegion1" bgcolor="#003333">
<TR ALIGN=LEFT VALIGN=TOP>
<TD>
<FORM NAME="LayoutRegion1FORM" ACTION="body_index.asp" TARGET="body" METHOD=POST>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=438>
<TR VALIGN=TOP ALIGN=LEFT>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=191 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=9 HEIGHT=37><IMG SRC="./clearpixel.gif" WIDTH=9 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=112><IMG SRC="./clearpixel.gif" WIDTH=112 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=15><IMG SRC="./clearpixel.gif" WIDTH=15 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=32><IMG SRC="./clearpixel.gif" WIDTH=32 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=23><IMG SRC="./clearpixel.gif" WIDTH=23 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=182 COLSPAN=4><P><A HREF="./Register/register.html"><FONT COLOR="#FFFFFF">New Members Enter Here</FONT></A><FONT COLOR="#FFFFFF"></FONT></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=5 HEIGHT=14></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=159 COLSPAN=3><P><A HREF="./How_2_Sell/body_how_2_sell.html" >How to Sell ?????</A></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=5 HEIGHT=15></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=112><P><A HREF="./How_2_Bid/body_how_2_bid.html" >How to Buy</A></TD>
<TD COLSPAN=3></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=5 HEIGHT=15></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=127 COLSPAN=2><P><A HREF="./Register/register.html" >Register here for free</A></TD>
<TD COLSPAN=2></TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=247 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=87 HEIGHT=50><IMG SRC="./clearpixel.gif" WIDTH=87 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=19><IMG SRC="./clearpixel.gif" WIDTH=19 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=62><IMG SRC="./clearpixel.gif" WIDTH=62 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=20><IMG SRC="./clearpixel.gif" WIDTH=20 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=38><IMG SRC="./clearpixel.gif" WIDTH=38 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=21><IMG SRC="./clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=101 COLSPAN=2><P>Login:</TD>
<TD COLSPAN=2></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=6 HEIGHT=3></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=22></TD>
<TD WIDTH=160 COLSPAN=5><INPUT ID="Login" TYPE=TEXT NAME="Login" VALUE="<%=LoginName%>" SIZE=20 MAXLENGTH=20></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=6 HEIGHT=17></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=81 COLSPAN=2><P>Password</TD>
<TD COLSPAN=3></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=6 HEIGHT=2></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=22></TD>
<TD WIDTH=160 COLSPAN=5><INPUT ID="Password" TYPE=PASSWORD NAME="Password" VALUE="" SIZE=20 MAXLENGTH=20></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=6 HEIGHT=13></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=2 HEIGHT=16></TD>
<TD WIDTH=120 COLSPAN=3>
<INPUT ID="VerifyEnter" NAME="VerifyEnter" TYPE=image BORDER=0 SRC="./Enter_HFunkshowSButtonOn.gif"></TD>
<TD></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=332 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=73 HEIGHT=47><IMG SRC="./clearpixel.gif" WIDTH=73 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=259><IMG SRC="./clearpixel.gif" WIDTH=259 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=259><P><I><FONT SIZE="+3" FACE="Lucida Console"><B>Categories</B></FONT></I></TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=25 HEIGHT=23><IMG SRC="./clearpixel.gif" WIDTH=25 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=376>
<TABLE ID="Table6" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=376>
<%
Dim dbconn2,dbRec3
Dim Row,id,name
Set dbconn2 = Server.CreateObject("ADODB.Connection")
dbconn2.open "BidBase","scott","tiger"
Set dbRec3 = Server.CreateObject("ADODB.Recordset")
dbRec3.Open "Select * from category order by category_name" ,dbconn2
Response.Write "<TR>"
Row=0
Do While Not dbRec3.EOF
id=dbRec3("category_id")
name=dbRec3("category_name")
Response.Write "<TD WIDTH=181><P><A HREF='./asp/Category.asp?category="&id&"'>"& name&"</A></TD>"
Row=Row+1
if Row = 5 then
Response.Write "</TR> <TR>"
Row=0
end if
dbRec3.MoveNext
loop
if Row <> 0 then
Response.Write "</TR>"
end if
dbRec3.close
dbconn2.close
%>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -