仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 394|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页编程之用ASP举行收集打印功效

[复制链接]
深爱那片海 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:32:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。<%@Language=VBScript%>
<%
OptionExplicit

DimstrSubmitForm顶用来保留提交按钮的值
DimstrPrinterPathForm中保留收集打印机路径的值
DimstrUsernameForm顶用户名的值
DimstrPasswordForm中暗码的值
DimstrMessageForm打印内容的值
DimobjFSVBScript中的文件体系工具
DimobjWSHNetWSH中的收集工具
DimobjPrinter打印工具

strSubmit=Request.Form("Submit")
%>

<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<BODY>

<%
IfstrSubmit=""Then
%>

注重的是:
因为这是演示,个中有关NT的帐号和暗码都是利用了不加密的手腕在ASP中传送的
真实的使用中应当对该登录历程举行平安处置。
<FORMaction="ASPPrint.asp"method=POSTid=formname=form>
<TABLEWIDTH=100%ALIGN=centerBORDER=0CELLSPACING=1CELLPADDING=1>
<TR>
<TDALIGN=rightNOWRAP>收集打印机路径:</TD>
<TDALIGN=leftNOWRAP><INPUTtype="text"id=printerpathname=printerpath
value="<Domain><Printer>"></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP>登录帐号:</TD>
<TDALIGN=leftNOWRAP><INPUTtype="text"id=usernamename=username
value="<%=strUsername%>"></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP>登录口令:</TD>
<TDALIGN=leftNOWRAP><INPUTtype="password"id=password
name=password></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP>请输出你想打印的笔墨:</TD>
<TDALIGN=leftNOWRAP><TEXTAREArows=2cols=20id=message
name=message></TEXTAREA></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP></TD>
<TDALIGN=leftNOWRAP><INPUTtype="submit"value="Submit"
id=submitname=submit></TD>
</TR>
</TABLE>
</FORM>

当以上信息被提交后,就能够依照上面的代码举行打印了。
<%
Else
从form中获得呼应信息。
strPrinterPath=Request.Form("printerpath")
strUsername=Request.Form("username")
strPassword=Request.Form("password")
strMessage=Request.Form("message")

WewillnowusetheVBScriptFileSystemObjectobjectandtheWSHNetworkobject.TheNetworkobjectwill
giveusthemethodsweneedtoopenaprinterconnection,andtheFileSystemObjectwillallowustostreamour
outputtotheprinter.Wecreatetheseobjectsinthefollowingcodeexample:

SetobjFS=CreateObject("Scripting.FileSystemObject")
SetobjWSHNet=CreateObject("WScript.Network")
利用WSH毗连收集打印机
objWSHNet.AddPrinterConnection"LPT1",strPrinterPath,False,strUsername,strPassword
利用文件体系工具将打印设备作为一个文件利用
SetobjPrinter=objFS.CreateTextFile("LPT1:",True)
给打印设备送出文本
objPrinter.Write(strMessage)
封闭打印设备工具并举行毛病圈套处置
OnErrorResumeNext
objPrinter.Close
假如产生毛病,封闭打印毗连,并输入毛病信息
IfErrThen
Response.Write("Error#"&CStr(Err.Number)&""&Err.Description)
Err.Clear
Else
操纵乐成,输入确认信息
Response.Write("<CENTER>")
Response.Write("<TABLEWIDTH=100%ALIGN=centerBORDER=0CELLSPACING=1CELLPADDING=1>")
Response.Write("<TR><TDALIGN=RIGHT><B>打印动静送出:</B></TD>")
Response.Write("<TDALIGN=LEFT>"&strMessage&"</TD></TR>")
Response.Write("<TR><TDALIGN=RIGHT><B>收集打印机路径:</B></TD>")
Response.Write("<TDALIGN=LEFT>"&strPrinterPath&"</TD></TR>")
Response.Write("<TR><TDALIGN=RIGHT><B>登录帐号:</B></TD>")
Response.Write("<TDALIGN=LEFT>"&strUsername&"</TD></TR>")
Response.Write("</TABLE>")
Response.Write("</CENTER>")
EndIf
作废打印毗连
objWSHNet.RemovePrinterConnection"LPT1:"
SetobjWSHNet=Nothing
SetobjFS=Nothing
SetobjPrinter=Nothing
EndIf
%>
</BODY>
</HTML>转自:静态网制造指南www.ckuyun.comASP脚本是采用明文(plaintext)方式来编写的。
柔情似水 该用户已被删除
沙发
发表于 2015-1-19 16:16:38 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
简单生活 该用户已被删除
板凳
发表于 2015-1-24 15:46:31 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
愤怒的大鸟 该用户已被删除
地板
发表于 2015-2-2 06:07:18 | 只看该作者
掌握asp的特性而且一定要知道为什么。
爱飞 该用户已被删除
5#
发表于 2015-2-7 16:59:04 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
深爱那片海 该用户已被删除
6#
 楼主| 发表于 2015-2-22 18:05:36 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
再见西城 该用户已被删除
7#
发表于 2015-3-7 01:37:34 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
老尸 该用户已被删除
8#
发表于 2015-3-21 00:49:44 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 21:46

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表