现在开始写黄本了，4个小题+选论文，我写了一个小题，结果一个小题就费了5张纸的内容，全是代码~555555，我怀疑我写错了，可能一开始就写错了~~~那位老兄指引指引我啊，苦海不好玩啊！
可以告诉我怎么写吗？大概的写法，最好给个例题T T,小弟在这里谢谢了，感谢天，让我遇到好人呜~
（我做的第一题）
。。。。。。。。。。。。。。。。。。。
实习专题一：网上购书系统的设计与实现（购书子模块）
要求：
1，采用ASP+sql serve2000构架，设计网上购书系统的购书子模块
2，要求建立系统后台数据库，在库内设计若干二维表的结构，输入若干测试的数据表数据。
3要求完成购书的选择何删除页面。
4，购书篮的设计。
（怪自己不学无术，现在写论文也是应付了事，希望能帮我一手）
答案：
Main.asp
<%
Const Head="网上购书"
DbPath = SERVER.MapPath("ShopBag.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
Set rs=conn.Execute( "Category" )
%>
<%=Head%>
欢迎光临：
<%
While Not rs.EOF
%>
&Description=<%=Server.URLEncode(rs("Description"))%>>
<%=rs("Description")%>
<%
rs.MoveNext
Wend
%>
2.add.asp
<%
Head="您所选购的物品已放入购物袋！"
DbPath = SERVER.MapPath("ShopBag.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
ProductList = Session("ProductList")
Products = Split(Request("ProductID"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
%>
<%=Head%>
查看购物袋 退回所有物品
<% ListCategory conn %>
3.util.asp
<%
Sub ListCategory( conn )
Set rs = conn.Execute( "Category" )
While Not rs.EOF
%>
&Description=<%=Server.URLEncode(rs("Description"))%>>
<%=rs("Description")%>
<%
rs.MoveNext
Wend
End Sub
。。。。。。
（太多了，发不了，反正全是这个编程）
实习专题二，多媒体毕业纪念册及播放系统设计（成员管理子模块）
要求：
1，采用ASP+ACCESS结构，设计多媒体毕业及播放系统的成员管理子模块。
2要求完成班级成员的管理模块：主要是用于新用户注册，成员登陆。。。
3新用户注册，成员登录页面的设计。
4要求建议系统后台数据库，在库内设计若干二维表的结构，输入若干测试的数据表数据。
后面都是差不多类型的专题~~那位能帮我指条路走55555
无人回答，浪费我的分。俺都是很辛苦才赚回来的！