📄 editpersoninfindb.asp
字号:
<%OPTION EXPLICIT%>
<%dim conn,DBpath,oabusyname,oabusyusername,oabusyuserdept,oabusyuserlevel,rs%>
<!--#INCLUDE FILE="upclass.asp"-->
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/bgsub.asp"-->
<!--#include file="opendb.asp"-->
<!--#include file="asp/funct.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,submit,i,sql,height,width
set upfile=new upfile_class ''建立上传对象
upfile.AllowExt="gif;jpg;jpeg;bmp;" '设置上传类型的白名单
upfile.GetData (1024000) '取得上传数据,限制最大上传1M
%>
<%
'-----------------------------------------
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
'--------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<script language="javascript1.2" src="js/openwin.js"></script>
<title><%=session("xxglxxmc")%>智能办公系统</title>
</head>
<body bgcolor="#eeeeee" topmargin="5" leftmargin="5">
<% call bghead() %>
<center>
<table>
<tr>
<td>
<b>编辑<%=oabusyname%>的个人基本档案</b>
</td><form method="post" action="personinf.asp"><td>
<input type="submit" value="返回">
</td>
</table>
</center>
<%
call bgmid()
%>
<%
dim a(33)
for i=1 to 33
a(i)=upfile.form("a"&i)
next
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'---------------------------
'取得发送的数据
'---------------------------
'-------------------
'判断是输入还是修改
'------------------
set rs=server.createobject("ADODB.recordset")
sql = "select * from personinf where username='" & sqlstr(oabusyusername)&"'"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
'---------------
'判断是否是照片
'---------------
%>
<%
'------------
'开始输入
'-----------
set rs=server.createobject("ADODB.recordset")
sql = "select * from personinf"
rs.Open sql,conn,1,3
rs.addnew
rs("username")=oabusyusername
for i=1 to 33
rs("a" & i)=a(i)
next
for each formName in upfile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
if upfile.isAllowExt(oFile.FileExt) then
'if filename<>"" then
rs("havephoto")="yes"
rs("photo")=upfile.FileData(formname)
'end if
%>
<!--include file="uploadtodb.asp"-->
<br><br>
<center><font color=red size=3>成功输入个人基本档案！</font><br><br><form method="post" action="personinf.asp"><input type="submit" value="返回"></form>
</center>
<% else
Response.Write "<center>不允许上传的类型，照片未上传。 <a href='personinf.asp'><font color=red>返回</font></a></center>"
end if
set oFile=nothing
next
set upfile=nothing '删除此对象
rs.update
rs.close
set rs=nothing
set conn=nothing
else
'---------------
'判断是否是照片
'---------------
%>
<%
'------------
'开始修改
'-----------
set rs=server.createobject("ADODB.recordset")
sql = "select * from personinf where username='" & sqlstr(oabusyusername)&"'"
rs.Open sql,conn,1,3
for i=1 to 33
rs("a" & i)=a(i)
next
for each formName in upfile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
if upfile.isAllowExt(oFile.FileExt) then
'if filename<>"" then
rs("havephoto")="yes"
rs("photo")=upfile.FileData(formname)
'end if
%>
<br><br>
<center><font color=red size=3>成功修改个人基本档案！</font><br><form method="post" action="personinf.asp"><input type="submit" value="返回"></form>
</center>
<% else
Response.Write "<center>不允许上传的类型，照片未上传。 <a href='personinf.asp'><font color=red>返回</font></a></center>"
end if
set oFile=nothing
next
set upfile=nothing '删除此对象
rs("updatedate")=now()
rs.update
rs.close
set rs=nothing
set conn=nothing
end if
end if
%>
<%
call bgback()
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -