|
哎,又要交作业了...
9 y! b9 Q! ]" e; k; ^! T谁帮帮我啊?
) N3 @% L: v0 ]1 `4 o老师让我们设计一个订单系统,要求:
8 ~8 K3 S6 J1 d1 J1 产品系统,字段包括 品名 介绍 产地 价格 小图片 大图片
+ a. {' }4 }! V) {3 A$ N' Y0 ^2 关键词查询 可以对品名 介绍 产地等进行组合查询,多页面显示6 U- e$ E" b" A5 Q. r+ j8 R# x
3 在线订单,自动算价格(运费统一),不必注册可以在线提交订单(后台可见)
M$ E S0 l" i8 P5 \4 asp .net php系统都可以1 a5 Y+ C) p7 D
一看到我就头大了,我知道学哥学姐来说是小菜一碟...) S4 d2 v8 V9 T5 h" A
头痛,玩游戏去了,谁帮我请我玩游戏阿,嘻嘻8 J* k5 p0 R& ~( ]/ X
-------------
9 I7 L c" ]! c# u2 _% _: c& I$ w4 P我做了一个简版,大家帮我改改,不要让我功亏一篑阿(这么好的一个词我都能想起来...佩服自己了)。
% `9 B/ h2 n* z* `页面一 index.asp2 r' S! d7 @% x- U" S% S' j
<html>
N" K! s0 S5 @<head>
# `3 q( ^7 R8 {1 Y<meta http-equiv="Content-Language" c>
+ J. D* x% h+ d, i9 H) S, V<meta http-equiv="Content-Type" c>6 P8 s& V2 p2 H3 g$ ^, v
<title></title>
2 m- A4 Q( ?& h& ^ a6 b2 u% d. K<style type="text/css">
' T; q0 I) b7 L* L<!--
6 b U1 d* V9 ~ F; I% A! o.style1 {font-family: Arial, Helvetica, sans-serif}
3 r$ H6 U1 O3 u/ p! E0 K.style5 {/ R$ `7 r" w3 S+ z9 N9 A! c6 D1 ^
font-family: Verdana, Arial, Helvetica, sans-serif;8 C) B( Z5 e, H4 M! O1 @3 [
font-style: italic;1 k" w6 E5 D5 {
}# r: M9 e& e6 k
.style7 {color: #FF0080}
0 X8 u& M! v1 u% n- e9 V8 a$ i.style8 {color: #0000FF}
( [6 t1 _( ~# S$ M-->9 B! ?5 F+ U& \6 N
</style>
' c9 L) c1 w" x V</head>
& I6 P: E( }) q! L: s) d<body>
* W; ], X# o. Z. o' D' i8 D: N<form action="list.asp" method="post">" G5 n+ y) z% n' k& c) e
<input type="text" size="55" name="intro" value="2 这里填关键字...">
1 ^% s- d0 A4 q, L& ~<input type="submit" name="submit" value="就找这样的...">7 F( w5 f3 s/ b! }0 n
</form>) `2 y2 t, v8 ? W/ C3 m
</body>
! R0 k" G; T1 ~& X9 }: m</html># M* S) Y# e* f( O$ D
* U& D$ G- i4 T4 x
页面二5 o' n G8 I& k* L8 O( D
<!--#include file="conn.asp" -->
% D+ C/ l2 h( _; [! n. K* y<style type="text/css">
3 P6 n9 f" [/ ~( a8 x<!--
4 M' D' D; m! s- F.style5 { font-family: Verdana, Arial, Helvetica, sans-serif;
: {3 n7 ?4 d* G+ N8 H6 F font-style: italic;% w8 `, \; m+ g( w' ]) `
}
+ K, z$ S2 B/ q+ Y.style6 {color: #FF0080}4 O$ N& `; J! }- Q2 q/ P6 d
.style7 {color: #0080FF}' w% r! M% d& N# |1 O. B8 M
-->
1 g% t3 U& m3 o. N1 b</style>
" n5 w5 Z8 J: L; d <%
. E. A: J! l( L- iintro=request.form("intro")
7 M6 |+ f9 ?; |% c! C7 bSet rs = Server.CreateObject ("ADODB.Recordset")
. O1 K3 ~8 @, V7 r& gsql = "Select * from biao1 where intro like '%"&intro&"%' order by zd desc "# U* H0 t$ I- E
rs.Open sql,conn,1,1
1 r2 L) E5 Y2 f8 u, J( B%>
' `4 h' s) ]4 M+ _5 [) r <%4 X9 w* [9 i8 g
if rs.EOF and rs.BOF then
' @: T* b2 e# g4 T. F0 X% \response.write ("这样的天才发明家还没生出来呢")
9 M; g6 Z/ a$ z+ I, delse%>
# M- ?7 W- @" a- q; n, S, Y</p>
6 k& J( u2 w6 H<table width="784" border="1">1 m4 k8 b/ p3 { D2 y* s# l7 O/ g
<tr>
2 R2 ? Z6 t C6 d8 y6 L <td width="53">编号</td>
- I: P$ k+ |# M+ c) @ <td width="254">商品名</td>, E/ w: m- p7 r# ~# ?
<td width="53">产地</td>. I1 g8 n# k7 f. \* S- @2 J
<td width="277">简介</td>
; ?# _1 Z6 j* q( y. ?' D) l <td width="80">图片</td>$ R+ @+ q0 G" B0 v# C0 ?; w
<td width="42">价格</td>
0 M9 A5 ?* a! T, x7 R </tr>
( i' E5 u6 {1 C9 m8 x <%do while not rs.eof%>8 i# R2 h3 n; b6 c# @3 x. ]8 m! [. r
<tr>
8 w- H5 |7 w+ t, y) h* h# A <td><%=rs("id")%></td>' E+ h; H& \* O3 z- A3 g9 r9 P
<td><%=rs("name")%></td>0 O% @9 P1 z9 `9 u
<td><%=rs("kind")%></td>. g3 I% h* b* o! z9 N2 |: y
<td><%=rs("intro")%></td>% y* w# {7 z( {7 |" @ S
<td><a href="pic/<%=rs("pic")%>.jpg" target=_blank>点击看图</a></td>0 E. r2 \* U/ H& ^" ^0 w7 ~/ Y
<td><%=rs("pri")%></td># D/ v. R0 Q0 O# r+ K+ v
</tr>5 h' S& ]- _: g# {8 ~0 b5 I2 D
<%, m, Y5 |7 G5 T; F3 [
rs.MoveNext
6 B$ B9 O& g2 v+ FLoop
4 x2 A% A5 w& E+ M9 F8 j5 k6 mend if
; I! S; A* b$ X' H. w% Y%>1 o1 d8 M3 B/ u1 [, Z5 i
</table>
! F: [$ s& A. @' }+ T) Q! {<br>6 _5 c) E h; X ?5 p' d% ^
<a href="index.asp">回首页继续寻找</a>
9 p5 G# P( g4 H% s1 j<%7 H" a2 s# `2 G; `* ]: a( p! a! O: F; v
rs.close ! M% }/ b$ T# G$ }# w
Set rs = Nothing$ i- d# ?6 `4 P& m6 L) K9 R, V
conn.close
0 _# u! o4 K; F3 m+ @, Yset conn=Nothing
5 Y4 t' C7 Y3 e' T%>( X% [! v# x( k7 \/ c
' C/ j8 b7 W0 s2 t2 [) N[ 本帖最后由 工商小丫 于 2009-5-11 08:43 编辑 ] |
|