Sam 的天馬行空不務正業亂想誌

'無條件進位的function
'd=取到小數第幾位

Function xRound(ByVal x As Decimal, Optional ByVal d As Integer = 0) As Decimal
Return CInt(x * 10 ^ d + 0.5 * Math.Sign(x)) / 10 ^ d
End Function


效能監視器計數器需求 (錯誤)
訊息
效能監視器計數器登錄值的 System Configuration Check 失敗。如需詳細資料，請參閱讀我檔案或《SQL Server 線上叢書》中的＜如何: 在 SQL Server 2005 中遞增安裝程式的計數器登錄機碼＞(How to: Increment the Counter Registry Key for Setup in SQL Server 2005)


AC_FL_RunContent('codebase', 'http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0', 'width', '955', 'height', '600', 'src', 'default', 'quality', 'high', 'pluginspage', 'http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash', 'movie', 'default', 'wmode', 'Opaque'); //end AC code

param name="wmode" value="Opaque"

加上紅色字體的部分就可以讓div層,浮在flash上面了～～

.net檢查檔案是否存在的方式


If System.IO.File.Exists(Server.MapPath("~/user_defaultdata/1/user_pic.jpg")) = False Then
img_src = "img/peo.gif" '預設圖
Else
img_src = "user_defaultdata/1/user_pic.jpg"
End If


在.vb裡先將文字作編碼

HttpUtility.UrlEncodeUnicode("天馬行空不務正業")

--如下

天馬行空不務正業 = %u5929%u99ac%u884c%u7a7a%u4e0d%u52d9%u6b63%u696d

在前端的時候可以用javascript的unescape函數去解碼

alert(unescape('%u5929%u99ac%u884c%u7a7a%u4e0d%u52d9%u6b63%u696d'))

這是利用javascript get方式來抓網址列上面的參數


function getQry(key)
{
var search=location.search.slice(1);//得到get方式提交的查詢字串
var my_id=search.split("&");
for(var i=0;i<my_id.length;i++)
{
var ar=my_id[i].split("=");
if(ar[0]==key)
{
return ar[1];
}
}
}



javascript confirm 按取消就不執行postback,按確定才執行.net的postback



Public Overloads Function GetConfirmScript(ByVal Message As String) As String
Dim sMessage As String
Dim sScript As String

sMessage = ParserMessage(Message)
sScript = String.Format("if (confirm('{0}')==false) {{return false;}}", sMessage)
Return sScript
End Function

Private Function ParserMessage(ByVal Message As String) As String
Dim sMessage As String

sMessage = Strings.Replace(Message, "'", "\'") '處理單引號
sMessage = Strings.Replace(sMessage, vbNewLine, "\n") '處理換行
Return sMessage
End Function