仓酷云

标题: ASP编程：用asp Print this Page [打印本页]

作者: 分手快乐 时间: 2015-1-16 22:50
标题: ASP编程：用asp Print this Page
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的东子于00-9-3上午01:41:46宣布在：ASP地带

用此援用该程序
<AHREF="/ASPScripts/PrintPage.asp?REF=URL_of_Web_Page">
打印
</A>
PrintPage.asp原程序
<%@Language=VBScript%>
<%OptionExplicit%>
<HTML>
<HEAD>
<TITLE>
4GuysFromRolla.comArticle
</TITLE>
</HEAD>
<BODY>
<CENTER>
<TABLEWIDTH=90%BORDER=2CELLSPACING=1BGCOLOR=WHITE>
<TR><TDALIGN=CENTER>
<FONTSIZE=3>
Thisarticlewasbroughttoyouby4GuysFromRolla.com!
WhenyouthinkASP,think4GuysFromRolla.com! 
http://www.4GuysFromRolla.com

</TD></TR>
</TABLE>
</CENTER>

<%
ConstForReading=1

DimstrReferrer,objFSO,objOpenFile,strLine
strReferrer=Request.QueryString("REF")

IfLen(strReferrer)<1then
strReferrer=Request.ServerVariables("HTTP_REFERER")

IfLen(strReferrer)<1then
Response.Write"Egad!AnErroroccurred!Wecouldnot"&_
"determinewhatpageyouwantedtoviewthesourcefor..."
Response.End
Else
WiththeHTTP_REFERER,theentireURLispassedalong...we
needtohackoutthehttp://www.4guysfromrolla.compart
strReferrer=Right(strReferrer,len(strReferrer)-7)
strReferrer=Right(strReferrer,len(strReferrer)-_
instr(1,strReferrer,"/")+1)
EndIf

EndIf

MakesuretheuserisnttryingtoviewASPsource
IfInStr(1,UCase(strReferrer),"/WEBTECH/")=0OR_
InStr(1,strReferrer,"..")0then
Shameonyou,tryingtoviewapageyourenotsupposeto...
Response.Write"Onlypagesinthe/webtech/"&_
"directorymaybeviewedinprinter-friendlyformat..."
Response.End
EndIf

SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjOpenFile=objFSO.OpenTextFile(Server.MapPath(strReferrer),_
ForReading)

Thereisalineineacharticle,
<%strPageTitle="ArticleNametodisplayinTITLETag"%>
Theresnoneedtospitthisout...
DoUntilobjOpenFile.AtEndOfStream
strLine=objOpenFile.ReadLine
IfInStr(1,strLine,"<%strPageTitle=")=0then
Response.WritestrLine&vbCrLf
EndIf
Loop

objOpenFile.Close
SetobjOpenFile=Nothing
SetobjFSO=Nothing
%>
<HR><CENTER><FONTSIZE=2>
Thisarticlewasbroughttoyouby4GuysFromRolla.com!WhenyouthinkASP,
think4GuysFromRolla.com! 
http://www.4GuysFromRolla.com</CENTER>
</BODY>
</HTML>
好好享用！
我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。

作者: 活着的死人 时间: 2015-1-16 23:23
标题: ASP编程：用asp Print this Page
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 第二个灵魂 时间: 2015-1-20 09:46
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 不帅 时间: 2015-1-29 06:36
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

作者: 愤怒的大鸟 时间: 2015-2-5 23:20
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 再见西城 时间: 2015-2-14 04:36
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 小魔女 时间: 2015-3-4 04:37
以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

作者: 分手快乐 时间: 2015-3-11 16:48
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 爱飞 时间: 2015-3-19 02:22
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作者: 简单生活 时间: 2015-3-27 04:30
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

欢迎光临仓酷云 (http://ckuyun.com/)