modify.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<% option explicit %>
<!-- #include virtual="/admin/store/_ccwlib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	功能：用户管理--修改用户
'	@Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Dim sql,rs,i
Dim username , pwd , realname , address , zip , company , tel , mobile ,email
Dim employee , costcenter , leader_email
Dim usr_confirm , usr_valid , nokia_flag , usr_internal
Dim uid  '---管理员ID
Dim id

call DB_Connect(strconn)

'---验证身份----
uid=session("admID")

'--取得用户id对应的信息--
id=getForm("id")
if not isnumeric(id) then id=0
sql="select * from userinfo where usr_id=" & id
set rs=oConn.execute(sql)
if not rs.eof then 
	username     = rs("usr_name")
	pwd          = rs("usr_pwd")
	realname     = rs("usr_realname")
	address      = rs("usr_address")
	zip          = rs("usr_zip")
	company      = rs("usr_company")
	tel          = rs("usr_tel")
	mobile       = rs("usr_mobile")
	email        = rs("usr_email")
	employee     = rs("usr_employeeno")
	costcenter   = rs("usr_costcenter")
	leader_email = rs("usr_manageremail")
	usr_confirm  = rs("usr_ispass")
	usr_valid    = rs("usr_isvalid")
end if
rs.close
set rs=nothing

call DB_DisConnect
%>