|
哎,又要交作业了...
# ~' G/ D8 Q& w) U谁帮帮我啊?
8 n4 D& q8 ~( P) _$ h8 P, ~3 @老师让我们设计一个订单系统,要求:3 M3 [5 `: d |" x- ~
1 产品系统,字段包括 品名 介绍 产地 价格 小图片 大图片
0 P3 K$ ]# c2 X9 v! k6 N2 关键词查询 可以对品名 介绍 产地等进行组合查询,多页面显示
4 a, ~$ b/ ?, }; l7 ~+ Q1 a, @$ V3 在线订单,自动算价格(运费统一),不必注册可以在线提交订单(后台可见)
% F% K! o$ H; P. n/ [& M5 N4 asp .net php系统都可以
. J1 h9 p3 _# R一看到我就头大了,我知道学哥学姐来说是小菜一碟...
3 `" o9 i' C, l头痛,玩游戏去了,谁帮我请我玩游戏阿,嘻嘻# H; L9 w) e: h1 V" ^% e3 E) ]
-------------) w: ~: O0 V4 p1 D
我做了一个简版,大家帮我改改,不要让我功亏一篑阿(这么好的一个词我都能想起来...佩服自己了)。
7 U) K! }/ C& G) `2 Q# J' s% A. O页面一 index.asp
$ n: R! e+ G! V1 O<html>
5 T$ n: B3 Z$ Z$ U5 ~. [<head>
- {" i6 w& V/ C" [5 B<meta http-equiv="Content-Language" c>
( M, T+ ]: s# a5 Q% j<meta http-equiv="Content-Type" c>2 @0 K( k* J. ]3 s5 g
<title></title>
6 [/ J) w, H& D<style type="text/css">7 ?- q$ r! J& a
<!--
; y7 H4 M, \% Q% H( R6 C.style1 {font-family: Arial, Helvetica, sans-serif}" d% t; v5 f5 J! ^3 o+ b
.style5 {
& J3 B; O: [1 h1 ?4 o. Q& I( Q font-family: Verdana, Arial, Helvetica, sans-serif;
" X- @: T8 _' n1 @# b. T; m font-style: italic;. z9 H1 @/ m, I- r. a+ X
}) ^( o* T2 L1 ]' X' J$ v) w
.style7 {color: #FF0080}8 P- W+ o$ o3 m7 B- E% f7 _/ U
.style8 {color: #0000FF}" O6 j( w2 `. W& M& N* [
-->
! y% |5 I& |" S1 h* H5 O5 [: V</style>0 v* ?# x3 ]& {% `9 y! L
</head>! l$ d h1 a3 c9 r4 _( n6 F
<body>
7 @- N) m2 o3 s K/ ]: K3 ~( ?<form action="list.asp" method="post">
, o1 J# d* O3 v- V( n! O3 m<input type="text" size="55" name="intro" value="2 这里填关键字...">
F, r4 X+ l" B9 s9 H9 ]<input type="submit" name="submit" value="就找这样的...">$ `0 G: h: H Q. j- d$ u7 A) _6 }1 R
</form>
, r# h: p* c; p& t</body>
! D% g N" K7 e* w5 c' |7 i2 b6 p</html>
% D! t- R% v, ?8 _5 p4 o* q) a* d' [6 x5 T! {
页面二
7 D; A( w5 ~8 r# b<!--#include file="conn.asp" -->
& V/ g8 p8 K) z2 O* K<style type="text/css">1 r9 v: b4 v, a) w! }/ b
<!--
) K: H/ Z- t+ z.style5 { font-family: Verdana, Arial, Helvetica, sans-serif;1 s! @# P: o6 l6 A" d& U
font-style: italic;
" w. [, k/ a2 |! s y( k}
) i- H% k r' F5 e5 i3 j.style6 {color: #FF0080}( ~6 V' y; x1 J/ y
.style7 {color: #0080FF}
5 u! \: C$ S" x& e( i-->6 E2 a" q; s% t$ E7 y
</style> L/ w* L7 i7 e9 e
<%
/ A( A8 H1 u2 Dintro=request.form("intro")+ E: n3 o9 [6 _5 e! C
Set rs = Server.CreateObject ("ADODB.Recordset")6 a8 {- W& x$ S
sql = "Select * from biao1 where intro like '%"&intro&"%' order by zd desc "
$ p9 A" }, R! u: h$ p1 Wrs.Open sql,conn,1,11 |% G/ \1 u3 v: I, Z b& E% B
%>
0 t% @! G4 n8 k" P <%0 H! b3 t1 _4 A& Y9 m4 u6 l: B5 L
if rs.EOF and rs.BOF then0 ?' A. r2 @' k9 Y: c
response.write ("这样的天才发明家还没生出来呢")' D0 F- |9 k" Z+ S8 F& n
else%>
/ t) d" M/ Z5 y7 m$ r2 W0 P" J</p>" U8 D2 y- I0 [7 t0 K g% K
<table width="784" border="1">2 W2 h, E6 \9 r* f" V( h0 N5 I$ \
<tr>- ^/ D( g x7 U
<td width="53">编号</td>$ i2 s" { }6 p2 f
<td width="254">商品名</td>/ I/ r t, h8 G& X; e
<td width="53">产地</td>
$ r- k, p/ e* j* G' J+ C2 f9 O <td width="277">简介</td>+ ^, ?; m; V$ @5 G
<td width="80">图片</td>
4 X2 R1 Z3 G* {. K# A& _' z) K <td width="42">价格</td>
" k$ I1 R( [3 z/ ~ </tr>
2 @, z0 B* [6 [ U, u <%do while not rs.eof%>1 ~' a5 p& p4 y3 K0 k
<tr>
/ a) k$ u" p5 _# j <td><%=rs("id")%></td>
+ E! g& h0 Y' `6 u% s$ _ <td><%=rs("name")%></td>
/ h6 A) w/ t8 J, e0 Y) T# a) d <td><%=rs("kind")%></td>
' u, X4 c3 }3 ^) X5 |! Z* z" s <td><%=rs("intro")%></td>
' O" n; Y7 `# X7 i5 M: {" |& q% a <td><a href="pic/<%=rs("pic")%>.jpg" target=_blank>点击看图</a></td>
" r7 U# _. H7 e, E; |* e# d <td><%=rs("pri")%></td>
2 x/ w- f# f/ l. j# |* u" K6 w- F/ Z </tr>
$ X0 j" J+ h7 S, M/ [ <%& A$ P+ y" P: m6 {7 H2 g% W
rs.MoveNext
) \2 ~' K0 t% {( q2 uLoop
, v2 q9 t9 [$ u2 t* T ?. `! lend if
2 s- Q' `7 ]/ Z* g2 ^! n; v# z%>
+ Q1 k5 ]9 p& } s2 E- i0 X</table>( Y( X, [! W! C! J. x$ }% I
<br># O# B( o. v2 h1 e# s
<a href="index.asp">回首页继续寻找</a>+ r/ B' i1 y4 i3 ]% j6 {
<%
0 F. T* n1 r- X! e2 h. Zrs.close ) |# u$ ^7 A; Z) l
Set rs = Nothing
, }" p- a% f! t' `* ?* _conn.close
- S, h$ g* S5 m! j6 q% [# Vset conn=Nothing3 m( R0 I7 ~, }- @
%>* j# d# z1 u9 S& U8 g/ }- T+ t
O. z6 d5 Z1 Y/ a7 q: J0 [2 p$ g[ 本帖最后由 工商小丫 于 2009-5-11 08:43 编辑 ] |
|