網(wǎng)上“店鋪”DIY(2)

2019-11-18 22:19:36

字體：大中小

供稿：網(wǎng)友

第二部分：實(shí)例

項(xiàng)目結(jié)構(gòu)：
該項(xiàng)目主要由幾個(gè)asp文件和一個(gè)數(shù)據(jù)庫(kù)組成：

book.mdb：存放數(shù)據(jù)庫(kù)的內(nèi)容
index.asp：網(wǎng)站主要的文件，大部分的內(nèi)容均由它來(lái)顯示
buy.asp：購(gòu)物藍(lán)的內(nèi)容
in.asp：供登錄使用
registry.asp：使您成為我們的會(huì)員
數(shù)據(jù)庫(kù)（book.mdb）：
第一個(gè)表是Book，用于存儲(chǔ)關(guān)于書目的一些相關(guān)的信息，結(jié)構(gòu)如下：

ID
整型
書的序號(hào)

Name
字符
書的名字

Author
字符
作者

Brief
字符
簡(jiǎn)介

Ifcover
整型
是否首頁(yè)顯示

PRice
雙精度
價(jià)格

Publisher
字符
出版社

Cover
字符
封面的圖片的路徑

Flag
整型
標(biāo)志

第二個(gè)表是info，用于存儲(chǔ)會(huì)員的信息，結(jié)構(gòu)如下：

Id
字符
會(huì)員登錄號(hào)

Name
字符
會(huì)員姓名

Pwd
字符
登錄密碼

Email
字符
　
Address
字符
地址

Phone
字符
電話

Post
字符
郵編

Sfz
字符
身份證號(hào)碼

第三個(gè)表是class，用于存儲(chǔ)書目的類別，其結(jié)構(gòu)如下：

ID
字符
編號(hào)

Name
字符
類別

幾個(gè)ASP文件的內(nèi)容：
Index.asp


<%@ Language=VBScript %>

<script language=javascript>

function openwindow(num){

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

}

</script>

<script language=Javascript>

function buy(name){

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

}

</script>

<script language=javascript>

function viewPage(ipage){

document.Page.txtPage.value=ipage

document.Page.submit()

}

</script>

<HTML>

<HEAD>

<title>網(wǎng)上書店</title>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

</HEAD>

<BODY bgColor=lightcyan>

<P align=center><IMG alt="網(wǎng)上書店"

src="file://C:/InetPub/wwwroot/images/title.jpg"><br>

<TABLE align=center border=0 cellPadding=0 cellSpacing=10
width="100%" style="BORDER-BOTTOM-COLOR: red; BORDER-LEFT-COLOR: red;
BORDER-RIGHT-COLOR: red; BORDER-TOP-COLOR: red">

<tr>

<td colspan=3>

<table border=1 width=100% bgcolor=Khaki cellpadding=0 cellspacing=0>

<tr>

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

<td bgcolor=MediumSeaGreen ><a href="about.htm">關(guān)于我們</a></td>

<td bgcolor=MediumSeaGreen ><a href=buy.asp?name=view>查詢購(gòu)物藍(lán)
</a></td>

<%

if session("UserID")<>"" then

Response.Write "<td bgcolor=MediumSeaGreen> 會(huì)員：" & session
("UserName") & "</td>"

else

Response.Write "<td bgcolor=MediumSeaGreen>會(huì)員：未登錄</td>"

end if

if session("sum")="" then session("sum")=0

Response.Write "<td bgcolor=MediumSeaGreen>購(gòu)貨總金額：" & session
("sum") & "</td>"

%>

</tr>

</table>

</td>

</tr>

<TR>

<TD width="15%" valign=top bordercolor=deeppink bgcolor=beige>

<A href=index.asp?ifcover=1><P align=center>

最新書目</a><br>

暢銷書目<br>

<hr color=deeppink>

<P></P>

<p align=center>

圖書分類<br>

<table border=1 cellspacing=0 cellpadding=0 width=100%>

<% set rs=server.CreateObject("ADODB.recordset")

rs.open "select * from class order by ID","DSN=sqlsales;UID=sa;",3,3

rs.movefirst

do while not rs.eof

Response.Write "<tr><td align=center>"

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

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

rs.movenext

loop

%>

</table>

</p>

</TD>

<TD width = "65%" bordercolor=orangered valign=top>

<% if Request.QueryString("flag")="" and session("flag")="" or
request.querystring("ifcover")=1 then %>

<%

set rs=server.CreateObject("ADODB.Recordset")

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

%>

<P align=center style="FONT-SIZE: x-large"><FONT

color=mediumslateblue style="FONT-FAMILY: serif" >最新書目</FONT></P>

<% for i=1 to rs.RecordCount %>

<table border=0 cellpadding=5 cellspacing=5 width="100%">

<tr>

<td colspan=2><font color=red size=5 ><p align=center><% =rs.Fields
("Name") %></p></font></td>

</tr>

<tr>

<td width="30%"><a href="javascript:openwindow(<% =rs.Fields("ID") %
>)"><img src=<% =rs.Fields("Cover") %>>

</td>

<td><FONT color=mediumslateblue>書號(hào):</FONT><% =rs.Fields("ID") %><br>

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

color=mediumslateblue>原價(jià):</FONT><% =rs.Fields("Price") %><br><FONT
color=mediumslateblue>現(xiàn)價(jià):</FONT><% =rs.Fields("Price") %><br><FONT

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

</tr>

<tr>

<td colspan=5>    <FONT

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

</FONT>

</td>

</tr>

<tr>

<td colspan=6><p align=right><a href=buy.asp?name=<% =rs.Fields("ID")
& "`" & rs.fields("Name") & "`" & rs.fields("Price") %>>購(gòu)買
</A></p></td>

</tr>

</table>

<hr>

<% rs.MoveNext

next

rs.Close

%>

<% elseif Request.QueryString("flag")=9999 then

Response.Write "購(gòu)物藍(lán)"

else

set rs=server.CreateObject("ADODB.recordset")

if Request.QueryString("flag")<>"" then session("flag")
=Request.QueryString("flag")

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

session("PageNum")=rs.PageCount

if rs.RecordCount <>0 then

%>

<table border=1 width="100%">

<tr>

<td width=40% align=center>書名</td>

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

<td width=29% align=center>出版社</td>

<td width=8% align=center>價(jià)格</td>

<td width=8% align=center>訂購(gòu)</td>

</tr>

<%

rs.MoveFirst

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

if session("pagecur") ="" then

session("pagecur")=1

rs.AbsolutePage=1

else

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

'response.write session("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"))

end if

end if

%>

<form action="index.asp" method=post name=Page>

<% ="<a href=" & chr(34) & "javascript:viewPage(1)" & chr(34) & ">首頁(yè)
</a>" %>

<%

if session("Page")="" then

session("Page")=1

end if

if clng(session("Page"))>1 then

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

Response.Write "<a href=" & chr(34) & "javascript:viewPage(" & session
("Pagecur") & ")" & chr(34) & "> 前頁(yè)</a>"

else

Response.Write " 前頁(yè)"

end if

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

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

Response.Write "<A href=" & chr(34) & "javascript:viewPage(" & session
("Pagecur") & ")" & chr(34) & "> 后頁(yè) </a>"

else

Response.Write " 后頁(yè) "

end if

Response.Write "<a href=" & chr(34) & "javascript:viewPage(" & session
("PageNum") & ")" & chr(34) & ">末頁(yè)</a>"

%>

<INPUT id=txtPage name=txtPage style="HEIGHT: 22px; WIDTH: 103px"
value=1>

<INPUT id=submit1 name=cmdPage type=submit value=GO style="BACKGROUND-
COLOR: peru; COLOR: greenyellow">

</form>

<%

i=0

do while not rs.EOF and i<rs.PageSize

i=i+1

Response.Write "<tr>"

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

<td><a href="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>訂購(gòu)</td>"

Response.Write "</tr>"

rs.MoveNext

loop

Response.Write "</table>"

end if

rs.Close

end if %>

<TD width="20%" valign=top bordercolor=orangered bgcolor=beige>

<form method=post action="in.asp" id=login name=login>

<p align=center>

會(huì)員登錄</p><p align=center>用戶<INPUT

id=text1 name=txtUser size=12>

<br>

密碼<INPUT id=text2 name=txtPWD size=12 type=passWord></p>

<P align=center><INPUT id=cmdLogon name=cmdLogon type=submit value=進(jìn)
入><INPUT id=cmdReg name=cmdReg type=button value=申請(qǐng)
onclick=window.location.href="registry.asp"></form></P>

<%

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

' if session("num_book")<>"" then

' num_book=clng(session("num_book"))

' response.write "<table border=1 width=100%/><tr><td>書號(hào)</td><td>單
價(jià)</td><td>數(shù)量</td></tr>"

' for i=0 to num_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>"

' end if

%>

<P>為了您獲得更優(yōu)惠的價(jià)格，請(qǐng)您申請(qǐng)成為我們的會(huì)員，并在此進(jìn)行登錄。</P>

<p>付賬方式：采用郵局付款或送貨上門方式。
</p></TD></TR></TBODY></TABLE></P>

<p align=center><font size=2 color=blue>本站所包括文字和圖片版權(quán)歸于愛(ài)武
所有，未經(jīng)許可，不得抄錄<br>于愛(ài)武</font></p>

</BODY>

</HTML>

上一篇：網(wǎng)上“店鋪”DIY(3)

下一篇：網(wǎng)上“店鋪”DIY(1) 