【><%=anclassname%>】
<%
case"small"
anclassid=request("anid")
nclassid=request("nid")
setrs=server.createobject("adodb.recordset")
rs.open"select*fromwq_sortwhereanclassid="&anclassid,conn,1,1
ifrs.bofandrs.eofthen
response.write"alert('参数错误!');"
response.write"history.go(-1)"
response.end
endif
anclassname=rs("anclass")
rs.close
rs.open"select*fromwq_sort2wherenclassid="&nclassid,conn,1,1
ifrs.bofandrs.eofthen
response.write"alert('参数错误!');"
response.write"history.go(-1)"
response.end
endif
nclassname=rs("nclass")
rs.close
%>
商品分类:【><%=anclassname%>】 【&nid=<%=nclassid%>><%=nclassname%>】
<%
case"sale"
%>
特价商品
<%
case"news"
%>
新品上架
<%
caseelse
%>
新品上架
<%
endselect%>
<%setrs=server.createobject("adodb.recordset")
ifleixing="big"then
rs.open"select*fromwq_bookswhereanclassid="&anclassid&"orderbyadddatedesc",conn,1,1
elseifleixing="small"then
rs.open"select*fromwq_bookswhereanclassid="&anclassid&"andnclassid="&nclassid&"orderbyadddatedesc",conn,1,1
elseifleixing="sale"then
rs.open"select*fromwq_bookswheretejiabook=1orderbyadddatedesc",conn,1,1
elseifleixing="news"then
rs.open"select*fromwq_bookswherenewsbook=1orderbyadddatedesc",conn,1,1
else
rs.open"select*fromwq_bookswherenewsbook=1orderbyadddatedesc",conn,1,1
endif
ifrs.recordcount=0then
%>
暂无商品
<%
else
rs.PageSize=6'每页记录条数
iCount=rs.RecordCount'记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
ifNotIsNumeric(page)orpage=""then
page=1
else
page=cint(page)
endif
ifpage<1then
page=1
elseifpage>maxpagethen
page=maxpage
endif
rs.AbsolutePage=Page
ifpage=maxpagethen
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
endif
Fori=1Tox
%>
<%rs.movenext
next
callPageControl(iCount,maxpage,page,"border=0align=center","")
endif
rs.close
setrs=nothing
SubPageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dimquery,a,x,temp
action="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")
query=Split(Request.ServerVariables("QUERY_STRING"),"&")
ForEachxInquery
a=Split(x,"=")
IfStrComp(a(0),"page",vbTextCompare)<>0Then
temp=temp&a(0)&"="&a(1)&"&"
EndIf
Next
Response.Write(""&vbCrLf)
Response.Write("
"&vbCrLf)
Response.Write(""&vbCrLf)
Response.Write(font_style&vbCrLf)
ifpage<=1then
Response.Write("首页"&vbCrLf)
Response.Write("上页"&vbCrLf)
else
Response.Write("首页"&vbCrLf)
Response.Write("上页"&vbCrLf)
endif
ifpage>=pagecountthen
Response.Write("下页"&vbCrLf)
Response.Write("尾页"&vbCrLf)
else
Response.Write("下页"&vbCrLf)
Response.Write("尾页"&vbCrLf)
endif
Response.Write("页次:"&page&"/"&pageCount&"页"&vbCrLf)
Response.Write("共有"&iCount&"种商品"&vbCrLf)
Response.Write("转到"&""&"页"&vbCrLf&"")
Response.Write(""&vbCrLf)
Response.Write(""&vbCrLf)
Response.Write(""&vbCrLf)
EndSub
%>
<%'--会员登陆--%>
<%ifrequest.cookies("cnhww")("username")=""andrequest.cookies("cnhww")("shjianame")=""then%>
<%elseifrequest.cookies("cnhww")("username")<>""then%>
<%endif%>
<%'--登陆结束--%>
5.1.2会员注册
会员注册页面:
在会员注册中,首先是检查该顾客所申请的用户名是否以被人申请了,若已被人申请了该用户名,则系统将提示给用户"该用户名已存在"的信息。其方法还是使用对数据库的操作:
setrs=server.createobject("adodb.recordset")
sqltext="select*fromWq_actionwhereUserId='"&request.form("uid")&"'"
rs.opensqltext,conn,1,1
'查找数据库,检查用户名是否已经注册过
ifrs.recordcount>=1then
ifrs("userid")=request.form("uid")then
Response.Redirect"messagebox.asp?msg=此用户名已经注册过,请选用其他用户名!"
response.end
rs.close
endif
endif
之后进入用户详细资料登记的页面(Reg_User_OK.asp):
另外还将调用页面Reg_User_2.asp,它将使用大量的Javascript的语言开发的程序,用来检查用户填入字符的正确性。其主要的程序看后面源程序代码,详细的介绍各程序单元所完成的功能和作用。
在用户登记个人的详细资料时,仍然使用ASP中的Recordset的对象,对数据库进行添加的操作,其方法如下:
rs.addnew
rs("UserId")=request.form("uid")
rs("PassWD")=request.form("pwd")
rs("WtPass")=request.form("question")
rs("DaPass")=request.form("answer")
rs("Name")=request.form("Name")
rs("Sex")=request.form("Sex")
rs("Email")=request.form("Email")
rs("Phone")=request.form("usephone")
rs("Address")=request.form("haddr")
rs("Zip")=request.form("postcode")
rs.update
%>
<%
setrs_detail=server.createobject("adodb.recordset")
sqltext2="select*fromWq_actionwhereUserId='"&request.form("uid")&"'"
rs_detail.opensqltext2,conn,1,1
申请成功后进入提示界面,告诉用户已经申请成功。
5.1.3商品查询
首先在主页面default.asp中实现以商品大类方式的查询:
WhileNotrs_wq_pingpai.EOF
setrs_wq_books=server.createobject("adodb.recordset")
sqltext3="select*fromWq_bookswhereWq_pingpai_Name='"&rs_wq_pingpai("Wq_pingpai_Name")&"'"
rs_wq_books.opensqltext3,conn,1,1
如果在文本输入框中输入了商品名称,则调用执行Wq_sortSearch.asp:
Wq_sortWq_books=request("Wq_sortWq_books")
setrs=server.createobject("adodb.recordset")
sqltext="select*fromWq_sort"
ifrequest("Wq_sort_Name")<>""then
sqltext=sqltext&"whereWq_sort_Namelike'%"&request("Wq_sort_Name")&"%'"
else
sqltext=sqltext&"whereWq_sort_Namelike'%"&""&"%'"
endif
ifrequest("Wq_sort_Class")<>""then
sqltext=sqltext&"andWq_pingpailike'%"&request("Wq_sort_Class")&"%'"
endif
rs.opensqltext,conn,1,1
5.1.4新闻中心
<
<%=webname%>--商城动态
商城动态
<%setrs=server.createobject("adodb.recordset")
rs.open"select*fromwq_Newsorderbyadddatedesc",conn,1,1
ifrs.recordcount=0then
%>
暂无商城动态
<%
else
rs.PageSize=20'每页记录条数
iCount=rs.RecordCount'记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
ifNotIsNumeric(page)orpage=""then
page=1
else
page=cint(page)
endif
ifpage<1then
page=1
elseifpage>maxpagethen
page=maxpage
endif
rs.AbsolutePage=Page
ifpage=maxpagethen
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
endif
%>
<%
Fori=1Tox
%>
','','width=432,height=288,toolbar=no,status=no,menubar=no,resizable=yes,scrollbars=yes');returnfalse;"><%=replace(trim(rs("newsname")),"","")%> (已浏览<%=rs("viewcount")%>次)
<%
rs.movenext
next
%>
<%
callPageControl(iCount,maxpage,page,"border=0align=center","")
endif
rs.close
setrs=nothing
SubPageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dimquery,a,x,temp
action="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")
query=Split(Request.ServerVariables("QUERY_STRING"),"&")
ForEachxInquery
a=Split(x,"=")
IfStrComp(a(0),"page",vbTextCompare)<>0Then
temp=temp&a(0)&"="&a(1)&"&"
EndIf
Next
Response.Write(""&vbCrLf)
Response.Write(""&vbCrLf)
Response.Write(""&vbCrLf)
Response.Write(font_style&vbCrLf)
ifpage<=1then
Response.Write("首页"&vbCrLf)
Response.Write("上页"&vbCrLf)
else
Response.Write("首页"&vbCrLf)
Response.Write("上页"&vbCrLf)
endif
ifpage>=pagecountthen
Response.Write("下页"&vbCrLf)
Response.Write("尾页"&vbCrLf)
else
Response.Write("下页"&vbCrLf)
Response.Write("尾页"&vbCrLf)
endif
Response.Write("页次:"&page&"/"&pageCount&"页"&vbCrLf)
Response.Write("共有"&iCount&"篇文章"&vbCrLf)
Response.Write("转到"&""&"页"&vbCrLf&"")
Response.Write(""&vbCrLf)
Response.Write(""&vbCrLf)
Response.Write(""&vbCrLf)
EndSub
%>
<%'--会员登陆--%>
<%ifrequest.cookies("cnhww")("username")=""andrequest.cookies("cnhww")("shjianame")=""then%>
<%elseifrequest.cookies("cnhww")("username")<>""then%>
<%endif%>
<%'--登陆结束--%>
Form_ID=Request.form("Form_Id")
IFSession("LoginSuccess")=""Then
response.redirect"FindOrderLogin.asp"
Else
setRs3=Server.CreateObject("ADODB.recordset")
sql3="select*fromWq_citywhereForm_Id="&Form_Id&""
rs3.opensql3,conn,1,1
IFrs3.RecordCount>=1then
IFSession("LoginSuccess")=rs3("User_Id")Then
5.2后台管理端
<%=webname%>--用户登录
<%ifrequest.cookies("cnhww")("username")<>""then%>
欢迎<%=Request.Cookies("cnhww")("username")%>登陆,请选择相关服务!
<%else%>
用户登录
用户名:
密 码:
">
<%endif%>
5.2.1最新商品
商品审查包括对商品的编辑和对商品的删除操作。
(1)商品编辑:
编辑操作是调用Wq_sort_Modify.asp页面对商品信息进行编辑修改,然后调用Wq_sort_Modify_Ok.asp页面将修改后的信息添加到商品表(Wq_sort)中。
setrs=server.createobject("adodb.recordset")
sqltext="select*fromWq_sortwhereWq_sort_no="&request.form("wq_sort_no")
rs.opensqltext,conn,3,3
'更新商品到数据库
rs("Wq_books")=request.form("wq_books_name")
rs("Wq_pingpai")=request.form("wq_pingpai_name")
rs("Wq_sort_name")=request.form("p_name")
rs("Wq_sort_intro")=request.form("p_intro")
rs("Wq_sort_show")=request.form("p_show")
rs("P_newprice")=request.form("newprice")
rs("P_oldprice")=request.form("oldprice")
rs("P_pic")=request.form("p_pic")
rs("P_full_pic")=request.form("p_full_pic")
rs.update
rs.close
conn.close
response.redirect"wq_sort_check.asp"
(2)商品删除:
调用页面Del_Wq_sort.asp来实现:
<%
dimSQL,Rs,contentID,CurrentPage
CurrentPage=request("Page")
contentID=request("ID")
setrs=server.createobject("adodb.recordset")
sqltext="deletefromWq_sortwhereWq_sort_No="&contentID
rs.opensqltext,conn,3,3
setrs=nothing
response.redirect"wq_sort_check.asp?page="&CurrentPage
%>
5.2.3售后服务
售后服务的页面:
订单审查实现了两个功能:处理订单和删除订单。
(1)处理订单:
setrs=server.createobject("adodb.recordset")
sqltext="selectFlagfromWq_citywhereForm_Id="&request("Form_Id")
rs.opensqltext,conn,1,1
ifrs("Flag")="已经发货"then
rs.close
Response.Redirect"ordermessagebox.asp?msg=此订货单您已经做过了发货处理!"
Else
setrs=server.createobject("adodb.recordset")
sqltext="updateWq_citysetFlag='"&djfc&"'whereForm_Id="&request("Form_Id")
rs.opensqltext,conn,3,3
response.redirect"ordermessagebox.asp?msg=订货单处理处理完毕,请按客户详细地址发货!"
endif
(2)删除订单:
在这里,我使用了一个java脚本,定义了删除函数:
functionconfirmdel(id,page){
if(confirm("真的要删除这个订单?"))
window.location.href="del_wq_city.asp?id="+id+"&page="+page
}
通过它来调用删除页面(Del_Wq_city.asp):
<%
dimSQL,Rs,contentID,CurrentPage
CurrentPage=request("Page")
contentID=request("ID")
setrs=server.createobject("adodb.recordset")
sqltext="deletefromWq_citywhereForm_Id="&contentID
rs.opensqltext,conn,3,3
setrs=nothing
setrs=server.createobject("adodb.recordset")
sqltext="deletefromWq_sort2whereForm_Id="&contentID
rs.opensqltext,conn,3,3
setrs=nothing
response.redirect"wq_city_check.asp?page="&CurrentPage
%>
5.2.4支持付款
支持付款的页面:
支持付款实现了两个功能:在线支持和会
上一篇:ASP网上评教系统(论文和程序)
下一篇:关于武汉地名的语言文化考察