{"id":774,"date":"2011-11-18T00:13:32","date_gmt":"2011-11-17T16:13:32","guid":{"rendered":""},"modified":"2014-03-11T22:40:47","modified_gmt":"2014-03-11T14:40:47","slug":"%e7%94%a8asp%e5%88%9b%e5%bb%ba%e7%94%9f%e6%88%90pdf%e6%96%87%e4%bb%b6%e7%9a%84%e4%bb%a3%e7%a0%81","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2011\/11\/18\/774.htm","title":{"rendered":"\u7528ASP\u521b\u5efa(\u751f\u6210)PDF\u6587\u4ef6\u7684\u4ee3\u7801"},"content":{"rendered":"

\u4e0b\u9762\u5373\u662f\u7528ASP<\/font><\/a>\u521b\u5efa(\u751f\u6210)PDF<\/font><\/a>\u6587\u4ef6\u7684\u4ee3\u7801<\/p>\n

<%
\nOption Explicit <\/p>\n

Sub CheckXlDriver()
\nOn Error Resume Next <\/p>\n

Dim vConnString
\nDim oConn, oErr <\/p>\n

‘ try to connect to file NUL:
\nvConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" <\/p>\n

Set oConn = CreateObject("ADODB.Connection")
\noConn.Open vConnString <\/p>\n

For Each oErr in oConn.Errors
\n‘ when the Excel driver reports "Failure creating file",
\n‘ then it must be installed and working ;-))
\nIf oErr.NativeError = -5036 Then
\nExit Sub
\nEnd If
\nNext <\/p>\n

Response.Write "Provider or Driver not available. (Re-)Install MDAC.<\/p>\n

" <\/p>\n

Response.Write hex(Err.Number) & " " & Err.Descrip<\/font><\/a>tion & "
\n"
\nFor Each oErr in oConn.Errors
\nResponse.Write hex(oErr.Number) & " " & oErr.NativeError & " " & oErr.Description & "
\n"
\nNext
\nResponse.End <\/p>\n

End Sub <\/p>\n

Function Get<\/font><\/a>Connection(vConnString)
\nOn Error Resume Next <\/p>\n

Set GetConnection = Server<\/font><\/a>.CreateObject("ADODB.Connection")
\nGetConnection.Open vConnString <\/p>\n

If Err.Number <> 0 Then
\nSet GetConnection = Nothing
\nEnd If <\/p>\n

End Function <\/p>\n

Function OptionTag(vChoice,vTrue)
\nDim vSelect<\/font><\/a>ed <\/p>\n

If vTrue Then
\nvSelected = "selected"
\nEnd If <\/p>\n

OptionTag = "<option " & vSelected & ">" & _
\nServer.Html<\/font><\/a>Encode(vChoice) & "<\/option>" & vbCrLf <\/p>\n

End Function <\/p>\n

Function IsChecked(vTrue)
\nIf vTrue Then
\nIsChecked = "checked"
\nEnd If
\nEnd Function <\/p>\n

Function BookOptions(vXlFile)
\nDim vServerFolder
\nDim oFs, oFolder, oFile <\/p>\n

Dim vSelected <\/p>\n

vServerFolder = Server.MapPath(".") <\/p>\n

Set oFs = Server.CreateObject("Scripting.FileSystemObject")
\nSet oFolder = oFs.GetFolder(vServerFolder) <\/p>\n

For Each oFile in oFolder.Files
\nIf oFile.Type = "Microsoft Excel Worksheet" Then
\nvSelected = (oFile.Name = vXlFile) <\/p>\n

BookOptions = BookOptions & _
\nOptionTag(oFile.Name, vSelected)
\nEnd If
\nNext <\/p>\n

Set oFolder = Nothing
\nSet oFs = Nothing <\/p>\n

End Function <\/p>\n

Function NamedRangeOptions(oConn, vXlRange, vTableType)
\nDim oSchemaRs
\nDim vSelected <\/p>\n

NamedRangeOptions = OptionTag(Empty, Empty) <\/p>\n

If TypeName(oConn) = "Connection" Then
\nSet oSchemaRs = oConn.OpenSchema(adSchemaTables) <\/p>\n

Do While Not oSchemaRs.EOF
\nIf oSchemaRs("TABLE_TYPE") = vTableType Then
\nvSelected = (oSchemaRs("TABLE_NAME") = vXlRange)
\nNamedRangeOptions = NamedRangeOptions & _
\nOptionTag(oSchemaRs("TABLE_NAME"), vSelected) <\/p>\n

End If <\/p>\n

oSchemaRs.MoveNext
\nLoop <\/p>\n

End If
\nEnd Function <\/p>\n

Function DataTable(oConn, vXlRange, vXlHasHeadings)
\nOn Error Resume Next <\/p>\n

‘ from OleDbVbc.inc
\nConst DB_E_ERRORSINCOMMAND = &H80040E14 <\/p>\n

Dim oRs, oField
\nDim vThTag, vThEndTag <\/p>\n

If vXlHasHeadings Then
\nvThTag = "<th>"
\nvThEndTag = "<\/th>"
\nElse
\nvThTag = "<td>"
\nvThEndTag = "<\/td>"
\nEnd If <\/p>\n

DataTable = "<table border=1>" <\/p>\n

If TypeName(oConn) = "Connection" Then
\nSet oRs = oConn.Execute("[" & vXlRange & "]") <\/p>\n

If oConn.Errors.Count > 0 Then
\nFor Each oConnErr in oConn.Errors
\nIf oConnErr.Number = DB_E_ERRORSINCOMMAND Then
\nDataTable = DataTable & _
\n"<tr><td>No such range :<\/td><th>" & vXlRange & "<\/th><\/tr>"
\nElse
\nDataTable = DataTable & _
\n"<tr><td>" & oConnErr.Description & "<\/td><\/tr>"
\nEnd If
\nNext
\nElse
\nDataTable = DataTable & "<tr>" <\/p>\n

For Each oField in oRs.Fields
\nDataTable = DataTable & vThTag & oField.Name & vThEndTag
\nNext <\/p>\n

DataTable = DataTable & "<\/tr>" <\/p>\n

Do While Not oRs.Eof
\nDataTable = DataTable & "<tr>" <\/p>\n

For Each oField in oRs.Fields
\nDataTable = DataTable & "<td>" & oField.Value & "<\/td>"
\nNext <\/p>\n

DataTable = DataTable & "<\/tr>"
\noRs.MoveNext
\nLoop <\/p>\n

End If <\/p>\n

Set oRs = Nothing
\nElse <\/p>\n

DataTable = DataTable & "<tr><td>File locked by another application<\/font><\/a> or otherwise not access<\/font><\/a>ible. Cannot continue.<\/td><\/tr>"
\nEnd If <\/p>\n

DataTable = DataTable & "<\/table>"
\nEnd Function <\/p>\n

\n‘ –main–
\n%>
\n<html>
\n<head>
\n<title>Read Excel<\/title>
\n<SCRIPT LANGUAGE=javascript<\/font><\/a>>
\n<!–
\nfunction XlBook_onchange(theForm) {
\nwith (theForm) {
\nXlSheet.selectedIndex = 0;
\nXlSheet.disabled = true;
\nXlNamedRange.selectedIndex = 0;
\nXlNamedRange.disabled = true;
\nXlTypedRange.value = "A:IV";
\n}
\n} <\/p>\n

function XlSheet_onchange(theForm) {
\nwith (theForm) {
\nXlNamedRange.selectedIndex = 0;
\nXlTypedRange.value = XlSheet.options[XlSheet.selectedIndex].text;
\n}
\n} <\/p>\n

function XlNamedRange_onchange(theForm) {
\nwith (theForm) {
\nXlSheet.selectedIndex = 0;
\nXlTypedRange.value = XlNamedRange.options[XlNamedRange.selectedIndex].text;
\n}
\n} <\/p>\n

function XlTypedRange_onchange(theForm) {
\nwith (theForm) {
\nXlSheet.selectedIndex = 0;
\nXlNamedRange.selectedIndex = 0;
\n}
\n} <\/p>\n

\/\/–>
\n<\/SCRIPT>
\n<\/head>
\n<body>
\n<%
\nDim vXlFile, vXlFilePath
\nDim vXlRange, vXlHasHeadings
\nDim vDisabled <\/p>\n

Dim vConnString
\nDim oConn, oConnErr <\/p>\n

Const adSchemaTables = 20 ‘ from adovbs.inc <\/p>\n

CheckXlDriver ‘ make sure it is working <\/p>\n

vXlFile = Request("XlBook") <\/p>\n

If vXlFile <> Empty Then <\/p>\n

vXlRange = Request("XlTypedRange") <\/p>\n

If vXlRange = Empty Then
\nvXlRange = "A:IV"
\nElse
\nvXlRange = Replace(vXlRange, "!", "$")
\nEnd If <\/p>\n

vXlHasHeadings = Request("XlHasHeadings") <\/p>\n

‘ establish connection
\nvXlFilePath = Server.MapPath(vXlFile)
\nvConnString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _ vXlFilePath <\/p>\n

Set oConn = GetConnection(vConnString) <\/p>\n

Else
\nvDisabled = "disabled"
\nEnd If <\/p>\n

%>
\n<form name=MyForm method="POST<\/font><\/a>" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
\n\u3000<table border="1" width="100%">
\n\u3000\u3000<tr>
\n\u3000\u3000\u3000<th>Workbook :<\/th>
\n\u3000\u3000\u3000<td>
\n\u3000\u3000\u3000<select name="XlBook" LANGUAGE=javascript onchange="return XlBook_onchange(MyForm)">
\n\u3000\u3000\u3000\u3000<%= BookOptions(vXlFile) %>
\n\u3000\u3000\u3000\u3000<\/select><\/td>
\n\u3000\u3000\u3000<td align="center">Worksheet :<\/td>
\n\u3000\u3000\u3000<td><select <%=vDisabled%> name="XlSheet" LANGUAGE=javascript onchange="return XlSheet_onchange(MyForm)">
\n\u3000\u3000\u3000\u3000<%= NamedRangeOptions(oConn, vXlRange, "SYSTEM TABLE") %>
\n\u3000\u3000\u3000\u3000<\/select><\/td>
\n\u3000\u3000<\/tr>
\n<tr>
\n\u3000\u3000\u3000<th>Range :<\/th>
\n\u3000\u3000\u3000<td><input type="text" name="XlTypedRange" LANGUAGE=javascript onchange="return XlTypedRange_onchange(MyForm)"
\n\u3000\u3000\u3000\u3000value ="<%= vXlRange %>"><\/td>
\n\u3000\u3000\u3000<td align="center">Named Range :<\/td>
\n\u3000\u3000\u3000<td><select <%=vDisabled%> name="XlNamedRange" LANGUAGE=javascript onchange="return XlNamedRange_onchange(MyForm)">
\n\u3000\u3000\u3000\u3000<%= NamedRangeOptions(oConn, vXlRange, "TABLE") %>
\n\u3000\u3000\u3000\u3000<\/select><\/td>
\n\u3000\u3000<\/tr>
\n\u3000\u3000<tr>
\n\u3000\u3000\u3000<th>
\n\u3000\u3000\u3000\u3000<p> <\/th>
\n\u3000\u3000\u3000<td colspan="3">
\n\u3000\u3000\u3000\u3000<input type="checkbox" name="XlHasHeadings"
\n\u3000\u3000\u3000\u3000<%= IsChecked(vXlHasHeadings) %>
\n\u3000\u3000\u3000\u3000value="True"> Show first row as column headings<\/td>
\n\u3000\u3000<\/tr>
\n\u3000\u3000<tr>
\n\u3000\u3000\u3000<th>
\n\u3000\u3000\u3000\u3000<p> <\/th>
\n\u3000\u3000\u3000<td colspan=3>
\n\u3000\u3000\u3000\u3000<a href=<%= vXlFile %>><%= vXlFile %><\/a>
\n\u3000\u3000\u3000<\/td>
\n\u3000\u3000<\/tr>
\n\u3000<\/table>
\n\u3000<input type="submit" value="Submit" name="cmdSubmit">\u3000
\n\u3000<input type="reset" value="Reset" name="cmdReset">
\n<\/form><hr>
\n<%
\nIf vXlRange <> Empty Then
\nResponse.Write DataTable(oConn, vXlRange, vXlHasHeadings)
\nEnd If
\n%>
\n<\/body>
\n<\/html><\/p>\n","protected":false},"excerpt":{"rendered":"

\u4e0b\u9762\u5373\u662f\u7528ASP\u521b\u5efa(\u751f\u6210)PDF\u6587\u4ef6\u7684\u4ee3\u7801 <% Option Explicit Sub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr &#…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-774","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/774","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=774"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/774\/revisions"}],"predecessor-version":[{"id":66627,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/774\/revisions\/66627"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=774"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=774"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=774"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=774"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}