asp 导出excel并插入图片

puamac

于 2024-06-03 17:40:43 发布

阅读量411

点赞数 4

分类专栏： asp 文章标签： excel javascript html

本文链接：https://blog.csdn.net/lizhihua0625/article/details/139420808

版权

asp 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

<%Response.Charset = "GB2312"%>

<!--#include virtual="/inc/common.asp" -->
<%
'返回指定字符之间的内容
Function getStrBetween(Str,StartStr,EndStr)  
	StartStrPos = Instr(Str, StartStr)+Len(StartStr) -1
	EndStrPos = Instr(Str,EndStr)  	
	Length = EndStrPos+1  - StartStrPos
	Res= Mid(Str,StartStrPos,Length)  
	getStrBetween = Res

End Function 

%>
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>导出EXCEL</title>
</head>

<body>
<% 

urlname=Request.ServerVariables("QUERY_STRING")
	oldurl="http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("Url")
if urlname<>"" then
oldurl=oldurl+"?" +urlname
end if

' 从url中获取版本ID
versionIDa=request.QueryString("versionID")
if session("versionID")="" or versionIDa<>"" then
	session("versionID")=versionIDa
end if
versionID = session("versionID")
	
DiagramID=request.QueryString("DiagramID")


' For Each key In Request.QueryString  
'     Response.Write(key &"==========="&  Request.QueryString(key))
'     Response.Write("<br>")
'     if Request.QueryString(key) <> "" or key <> "action"  then
'         val= Request.QueryString(key)
'     end if
' Next

' For Each key In Request.Form  
'     Response.Write(key &"==========="&  URLDecode(Request.Form(key)))
'     Response.Write("<br>")
'     if Request.Form(key) <> "" then
'         val= Request.Form(key)
'         if key = "state" or key = "Description" or key = "sStatus" or key = "sDescription" then
'             val = DecodeUnicode(val)
'             val = replace(val,"%20"," ")
'             ' Response.Write(key &"==========="&  val&"<br>")
'         end if
'     end if
' Next


table = URLDecode(Request.Form("table"))
thead = URLDecode(Request.Form("thead"))
tbody = URLDecode(Request.Form("tbody"))
fileName = URLDecode(Request.Form("fileName"))
activeName = URLDecode(Request.Form("activeName"))
DiagramID = URLDecode(Request.Form("DiagramID"))
DiagramGUID = URLDecode(Request.Form("DiagramGUID"))
versionID = URLDecode(Request.Form("versionID"))
' Response.Write("table" &"==========="&  table&"<br>")
' Response.Write("thead" &"==========="&  thead&"<br>")
' Response.Write("fileName" &"==========="&  fileName&"<br>")
' Response.Write("activeName" &"==========="&  activeName&"<br>")

' Response.end

daytime=year(now())&month(now())&day(now())&hour(now())&Minute(now())&second(now())

fileName = fileName & "_" & daytime & ".xls"
CName = "/upfile/files/excel/" & fileName


' Dim filename, fs, myfile, i
' Dim htmlContent, strLine

' Set fs = Server.CreateObject("Scripting.FileSystemObject")

' filename = Server.MapPath(CName)

' If fs.FileExists(filename) Then
'     fs.DeleteFile(filename)
' End If

' Set myfile = fs.CreateTextFile(filename, True)

' ' 设置 HTML 表格样式模板
' Dim thStyle
' thStyle = "background-color: #FEFF01; font-weight: bold;width:120px;height:30px;"
' tdStyle = "height:30px;"

' strLine = ""
' ' strLine = strLine & "<!DOCTYPE html>"
' ' strLine = strLine & "<html>"
' ' strLine = strLine & "<head>"
' ' strLine = strLine & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
' ' strLine = strLine & "<title>导出EXCEL</title>"
' ' strLine = strLine & "</head>"
' strLine = strLine & "<table border='1'>"

' ' 将表头写入 Excel
' strLine = strLine & "<tr>"
' for i = 0 to UBound(Split(thead, ","))
'     strLine = strLine & "<th style='" & thStyle & "'>" & Split(thead, ",")(i) & "</th>"
' next
' strLine = strLine & "</tr>"

' strLine = strLine & tbody
' strLine = strLine & "</table>"
' ' strLine = strLine & "<body>"
' ' strLine = strLine & "</body>"
' ' strLine = strLine & "</html>"

' myfile.WriteLine strLine

' myfile.Close

' Set fs = Nothing
' Set myfile = Nothing

' imagesPathActivity = "/versions/EADiagram/images/" & versionID &"/" & DiagramGUID & ".png"
' Response.Write "http://"&request.ServerVariables("HTTP_HOST") & imagesPathActivity
' response.End()

Dim thStyle
thStyle = "background-color: #FEFF01; font-weight: bold;width:120px;height:30px;"
tdStyle = "height:30px;"

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=" & fileName & ""

Response.Write "<html xmlns:o='urn:schemas-microsoft-com:office:office' xmlns:x='urn:schemas-microsoft-com:office:excel' xmlns='http://www.w3.org/TR/REC-html40'>"
Response.Write "<head>"
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<xml>"
Response.Write "<x:ExcelWorkbook>"
Response.Write "<x:ExcelWorksheets>"
Response.Write "<x:ExcelWorksheet>"
Response.Write "<x:Name>Sheet1</x:Name>"
Response.Write "<x:WorksheetOptions>"
Response.Write "<x:Print>"
Response.Write "<x:ValidPrinterInfo/>"
Response.Write "</x:Print>"
Response.Write "</x:WorksheetOptions>"
Response.Write "</x:ExcelWorksheet>"
Response.Write "</x:ExcelWorksheets>"
Response.Write "</x:ExcelWorkbook>"
Response.Write "</xml>"
Response.Write "</head>"
Response.Write "<body>"
Response.Write "<table border='1'>"
Response.Write "<tr>"
for i = 0 to UBound(Split(thead, ","))
	Response.Write "<th style='" & thStyle & "'>" & Split(thead, ",")(i) & "</th>"
next
'  插入图片
Response.Write "<th>"
Response.Write "</th>"
Response.Write "<th>"
if DiagramGUID <> "" and versionID <> "" then
	imagesPathActivity = "/versions/EADiagram/images/" & versionID &"/" & DiagramGUID & ".png"
	fileImg = Server.MapPath(imagesPathActivity)
	Set fsImg = Server.CreateObject("Scripting.FileSystemObject")
	If fsImg.FileExists(fileImg) Then
		Response.Write "<img src='" & "http://"&request.ServerVariables("HTTP_HOST") & imagesPathActivity & "' width='auto' height='auto'>"
	End If
	Set fsImg = Nothing
end if	
Response.Write "</th>"

Response.Write "</tr>"
Response.Write tbody

Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"



' response.Write("{""code"":0,""data"":""" & CName & """,""msg"":""success""}")
' response.End()

%>
</body>
</html>