ASP教程之网上“商号”DIY(2)

只看该作者 · 发表于 2015-1-16 22:27:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全第二部分：实例

项目布局：
该项目次要由几个ASP文件和一个数据库构成：

book.mdb：寄存数据库的内容
index.asp：网站次要的文件，年夜部分的内容均由它来显现
buy.asp：购物蓝的内容
in.asp：供登录利用
registry.asp：使您成为我们的会员
数据库（book.mdb）：
第一个表是Book，用于存储关于书目标一些相干的信息，布局以下：

ID
整型
书的序号

Name
字符
书的名字

Author
字符
作者

Brief
字符
简介

Ifcover
整型
是不是首页显现

Price
双精度
代价

Publisher
字符
出书社

Cover
字符
封面的图片的路径

Flag
整型
标记

第二个表是info，用于存储会员的信息，布局以下：

Id
字符
会员登录号

Name
字符
会员姓名

Pwd
字符
登录暗码

Email
字符
　
Address
字符
地点

Phone
字符
德律风

Post
字符
邮编

Sfz
字符
身份证号码

第三个表是class，用于存储书目标种别，其布局以下：

ID
字符
编号

Name
字符
种别

几个ASP文件的内容：
Index.asp


<%@Language=VBScript%>

<scriptlanguage=javascript>

functionopenwindow(num){

window.open("info.asp?key="+num,"yu",0,0)

}

</script>

<scriptlanguage=javascript>

functionbuy(name){

window.open("buy.asp?name="+name,"yu",0,0)

}

</script>

<scriptlanguage=javascript>

functionviewPage(ipage){

document.Page.txtPage.value=ipage

document.Page.submit()

}

</script>

<HTML>

<HEAD>

<title>网上书店</title>

<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">

</HEAD>

<BODYbgColor=lightcyan>

<Palign=center><br>

<TABLEalign=centerborder=0cellPadding=0cellSpacing=10
width="100%"style="BORDER-BOTTOM-COLOR:red;BORDER-LEFT-COLOR:red;
BORDER-RIGHT-COLOR:red;BORDER-TOP-COLOR:red">

<tr>

<tdcolspan=3>

<tableborder=1width=100%bgcolor=Khakicellpadding=0cellspacing=0>

<tr>

<tdbgcolor=MediumSeaGreen><%=year(date())&"年"&month(date)
&"月"&day(date)&"日"%></td>

<tdbgcolor=MediumSeaGreen><ahref="about.htm">关于我们</a></td>

<tdbgcolor=MediumSeaGreen><ahref=buy.asp?name=view>查询购物蓝
</a></td>

<%

ifsession("UserID")""then

Response.Write"<tdbgcolor=MediumSeaGreen>会员："&session
("UserName")&"</td>"

else

Response.Write"<tdbgcolor=MediumSeaGreen>会员：未登录</td>"

endif

ifsession("sum")=""thensession("sum")=0

Response.Write"<tdbgcolor=MediumSeaGreen>购货总金额："&session
("sum")&"</td>"

%>

</tr>

</table>

</td>

</tr>

<TR>

<TDwidth="15%"valign=topbordercolor=deeppinkbgcolor=beige>

<Ahref=index.asp?ifcover=1><Palign=center>

最旧书目</a><br>

滞销书目<br>

<hrcolor=deeppink>

<P></P>

<palign=center>

图书分类<br>

<tableborder=1cellspacing=0cellpadding=0width=100%>

<%setrs=server.CreateObject("ADODB.recordset")

rs.open"select*fromclassorderbyID","DSN=sqlsales;UID=sa;",3,3

rs.movefirst

dowhilenotrs.eof

Response.Write"<tr><tdalign=center>"

Response.Write"<Ahref=index.asp?flag="&rs("ID")&">"&rs
("Name")&"</a><br>"

Response.Write"</td><tr>"

rs.movenext

loop

%>

</table>

</p>

</TD>

<TDwidth="65%"bordercolor=orangeredvalign=top>

<%ifRequest.QueryString("flag")=""andsession("flag")=""or
request.querystring("ifcover")=1then%>

<%

setrs=server.CreateObject("ADODB.Recordset")

rs.Open"select*frombookwhere
ifcover=1","DSN=sqlsales;UID=sa;",3,3

%>

<Palign=centerstyle="FONT-SIZE:x-large"><FONT

color=mediumslatebluestyle="FONT-FAMILY:serif">最旧书目</FONT></P>

<%fori=1tors.RecordCount%>

<tableborder=0cellpadding=5cellspacing=5width="100%">

<tr>

<tdcolspan=2><fontcolor=redsize=5><palign=center><%=rs.Fields
("Name")%></p></font></td>

</tr>

<tr>

<tdwidth="30%"><ahref="javascript:openwindow(<%=rs.Fields("ID")%
>)"><imgsrc=<%=rs.Fields("Cover")%>>

</td>

<td><FONTcolor=mediumslateblue>书号:</FONT><%=rs.Fields("ID")%><br>

<FONTcolor=mediumslateblue>作者:</FONT><%=rs.Fields("Author")%
><br><FONT

color=mediumslateblue>原价:</FONT><%=rs.Fields("Price")%><br><FONT
color=mediumslateblue>现价:</FONT><%=rs.Fields("Price")%><br><FONT

color=mediumslateblue>出书社</FONT><%=rs.Fields("Publisher")%></td>

</tr>

<tr>

<tdcolspan=5><FONT

color=#660066><%=rs.Fields("Brief")%>

</FONT>

</td>

</tr>

<tr>

<tdcolspan=6><palign=right><ahref=buy.asp?name=<%=rs.Fields("ID")
&"`"&rs.fields("Name")&"`"&rs.fields("Price")%>>购置
</A></p></td>

</tr>

</table>

<hr>

<%rs.MoveNext

next

rs.Close

%>

<%elseifRequest.QueryString("flag")=9999then

Response.Write"购物蓝"

else

setrs=server.CreateObject("ADODB.recordset")

ifRequest.QueryString("flag")""thensession("flag")
=Request.QueryString("flag")

rs.open"select*frombookwhereflag="&session
("flag"),"DSN=sqlsales;UID=sa;",3,3

session("PageNum")=rs.PageCount

ifrs.RecordCount0then

%>

<tableborder=1width="100%">

<tr>

<tdwidth=40%align=center>书名</td>

<tdwidth=15%align=center>作者</td>

<tdwidth=29%align=center>出书社</td>

<tdwidth=8%align=center>代价</td>

<tdwidth=8%align=center>订购</td>

</tr>

<%

rs.MoveFirst

session("pagecur")=session("pagecur"&Request.QueryString("flag"))

ifsession("pagecur")=""then

session("pagecur")=1

rs.AbsolutePage=1

else

if(Request.Form("txtPage"))=""then

response.writesession("pagecur")&"<BR>"

rs.AbsolutePage=session("pagecur")

session("page")=session("pagecur")

else

rs.AbsolutePage=clng(Request.Form("txtPage"))

session("page")=clng(Request.Form("txtPage"))

session("Page")=clng(Request.Form("txtPage"))

endif

endif

%>

<formaction="index.asp"method=postname=Page>

<%="<ahref="&chr(34)&"javascript:viewPage(1)"&chr(34)&">首页
</a>"%>

<%

ifsession("Page")=""then

session("Page")=1

endif

ifclng(session("Page"))>1then

session("pagecur")=clng(session("page"))-1

Response.Write"<ahref="&chr(34)&"javascript:viewPage("&session
("Pagecur")&")"&chr(34)&">前页</a>"

else

Response.Write"前页"

endif

ifclng(session("Page"))<clng(session("PageNum"))then

session("pagecur")=clng(session("Page"))+1

Response.Write"<Ahref="&chr(34)&"javascript:viewPage("&session
("Pagecur")&")"&chr(34)&">后页</a>"

else

Response.Write"后页"

endif

Response.Write"<ahref="&chr(34)&"javascript:viewPage("&session
("PageNum")&")"&chr(34)&">末页</a>"

%>

<INPUTid=txtPagename=txtPagestyle="HEIGHT:22px;WIDTH:103px"
value=1>

<INPUTid=submit1name=cmdPagetype=submitvalue=GOstyle="BACKGROUND-
COLOR:peru;COLOR:greenyellow">

</form>

<%

i=0

dowhilenotrs.EOFandi<rs.PageSize

i=i+1

Response.Write"<tr>"

Response.Write"<td>"&rs.Fields("ID")&"</td>"%>

<td><ahref="javascript:openwindow(<%=rs.Fields("ID")%>)"><%
=rs.Fields("Name")%></a></td>

<%Response.Write"<td>"&rs.Fields("Author")&"</td>"

Response.Write"<td>"&rs.Fields("Publisher")&"</td>"

Response.Write"<td>"&rs.Fields("Price")&"</td>"

Response.Write"<td>订购</td>"

Response.Write"</tr>"

rs.MoveNext

loop

Response.Write"</table>"

endif

rs.Close

endif%>

<TDwidth="20%"valign=topbordercolor=orangeredbgcolor=beige>

<formmethod=postaction="in.asp"id=loginname=login>

<palign=center>

会员登录</p><palign=center>用户<INPUT

id=text1name=txtUsersize=12>

<br>

暗码<INPUTid=text2name=txtPWDsize=12type=password></p>

<Palign=center><INPUTid=cmdLogonname=cmdLogontype=submitvalue=进
进><INPUTid=cmdRegname=cmdRegtype=buttonvalue=请求
onclick=window.location.href="registry.asp"></form></P>

<%

session("num_book")=session("num")

ifsession("num_book")""then

num_book=clng(session("num_book"))

response.write"<tableborder=1width=100%><tr><td>书号</td><td>单
价</td><td>数目</td></tr>"

fori=0tonum_book

response.write"<tr><td>"&session("ID_"&cstr(num_book))
&"</td><td>"&session("price_"&cstr(num_book))&"</td><td>"&
session("num_"&cstr(num_book))&"</td></tr>"

next

response.write"</table>"

endif

%>

<P>为了您取得更优惠的代价，请您请求成为我们的会员，并在此举行登录。</P>

<p>付账体例：接纳邮局付款或送货上门体例。
</p></TD></TR></TBODY></TABLE></P>

<palign=center><fontsize=2color=blue>本站所包含笔墨和图片版权回于爱武
一切，未经允许，不得抄写<br>于爱武</font></p>

</BODY>

</HTML>

缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。

只看该作者 · 发表于 2015-1-19 13:09:04

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

只看该作者 · 发表于 2015-1-25 12:05:39

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

仓酷云 · 发表于 2015-2-2 22:02:35

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

只看该作者 · 发表于 2015-2-8 09:28:14

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

只看该作者 · 发表于 2015-2-25 08:48:07

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-3-7 18:28:51

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

只看该作者 · 发表于 2015-3-15 11:28:52

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

只看该作者 · 发表于 2015-3-22 00:30:47

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之网上“商号”DIY(2)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子