c_kehu.asp

人事管理系统。。。 包括了所有的基本功能

<% if Trim(Request.QueryString("chuli"))="addfile" then chulizhuru="no" %>
<!--#include file="fun/conn.asp" --><!--#include file="fun/UpFile_Class.asp" --><!--#include file="fun/nntup.asp" -->
<% call userok()
webchuli=cnshu(Trim(Request.QueryString("chuli")),20,1,"处理类型",2)
select case webchuli

'///////////////////////////////////////////////////////////////
case "addkehu"
k_lei=cnshu(Trim(Request.Form("k_lei")),1,1,"客户类型",1)
k_gname=cnshu(Trim(Request.Form("k_gname")),50,2,"客户公司名称",2)
k_bname=cnshu(Trim(Request.Form("k_bname")),50,0,"备注名称",2)
k_lname=cnshu(Trim(Request.Form("k_lname")),50,2,"联系人名称",2)
k_dianhua=cnshu(Trim(Request.Form("k_dianhua")),200,2,"联系电话",2)
k_dizhi=cnshu(Trim(Request.Form("k_dizhi")),200,2,"联系地址",2)
k_youbian=cnshu(Trim(Request.Form("k_youbian")),8,0,"邮编",2)
k_email=cnshu(Trim(Request.Form("k_email")),50,2,"EMAIL",2)

editid=Trim(Request.QueryString("editid"))
k_bei=cnshu(Trim(Request.Form("content")),9000,2,"详细介绍",2)

set rs= Server.CreateObject("adodb.recordset")
if editid<>"" then
rs.open ("select * from nnt_kehu where k_id="&editid&" "),conn,3,3
if rs.eof then call cnerror("没有查询到符合的客户信息，无法修改。",0)
else
rs.open ("select * from nnt_kehu "),conn,3,3
rs.addnew
rs("k_user")=sessname
rs("k_zuid")=sesszhiwei
end if
rs("k_gname")=k_gname
rs("k_bname")=k_bname
rs("k_lei")=k_lei
rs("k_lname")=k_lname
rs("k_dianhua")=k_dianhua
rs("k_dizhi")=k_dizhi&"/邮编："&k_youbian
rs("k_email")=k_email
rs("k_bei")=k_bei
rs.update
rs.close
set rs=nothing
call cnerror("客户信息添加完毕，返回查看状态！",1)

'////////////////////////////////////////
'删除客户
'///////////////////////////////////////////
case "delkehu"
delid=cnshu(Trim(Request.QueryString("delid")),9,1,"客户ID",1)
conn.execute("delete from nnt_kehu where k_id="&delid&"")
call cnerror("删除客户完毕！","x_kehu.asp?chuli=kehulist")
'/////////////////////////////////////////////////////////////
'     U盘处理
'/////////////////////////////////////////////////////////////

case "addupan"
upname=cnshu(Trim(Request.Form("upname")),15,1,"U盘名称",2)
uquanxian=cnshu(Trim(Request.Form("uquanxian")),1,1,"浏览权限",1)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_bname='"&sessname&"'"),conn,3,3
if rs.eof then call cnerror("没有查询到您的身份，请返回刷新。",1)
if instr(rs("u_upan"),"||"&upname&"||")>0 then call cnerror("此名称目录已经存在，不能重复！",1)
rs("u_upan")=rs("u_upan")&"||"&upname&"||"&uquanxian&"[|@@|]"
rs.update
set rs=nothing
call cnerror("您的U盘目录成功添加！","x_upan.asp?ulei="&sessname&"")

'/////////////////////////////////
case "addfile"
Server.ScriptTimeOut=1000000
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile
set upfile=new upfile_class
upfile.GetData (10240000)

p_name=cnshu(upfile.form("p_name"),50,1,"文件名称",2)
p_jie=cnshu(upfile.form("p_jie"),255,0,"文件简介",2)
p_lei=cnshu(upfile.form("p_lei_text"),50,1,"文件目录",2)

set oFile=upfile.file("fileupan")
'文件信息列表----------
FileSize=ofile.FileSize			'文件大小			'文件名
FileExt=LCase(ofile.FileExt)
FileName="upan/"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)		'小写后缀名
FileType=ofile.FileType			'文件类型
if  FileSize>1 then 
if FileSize > 51200000 then call cnerror("文件大小超过规定的标准，禁止上传！",0)
'if split(FileType,"/")(0)<>"image" then call cnerror("商品图片只允许上传图像格式的文件",0)
oFile.SaveToFile Server.mappath(FileName&"."&FileExt)
else
call cnerror("对不起，您的文件无法上传，请更换文件。",1)
end if
set oFile=nothing
if p_jie="" then p_jie="文件大小："&FileSize/1024&"K"
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_upan where  p_user='"&sessname&"' and p_name='"&p_name&"' "),conn,3,3
if not rs.eof then p_name=p_name&"(重名)"
rs.addnew
rs("p_name")=p_name
rs("p_path")=FileName
rs("p_ext")=FileExt
rs("p_jie")=p_jie
rs("p_lei")=p_lei
rs("p_user")=sessname
rs.update
set rs=nothing
call cnerror("您的U盘文件上传成功！","x_upan.asp?ulei="&sessname&"&mulu="&p_lei&"")

'///////////////////////////////////////////////////////////
case "delfile" 
delid=cnshu(Trim(Request.QueryString("delid")),8,1,"删除文件ID",1)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_upan where p_user='"&sessname&"' and p_id="&delid&""),conn,3,3
if rs.eof then call cnerror("没有查询到您发布的此文件，请返回重新操作。",1)
mulu=rs("p_lei")
p_path=rs("p_path")
p_ext=rs("p_ext")

rs.close
set rs=nothing
call delfile(p_path&"."&p_ext)

conn.execute("delete from nnt_upan where p_user='"&sessname&"' and p_id="&delid&"")

call cnerror("文件删除完毕！确认后返回。","x_upan.asp?ulei="&sessname&"&mulu="&mulu&"")

'////////////////////////////////////////////////
case "delmulu"
delid=cnshu(Trim(Request.QueryString("delid")),50,1,"删除目录名",2)
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_upan where p_user='"&sessname&"' and p_lei='"&delid&"'"),conn,3,3
if not rs.eof then call cnerror("无法删除此目录，目录中还有文件，请先清空文件。",1)
rs.close
rs.open ("select * from nnt_user where u_bname='"&sessname&"' and u_upan like '%||"&delid&"||%'"),conn,3,3
if rs.eof then call cnerror("没有查询到您有此目录，无法操作。",1)
u_upanlei=split(rs("u_upan"),"[|@@|]")
for up=0 to ubound(u_upanlei)
if u_upanlei(up)<>"" and instr(u_upanlei(up),"||"&delid&"||")<1 then
u_upan=u_upan&u_upanlei(up)&"[|@@|]"
end if
next

rs("u_upan")=u_upan
rs.update
rs.close
set rs=nothing
call cnerror("目录删除完毕！确认后返回。","x_upan.asp?ulei="&sessname&"")

'///////////////////////////////////////////////
'修改目录
case "editupan"
upname=cnshu(Trim(Request.Form("upname")),15,1,"U盘名称",2)
uquanxian=cnshu(Trim(Request.Form("uquanxian")),1,1,"浏览权限",1)
upname1=cnshu(Trim(Request.QueryString("upname1")),15,1,"U盘名称",2)
uquanxian1=cnshu(Trim(Request.QueryString("uquanxian1")),1,1,"浏览权限",1)
'Response.Write("||"&upname1&"||"&uquanxian1&"[|@@|]")

set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_user where u_bname='"&sessname&"'"),conn,3,3
if rs.eof then call cnerror("对不起，没有查询到您的目录，请返回重新操作。",1)
if instr(rs("u_upan"),"||"&upname1&"||"&uquanxian1&"[|@@|]")<1 then call cnerror("您没有此目录，无法修改！",1)

rs("u_upan")=replace(rs("u_upan"),"||"&upname1&"||"&uquanxian1&"[|@@|]","||"&upname&"||"&uquanxian&"[|@@|]")
rs.update
rs.close
conn.execute("update nnt_upan set p_lei='"&upname&"' where p_user='"&sessname&"' and p_lei='"&upname1&"'")
set rs=nothing
call cnerror("目录修改完毕!",1)

'//////////////////////////////////////////
'
case "editfile"
editid=cnshu(Trim(Request.QueryString("editid")),9,1,"文件ID",1)
p_lei=cnshu(Trim(Request.Form("p_lei2_text")),15,1,"文件所属目录",2)
p_name=cnshu(Trim(Request.Form("p_name2")),15,1,"文件名称",2)
p_jie=cnshu(Trim(Request.Form("p_jie2")),250,1,"文件介绍",2)

set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_upan where p_user='"&sessname&"' and p_id="&editid&""),conn,3,3
if rs.eof then call cnerror("对不起，没有查询到符合的文件，无法修改！",1)
rs("p_name")=p_name
rs("p_lei")=p_lei
rs("p_jie")=p_jie
rs.update
rs.close
set rs=nothing
call cnerror("修改文件完毕！","x_upan.asp?chuli=look&ulei="&sessname&"&pid="&editid&"")

'////////////////////////////////
'
case "yanzhengto"
kname=Trim(Request.QueryString("kname"))

if kname<>"" then 
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_kehu where k_gname like '%"&kname&"%'"),conn,1,1
if not rs.eof then
klist="有符合客户，您可选择或继续输入"
for xl=1 to int(rs.recordcount)
klist=klist&"<A href=# class=selectsize onclick=xuanze("""&rs("k_gname")&""","&rs("k_id")&")>"&rs("k_gname")&" "&rs("k_bname")&"</a>"
rs.movenext
next

Response.Write("document.all('kehulist').innerHTML='"&KLIST&"';")
else
Response.Write("document.all('kehulist').innerHTML='无包含 "&kname&" 的客户，<br>请重新输入，或 <a href=""x_kehu.asp?chuli=addkehu""  target=""_blank"">创建客户</a>';document.all('y_kehuid').value='';")
end if

rs.close
set rs=nothing
end if %>
function xuanze(kgname,kid){
document.all('y_kehu').value=kgname;
document.all('y_kehuid').value=kid;
}
<%

end select
call connclose()
 %>