session(\session(\session(\session(\session(\session(\session(\
........；省略之间部分代码
user_ip=Request.ServerVariables(\Set rs2= Server.CreateObject(\
strSql2=\
rs2.open strSql2,Conn,3,3 rs2.addnew rs2(\
rs2(\rs2(\登录系统\rs2(\rs2.update %>
27
<% else
response.write \language=JavaScript>{window.alert('该用户帐号已冻
结，请与系统管理员联系！');window.location.href='index.asp'}\
end if else
response.write \language=JavaScript>{window.alert('非法用户，请返
回！');window.location.href='index.asp'}\
end if
end if %>
2.商品入库代码
<----------------------------------cpsave.asp----------------------------------------------> <%set conn=server.createobject(\conn.open
\
Access
Driver
(*.mdb)};pwd=wangxintengxieql;dbq=\
if request(\请输入数字!\or request(\请输入数字!\ or request(\
response.write \进价不能为空，请返回！');window.location.href='index.asp'}\
else
if request(\请输入数字！\shulian=0 else
shulian=int(request(\end if
if request(\请输入数字！\sltc=0 else
sltc=int(request(\end if
28
if request(\请输入数字！\tc=0 else
tc=int(request(\end if
if request(\请输入数字！\sales=0 else
sales=int(request(\end if
if request(\请输入数字！\kuchus=0 else
kuchus=int(request(\end if
if request(\请输入数字！\kuchux=0 else
kuchux=int(request(\end if
set rs1=server.createobject(\sql1=\
kuchu
where
huohao='\
cima='\
rs1.open sql1,conn,3,3 if rs1.eof then rs1.addnew
rs1(\rs1(\rs1(\
rs1(\rs1(\
29
and
rs1(\rs1(\
rs1(\rs1(\rs1(\rs1(\rs1(\rs1(\rs1.update
set rs2=server.createobject(\
sql2=\rs2.open sql2,conn,3,3 if rs2.eof then rs2.addnew
rs2(\rs2(\if request(\rs2(\end if
if request(\rs2(\end if
if request(\rs2(\end if
if request(\rs2(\end if
if request(\rs2(\end if
30
