仿智联招聘实现简历导出功能

if Trim(request("Action"))="daochu" then
导出到excel

dim Num,xlApplication,xlWorksheet
Num=request.form("BoxId").count
if Num=0 then
Response.Write"<script language=JavaScript>"
  Response.Write"alert(""请选择要导出的数据！"");"
  Response.Write"window.history.go(-1);"
  Response.Write"</script>"
Response.End
end if

Set xlApplication = Server.CreateObject("Excel.Application") 调用excel对象
xlApplication.Visible = False 无需打开excel
xlApplication.SheetsInNewWorkbook=Num+1指定excel中表的数量
xlApplication.Workbooks.Add 添加工作簿
for j=1 to Num
Set xlWorksheet = xlApplication.Worksheets(j) 生成第1个工作表的子对象

strSql = "select * from ViewJlTbl where ComId = "& Session("ComId") &" and ViewJlId="&request.form("BoxId")(j)
Set rs =conn.execute(strSql)
Qperson.PersonInfo(rs("PerId"))
while not rs.eof
xlWorksheet.name=j&"、"&Qperson.RealName 指定工作表名称
rs.movenext
wend

指定列的宽度以及对齐方式 1左对齐 2右对齐 3居中
xlApplication.ActiveSheet.Columns(1).ColumnWidth=10
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(2).ColumnWidth=10
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(3).ColumnWidth=20
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3

xlApplication.ActiveSheet.Rows(i).RowHeight = 30行的高度
指定列的高度以及特定列
xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,2)).MergeCells =True 合并列

xlWorksheet.Cells(2,1).Value = "编号"
xlWorksheet.Cells(3,1).Value = "姓名"
xlWorksheet.Cells(4,1).Value = "性别"
xlWorksheet.Cells(5,1).Value = "年龄"
xlWorksheet.Cells(6,1).Value = "籍贯"
xlWorksheet.Cells(7,1).Value = "学历"
xlWorksheet.Cells(8,1).Value = "要求月薪"
xlWorksheet.Cells(9,1).Value = "求职意向"
xlWorksheet.Cells(10,1).Value = "自我评价"
xlWorksheet.Cells(11,1).Value = "专业"
xlWorksheet.Cells(12,1).Value = "目前所在地"
xlWorksheet.Cells(13,1).Value = "联系电话"
xlWorksheet.Cells(14,1).Value = "EMAIL"

xlWorksheet.Range("A1:B1").Borders.LineStyle=1 设置行style

strSql = "select * from ViewJlTbl where ComId = "& Session("ComId") &" and ViewJlId="&request.form("BoxId")(j)
Set rs =conn.execute(strSql)
Qperson.PersonInfo(rs("PerId"))
while not rs.eof

xlWorksheet.Cells(2,2).Value = Qperson.PerId
xlWorksheet.Cells(3,2).Value = Qperson.RealName
xlWorksheet.Cells(4,2).Value = Qperson.Sex
xlWorksheet.Cells(5,2).Value = Qperson.Age
xlWorksheet.Cells(6,2).Value = Qperson.Birthplace
xlWorksheet.Cells(7,2).Value = Qperson.Qualification
xlWorksheet.Cells(8,2).Value = Qperson.Salary
xlWorksheet.Cells(9,2).Value = Qperson.JobPost
xlWorksheet.Cells(10,2).Value = Qperson.pingjia
xlWorksheet.Cells(11,2).Value = Qperson.zhuanye
xlWorksheet.Cells(12,2).Value = Qperson.NowAddr
xlWorksheet.Cells(13,2).Value = Qperson.Tel
xlWorksheet.Cells(14,2).Value = Qperson.Email

xlWorksheet.Range("A1").value=Qperson.RealName
xlWorksheet.Range("A1").font.Size=14字体大小
xlWorksheet.Range("A1").font.bold=true粗体
xlWorksheet.Range("A1").HorizontalAlignment=3水平对齐
xlWorksheet.Range("A1").VerticalAlignment=3垂直对齐
rs.movenext
wend

--------------------------------------------------

Set xlWorksheet = xlApplication.Worksheets(Num+1) 生成第Num+1个工作表的子对象
xlWorksheet.name="汇总表" 指定工作表名称
指定列的宽度以及对齐方式 1左对齐 2右对齐 3居中
xlApplication.ActiveSheet.Columns(1).ColumnWidth=10
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(2).ColumnWidth=10
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(3).ColumnWidth=20
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3

xlApplication.ActiveSheet.Rows(i).RowHeight = 30行的高度
指定列的高度以及特定列
xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,13)).MergeCells =True 合并列
xlWorksheet.Range("A1").value="汇总表"
xlWorksheet.Range("A1").font.Size=14字体大小
xlWorksheet.Range("A1").font.bold=true粗体
xlWorksheet.Range("A1").HorizontalAlignment=3水平对齐
xlWorksheet.Range("A1").VerticalAlignment=3垂直对齐

xlWorksheet.Cells(2,1).Value = "编号"
xlWorksheet.Cells(2,2).Value = "姓名"
xlWorksheet.Cells(2,3).Value = "性别"
xlWorksheet.Cells(2,4).Value = "年龄"
xlWorksheet.Cells(2,5).Value = "籍贯"
xlWorksheet.Cells(2,6).Value = "学历"
xlWorksheet.Cells(2,7).Value = "要求月薪"
xlWorksheet.Cells(2,8).Value = "求职意向"
xlWorksheet.Cells(2,9).Value = "自我评价"
xlWorksheet.Cells(2,10).Value = "专业"
xlWorksheet.Cells(2,11).Value = "目前所在地"
xlWorksheet.Cells(2,12).Value = "联系电话"
xlWorksheet.Cells(2,13).Value = "EMAIL"

xlWorksheet.Range("A1:M1").Borders.LineStyle=1 设置行style

--------------------------------------------------自己可做循环i=i+1（数据库数据）

for m=1 to Num

strSql = "select * from ViewJlTbl where ComId = "& Session("ComId") &" and ViewJlId="&request.form("BoxId")(m)
Set rs =conn.execute(strSql)
Qperson.PersonInfo(rs("PerId"))
while not rs.eof
xlWorksheet.Cells(2+m,1).Value = Qperson.PerId
xlWorksheet.Cells(2+m,2).Value = Qperson.RealName
xlWorksheet.Cells(2+m,3).Value = Qperson.Sex
xlWorksheet.Cells(2+m,4).Value = Qperson.Age
xlWorksheet.Cells(2+m,5).Value = Qperson.Birthplace
xlWorksheet.Cells(2+m,6).Value = Qperson.Qualification
xlWorksheet.Cells(2+m,7).Value = Qperson.Salary
xlWorksheet.Cells(2+m,8).Value = Qperson.JobPost
xlWorksheet.Cells(2+m,9).Value = Qperson.pingjia
xlWorksheet.Cells(2+m,10).Value = Qperson.zhuanye
xlWorksheet.Cells(2+m,11).Value = Qperson.NowAddr
xlWorksheet.Cells(2+m,12).Value = Qperson.Tel
xlWorksheet.Cells(2+m,13).Value = Qperson.Email
rs.movenext
wend

next
dim nowfilename,tfile,fs,f,link
nowfilename=replace(replace(replace(now,":","")," ",""),"/","")
filename=""&nowfilename&".xls"
filename="excel/"& Session("ComId") &".xls"
Set fs = CreateObject("Scripting.FileSystemObject")
tfile=Server.MapPath(filename)
if fs.FileExists(tfile) then
Set f = fs.GetFile(tfile)
f.delete true
Set f = nothing
end if
Set fs = nothing
xlWorksheet.SaveAs tfile 保存文件
xlApplication.Quit 释放对象
Set xlWorksheet = Nothing
Set xlApplication = Nothing

link="<p align=center><A HREF=downfile.asp?fileSpec="&tfile&" title=将数据保存至Eecel表中><font color=red><b>导出excel文件</b></font></a></p>"
Response.write link
end if

仿智联招聘实现简历导出功能相关推荐

仿智联招聘首页html源码,模仿智联职位选择,地区选择Js插件
[实例简介] 模仿智联职位选择,地区选择Js插件,界面需要做简单的修改 [实例截图] [核心代码] jquery-plugin-ExtendedBoxy └── jquery-plugin-Exten ...
仿智联招聘注册页面输入框
原图效果实现效果代码首先来定义需要用到的自定义属性: <declare-styleable name="AnimatorLineEditText"><!-- ...
智联招聘让人非常反感的一个功能：自动委托投递！
最近这几天总是接到很多面试电话,而我已经在上班了,根本就没再投递简历!以前投递简历也更没有投递过这些公司.更别提这些岗位:翻译.文案.策划.美工.公关-- 什么都有一开始还以为是猎头每天乱发我的简历 ...
智联招聘简历如何导出html,如何将拉勾网(智联招聘)的预览简历导出来
最近在整理简历的时候发现拉勾网/智联招聘上面的预览简历是那么简洁漂亮,可是当我想把他导到本地,发pdf文件给企业时却只能是word,那么的难看,摸索了一会儿找到了一种比较好的方法可以得到预览的简历. ...
如何将拉勾网(智联招聘)的预览简历导出来
最近在整理简历的时候发现拉勾网/智联招聘上面的预览简历是那么简洁漂亮,可是当我想把他导到本地,发pdf文件给企业时却只能是word,那么的难看,摸索了一会儿找到了一种比较好的方法可以得到预览的简历. ...
智联招聘自动刷新简历软件
用过智联招聘找工作的都知道,企业HR查看简历库中的简历的时候,是按照简历刷新时间排序的.所以,投递完简历之后,一定要经常刷新自己的简历. 这个软件就是要实现自动刷新简历的功能,需要下载的,请到http ...
通过路径图比较BOSS直聘，智联招聘，拉勾的登录功能
共同点: 1.都针对新用户选择手机接收验证码直接注册登录(手机接收验证码在登录的同时,对新用户来说可以同时具备注册功能,节省时间,最简单的登录注册方式). 2:都抛弃了最老式的密保问题找回密码的方式, ...
网上投简历的潜规则-以智联招聘、前程无忧等为例
现在中国所有招聘网站(以智联招聘.前程无忧.中华英才网等为例)都是以人事经理为中心,因为他们是付费的一方,较少从免费的求职者角度考虑,如果我们从求职者立场或者中立立场来看中国招聘网站的生意模式及运作流 ...
在智联招聘上用scrapy+selenium 进行简历自动投递
智联招聘上用Scrapy+selenium进行自动简历投递所需要的python包智联网页分析登陆分析: 各个重要链接的分析页面处理 scrapy 代码部分讲解创建scrapy 项目入口代码 ...

仿智联招聘实现简历导出功能

仿智联招聘实现简历导出功能相关推荐

最新文章

热门文章