巫妖天下 - LichSky

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

IIS ReWrite

IIS 6,httpd.ini
IIS7/8,web.config

json for asp

[CODE_LITE]
<%



response.Write(enUnicode("呵呵"))
response.Write("
")
response.Write(deUnicode("\u5475\u5475"))






'根据tag获取con的左侧字符串
Function GetLeftPart(Con, tag)
if instr(con,tag)>0 then
GetLeftPart = Left(Con, InStr(Con, tag) - 1)
else
...

asp的utf8页面内定义的中文输出乱码解决方案

[CODE_LITE]
<%@Language="VBScript" CodePage="65001"%>
<%

'--------------------------------------------
'切记 asp中不支持“定义中文”输出
'如 str="中文"
'然后 response.Write(str) 是乱码的,因为vb是Unicode编码,我们网页是utf8编码
'可以这样 response.Write(chinese2unicode(str))
...

asp_base64(UTF8版)

[CODE_LITE]
<%
sourceString = "你好吗"
Response.write("原字符:" & sourceString & "
")

'編碼
'將字串轉為Byte存給strData
strData = StringToBytes(sourceString)
encodeString = Mid(EncodeBase64(strData), 5) '將Byte轉Base64,去除多餘字元 77u/
Response.write("编码后:" & encodeString & "
")
...

ASP随机字符串

[CODE_LITE]
'//随机数字字母生成
Function gen_key(digits)
dim char_array(80)'定义并初始化数组
For i = 0 To 9'初始化数字
char_array(i) = CStr(i)
Next
For i = 10 To 35'初始化大写字母
char_array(i) = Chr(i + 55)
Next
For i = 36 To 61'初始化小写字母
...

asp与jquery的get传递中文做法

asp是 ASCII 不是 utf-8

a.html
----------------------
[CODE_LITE]


$(document).ready(function(e) {

$("#btn1").click(function(){
var stamp = document.getElementById("btn1");
stamp.disabl

asp 复制整个文件夹

[CODE_LITE]
Function CopyMyFolder(FolderName,FolderPath)
sFolder=server.mappath(FolderName) '原文件夹
oFolder=server.mappath(FolderPath) '目标文件夹
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在
...

asp 微信接入

参考文献:
http://www.zhongyaofang.cn/combat_power/weixin_jiaocheng_vol7.html
http://mp.weixin.qq.com/wiki/index.php?title=%E9%A6%96%E9%A1%B5

asp 读取与修改XML

<?xml version="1.0" encoding="gb2312"?>
<stocks date="2013-7-15" time="15:12:23" who="艹尼玛"></stocks>

[CODE_LITE]
<%
'Response.CacheControl = "no-cache"

set xml = Server.CreateObject("MSXML2.domdocument")
xml.load Server.MapPath("system.xml")
...

asp生成UTF-8的HTML页

[CODE_LITE]
'********************************
'fc:文件内容,f:文件路径,cset:文件编码
'********************************
Function WriteFileTo(f,fc,cset)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = cset
.Position = objStream.Size
...
分页:[«]1[2][3][»]

Powered By Z-Blog 1.8 Walle Build 100427

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