MySQL 及 MsSQL 隨機選出資料

MySQL

select * from MyTable order by RAND()

MsSQL

select * from MyTable order by NEWID()

Access

select * from MyTable order by RND(數值型的列名稱)

以 ASP 去除 HTML TAG 的用法 ( 如同 PHP 的 strip_tags )

<%

'====
Function stripTags( strToStrip )
'====
Dim objRegExp

strToStrip = Trim( strToStrip & "" )
If Len( strToStrip ) > 0 Then
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern= "<[^>]+>"
strToStrip = objRegExp.Replace(strToStrip, "")
Set objRegExp = Nothing
End If
stripTags = strToStrip
End Function

str="<p>Test paragraph.</p><!-- Comment --> <a href='#fragment'>Other text</a>"
response.write stripTags( str )

%>

Windows 2003 (IIS6) 中， ASP 上傳、下載限制修正

Windows Server 2003 在ASP上傳、下載都有限制，

若要修改此限制需要由下列步驟來修正

第1步. 先停止 IIS 服務，

第2步. 用文字編輯器開啟 C:\windows\sytem32\inetserv\metabase.xml

第3步. 尋找字串
AspMaxRequestEntityAllowed
將預設的 204800 (200KB) 改成您想要的大小(上傳限制)。

第4步. 尋找字串
AspBufferingLimit
將預設的 4194304 (4MB) 改成您想要的大小(下載限制)。

第5步. 重新啟動 IIS 服務。

第6步. 完成 ASP 上傳、下載限制修正。

Windows 2003 使用cdo寄信

<%
Dim ObjMail
Set ObjMail=Server.CreateObject("CDO.Message")

ObjMail.From="寄信人的email"

ObjMail.To="收信人的email"

ObjMail.Subject="email主旨"

'ObjMail.TextBody="TEXT 郵件內文"

ObjMail.HtmlBody="HTML 郵件內文"

'ObjMail.AddAttachment Server.MapPath("AAA.RAR")
'如果有附件的話就用上面的方法附加進去

ObjMail.Send
'發送

Set ObjMail=Nothing

Response.Write("發送成功。")
%>