📄 body_add_categories.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>Add Categories</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>
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if len(Request.Form("Submit"))=0 and len(Request.Form("Submit1"))=0 then
Response.Write "<b>Please click the desired option<b>"
end if
end if
%>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=488 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=16 HEIGHT=17><IMG SRC="../clearpixel.gif" WIDTH=16 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=239></TD>
<TD WIDTH=472>
<FORM NAME="LayoutRegion1FORM" ACTION="" target="body" METHOD=POST>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=268>
<TR VALIGN=TOP ALIGN=LEFT>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=145 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=24 HEIGHT=50><IMG SRC="../clearpixel.gif" WIDTH=24 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=121><IMG SRC="../clearpixel.gif" WIDTH=121 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=121><P>Exisiting Categories</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=123 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=11 HEIGHT=47><IMG SRC="../clearpixel.gif" WIDTH=11 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=24></TD>
<TD WIDTH=112>
<SELECT ID="FormsComboBox1" NAME="categories">
<%
Dim dbconn,CATEGORY_NAME
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.open "BidBase","scott","tiger"
Dim dbRec
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open "Select CATEGORY_NAME from Category ",dbconn
'if Request.Form("Submit")="VIEW USER DETAILS" then
' Response.Write "<OPTION VALUE='"&Request.Form("Member")&"' SELECTED>"&Request.Form("Member")&"</OPTION>"
'end if
if dbRec.EOF = true then
Response.Write "<OPTION VALUE='none' SELECTED>----None------</OPTION>"
else
while not dbRec.EOF
CATEGORY_NAME=dbRec("CATEGORY_NAME")
Response.Write "<OPTION VALUE='"&CATEGORY_NAME&"'>"&CATEGORY_NAME&"</OPTION>"
dbRec.MoveNext
wend
end if
dbRec.close
dbconn.close
%>
</SELECT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=425>
<TR VALIGN=TOP ALIGN=LEFT>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=257 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=22 HEIGHT=42><IMG SRC="../clearpixel.gif" WIDTH=22 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=235><IMG SRC="../clearpixel.gif" WIDTH=235 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=235><P>Name for the category u want to add</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=168 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=8 HEIGHT=40><IMG SRC="../clearpixel.gif" WIDTH=8 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=22></TD>
<TD WIDTH=160><INPUT ID="FormsEditField1" TYPE=TEXT NAME="newcategory" VALUE="" SIZE=20 MAXLENGTH=20></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=369 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=54 HEIGHT=60><IMG SRC="../clearpixel.gif" WIDTH=54 HEIGHT=1 BORDER=0></TD>
<TD></TD>
<TD WIDTH=20><IMG SRC="../clearpixel.gif" WIDTH=20 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=24></TD>
<TD WIDTH=220><INPUT TYPE=SUBMIT NAME="Submit" VALUE="Add this category" ID="FormsButton1"></TD>
<TD></TD>
<%
Dim dbconn3,newcategory
Set dbconn3 = Server.CreateObject("ADODB.Connection")
dbconn3.open "BidBase","scott","tiger"
if Request.Form("Submit")="Add this category" then
dim dbRec3,SqlString,SqlString1,dbRec4
newcategory=Request.Form("newcategory")
if len(newcategory)<>0 then
newcategory=lcase(newcategory)
Set dbRec3 = Server.CreateObject("ADODB.Recordset")
Set dbRec4 = Server.CreateObject("ADODB.Recordset")
SqlString="Select * from category where CATEGORY_NAME = '"&newcategory&"' "
dbRec3.Open SqlString,dbconn3
if dbRec3.EOF then
SqlString1 = "insert into category values (category_id.nextval,'" &newcategory& "')"
'dbconn3.execute SqlString1,,adcmdtext+adexecutenorecords
dbRec4.Open SqlString1,dbconn3
Response.Write("The category added successfully! ")
else
Response.Write("The category already exists!! ")
end if
dbRec3.close
dbconn3.close
else
Response.Write "<b>Please Select a category first</b>"
end if
end if
%>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -