|
哎,又要交作业了...
% h; }; N# s; H2 x7 y谁帮帮我啊?
9 W; z3 `6 q# l5 z# r7 J老师让我们设计一个订单系统,要求:" z. L* ]% H+ ^) E
1 产品系统,字段包括 品名 介绍 产地 价格 小图片 大图片
$ r3 {1 b4 q/ ^0 F$ `& T2 关键词查询 可以对品名 介绍 产地等进行组合查询,多页面显示
. D1 r4 K! t2 [1 P- b) J0 X( ^& X3 在线订单,自动算价格(运费统一),不必注册可以在线提交订单(后台可见)+ z# H5 g8 s6 [! P2 Z% l# r
4 asp .net php系统都可以
. t" m9 A! M9 t9 E2 z一看到我就头大了,我知道学哥学姐来说是小菜一碟...
$ r( @, U# w y$ o9 u8 K1 P头痛,玩游戏去了,谁帮我请我玩游戏阿,嘻嘻/ z' C |! P& L2 n
-------------
9 k5 k' u( S" e我做了一个简版,大家帮我改改,不要让我功亏一篑阿(这么好的一个词我都能想起来...佩服自己了)。9 E; O7 I8 h& E1 a: A; q1 x, P3 T
页面一 index.asp
" X6 |1 c! O6 N4 {! @& I<html>6 |. g: }" \4 R
<head>$ _ ~- ~; T3 ^- P8 j
<meta http-equiv="Content-Language" c>7 U3 j8 H9 O5 J) L3 F' L
<meta http-equiv="Content-Type" c>
' X; b$ R Q. W E/ a4 B8 U; U<title></title>
- h3 T: O' R) t<style type="text/css">
5 v& [3 W! C/ b1 b' P<!--
6 s" C0 R( O/ s/ `$ g# }) z.style1 {font-family: Arial, Helvetica, sans-serif}
4 |* v0 k* a1 e.style5 {/ E1 T+ ?9 ^' x" z4 a
font-family: Verdana, Arial, Helvetica, sans-serif;$ o+ v: ]3 l% \# j4 _5 ^8 d$ V
font-style: italic;
" u0 L4 C! l0 \7 b0 y}, T, N0 f8 T/ H6 ?- |
.style7 {color: #FF0080}
; o& [7 a* @6 g% i- U W6 t.style8 {color: #0000FF}
: {* N* e1 B, i5 W+ u-->. z( I6 v3 P$ E4 A" c
</style>
4 A7 t ?- ?, ~1 Z9 |</head>1 H$ ^1 B% I# r7 \: t! t
<body>9 P @/ e& X. x+ r9 m4 ~
<form action="list.asp" method="post">
, X8 k2 p f7 Y& \<input type="text" size="55" name="intro" value="2 这里填关键字...">% ^; p1 g9 _; k# C; U3 t
<input type="submit" name="submit" value="就找这样的...">
% h, J* x8 ?# c. w; I. O</form>
3 J' ]4 D% Y* Z/ L$ A1 f</body>
( J9 n* H2 i, s. N6 h% K# M</html>$ Q) j5 C8 H ~8 t6 G0 t8 b/ \* ]4 t
) I, l! B+ n4 l, o4 M
页面二
% [# x- q ?5 P4 Z9 z( u<!--#include file="conn.asp" -->
6 _- K' n3 O# Z. ]8 Q: m( }$ S<style type="text/css">3 G8 u$ Z& l/ n' K' ]
<!--6 Q4 n8 V& W; i" y s! C3 g5 K
.style5 { font-family: Verdana, Arial, Helvetica, sans-serif;
3 Z, d. y ]& y" R font-style: italic;
: S% g. r; Z5 \7 c0 f% H0 D6 [}' x: w6 d5 O: f% Q0 y
.style6 {color: #FF0080}
" n5 N6 O' k( O8 U7 m$ I.style7 {color: #0080FF}
9 Z' u$ A5 {# X& N9 E2 Y-->' V( i8 @+ P% f9 P2 s
</style>
: X$ e* n1 q" x9 k- k <%
8 w2 W0 X" h4 q0 O) ~' ` {, W2 Z: P- yintro=request.form("intro")
. @* G% d5 E4 p" RSet rs = Server.CreateObject ("ADODB.Recordset")/ {7 s2 W& a6 f( s% c
sql = "Select * from biao1 where intro like '%"&intro&"%' order by zd desc "3 @* ~6 @2 t9 A
rs.Open sql,conn,1,1+ h5 F e2 q" C9 D
%>
; a' h* d5 \* u <%& C& e% E9 N* _$ R+ i) u4 T. D
if rs.EOF and rs.BOF then
, [9 }& U% q1 uresponse.write ("这样的天才发明家还没生出来呢")! X1 T2 f3 W2 m$ I7 W# C
else%>
" Y7 q9 ?$ Q( S& P: j0 e, }</p>
6 L5 ?& @( H# ~% G; U' P8 p5 b# Q! D<table width="784" border="1">. a0 ]8 n: {) u- u; _$ T
<tr>
7 p- S3 n1 e0 Q8 M" | <td width="53">编号</td>" g: s8 l" [9 r+ a* F9 f
<td width="254">商品名</td>6 z ~% M# R, I! t7 c1 W
<td width="53">产地</td>
2 ~3 u# U9 e" c% ]) K1 _, V# x <td width="277">简介</td>
2 _/ e9 v) t$ x5 K$ O& G- W2 K <td width="80">图片</td>
4 P/ A3 Y k/ H7 d# T K <td width="42">价格</td>+ x& b: v% j# F
</tr>: E5 Q9 h) q8 A& ^# s: D& j
<%do while not rs.eof%>
8 Y0 \/ J! h/ f9 Q4 M1 h( b <tr># d$ l/ t7 i7 D
<td><%=rs("id")%></td>
; z- H2 K" Z/ w' d <td><%=rs("name")%></td>
# U( t0 k3 P6 [6 U7 ^" Q J <td><%=rs("kind")%></td>" l' c% |& j+ `$ H' W
<td><%=rs("intro")%></td>
4 A& Y" J8 z( Z% t <td><a href="pic/<%=rs("pic")%>.jpg" target=_blank>点击看图</a></td>
4 U% y& V% C+ U. H <td><%=rs("pri")%></td>, J: u( x V$ U4 A: F% M
</tr> R4 I8 L0 a6 }- `" L# Q& @) {
<%
" h9 k( m/ ^" u1 Jrs.MoveNext0 i3 q5 j1 v) U# C7 v8 Z& H
Loop
8 x- ]9 p6 P0 Kend if
6 ?9 c, H# S, ]- q%>! X: \3 _+ l' h |5 N1 s- E
</table>1 F* @$ B, _9 _' a: F5 h4 V* f
<br>
: G+ r+ I; d1 w7 Q2 d( E9 }<a href="index.asp">回首页继续寻找</a>, g( \1 p% J. b/ p! D
<%& q& `; u8 k( ~
rs.close , t/ i8 P! O/ {7 T
Set rs = Nothing
: H- D9 R x: ~2 `0 O1 n2 O3 Lconn.close
* @+ [2 G7 x- A* R4 m7 \9 Mset conn=Nothing& w) A T# J. f
%>
, d8 P1 L$ D9 I& M! B3 f* ]- G4 `; E# X
[ 本帖最后由 工商小丫 于 2009-5-11 08:43 编辑 ] |
|