ASP完成301域名重定向代码
分享一例asp实现301域名重定向的代码，使用301域名重定向可以把不带www的顶级域名转向到带www的域名。 代码如下: % –301域名重定向 Dim Server_Name,Path_infostr,Query_Stringstr Path_infostr=lcase(request.ServerVariables(PATH_INFO)) Server_Name=lcas
ASP完成301重定向代码
这篇文章主要为大家详细介绍了ASP实现301重定向代码，具有一定的参考价值，感兴趣的小伙伴们可以参考一下,有需要的朋友可以收藏方便以后借鉴。 ASP程序代码是上世界8090年代比较流行的，目前用得相对少了，但是还是有不少童鞋在使用，很多朋友还不知道如何用A
asp里如何循环输出26个英文字母
%@LANGUAGE=VBSCRIPT CODEPAGE=65001% !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=http://www.w3.org/1999/xhtml head meta http-equiv=Content-Type content=text/h
asp将字符串变数字的函数
常常因为一些小地放的失误导致整个程序瘫痪.今天就遇到了.一个商城系统.因为计算整得我改了N久 在此记下这些数据转换的函数 cstr()转换成字符串 cint()转换成数字 先用isnumberic函数判断 clng()转换为 Long 类型的 Variant 整形转字符形用：cstr()函数 字符
Windows下asp,php运行速度比较
今天比较了一下在Windows下asp,php运行速度，分别用asp,php写了一个程序，功能为：读取MSSQL100条记录，50万次加法(整数运算)和20万次开方(浮点运算)。 Apache+php: 运行时间35ms 运行时间201.4ms 运行时间361.5ms IIS+php: 运行时间1003.8s 运行时间217.4s
ASP上传图片自动生成缩略图处理方案
说明:本功能基于Dreamweaver MX实现 ——- 支持中文 ——- 支持文件改名上传 ——- 支持session模式上传 ——- 支持分类上传 ——- 自动生成缩略图 支持格式 bmp/jpg/gif/png ——- 支持定制生成图片(采样方式/旋转/锐化/文字添加/宽高/输出格式/
asp产生百度的xml代码
% nowtime=nowtimeupdatetimenow()/updatetimevbcrlf hour(now()) minute(now()) second(now()) set rshot=server.CreateObject(adodb.recordset) sql=select * from 表名 order by id asc rshot.open sql,conn,1,1 if not (rshot.eof and rshot.bof) then i=
asp中Request.ServerVariables汇总 各类服务器信息办法
Request.ServerVariables(Url) 返回服务器地址 Request.ServerVariables(Path_Info) 客户端提供的路径信息 Request.ServerVariables(Appl_Physical_Path) 与应用程序元数据库路径相应的物理路径 Request.ServerVariables(Path_Translated) 通过由虚拟至物理的
asp依照指定目录使用fso创建文件夹代码
asp按照指定目录使用fso创建文件夹代码: Sub EFolder(FolderName) Dim FSO Set FSO=Server.CreateObject(Scripting.FileSystemObject) If Fso.folderexists(Server.MapPath(FolderName)) Then Set FSO=Nothing Exit Sub Else FSO.CreateFolder(Server.MapPath
ASP辨别搜索引擎蜘蛛的代码 谷歌 百度 雅虎 搜狐 MSN
ASP识别搜索引擎蜘蛛(谷歌、百度、雅虎、搜狐、MSN)代码如下： % function GetBot() 查询蜘蛛 dim s_agent GetBot= s_agent=Request.ServerVariables(HTTP_USER_AGENT) 关键判断语句 if instr(1,s_agent,googlebot,1) 0 then GetBot=google end if if instr(1