【备忘】web.config配置IIS显示详细错误信息

本地测试正常但是上传到空间到500错误这种事。。可参照如下配置,,Bug修复后将Detailed 改为 Custom ,前者意为“详细”,后者意为“自定义”。另外直接在虚拟主机控制面板自定义的404页面状态码可能不是404.

【备忘】ASP数组随机排序

将数组随机排序,或者说输出N个不重复的随机数,

<%
Randomize
Dim m,n,MyArray(10),Temp
For m = 0 to Ubound(MyArray)
    MyArray(m) = m
Next
For n = 0 to Ubound(MyArray)
    RndNum = int(rnd*Ubound(MyArray))
    Temp = MyArray(n)
    MyArray(n) = MyArray(RndNum)
    MyArray(RndNum) = Temp
Next
For n = 0 to Ubound(MyArray)
    Response.Write MyArray(n) & "<br />"
Next

Response.Write "-------------------<br />"
'下边这种可以少写两行

For m = 0 to Ubound(MyArray)
    MyArray(m) = m
Next
For n = 0 to Ubound(MyArray)
    RndNum = int(rnd*(Ubound(MyArray)-n+1)+n)    
    Temp = MyArray(n)
    MyArray(n) = MyArray(RndNum)
    MyArray(RndNum) = Temp
    Response.Write MyArray(n) & "<br />"
Next
%>

【备忘】一些正则表达式

一些正则表达式,MS也就采集文章时会有用。。

INSERT INTO blog_Article ( log_Url, log_CateID, log_AuthorID, log_Level, log_ID, log_Title, log_Intro, log_Content, log_PostTime, log_CommNums, log_ViewNums, log_TrackBackNums, log_IsTop )
SELECT Sd_Info.Htmlname, 1 AS 表达式1, 1 AS 表达式2, 4 AS 表达式3, Sd_Info.ID, Sd_Info.Title, Sd_Info.Content, Sd_Info.Content, Sd_Info.AddDate, 0 AS 表达式4, 0 AS 表达式5, 0 AS 表达式6, 0 AS 表达式7
FROM Sd_Info;

【备忘】ASP正则提取img及src

在ASP中用正则表达式提取img标签及其src属性值,话说代码的话还是加下高亮比较好看。。囧啊囧提供的一个在线工具:http://fayaa.com/code/new/,话说ASP好像没有的。。用了相近的vb.net。。。(╯▽╰)

<%
Function RegImg(TheStr)
    Dim RegEx
    Set RegEx = New RegExp '建立正则表达对象。
    RegEx.IgnoreCase =True ' 是否区分大小写,True为不区分且默认
    RegEx.Global = True '全部匹配还是只匹配第一个
    RegEx.Pattern = "<img[^>]*src\s*=\s*['"&CHR(34)&"]?([\w/\-\:.]*)['"&CHR(34)&"]?[^>]*>" ' 搜索所使用的正则表达式
    If Regex.test(TheStr) then

ASP版QQ登陆/QQ互联SDK源码

2014年8月18日:腾讯微博API 2.0、QQ互联API 2.0、豆瓣API 2.0均已更新。。建议从度盘下载。

百度云:http://pan.baidu.com/s/1pKNrV6r 密码:hqn7