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

2019-11-18 22:19:31

字體：大中小

供稿：網(wǎng)友

Buy.asp
<HTML>

<HEAD>

<title>購貨藍(lán)</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>

<BODY bgColor=lightcyan>

<form action=buy.asp method=post>

<script language=vbscript>

function ID(mystr)

pos=0

for i=1 to len(mystr)

if mid(mystr,i,1)="`" then

if pos=0 then

ID=left(mystr,i-1)

exit for

end if

end if

next

end function

　

</script>

<%

function ID(mystr)

pos=0

for i=1 to len(mystr)

if mid(mystr,i,1)="`" then

if pos=0 then

ID=left(mystr,i-1)

exit for

end if

end if

next

end function

function BookName(mystr)

pos=0

for i=1 to len(mystr)

if mid(mystr,i,1)="`" then

if pos=0 then

pos=pos+1

else

BookName=mid(mystr,len(id(name))+2,i-2-len(id(name)))

exit for

end if

end if

next

end function

function PRice(mystr)

for i= len(mystr) to 1 step -1

if mid(mystr,i,1)="`" then

if pos=0 then

Price=right(mystr,len(mystr)-i)

exit for

end if

end if

next

end function

select case request.querystring("Name")

case "view"

response.write "瀏覽"

if session("num")="" then

response.write "目前購貨藍(lán)中沒有選中的書目！"

else

num=clng(session("num"))

response.write "<table border=1><tr><td>書號(hào)</td><td>書名</td><td>單價(jià)
</td><td>數(shù)量</td><td>小計(jì)</td></tr>"

session("sum")=0

for i=0 to num

session("sum")=session("sum")+session("sum_" & cstr(i))

response.write "<tr><td>" & session("ID_" & cstr(i)) & "</td><td>" &
session("BookName_" & cstr(i)) & "</td><td>" & session("price_" & cstr
(i)) & "</td><td><input type=text size=5 name=txtNum" & cstr(i) & "
value=" & session("num_" & cstr(i)) & "><td>" & session("sum_" & cstr
(i)) & "</td></td></tr>"

next

response.write "</table>"

Response.Write "購貨總金額：" & session("sum")

end if

case ""

response.write "本頁內(nèi)修改"

num=clng(session("num"))

for i=0 to num

session("num_" & cstr(i))=(request.form("txtNum" & cstr(i)))

session("sum_" & cstr(i))=session("num_" & cstr(i))*session("price_"
& cstr(i))

next

response.write "<table border=1><tr><td>書號(hào)</td><td>書名</td><td>單價(jià)
</td><td>數(shù)量</td><td>小計(jì)</td></tr>"

session("sum")=0

for i=0 to num

session("sum")=session("sum")+session("sum_" & cstr(i))

response.write "<tr><td>" & session("ID_" & cstr(i)) & "</td><td>" &
session("BookName_" & cstr(i)) & "</td><td>" & session("price_" & cstr
(i)) & "</td><td><input type=text size=5 name=txtNum" & cstr(i) & "
value=" & session("num_" & cstr(i)) & "><td>" & session("sum_" & cstr
(i)) & "</td></td></tr>"

next

response.write "</table>"

Response.Write "購貨總金額：" & session("sum")

case else

response.write "增加"

if session("num")="" then

session("num")=0

else

session("num")=clng(session("num"))+1

end if

num=clng(session("num"))

name=(request.querystring("Name"))

session("ID_" & cstr(num))=id(name)

session("Bookname_" & cstr(num))=bookname(name)

session("price_" & cstr(num))=price(name)

session("sum_" & cstr(num))=price(name)

session("num_" & cstr(num))=1

response.write "<table border=1><tr><td>書號(hào)</td><td>書名</td><td>單價(jià)
</td><td>數(shù)量</td><td>小計(jì)</td></tr>"

session("sum")=0

for i=0 to num

session("sum")=session("sum")+session("sum_" & cstr(i))

response.write "<tr><td>" & session("ID_" & cstr(i)) & "</td><td>" &
session("BookName_" & cstr(i)) & "</td><td>" & session("price_" & cstr
(i)) & "</td><td><input type=text size=5 name=txtNum" & cstr(i) & "
value=" & session("num_" & cstr(i)) & "><td>" & session("sum_" & cstr
(i)) & "</td></td></tr>"

next

response.write "</table>"

Response.Write "購貨總金額：" & session("sum")

end select

%>

<p><input type=submit value="修改購物藍(lán)"><input type=button value="返
回" onclick=window.location.href="index.asp?flag=<% =session("flag") %
>"></p>

</form>

</BODY>

</HTML>

其運(yùn)行界面如下：

在下面有總金額的顯示，并且購買的數(shù)量可以更改。

In.asp
<%@ Language=VBScript %>

<%

if Request.Form("txtUser")="" or Request.Form("txtPWD")="" then

Response.Write "用戶名或密碼為空，請(qǐng)重新輸入，如果您沒有注冊(cè)，請(qǐng)選擇注
冊(cè)！"

else

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

rs.Open "select * from info where ID='" & Request.Form("txtUser")
& "'" ,"DSN=sqlsales;UID=sa",3,3

if rs.RecordCount =0 then

Response.Write "此會(huì)員號(hào)不存在！"

else

if trim(rs.Fields("PWD"))<>trim(Request.Form("txtPWD")) then

Response.Write "密碼不正確！"

Response.Write rs.Fields("ID") & "<br>"

Response.Write rs.Fields("PWD") & "<br>"

Response.Write Request.Form("txtPWD")

else

session("UserID")=rs.Fields("ID")

session("UserName")=rs.Fields("Name")

Response.Redirect "index.asp"

'Response.Write rs.Fields("ID") & "<br>"

'Response.Write rs.Fields("PWD") & "<br>"

'Response.Write "歡迎光臨!"

end if

end if

rs.Close

end if

%>

<HTML>

<HEAD>

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

</HEAD>

<BODY>

</BODY>

</HTML>

此段程序用于檢測(cè)登錄的合法性。

Registry.asp
<%@ Language=VBScript %>

<%

if Request.Form("txtID")="" and Request.Form("txtPWD")="" and
Request.Form("txtPWD1")="" and _

Request.Form("txtname")="" and Request.Form("txtSFZ")="" and
Request.Form("txtemail")="" and _

Request.Form("txtAdd")="" and Request.Form("txtPost")="" and
Request.Form("txtPhone")="" then

Response.Write "請(qǐng)認(rèn)真填寫以下內(nèi)容："

else

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

Response.Write "用戶名為空，請(qǐng)重新填寫!" & "<br>"

elseif Request.Form("txtPWD")="" then

Response.Write "密碼為空，請(qǐng)重新填寫!" & "<br>"

elseif Request.Form("txtPWD1")="" then

Response.Write "密碼校驗(yàn)為空，請(qǐng)重新填寫!" & "<br>"

elseif Request.Form("txtName")="" then

Response.Write "姓名為空，請(qǐng)重新填寫!" & "<br>"

elseif Request.Form("txtAdd")="" then

Response.Write "聯(lián)系地址為空，請(qǐng)重新填寫!" & "<br>"

elseif Request.Form("txtPost")="" then

Response.Write "郵政編碼為空，請(qǐng)重新填寫!" & "<br>"

elseif trim(Request.Form("txtPWD"))<>trim(Request.Form("txtPWD1"))
then

Response.Write "密碼位與校驗(yàn)位不一致，請(qǐng)重新輸入！" & "<br>"

else

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

rs.Open "select * from info where ID='" & trim(Request.Form("txtID"))
& "'" ,"DSN=sqlsales;UID=sa;",3,3

'rs.Open "select * from info where ID=" & chr(34) & "yuaiwu" & chr
(34) ,"DSN=sqlsales;UID=sa;",3,3

if rs.RecordCount <>0 then

Response.Write "此用戶已經(jīng)登記，請(qǐng)選擇別的用戶名："

else

dim fld(7)

dim value(7)

fld(0)="ID"

fld(1)="name"

fld(2)="PWD"

fld(3)="Email"

fld(4)="address"

fld(5)="phone"

fld(6)="post"

fld(7)="sfz"

value(0)=Request.Form("txtID")

value(1)=Request.Form("txtname")

value(2)=Request.Form("txtpwd")

value(3)=Request.Form("txtEmail")

value(4)=Request.Form("txtadd")

value(5)=Request.Form("txtphone")

value(6)=Request.Form("txtPost")

value(7)=Request.Form("txtSFZ")

rs.AddNew fld,value

rs.Update

end if

rs.Close

end if

end if

%>

<HTML>

<HEAD>

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

</HEAD>

<BODY bgColor=oldlace>

<p align=center><font size=6 color=midnightblue>會(huì) 員申請(qǐng)</font></p>

<P>

<form action="registry.asp" method="post">

<TABLE border=1 cellPadding=0 cellSpacing=0 width="100%">

<TR>

<TD bgColor=bisque>用戶名</TD>

<TD><INPUT id=txtID name=txtID

style="HEIGHT: 22px; WIDTH: 275px">**</TD></TR>

<TR>

<TD bgColor=bisque>密碼</TD>

<TD><INPUT id=passWord1 name=txtPWD

type=password

style="HEIGHT: 22px; WIDTH: 274px">**</TD></TR>

<TR>

<TD bgColor=bisque>確認(rèn)</TD>

<TD><INPUT id=password2 name=txtPWD1

type=password

style="HEIGHT: 22px; WIDTH: 275px">**</TD></TR>

<TR>

<TD bgColor=bisque>姓名</TD>

<TD><INPUT id=text2 name=txtname

style="HEIGHT: 22px; WIDTH: 274px">**</TD></TR>

<TR>

<TD bgColor=bisque>身份證號(hào)碼</TD>

<TD><INPUT id=text3 name=txtSFZ

style="HEIGHT: 22px; WIDTH: 274px"></TD></TR>

<TR>

<TD bgColor=bisque>Email</TD>

<TD><INPUT id=text4 name=txtEmail

style="HEIGHT: 22px; WIDTH: 273px"></TD></TR>

<TR>

<TD bgColor=bisque>聯(lián)系地址:</TD>

<TD><INPUT id=text5 name=txtAdd

style="HEIGHT: 22px; WIDTH: 272px">**</TD></TR>

<TR>

<TD bgColor=bisque>郵政編碼:</TD>

<TD><INPUT id=text6

name=txtPost

style="HEIGHT: 22px; WIDTH: 270px">**</TD></TR>

<TR>

<TD bgColor=bisque>聯(lián)系電話:</TD>

<TD><INPUT id=text5 name=txtPhone

style="HEIGHT: 22px; WIDTH: 270px"></TD></TR>

</TABLE></P>

<P align=center><INPUT id=submit1 name=cmdSubmit type=submit value=確
認(rèn)><INPUT id=reset1 name=cmdCancel type=reset value=取消></P></FORM>

<P><FONT color=orangered>請(qǐng)注意：</FONT></P>

<UL>

<LI><FONT color=orangered>帶有 ** 號(hào)的欄目是必須填寫的，其他的欄目可以不
填</FONT>

<LI><FONT color=orangered>以上信息應(yīng)如實(shí)填寫，以便我們能與您取得及時(shí)的聯(lián)
系</FONT></LI></UL>

<P> </P>

</BODY></HTML>

這個(gè)登錄界面和大多數(shù)網(wǎng)上的登錄新用戶類似。

小結(jié)：
　

幾個(gè)程序都做了一個(gè)簡(jiǎn)要地說明，當(dāng)然，程序做地非常簡(jiǎn)單，還有很多功能沒有
或有待完美，但它卻示范了一個(gè)簡(jiǎn)單的范例，在此僅供大家參考。如果大家有興趣，
可以把上面的程序試一下，祝大家成功！

上一篇：Access數(shù)據(jù)庫操作中出現(xiàn)的怪現(xiàn)象

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