廖晓文_0923010099

广州大学学生实验报告(***报告只能为文字和图片,老师评语将添加到此处,学生请勿作答***)1、实验目的实现Web 站点设计二、实验内容做一个商品报价网站，该网站具有商品报价，搜索功能，注册登录，用户留言和新手帮助等功能三、实验原理四、实验设备Dreamweaver CS5 Asp SQL Server 2005 IIS五、实验要求六、实验程序1实验环境架构：安装ＩＩＳ，设置本机站点为服务器：２.实验部分源代码数据库连接：Conn.asp<%set conn=server.CreateObject("ADODB.Connection")sql="Driver={SQL Server};server=(local);uid=sa;pwd=admin;database=AliliShop"conn.open(sql)set rs=server.CreateObject("ADODB.RecordSet")rs.Cursortype=adOpenStatic%>用户注册功能：Data.asp<!-- #include file="../Conn/conn.asp" --><%names=request.form("name")sql="select * from Member where Name='"&names&"'"rs.open sql,connif not rs.eof or not rs.bof then%><script language="javascript">alert("用户名已经存在，请更改用户名");history.back();</script><% else %><% set rs=nothingconn.closeset conn=nothing%><!-- #include file="../Conn/conn.asp" --><%sex=request.form("sex")pwd=request.form("psw")wenti=request.form("quesion")da_an=request.form("answer")email=request.form("e_mail")realname=request.form("realname")country=request.form("country")phone=request.form("userphone")numbers=request.form("number")add=request.form("address")sql="insert into Member (Name,Sex,Password,Question,Answer,Email,RealName,Country,Phone,Address,LicenceNumber, Whether)values('"&names&"','"&sex&"','"&pwd&"','"&wenti&"','"&da_an&"','"&email&"','"&realname&" ','"&country&"','"&phone&"','"&add&"','"&numbers&"','未冻结')"rs.open sql,connsql="insert into Account(Name,Password) values('"&names&"','"&pwd&"')"rs.open sql,conn%><%set rs=nothingconn.closeset conn=nothing'登录用户的用户名参数session("name")=names'登录用户的账户中的积分参数session("Integral")="0"session("jifen")=0session("step")="普通会员"'代表用户第一次登录的参数session("first")="ok"'代表登录是否成功的参数session("meg")="ok"%><script language="javascript">window.close();opener.location.reload();</script><%end if%>商品搜索显示功能：Show.asp<!-- #include file="../Conn/conn.asp" --><%id=request.QueryString("id")if id<>"" thenming=request.Form("name")lei=request.Form("reside")if lei="0" then lei="" end ifsql="select * from Goods where Name like'%"&ming&"%' and Reside in (select Name from ShowMemu where Reside like'%"&lei&"%')"elseming=request.Form("name")jiage=request.Form("jiage")lei=request.Form("reside")if lei="0" then lei="" end ifsql="select * from Goods where Name like'%"&ming&"%' and Vendibility<="&jiage&" and Reside in (select Name from ShowMemu where Reside like'%"&lei&"%')"end ifrs.open sql,conn,1,3%><table width="760" border="1" align="center" cellpadding="0" cellspacing="0"> <tr><td height="82"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="table-zuoshang"><tr class="a1"><td width="41%" class="table-xiayou"><div align="center"><font color="#666666">商品名称</font></div></td class="table-xiayou"><td width="9%" class="table-xiayou"><div align="center"><font color="#666666">市场价</font></div></td><td width="12%" class="table-xiayou"><div align="center"><font color="#666666">会员价</font></div></td><td width="17%" class="table-xiayou"><div align="center"><font color="#666666">商品类型</font></div></td><td width="14%" class="table-xiayou"><div align="center"><font color="#666666"><b>销售量</b></font></div></td><td width="7%" class="table-xiayou"><div align="center"><font color="#666666">操作</font></div></td></tr><%if not rs.eof or not rs.bof theni=1while not rs.eofi=i+1form_name="shop"&i%><form name=<%=form_name%> action="Trade/Add.asp" method="post"><tr class="table-xiayou"><td style="padding-left:6px" class="table-xiayou"><div align="center"><input type="hidden" name="id" value=<%=rs("ID")%>><%=rs("Name")%></div></td><td class="table-xiayou"><div align="center"><%=rs("Vendibility")%>.00元</div></td><td class="table-xiayou"><div align="center"><%=rs("MemberPrice")%>.00元</div></td><td class="table-xiayou"><div align="center"><%=rs("Style")%></div></td><td class="table-xiayou"><div align="center"><%=rs("Sell")%></div></td><td valign="middle" class="table-xiayou"><div align="center"><img src=../images/Buy.gif onClick="javascript:<%=form_name%>.submit()"></div></td></tr></form><%rs.movenext()wend%><% else %><tr><td colspan="6" align=center><font color="#FF0000"><b>对不起！暂时没有相关商品</b></font></td></tr><tr><td colspan="3" valign=top ><divalign=center><br><a href="../index.asp" target="_self">返回首页</a><br></div></td><td colspan="3" valign=top ><div align=center><br><a href="index.asp?action=Search">继续搜索</a><br></div></td></tr><% end if %></table></td></tr></table>以上为Web网站部分源码，因源码过多，在此不一一显示网站运行示例：1.打开浏览器，输入http://localhost/，按回车键，即可访问网站：如图2.网站注册功能，点击注册，输入完整用户信息，按确定，如图按重置可以清除所有数据，点击注册按钮，即可注册成功，如图3.返回首页，输入用户名和密码，登录4.点击查看报价，即可查看商品报价、5.输入商品名称，可进行搜索6.网站留言功能点击提交按钮后7.网站新手指南8.网站数据库信息。