ASP网页编程之让论坛可运转HTML大概Script源代码

只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天源代码　　简　介
　　这篇器材是我在开辟TOL8.COM会商组的时分学会的，触及的内容对照多，以是不合适低级用户，他的目标就是让论坛能够宣布划定规矩的HTML大概Script原代码到文本框内，用户点击后就可以看到运转效果，这对会商手艺的站点是很有需要的！

　　正　文
　　要看效果请先翻开这个网址http://www.TOL8.com/pages/pages.asp?id=76
　　起首假如你是为使用ASP开辟项目标，你一定会做过一些办理旧事公布体系，大概BBS之类的器材，碰到一些宣布源文件的中央，为了平安我们不能不做一些代码转换。
　　好比：tbStr=Replace(tbStr,"<","<")这就是将tbStr的那些输入后会影响页面的标签交换失落，固然实践的操纵历程比我如今说的要庞大很多了！上面就依照我本人的办法给人人先容明天的内容，了解后就能够使用自若了！
<%
FunctionTOL8HTML(tbStr)
Dimresult,l,CODETXT
ifisNULL(tbStr)then
TOL8HTML=""
exitfunction
endif
l=len(tbStr)
result=""
CODETXT=""
Dimi
Fori=1tol

ifRight(result,6)="

登录/注册后可看大图

以下内容为程序代码"then
result=result
CODETXT=CODETXT+Mid(tbStr,i,1)
ifRight(CODETXT,7)=""then
result=result+CODETXT
endif
else

SelectCasemid(tbstr,i,1)
Case"<"
result=result+"<"
Case">"
result=result+">"
Casechr(13)
result=result+"<br>"
Casechr(34)
result=result+"""
Case"&"
result=result+"&"
Casechr(32)
ifi+1<=landi-1>0then
ifmid(tbStr,i+1,1)=chr(32)ormid(tbStr,i+1,1)=chr(9)ormid(tbStr,i-1,1)=chr(32)ormid(tbStr,i-1,1)=chr(9)then
result=result+""
else
result=result+""
endif
else
result=result+""
endif
casechr(9)
result=result+""
caseelse
result=result+mid(tbStr,i,1)
EndSelect
endif
next
TOL8HTML=result
EndFunction
%>
　　开辟过论坛的伴侣一眼就可以看出下面这段代码是很典范的将HTML标志转换为平安字符的函数，挪用的时分假设变量是strs,办法就是strs=TOL8HTML(strs)
　　只不外我加多了一段白色的代码部分这既是在论坛有挪用源代码标签的提醒后不实行上面的转换！假如你以为过剩能够往失落尝尝，我也就未几说了，随后我们还必要创建一个函数
<%
FunctionTOL8UBB
DimCODE1,CODE2
CODE1="<tablealign=centerwidth=""98%"""&_
"border=0cellpadding=2cellspacing=2><tr>"&_
"<tdclass=blank_2>表格内为可运转程序代码："&_
"</td></tr><tr><td>"&_
"<TEXTAREArows=12cols=80>"
CODE2="</TEXTAREA><BR>"&_
"<INPUTonclick=runCode()type=button"&_
"value=运转代码>"&_
"</td></tr><tr><td></td></tr></table>"
ifInstr(tbStr,"

以下内容为程序代码")>0andInstr(tbStr,"")>0then
tbStr=Replace(tbStr,"

以下内容为程序代码",CODE1)
tbStr=Replace(tbStr,"",CODE2)
endif
endFunction
%>
　　这就是以后台页面数据输入筹办挪用之间源代码的时分我们必要做的一些交换，以上两断代码倡议存储在一个ASP页面内，我们这里把他们保留为TOL8UBB.asp!
　　以上两个都完成了，我们该看看访客们要扫瞄时的页面lookPage.asp怎样计划了，仔细的伴侣会发明第二段代码中再作交换的时分有个按钮加了一个JS函数的挪用举措，而这个函数在那里呢，固然就在这个lookPage.asp页面里了呀！我们先用include来将TOL8UBB.ASP包括出去然后到场上面这段JS
<Script>
functionrunCode()//本段JS来自典范论坛
{
varcode=event.srcElement.parentElement.children[0].value;//即要运转的代码。
varnewwin=window.open(,,);//翻开一个窗口并赋给变量newwin。
newwin.opener=null//避免代码对论谈页面修正
newwin.document.write(code);//向这个翻开的窗口中写进代码code，如许就完成了运转代码功效。
newwin.document.close();
}
</Script>
　　最初在你把数据输入的时分先这里挪用两个已计划好了的函数如
strs=TOL8HTML(strs)
strs=TOL8UBB(strs)
Response.Writestrs
　　就OK了……这器材是经由我重复理论才做出来的，个中仍是有很不睬想的中央，假如妙手们你们能看出来大概间接就办理了，不要健忘和人人分享！缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。

仓酷云

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

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