如何用ASP输出HTML文件？

以下是小编为大家准备的如何用ASP输出HTML文件？，本文共7篇，供大家参考借鉴，希望可以帮助到有需要的朋友。

篇1：如何用ASP输出HTML文件？

作者： 字体：[增加 减小] 类型：

<%

u_title=request.form(“u_title”)

‘检查标题是否被输入.

if u_title = “” then

%>

<%= request.servervariables(“script_name”) %>“>

文件标题

Font Size

1

2

3

4

5

6

第1段

第2段

<%

end if

%>

<%

if u_title ”“ then

u_title=request.form(”u_title“)

u_paragraph1=request.form(”u_paragraph1“)

u_paragraph2=request.form(”u_paragraph2“)

u_text_color=request.form(”u_text_color“)

u_text_size=request.form(”u_text_size“)

g_filename=replace(u_title,” “,”_“)

‘如果有一个用户输入了标题,则获取所有的用户输入的内容.

set fso = createobject(”scripting.filesystemobject“)

Set act = fso.CreateTextFile(server.mappath(”write2htm/“&g_filename & ”-“& month(date)& day(date())& year(date()) &”.htm“), true)

‘创建create the text (html) file文件到服务器,并添加mmddyyyy格式年月日.

‘写所有用户输入的text (html)文件, .htm扩展名文件可以很容易地转换成你网站最需要的.asp或.inc文件.

act.WriteLine ”“

act.WriteLine chr(13)

act.WriteLine ”“& u_title &”“

act.WriteLine chr(13)

act.WriteLine ”“

act.WriteLine chr(13)

act.WriteLine ”

“

act.WriteLine chr(13)

act.WriteLine u_title &”

“

act.WriteLine chr(13)

act.WriteLine ”

“

act.WriteLine chr(13)

act.WriteLine u_paragraph1 &”

“

act.WriteLine chr(13)

act.WriteLine ”

“

act.WriteLine chr(13)

act.WriteLine u_paragraph2 &”

“

act.WriteLine chr(13)

act.WriteLine ”

“

act.WriteLine ”

“

act.WriteLine ”此文件被创建!“

act.WriteLine now() &”

“

act.Close

‘关闭文件.

%>

您的页面已成功创建!请点击查看.

.htm”

target=“_blank”>查看

<% response.write “”

response.write chr(13)

response.write “”& u_title &“”

response.write chr(13)

response.write “”

response.write chr(13)

response.write “

”

response.write chr(13)

response.write u_title &“

”

response.write chr(13)

response.write “

”

response.write chr(13)

response.write u_paragraph1 &“

”

response.write chr(13)

response.write “

”

response.write chr(13)

response.write u_paragraph2 &“

”

response.write chr(13)

response.write “

”

response.write “

”

response.write “此文件被创建!”

response.write now() &“

”

end if

%>

篇2：将文件格式化并输出

我们是搞运维的，由于要放假了 需要知道磁盘的使用情况，所以将df -h好多服务器的结果输出到一个文件中，再写个c++程序过滤之。df -h 的文件列表格式如下：

10.109.10.1

Filesystem Size Used Avail Use% Mounted on

/dev/sda2 15G 2.4G 12G 18% /

/dev/sda1 99M 12M 82M 13% /boot

tmpfs 32G 0 32G 0% /dev/shm

/dev/sda5 200G 175G 25G 87.5% /opt

10.109.10.2

Filesystem Size Used Avail Use% Mounted on

/dev/sda2 15G 2.4G 12G 18% /

/dev/sda1 99M 12M 82M 13% /boot

tmpfs 32G 0 32G 0% /dev/shm

/dev/sda5 200G 175G 25G 87.5% /opt

10.109.10.3

..........

..............

................

就想把 ip 和 想了解剩余磁盘空间那行输出到文件中，这样看起来一目了然。

cat fileop.cpp

篇3：数据库输出HTML格式报表的测试简介

当需要在数据库中开发输出HTML报表的时候, 我们可以在过程中直接使用htp包来实现html代码和对数据处理后的输出. 并输出为需要的格式(HTML标记语言来控制) . 以下提供一个直接从数据库生成HTML报表的测试例子, 需要根据自己的需要来进行修改或增加.

在使用前需要配置apache的连接, 这样在调用过程的时候, 系统直接将生成的html输出到WEB;

--配置apache连接:

如安装在D:systemhttps下,D:systemhttpsApachemodplsqlconfdads.conf文件. 设置为:

SetHandler pls_handler

Order deny,allow

Allow from all

AllowOverride None

PlsqlDatabaseUsername dinya

PlsqlDatabasePassword dinya

PlsqlDatabaseConnectString dinya:1521:ora10g

PlsqlAuthenticationMode Basic

当然对数据库的连接必须有效, 具体请见相关的设置文档. 重起Apache服务.

--创建测试包:

create or replace package cux_html_report as

function t(p_size in number, p_content in varchar2) return varchar2 ;

type c_sql is ref cursor;

procedure main;

procedure html_header(p_title in varchar2);

procedure html_body(p_sql in varchar2,p_column_count in number,p_subtitle

in varchar2,p_align in varchar2,p_black in varchar2);

procedure html_tail;

procedure table_h(p_width in number,p_border in number,p_align in varchar2);

procedure table_t;

procedure tr_(p_col_count in number,p_column in varchar2,p_align in varchar2,

p_black in varchar2);

procedure tr_h;

procedure tr_t;

procedure td_(p_col_count in number,p_content in varchar2,p_align in varchar2,

p_black in varchar2);

procedure report_header(p_title in varchar2);

procedure report_subtitle(p_col_count in number,p_content in varchar2,p_align

in varchar2,p_black in varchar2);

procedure report_tail(p_content in varchar2);

end ;

/

create or replace package body cux_html_report as

function t(p_size in number, p_content in varchar2) return varchar2 as

i number:=0;

v_out varchar2(300):='';

p_cont varchar2(1000):=p_content;

begin

for ii in 1..p_size loop

select substr(p_cont,0,decode(instr(p_cont,';'),0,length(p_cont),instr(p_cont,';')-1))

into v_out from dual ;

p_cont:=substr(p_cont,instr(p_cont,';')+1);

i:=i+1;

if i=p_size then

return v_out;

end if;

end loop;

end ;

/*******************************************************************************

主程序

需要处理分页的问题

********************************************************************************/

procedure main as

begin

html_header('我的测试报表');

report_header('我的标题');

html_body('select t.owner||'';''||t.object_name||'';''||t.object_id||'';''|

|t.object_type||'';''||t.owner

from all_objects t

where t.owner=''DINYA''

and rownum<=100',5,'序号;对象名称;ID;类型','center','');

report_tail('这里是报表尾');

html_tail;

end;

--页头,固定格式

procedure html_header(p_title in varchar2) as

begin

htp.p('

'||nvl(trim(p_title),'无标题文档')||'

');

end ;

--页体, 根据SQL程序和字段数,展示数据

procedure html_body(p_sql in varchar2,p_column_count in number,p_subtitle

in varchar2,p_align in varchar2,p_black in varchar2) as

i number:=0;

c c_sql;

v_column varchar2(4000);

begin

table_h(90,1,'center');

report_subtitle(p_column_count,p_subtitle,p_align,p_black);

open c for p_sql;

loop

fetch c into v_column;

exit when c%notfound;

i:=i+1;

tr_(p_column_count,v_column,'left','');

end loop;

table_t;

end ;

--页尾, 固定内容

procedure html_tail as

begin

htp.p(' ');

end ;

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

--表头, 表的属性

procedure table_h(p_width in number,p_border in number,p_align in varchar2) as

begin

htp.p('“ align=”'||p_align||'“>');

end ;

--表尾

procedure table_t as

begin

htp.p('');

end ;

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

--表格行

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

procedure tr_(p_col_count in number,p_column in varchar2,p_align in varchar2,

p_black in varchar2) as

begin

htp.p('');

td_(p_col_count,p_column,p_align,p_black);

htp.p('');

end;

procedure tr_h as

begin

htp.p('');

end ;

procedure tr_t as

begin

htp.p('');

end ;

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

--表单元格

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

procedure td_(p_col_count in number,p_content in varchar2,p_align in varchar2,

p_black in varchar2) as

v_cont varchar2(300):=p_content;

v_out varchar2(300):='';

begin

for i in 1..p_col_count loop

select substr(v_cont,0,decode(instr(v_cont,';'),0,length(v_cont),

instr(v_cont,';')-1))

into v_out from dual ;

htp.p(''||substr(p_black,1,3)||v_out|

|substr(p_black,4)||'');

v_cont:=substr(v_cont,instr(v_cont,';')+1);

end loop;

end ;

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

--报表内容部分

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

procedure report_header(p_title in varchar2) as

begin

table_h(90,0,'center');

tr_(1,p_title,'center','');

table_t;

end ;

procedure report_subtitle(p_col_count in number,p_content in varchar2,

p_align in varchar2,p_black in varchar2) as

begin

tr_h;

td_(p_col_count,p_content,p_align,p_black);

tr_t;

end ;

procedure report_tail(p_content in varchar2) as

begin

table_h(90,0,'center');

tr_(1,p_content,'left','');

table_t;

end;

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

end ;

/

SQL> @d:cux_html_report.pck

Package created.

Package body created.

SQL>

编译没有错误后, 使用dinya:7777/ss/cux_html_report.main 即可查看报表.

如果在main过程中使用owa_util.mime_header(ccontent_type => 'application/vnd.ms-excel'); 可以直接将数据生成到Excel中.

如:

procedure main as

begin

owa_util.mime_header(ccontent_type => 'application/vnd.ms-excel');

html_header('我的测试报表');

需要使用的话, 可以根据需要修改上面的程序.

篇4：asp实现读取数据库输出json代码

这篇文章主要介绍了asp实现读取数据库输出json代码的方法的相关资料,需要的朋友可以参考下

代码如下:

Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)

‘Author : nigou

‘使用方法 : Response.Write GetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpage当前页, pagesize每页条数,MiniJson是否输出为miniUI格式)

‘

dim i, j ,rs

if rderSort=”“ Then rderSort=”asc“

if Where=”“ Then Where=”asc“

Set Rs=Server.CreateObject(”adodb.recordset“)

if curpage>1 then

TmpSql=”select a.* from ( select top “ & (curpage) * pagesize & ” * from “ & Table & ” where “ & where & ” order by “ & Order & ” “ & OrderSort & ”) a left join ( select top “ & (curpage-1) * pagesize & ” * from “ & Table & ” where “ & where & ” order by “ & Order & ” “ & OrderSort & ”) b on a.“ & Order & ”=b.“ & Order & ” where iif(b.“ & Order & ”,‘0‘,‘1‘)=‘1‘“

else

TmpSql=”select a.* from ( select top “ & (curpage) * pagesize & ” * from “ & Table & ” where “ & where & ” order by “ & Order & ” “ & OrderSort & ”) a “

end if

if pagesize=0 Then TmpSql = ”select * from “ & Table

Rs.open TmpSql,conn,1,1

RealSize=Rs.recordcount

for i=0 to Rs.recordcount-1

TmpJson= TmpJson & ”{“

for j=0 to Rs.fields.count-1

TmpJson= TmpJson & ”“”“ &(Rs.fields(j).name) & ”“” : “

TmpJson= TmpJson & ”“”“ & Rs(j) & ”“”“

if j

next

TmpJson= TmpJson & ” }“

if i

TmpJson= TmpJson & vbcrlf

rs.movenext

next

Rs.close

if MiniJson=1 Then

CountSql=”select count(“& order &”) from “ & Table & ” where “ & where

Rs.open CountSql,Conn,1,1

Counts=Rs(0)

Rs.Close

GetTable=ToMiniUi(TmpJson,Counts)

Else

GetTable=toJson(TmpJson)

end if

Set Rs=nothing

End Function

function toJson(JsonStr)

toJson=”[“ & vbcrlf & JsonStr & vbcrlf & ”]“

end function

Function ToMiniUi(JsonStr,total)

ToMiniUI=”{“

ToMiniUI=ToMiniUI & ”“”total“”:“” “ & total & ”“”,“ & vbcrlf

ToMiniUI=ToMiniUI & ”“”data“”: [“ & JsonStr

ToMiniUI=ToMiniUI & ”]}“

End Function

PS：最后的参数是针对miniUI开发的,可以无视

以上就是本文的全部内容了，希望大家能够喜欢，

asp实现读取数据库输出json代码

，

篇5：CorelDraw中如何输出打印PostScript文件

问：CorelDraw如何输出打印PostScript文件？

答：用CorelDRAW 把CDR文件打成PostScript文件，不仅提高输出的速度，还可以避免因输出公司没有其中的某些字体而造成的麻烦，因此推荐制作人员自己打好PostScript文件再送去输出公司进行输出。

首先，我们要先安装一种叫Linotronic530的虚拟打印机，用添加打印机的面板添加。添加完，就打开Corel DRAW并打开要打印的CDR文件，按下打印键，在打印面板中选择Linotronic530打印机，并按下旁边的属性键，选择纸张?自定义纸张（如果稿件尺寸长大于457mm而宽小于457mm，请选择“纵向”），自定义纸张的长宽即是原稿（菲林）的尺寸加25mm选择打印机的分辨率2540dpi，

在打印机面板中按下“选项”将预览图下面的左起第1~6的按钮按下，剩最后两个。

并在预览图旁边的“选项”页面点选，将网频设为175lpi（原稿若有大面积渐变的情况下可选256-lpi,得到更高的输出质量），跟着按下面的“PostScript首选项”，将“使用PostScript第二级特性”选上回到刚才的上一步，按下“分色”页面，将“打印分色”项、“总是加印黑色”项选上（在原稿中凡是小于100%k的灰都要加1%的CMYK）。

搞定以上的设置，按下确定按钮，CorelDRAW 就会弹出对话框叫你输入要创建的PostScript文件的名字，写上名字就开始创建了，所用时间和文件的大小有关。

篇6：WPS 一键轻松输出PDF文件

金山办公软件近期发布的WPS Office 2012办公软件秉承了WPS一贯轻巧灵快、安装便捷的特点，深度兼容微软Office，其采用的Windows 7风格的新界面，赋予用户焕然一新的视觉享受，另外，WPS Office 2012还提供10大文档创作工具，具备100项深度功能改进，其中的一键输出PDF文件功能，深受广大用户欢迎。下面就带大家一起看看输出PDF文件的具体操作。

一、输出PDF

PDF全称Portable Document Format，译为可移植文档格式，其最大优点就是与跨系统平台使用，也就是说使用PDF无论在哪种打印机或者显示器上都可保证精确的颜色和准确的打印或显示效果与你输入时的效果相同。其次，PDF的制作可以进行加密、权限设置，文档的保密性较其他格式有所提高。因此在工作、学研中PDF的使用率非常高，尤其在外企和高新技术企业，PDF成为文档交换与传送的首选格式。

新版WPS文本编辑完毕后点击菜单栏左上角的“WPS文字” 选项后出现的下拉栏选择“输出为PDF格式...” 则出现如图1所示的对话框，通过浏览或输入指定的文件保存位置，按下确定按钮，即可导出，若导出成功，会出现图2所示的“导出完成”提示，如果选择打开文件，即可观看PDF格式文档，若果不需要可选择关闭。（提示：请确保所在电脑安装有PDF阅读器，如Adobe Reader）

图1

图2

二、PDF高级选项

如果要详细设置PDF，可以在输出前点击“高级（M）” 按钮，则会出现如图3所示的详细对话框，如想关闭高级设置，则点击“常规（L）”按钮。

图3

1、“批注(C)”、“超链接(H)”、“脚注和尾注链接(N)”选项主要与批注信息相关，特别是学术性文献，如论文、专著撰写中经常使用。根据需要，有时需要导出批注、脚注信息则在高级选项中打钩，如果不需要导出则取消勾选。

2、书签是PDF文档快速跳跃到相关信息的辅助功能，特别在长文档中使用十分普遍，

新版WPS设置了三种方式导出书签，即标题样式、其他样式、自定义样式，其中标题样式转换最为简单，但是需要注意的是在文档撰写中需要对文档中“标题”文字的格式设置为标题1或标题2、标题3。如果不在PDF导出中设置书签，则需要使用Adobe acrobat等专业软件进行设置。

三、权限设置

勾选“权限设置(E)”，即可对PDF文档的阅读权限进行调整。

第一步，设置密码，只有设置了密码之后的权限设置才能生效，否则使用者可以轻易更改权限。设置密码后再在”确认(F)“一栏中重复输入密码，并妥善保存。

图4

第二步，设置基本权限，即“允许更改(D)”（如果取消勾选，使用者只能阅读，不能更改文档）、“允许复制(D)”（如果取消勾选，使用者只能阅读，不能复制文档中的文字与图像。但是使用者仍能通过文字识别类软件进行识别）、“允许添加批注(A)”（如果取消勾选，使用者将不能在PDF阅读器中进行批注）。

第三步，设置打印权限(R)，如图5所示，可以有三种设置“不允许打印”、“低质量打印”、“不受限打印”。“不允许打印”与“不受限打印”非常好理解，“低质量打印”主要是指文档中的图片打印分辨率将调低，会影响打印效果，即所谓的图不清楚。

图5

第四部，设置文件打开密码，可以设置，也可以不设置。如果设置打开密码，请注意“文件打开密码”不能与”权限设置密码“相同，如果相同则无法导出。如果“文件打开密码设置”成功,再打开该PDF文档时，将如图6所示，需要输入口令，如不能输入准确口令，则无法打开该PDF文档。

在具体使用中，特别是企业、学校等公共网络，如使用者既希望分享，又同时只想特定人群可以阅读。可以先将加密的PDF文档上传至公共FTP区，然后通过Email、手机短信的形式通知特定人群文件打开密码与存放位置，即可方便、快捷又保密的分享文件。

图6

篇7：linux遍历查找html后缀文件linux操作系统

在linux中遍历目录中指定文件名的文件方法很简单，但是我要遍历所有的以html结束的文件名，下面我来介绍两办法，

方法一，shell命令

常见的有：Bourne Shell（/usr/bin/sh或/bin/sh）、Bourne Again Shell（/bin/bash）、C Shell（/usr/bin/csh）、K Shell（/usr/bin/ksh）、Shell for Root（/sbin/sh），等等。不同的Shell语言的语法有所不同，所以不能交换使用。每种Shell都有其特色之处，基本上，掌握其中任何一种就足够了

cd 到你的根目录

find ./ -type f -name '*.html' -print0 |xargs -0 echo

方法二

function ergodic(){

for file in ` ls $1 `

do

if [ -d $1”/“$file ]; then

ergodic $1”/“$file

else

local path=$1”/“$file

if [ ${file##*.} = html ]; then

echo $path

fi

fi

done

}

INIT_PATH=”文件

夹"

ergodic $INIT_PATH

★html学习总结

★用假的材料文件应付检查

★用C函数获取文件的长度

★asp网页开发个人简历

★为WPS中的文件用密码加密

★GPS 接收信号输出信息

★文件管理制度

★党委文件

★文件范本

★规范文件

《如何用ASP输出HTML文件？（推荐7篇）.doc》

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档

文档为doc格式