基于web的服装销售管理系统源程序Word文件下载.docx
《基于web的服装销售管理系统源程序Word文件下载.docx》由会员分享,可在线阅读,更多相关《基于web的服装销售管理系统源程序Word文件下载.docx(9页珍藏版)》请在冰豆网上搜索。
<
tablewidth="
437"
border="
0"
cellpadding="
cellspacing="
>
<
!
--DWLayoutTable-->
.......;
省略之间部分代码
<
tdheight="
1"
/td>
tdcolspan="
2"
rowspan="
valign="
top"
divalign="
center"
fontcolor="
#000000"
帐号:
/font>
/div>
27"
font
color="
密码<
#FFFFFF"
:
INPUTname=passtype="
password"
34"
td>
&
nbsp;
inputtype="
submit"
name="
Submit"
value="
登录系统"
<
/tr>
<
tralign="
bottom"
210"
colspan="
10"
br>
&
nbsp&
nbsp
版权所有&
copy;
兰州理工大学<
CopyRight2009-2010AllRightsReserved<
技术支持:
ahref="
mailto:
yjw0415@"
spanclass="
style8"
俊伟&
汉云<
/span>
/a>
<
<
/table>
/form>
/body>
/html>
.------------------------------------check.asp---------------------------------------->
%
setconn=server.createobject("
adodb.connection"
)
conn.open"
driver={MicrosoftAccessDriver*.mdb)};
pwd=;
dbq="
&
Server.MapPath("
osidata.mdb"
%>
%username=request("
username"
pass=request("
pass"
ifusername="
"
andpass="
then
response.write"
scriptlanguage=JavaScript>
{window.alert('
用户名及密码不能为空,请返回!
'
);
window.location.href='
index.asp'
}<
/script>
else
Setrs1=Server.CreateObject("
ADODB.Recordset"
strSql1="
select*fromuserwhereuser='
username&
andpass='
pass&
"
rs1.openstrSql1,Conn,1,1
ifnotrs1.eofthen
ifrs1("
biaozhi"
)="
wangxinteng"
then
session("
)=username
user"
)=rs1("
class"
userbz"
bumen"
diqu"
sb"
osi"
........;
user_ip=Request.ServerVariables("
REMOTE_HOST"
Setrs2=Server.CreateObject("
strSql2="
select*fromday"
rs2.openstrSql2,Conn,3,3
rs2.addnew
rs2("
ip"
)=user_ip
)=session("
thing"
bz"
rs2.update
%>
<
Scriptlanguage="
javascript"
//gotourl('
default_into.asp'
"
false);
oaindex.asp'
varw=800;
varh=700;
//alert("
fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=1,width="
+w+"
height="
+h+"
top=0,left=0"
Varjwin=window.open('
main.asp'
fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,resizable=1,width="
true);
objwin.focus();
%
else
response.write"
该用户帐号已冻结,请与系统管理员联系!
endif
else
非法用户,请返回!
endif
endif
2.系统管理首页源代码。
----------------------------------------------------------------------------------------->
linkrel="
stylesheet"
type="
text/css"
href="
inc/index.css"
bodyleftmargin="
topmargin="
onkeydown="
if(event.keyCode==78&
event.ctrlKey)returnfalse;
scriptlanguage="
src="
menu.js"
SCRIPTlanguage=javascript>
mpmenu1=newmMenu(邮件系统'
'
self'
mpmenu1.addItem(newmMenuItem('
写新邮'
email/newmail.asp'
main'
false,'
));
mpmenu1.addItem(newmMenuItem('
收件箱'
email/index1.asp'
发件箱'
email/index2.asp'
mpmenu2=newmMenu('
系统设置'
mpmenu2.addItem(newmMenuItem('
货号设置'
jitong/index3.asp'
单位设置'
jitong/index2.asp'
颜色设置'
jitong/index1.asp'
尺码组设置'
mpmenu3=newmMenu('
数据初始化'
mpmenu3.addItem(newmMenuItem('
仓库初始化'
jitong/index.asp'
部门初始化'
jitong/bumen.asp'
职务初始化'
jitong/