|
哎,又要交作业了...
# _ X) M* U" A谁帮帮我啊?
2 T" h' L3 \2 _; a& ]9 J$ S, V老师让我们设计一个订单系统,要求:
3 ]& G7 ?. ?; T9 Y1 产品系统,字段包括 品名 介绍 产地 价格 小图片 大图片 J$ h& v3 Y2 Q
2 关键词查询 可以对品名 介绍 产地等进行组合查询,多页面显示. _( I* \1 }7 ~% K9 S9 u1 d
3 在线订单,自动算价格(运费统一),不必注册可以在线提交订单(后台可见)
3 m6 a3 X3 |) P$ m7 u, E4 asp .net php系统都可以
% u% j( h1 W8 i! M一看到我就头大了,我知道学哥学姐来说是小菜一碟...' O# S/ R" Q: h
头痛,玩游戏去了,谁帮我请我玩游戏阿,嘻嘻
& ?2 E5 R/ b4 u) [5 J- I4 Z9 n-------------0 Y# O: L F$ ~( ]/ i: G' p
我做了一个简版,大家帮我改改,不要让我功亏一篑阿(这么好的一个词我都能想起来...佩服自己了)。% N- d( \8 T }1 d7 |
页面一 index.asp6 `- ^9 `- `; @6 D
<html>
" Q( m4 e, R o$ A0 j3 |% E3 K5 o<head>
5 g' t+ w, }9 K3 N<meta http-equiv="Content-Language" c>
( _- Q- @# v* j) P' F# j0 B @<meta http-equiv="Content-Type" c># P2 P5 U* ?5 ~+ c& r# Y2 d% k- \
<title></title>$ S! V0 f- J7 ?% ?: H
<style type="text/css">" B4 i X4 t' c
<!--- ~3 i. e' S0 S8 |2 t% {" K1 Z
.style1 {font-family: Arial, Helvetica, sans-serif}
$ T* [) U% T7 d* t.style5 {$ ]$ e3 [/ I- G* \) o% _
font-family: Verdana, Arial, Helvetica, sans-serif;$ J, }8 y+ e7 G' ^7 O1 A1 }+ h0 ^
font-style: italic;2 n" l) K" U7 Q7 D/ B
}
/ m7 X4 i4 F; |& U3 K* g- p2 M.style7 {color: #FF0080}4 x) w/ _* U) G4 {+ ~7 R) g
.style8 {color: #0000FF}
8 W3 C! d/ F k-->
( M9 o7 x) a7 @6 \" R</style># y d* Z% C' |2 h
</head>
* r: c1 Z3 I8 N, y$ P- q<body>
* W( a* ^9 v: W6 ?<form action="list.asp" method="post">
4 r6 c* f1 }5 U! V: o. y<input type="text" size="55" name="intro" value="2 这里填关键字...">
% V w1 G6 [* H5 H* \ I0 i( |4 A; x9 x<input type="submit" name="submit" value="就找这样的...">
' k5 B6 X/ @4 e/ n$ @</form>
4 J$ z o7 ~2 q& Z$ i</body>7 {- y1 f1 O$ r
</html>
+ ^" H! {% X2 r4 F, s; M, E) B' P/ x9 Q7 c0 h: l; n% W
页面二# r0 Q9 p# E; R9 _" n
<!--#include file="conn.asp" -->. p: \, k8 I7 c, L
<style type="text/css">
; s2 \+ R) {. w @$ y% w- d6 I<!--& t4 B% N, O J
.style5 { font-family: Verdana, Arial, Helvetica, sans-serif;+ g* I5 V7 S# d. v8 R! K$ s0 t: o
font-style: italic;6 ?4 R0 W# [5 }
}/ E7 j0 Y7 O6 A4 I' t
.style6 {color: #FF0080}
8 X+ X( r0 R/ N( i! ?.style7 {color: #0080FF}0 k: `( J. b) N5 W6 l
-->( c' g4 c* W+ f5 n4 p
</style>& a% `# z( Q2 l# P( T! q' E# t: |2 K
<%
: n; `. M, y, f' W0 f8 ~3 gintro=request.form("intro")
9 g$ H1 U6 s9 n. E& N+ E$ }" i8 P4 pSet rs = Server.CreateObject ("ADODB.Recordset")
5 @0 b) b0 |: j9 E* H* j. `5 ^sql = "Select * from biao1 where intro like '%"&intro&"%' order by zd desc " N7 M8 H' W- ^4 Z! }
rs.Open sql,conn,1,1
; \& B. k5 G1 ?, B%>
5 E5 i, e$ o* @* j/ s5 H, T' a <%
% _' ^. u' W% gif rs.EOF and rs.BOF then
2 w7 s$ v& v+ i* X+ zresponse.write ("这样的天才发明家还没生出来呢")
* S3 _, l6 b0 [! u/ Selse%>, Y7 _; e- h0 B7 U! _
</p>
2 p3 Q: X; C* T0 \ D1 j4 O8 ~<table width="784" border="1">8 p6 v* ~7 B$ W) G2 s8 m
<tr>
; n# `8 c! a4 I2 W. B <td width="53">编号</td>3 \7 i! i' n ~+ G2 F
<td width="254">商品名</td>
4 P4 X# }! W- J0 L5 t$ T <td width="53">产地</td>
# m7 i8 n, B* J <td width="277">简介</td>$ z; h: A0 B; c
<td width="80">图片</td>
5 y, P b& s' c1 P <td width="42">价格</td>6 }7 s& V4 u% J- A
</tr>
9 h K! G. p6 ~$ @, c1 a <%do while not rs.eof%>6 t9 I' x. @6 E# l
<tr>
- [1 \7 m! k. b: ]' w4 X8 k8 b <td><%=rs("id")%></td>
4 o, Q; K9 ^& g M& b" K+ v; k9 J3 v+ | d <td><%=rs("name")%></td>
& C* b2 D# {* o' ~ <td><%=rs("kind")%></td>
* v% [0 x- ^8 T+ P/ m <td><%=rs("intro")%></td>
7 ^ |% E/ R, F* R% ] <td><a href="pic/<%=rs("pic")%>.jpg" target=_blank>点击看图</a></td>
- G6 l: x% y N1 U' P <td><%=rs("pri")%></td>
5 D1 X& e8 P$ ?! _/ [ </tr>1 X+ F; }5 z, W7 h" a M' I
<%
+ x0 z3 I" g# F+ w5 @, R& b6 Trs.MoveNext, I* M9 c. K( g" Y9 c
Loop; D; U# `% p" ~$ L. Z7 F
end if1 u( B0 V1 h- t
%>" p5 T* i7 H2 x: n
</table>( E( u! j! ?, g P0 N
<br>- z1 e8 M' q& E9 N( |2 k& X
<a href="index.asp">回首页继续寻找</a>7 a V5 a. B, Q B
<%
- H" Y {' [5 j# Srs.close ( q; G' Y/ }" w& M2 N
Set rs = Nothing# P7 J7 D6 Q' V3 A, Q, N
conn.close
! Q+ _2 B4 _: [. T4 X! Rset conn=Nothing$ E9 P9 m; i& h+ V) c' r
%>- s7 ?! k5 i1 t& k! v8 l5 I( A
' a8 l/ _7 K( x2 p6 Z4 w[ 本帖最后由 工商小丫 于 2009-5-11 08:43 编辑 ] |
|