首页

  <!-- BEGIN Block --> <!-- BEGIN SubBlock --> {SomethingToSay} <!-- END SubBlock --> <!-- END Block -->     dim i,intLastIndex intLastIndex=3 tpl.Setblock "test","SubBlock","varSubBlock" tpl.SetBlock "test","Block","varBlock" For i=0 to intLastIndex tpl.SetVar "varSubBlock","" For j = 0 to intLastIndex tpl.SetVar "SomethingToSay",i&"'s Li===&……

     ASP开发人员为了在他们的设计项目中获得更好的性能和可扩展性而不断努力。幸运地是，有许多书籍和站点在这方面提供了很好的建议。但是这些建议的基础都是从ASP平台工作的结构上所得出的结论，对实际获得的性能的提高没有量的测量。由于这些建议需要更加复杂的编码过程并降低了编码的可读性，开发人员就只能在看不到实际运行效果的情况下，独自衡量为了提高他们ASP应用程序的性能是否值得付出这些代价。 　　本文分为两大部分，我将介绍一些性能测试结果，帮助开发人员来确定某一特定举措是否不仅对将来的项目……

作者：cnbruce　时间： 2004-08-06　文档类型：原创　来自：蓝色理想      版权申明：作者cnbruce，此教程允许任意转载，但请保留版权及内容完整性。欢迎访问论坛：蓝色理想、织梦幻影 ASP2HTML WITH TEMPLAET（2 means to：） 我希望大家看到该标题就能让想象到它的功能： 　　1，WITH TEMPLAET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP采用模板应熟悉下。（当然，不看也没有问题，本教程同样会提及精华部分的：）具体……

网页编码大全 CodePage CharSet 中英文显示名称 代码页(CodePage) 名称(CharSet) 显示名称(中文) 显示名称（英文） Info.CodePage Info.Name(CharSet) Info.DisplayName(cn) Info.DisplayName(en) 37 IBM037 IBM EBCDIC（美国 - 加拿大） IBM EBCDIC (US-Canada) 437 IBM437 ……

  这个函数可以用来转换不同语言的内码,下面的几段是我从类中摘下来的,可能会有小错,没有调试,相信大家要修复也很容易的,这个函数用处多多,可以很好地解决一些多语言的问题. 只要服务器上有安装对应的语言编码文件,即可以轻松转换内码 Codepage(CharSet,语言) 932(shift_jis,日文) 936(gb2312,简体中文) 949(EUC-KR,韩文) 950(Big5,繁体中文) 65001(UTF-8,UCS) '****************************** '名称: Codein '参数:strings(字符串),TCharSet(使用编码) '返回值：转内码后的字符串 '作用:内码转换,需要Adodb.Stream支持 '创……

  <% '参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题,单位) function table2() table2(stat_array,table_left,table_top,all_width,all_height,table_title,unit)        dim bg_color(10),pie(10)        bg_color(1)="#ff1919"        bg_color(2)="#ffff19"        bg_color(3)="#1919ff"        bg_col……

<!--#include file="conn.asp"--><%'连接数据库%> <%   'On Error Resume Next          '容错处理 如果你要是修改的话, 就先将这段注释了吧 Dim City                      '定义一个city变量 'City=Request.Querystring("City") '获取一个city值 City="china"     &n……

<% select case request.servervariables("http_host") case "wkiyo.cn" Server.Execute("index.html") case "code.wkiyo.cn" Server.Execute("ut/index.html") case "font.wkiyo.cn" Server.Execute("utxiazai/index.html") case "moban.wkiyo.cn" Server.Execute("ut30/index.html") case "pages.wkiyo.cn" Server.Execute("ut30xiazai/index.html") case "sucai.wkiyo.cn" Server.E……

制作网站的时候通常会有当访客的一些错误操作或我们网站本身的缺陷，造成某个不存在的页面被访问，这时会出现404错误提示信息，如果是热心的访客可能会给你发一封邮件提示你，当时大部分时候是访客不会给我们发邮件的。用ASP做一个实用的程序，当用户访问出现404错误提示信息的时候系统会自动发一封邮件给我们，这样就不必担心了，制作代码如下： <% @language="vbscript" %> <% Option Explicit %> <%     Dim strPage, strReferer, strMessage     Dim objSMTP  &n……

<%@ CodePage = 65001 %>   <%   '本程序用来批量转换gb2312的文本文档的编码为utf-8   Option Explicit   Dim strFiles,istr,xobjFiles,i   istr=""   Call showFileTree("D:\wwwdir\eWebEditor")   xobjFiles=Split(strFiles,"┣┫")   For i=0 to Ubound(xobjFiles,1)   Dim iext   iext=right(xobjFiles(i),3)   if iext="asp" or iext="htm" or iext=&……