ASP订单管理系统(论文和程序)
ASP订单管理系统(论文和程序)-包括论文和程序列表 |
包括目录名称:
ASP订单管理系统(论文和程序) - 30 文件数, 8 目录数.
包括目录名称:
admin - 33 文件数, 0 目录数.
..\addadminuser.asp
..\addarea.asp
..\addbigarea.asp
..\addnews.asp
..\addpayment.asp
..\addsubs.asp
包括目录名称:
Connections - 1 文件数, 0 目录数.
..\conn.asp
包括目录名称:
image - 2 文件数, 0 目录数.
..\bg.gif
..\y_basket.gif
包括目录名称:
inc - 3 文件数, 0 目录数.
..\guhongying.css
..\tsc.asp
..\userconn.inc
包括目录名称:
photo - 1 文件数, 0 目录数.
..\123.gif
包括目录名称:
_mmServerScripts - 3 文件数, 0 目录数.
..\adojavas.inc
..\MMHTTPDB.asp
..\MMHTTPDB.js
包括目录名称:
文档 - 6 文件数, 2 目录数.
包括目录名称:
关系图 - 7 文件数, 0 目录数.
..\用户数据库关系图.jpg
..\用户表.jpg
..\管理员数据库关系图.jpg
..\管理员表.jpg
..\系统模块结构图B.jpg
..\系统模块结构图B.png
包括目录名称:
数据库表 - 13 文件数, 0 目录数.
..\adminuser.jpg
..\area.jpg
..\bigarea.jpg
..\discount.jpg
..\maildefault.jpg
..\message.jpg
..\任务书153.doc
..\后台登陆.txt
..\封面151.doc
..\情况登记表152.doc
..\毕业设计文档150.doc
..\源代码154.doc
包括目录名称:
订单管理系统 - 0 文件数, 1 目录数.
包括目录名称:
2001级计算机3班李学向26号 - 0 文件数, 0 目录数.
..\add.asp
..\adduser.asp
..\check.ASP
..\database.mdb
..\default.asp
..\defaultn.asp
源代码155-部分内容
湖南农业大学
毕业设计源代码
基于ASP的订单管理系统
THEORDERMANAGEMENTSYSTEMBASEDOFTHEASPTECHNOLOGY
学生200140202326
年级专业:01级计算机科学与技术
院:计算机科学与信息工程学院
湖南·长沙
提交日期:2005年6月
用户源代码
Home.asp源代码:
欢迎您进入基于ASP的定单管理系统
进入管理员界面
color=bluesize=5>进入用户界面
Copyright(c)2005李学向,ALLRightsReserved
在线定单版权所有
请您与我联系:
color=blue>mailto:3710167@qq.com
QQ号码:94423404
adduser源代码:
用户注册
<%
'进行安全性监测,看数据来源是否是本服务器页面
ifnotinstr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables("SERVER_NAME"),1)=8then
response.write"请不要从非本服务器的页面提交信息"
response.redirect"error.asp?error=001"
endif
%>
<%
'从提交表单返回值
username=request.form("username")
Password=request.form("Password")
Email=request.form("Email")
Oicq=request.form("Oicq")
userfrom=request.form("userfrom")
telphone=request.form("telphone")
username=replace(username,"'","''")
Password=replace(Password,"'","''")
Email=replace(Email,"'","''")
Oicq=replace(Oicq,"'","''")
userfrom=replace(userfrom,"'","''")
telphone=replace(telphone,"'","''")
'开始向数据库写入数据,并检测是否已有此用户
setrs=Server.CreateObject("ADODB.Recordset")
sql="SELECT*FROMuserwhereusername='"&username&"'"
rs.opensql,conn,1,1
ifnot(rs.Boforrs.eof)then
isun="true"
rs.Close()
response.redirect"error.asp?error=002"
else
sql="insertintouser(username,password,userfrom,email,oicq,telphone)values('"&username&"','"&password&"','"&userfrom&"','"&email&"','"&oicq&"','"&telphone&"')"
conn.Execute(sql)
'注册后,给予SESSION等于直接登陆,并导至所需页面
Session("username")=request.form("Username")
session("userleavel")=1
ifSession("ProductList")<>""then
response.redirect"check.asp"
else
response.redirect"main.asp"
endif
endif
'sql="UPDATEUser_TotalsSetU_COUNT=U_COUNT+1whereCOUNT_ID=1"
'conn.Execute(sql)
%>
dopayment源代码:
<%
'如果没有购买任何物品的出错处理
ifsession("sum")=""thenresponse.redirect"error.asp?error=007"
sum=session("sum")
'产生订单号(内部和外部)及定单产生日期及其他信息
BranchID="0022"
CoNo="000040"
'交易日期,格式:YYYYMMDD
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy&mm&dd
'生成订单号所有所需元素,格式为:小时,分钟,秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
'产生外部和内部定单号
BillNo=xiaoshi&fenzhong&miao
inBillNo=yy&mm&dd&"-"&xiaoshi&fenzhong&miao
'初始化用户选择的支付方式,产生对用户的反馈信息
paymenttype=request("paymenttype")
sqlp="select*frompaydefaultwherepaymenttype='"&paymenttype&"'"
setrsp=server.createobject("adodb.recordset")
rsp.opensqlp,conn,1,1
ifpaymenttype="招商银行在线支付"thenmessage="点此开始在线支付"
'读取用户折扣写入USER表
sql="select*fromdiscountwhereleavel='"&session("userleavel")&"'"
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,1
sql1="select*fromuserwhereusername='"&session("username")&"'"
setrs1=server.createobject("adodb.recordset")
rs1.opensql1,conn,1,1
'取得用户现有积分,并加上此次够物积分
jifen=rs1("sumjifen")
jifen=jifen+sum
'如果使用折扣
ifrequest("usediscount")="1"then
'先读出现在的折扣值
discounty=rs1("discount")
'清0
conn.execute"updateusersetdiscount=0whereusername='"&session("username")&"'"
'计算本次的折扣
discount=sum*rs("discount")/100
discount=FormatNumber(discount,2)
'将本次的折扣写入用户信息
conn.execute"updateusersetdiscount='"&discount&"',sumjifen='"&jifen&"'whereusername='"&session("username")&"'"
'计算折扣后的总价
sum=sum-discounty
else
'计算本次的折扣值
discount=sum*rs("discount")/100
discount=FormatNumber(discount,2)
'累加以前的折扣
discount=discount+rs1("discount")
conn.execute"updateusersetdiscount='"&discount&"',sumjifen='"&jifen&"'whereusername='"&session("username")&"'"
endif
'开始向数据库里写订单信息及用户积分
saddress=request("saddress")
semail=request("semail")
conn.execute"insertintoorders(username,inBillNo,ordertime,summoney,paymenttype,saddress,semail)values('"&session("username")&"','"&inBillNo&"','"&riqi&"','"&sum&"','"&paymenttype&"','"&saddress&"','"&semail&"')"
%>
支付
以下是您的支付信息:
您的订单号:
<%=inBillNo%>
请牢记您的订单号以备查!!!
您共需支付的总金额:
<%=sum%>
请您记录或操作下面的信息
<%'由于暂时无法解决将招行的支付代码加入数据库中,所以目前采取并用措施%>
<%=message%>
<%
paymentmessage=rsp("paymentmessage")
paymentmessage=replace(paymentmessage,chr(13),"")
paymentmessage=replace(paymentmessage,chr(32),"")
response.writepaymentmessage
%>
请注意:
一、招行的在线支付需要提供6位的在同一天内不可以重复的订单编号
本系统采用小时+分钟+秒的形式获得此订单号。
二、由于招行的订单号无法体现详细订单顺序,所以提供了内部订单号
可以把此订单号写入数据库以备查。本系统采用:
年份+月份+日期+招行订单号<即:小时+分钟+秒>的方式获得。
三、如果您还有任何疑问,3710167@qq.com
newuser源代码:
新用户注册
functionCheckForm()
{
if(document.ADDUser.UserName.value.length==0){
alert("请输入您的用户名.");
document.ADDUser.UserName.focus();
returnfalse;
}
if(document.ADDUser.UserName.value.indexOf("<")!=-1||document.ADDUser.UserName.value.indexOf(">")!=-1){
alert("用户名中不能包含(<,>)");
document.ADDUser.UserName.focus();
returnfalse;
}
if(document.ADDUser.UserName.value.indexOf("'")!=-1){
alert("用户名中不能包含(')");
document.ADDUser.UserName.focus();
returnfalse;
}
if(document.ADDUser.password.value.length==0){
alert("请输入您的密码.");
document.ADDUser.password.focus();
returnfalse;
}
if(document.ADDUser.PW_Again.value.length==0){
alert("请确认您的密码.");
document.ADDUser.PW_Again.focus();
returnfalse;
}
if(document.ADDUser.password.value!=document.ADDUser.PW_Again.value){
alert("您两次输入的密码不一样!请重新输入.");
document.ADDUser.password.focus();
returnfalse;
}
if(document.ADDUser.Email.value.length==0){
alert("请输入您的Email.");
document.ADDUser.Email.focus();
returnfalse;
}
if(document.ADDUser.Email.value.length>0&&!document.ADDUser.Email.value.match(/^.+@.+$/)){
alert("Email错误!请重新输入");
document.ADDUser.Email.focus();
returnfalse;
}
if(document.ADDUser.telphone.value.length==0){
alert("请输入您的联系电话,以便我们可以为您更好服务.");
document.ADDUser.telphone.focus();
returnfalse;
}
if(document.ADDUser.Oicq.value.length==0){
alert("请输入您的QQ号码,以便我们可以为您更好服务.");
document.ADDUser.Oicq.focus();
returnfalse;
}
if(document.ADDUser.userfrom.value.length==0){
alert("请输入您所在城市及详细地址.");
document.ADDUser.userfrom.focus();
returnfalse;
}
returntrue;
}
请您仔细并如实填写以下各项目:
用户名:
(最长16位,由中文英文及数字组成)
密码:
(不可以包含"'"和","等字符!)
再输入一次密码:
电子邮件:
(最常用的EMAIL地址,用于找回密码)
来自:
Oicq:
联系电话:
payment.asp源代码:
开始支付
functionCheckForm()
{
if(document.payment.saddress.value.length==0){
alert("请输入此订单收货人的地址.");
document.payment.saddress.focus();
returnfalse;
}
if(document.payment.semail.value.length==0){
alert("请输入此订单收货人的EMAIL.");
document.payment.semail.focus();
returnfalse;
}
if(document.payment.semail.value.length>0&&!document.payment.semail.value.match(/^.+@.+$/)){
alert("Email错误!请重新输入");
document.payment.semail.focus();
returnfalse;
}
returntrue;
}
<%
'判断是否正常购买,如果不是,需要登陆
ifsession("username")=""then
response.redirect"error.asp?error=006"
endif
'判断购物车是否为空
ProductList=Session("ProductList")
ifproductlist<>""then
sql="select*fromsubswherebookbmin("&productlist&")orderbybookbm"
Setrs=conn.Execute(sql)
else
Response.Redirect"error.asp?error=007"
endif
%>
<%=session("username")%>您选购的商品清单如下:
考试号
名称
上一篇:ASP网上选课管理系统SQL(论文和程序)
下一篇:试析影响公路路面平整度的因素及应采取的施工措施