addnewform.asp

实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用

<!-- #include file="auctionlib.asp" -->
<% 
Call DoPageHeader
Call OpenDBConn

Response.Write("<FONT FACE=""" & sFont & """>")
Response.Write("<CENTER><BIG>添加拍卖物</BIG>")
Response.Write("<FORM METHOD=""POST"" ACTION=""PreviewItem.asp"">")
Response.Write("<TABLE BORDER=""0"" CELLPADDING=""3"" CELLSPACING=""0"" WIDTH=""500"">")

Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & ">")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & ">")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("&nbsp;")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & ">")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("<BIG>会员信息</BIG>")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("<SMALL>您需要成为会员后才能提供拍卖物 <BR>")
Response.Write("如果尚未注册， <A HREF=""register.asp"">单击这里</A>进行注册</SMALL>")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>用户名</SMALL></TD>")
Response.Write("<TD><INPUT TYPE=""TEXT"" NAME=""UserName""></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>密码</SMALL></TD>")
Response.Write("<TD><INPUT TYPE=""PASSWORD"" NAME=""Password""></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("<HR>")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("<BIG>添加拍卖物</BIG>")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>拍卖物名称</SMALL></TD>")
Response.Write("<TD><INPUT TYPE=""TEXT"" NAME=""Title"" SIZE=""40""></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>拍卖目录</SMALL></TD>")
Response.Write("<TD>")
Response.Write("<SELECT NAME=""Category"">")
Call GetCategories
Response.Write("</SELECT>")
Response.Write("</TD>")
Response.Write("</TR>")


Response.Write("<TR>")
Response.Write("<TD><SMALL>拍卖的最长期限</SMALL></TD>")
Response.Write("<TD><INPUT TYPE=""TEXT"" NAME=""Days"" SIZE=""3""><SMALL><SMALL><I>不得超过 <B>" & iMaxAuctionDays & "</B></I></SMALL></SMALL></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>图片的URL<BR><SMALL><I>确定包含 ""http://""</I></SMALL></SMALL></TD>")
Response.Write("<TD><INPUT TYPE=""TEXT"" NAME=""ImageURL"" SIZE=""40""></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD VALIGN=""TOP""><SMALL>拍卖物说明</SMALL></TD>")
Response.Write("<TD><TEXTAREA NAME=""Description"" COLS=""40"" ROWS=""7""></TEXTAREA></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>起标价</SMALL></TD>")
Response.Write("<TD>RMB<INPUT TYPE=""TEXT"" NAME=""StartBid"" SIZE=""8""></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>出价最少增加金额</SMALL></TD>")
Response.Write("<TD>RMB<INPUT TYPE=""TEXT"" NAME=""Increment"" SIZE=""8"" VALUE=""10""></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD><SMALL>&nbsp;</SMALL></TD>")
Response.Write("<TD><INPUT TYPE=""SUBMIT"" VALUE=""添加拍卖物""></TD>")
Response.Write("</TR>")

Response.Write("<TR>")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("<HR>")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & ">")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & ">")
Response.Write("<TD COLSPAN=""2""><CENTER><SMALL>")
Call AuctionNavigation
Response.Write("</SMALL></CENTER></TD>")
Response.Write("</TR>")

Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & ">")
Response.Write("<TD COLSPAN=""2"">")
Response.Write("</TD>")
Response.Write("</TR>")

Response.Write("</TABLE>")
Response.Write("</FORM></FONT>")


Call DoPageFooter
Call CloseDBConn


Sub GetCategories
	sSQL = ""
	sSQL = sSQL & "SELECT * FROM Categories ORDER BY CategoryName "
	Set rs = GobjConnect.Execute(sSQL)
	
	If rs.eof Then
		Response.Write("<OPTION VALUE=""0"">No Categories</OPTION>")
	Else
		Do While Not rs.eof
			Response.Write("<OPTION VALUE=""" & rs.Fields("ID") & """>")
			Response.Write rs.Fields("CategoryName")
			Response.Write("</OPTION>")
			rs.MoveNext
		Loop
	End If
	
rs.Close
Set rs = Nothing
End Sub
%>