asp网站中提供简历下载是如何实现的？

liujian098 2008-06-30 02:47:31

如何实现提供下载简历？
总不能每个简历都生成一个文件啊？

谢谢！

...全文

217 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

dearcaoxie 2011-05-28

打赏
举报

怎么解决的，给我弄弄吧！我也不会！

liujian098 2008-07-02

打赏
举报

顶

liujian098 2008-07-02

打赏
举报

已经找到解决办法，谢谢！

码峰_码而思 2008-07-02

打赏
举报

自己多努力吧

kong282828 2008-07-01

打赏
举报

试一下能不能以附件的形式下载呢？

www.mvpcar.cnmvp汽车资讯网

xiaominjun 2008-06-30

打赏
举报

我要分。。代码可行的。。模板自己做方法是先做好word模板存为 html 把要改的数据用替换函数替换就好了

okc 里的就是模板内容。。我的这个不全。。发不了那多文字

<% Response.ContentType = "application/msword" %>
<%
okc="<html xmlns:v=""urn:schemas-microsoft-com:vml"""
okc=okc&"</html>"

ok=okc
Sub ReadFile(path)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFolder(Server.MapPath(path))
Set objFC = objF.Files
for each obj in objFC
ReadFile=obj.Name&","
next
set objFC = nothing
set objF = nothing
set objFSO = nothing
End Sub

Sub CreateWord(filename,content)
Dim fso, MyFile
'创建FSO对象，有些服务器有可能不支持这个对象，那就没戏了
Set fso = CreateObject("Scripting.FileSystemObject")
'生成新文件文件放在当前目录的word/下,当前测试时必须有这个目录
Set MyFile = fso.CreateTextFile(filename, True)
MyFile.WriteLine(content)
MyFile.Close '关闭文件
Set fso = Nothing
End Sub

server.ScriptTimeout=5201314 '脚本超时时间

' text_xm=ReadFile(".")
' text_xm=split(text_xm,",")
text_xm="aaa.txt" '访问的文件名称

filename=text_xm
size_xm=300 '每个文件读取行数
qianz_xm="" '生成的文件名称前缀

sFilePath = "Word\" '文件生成的路劲
' sFilePath = "" '文件生成的路劲-----当前文档

j=1 'seze_xm*(j-1)+1 行开始读

'''''''读取整个文件并按换行或回车分组。标示为一行'''''''开始'''''''''''

set fso = server.CreateObject("scripting.filesystemobject")
if not fso.fileExists(server.mappath(filename)) then response.End()
set f = fso.opentextfile(server.mappath(filename),1)
if not f.AtEndofStream then
tempcnt = f.readall
else
response.End()
end if
f.close
set f = nothing

temparray = split(tempcnt,chr(13)&chr(10))
'''''''读取整个文件并按换行或回车分组。标示为一行'''''''结束'''''''''''

Do While trim(temparray((j-1)*size_xm))<>""
sFileName = Server.Mappath(sFilePath &qianz_xm&j&".doc")
okc=""
okcc=""
for i=(j-1)*size_xm+1 to (j)*size_xm
'okc=trim(FSOlinedit(text_xm,i))
if lineNum>ubound(temparray)+1 then

else
if i-1<ubound(temparray) then
okc = temparray(i-1)
else
pd=1
exit for

end if
end if

okcc=okcc&okc&" "
if okc="" then
exit for
end if
next
' sWordContent = okcc

sWordContent=replace(ok,"{输出}",okcc)
if pd=1 then
sWordContent=sWordContent&" "&temparray(ubound(temparray))
end if
Call CreateWord(sFileName,sWordContent)
j=j+1
if pd=1 then
exit do
end if
Loop
response.Write("操作完成")
%>

liujian098 2008-06-30