巫妖天下 - LichSky

关于作者:专注于微软平台项目架构、管理和企业解决方案。熟悉各类技术手段、架构设计、开发和项目管理。现主要从事项目开发、架构、管理工作。

asp获取浏览器标识

agent=request.servervariables("http_user_agent")


[CODE_LITE]
股沟
--------------
Mozilla/5.0 (Windows NT 5.2) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7

火狐
--------------------------
Mozilla/5.0 (Windows NT 5.2; rv:12.0) Gecko/20100101 Firefox/12.0
...

ASP伪静态


http://www.xxxx.com/?thread-1-2.html
[CODE_LITE]
url=Request.ServerVariables("QUERY_STRING")

bigID = "" '大类ID
smallID = "" '新闻ID

if instr(url,"thread-")>0 and instr(url,".html")>0 then
url = replace(url,"thread-","")
url = replace(url,".html","")
...

asp查看某文件大小、类型、创建日期

asp查看某文件大小、类型、创建日期

字符处理通用function

字符处理通用function

asp-POST方式传值

asp-POST方式传值

检查文件夹是否存在,不存在则创建

检查文件夹是否存在,不存在则创建

asp-Get方式传值

asp-Get方式传值

asp常用

asp常用

日志记录(文本追加生成)

'日志记录(文本追加生成)
sub writeTxt(str,p)

VB URLEncode

[CODE_LITE]
'url编码
Function URLEncode(strParameter)
Dim s As String
Dim I As Integer
Dim intValue As Integer

Dim TmpData() As Byte

s = ""
TmpData = StrConv(strParameter, vb
分页:[«]1[»]

Powered By Z-Blog 1.8 Walle Build 100427

Copyright 巫妖天下(lichsky@163.com) All Rights Reserved.