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