where id like '%'+char(10)+'%'

CHAR 可用於將控制字符插入字符串中。
下表顯示了一些常用的控制字符。
控制鍵  值
Tab： CHAR(9)

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">  
<html>  
<head>  
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">  
<title>打開DIV例子</title>  

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top

<!--右側漂浮廣告開始 -->
<SCRIPT language="javascript">
document.write("<div id=\"piao\" style=\"background-color:#ffffff; padding:2px; border:#282D24 1px dotted; position:absolute;filter: alpha(opacity=80); \">");
document.write("<a href=http://www.dyzhu.net/><img src=http://www.upasp.cn/ad/dyzhu.gif border=0 /></a>");
document.write("<div style=\"background-color:#f6f6f6; width:100px; height:20px; line-height:22px; text-align:center;\"><a onclick=\"javascript:return closepiao();\">關閉</a></div>");

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top

    //// <summary>
    /// 刪除檔案
    /// </summary>
    /// <param name="path">當前檔的路徑</param>
    /// <returns>是否刪除成功</returns>

(繼續閱讀...)

Roger 發表在 痞客邦 留言(1) 人氣()

▲top

<body>
    <form id="form1" runat="server">
    <div>
        <asp:Button id="btnCheck" runat="server" Text="按我" OnClientClick="OneCheck(); return false;"></asp:Button>
        <asp:Label ID="lblMessage" runat="server" ForeColor="Blue"></asp:Label>

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top

格式化欄位 —> 數位 －> 自定義 －> 數位 －> 小數位數(D) －> 編輯公式 :

if Right(ToText({你的報表欄位},4),4) ="0000" then
0
else if Right(ToText({你的報表欄位},4),3) ="000" then
1

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top
因為要計算股票融券、融資及股票的手續費，証交稅
常會有數字需要千位以下無條件捨去的條件
因此到網路上翻找，也終於找到答案了
_______________________
例:
(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top

    ''' <summary>
    ''' 將英數等半形符號，每兩個字元視為一個全形字/長度
    ''' </summary>
    ''' <param name="TheMixedString">混合字串(來源)</param>
    ''' <param name="TheLength">欲取得之字串長度</param>

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top

本文地址：http://qzone.qq.com/blog/101766959-1217965179

/*
*
* 防盜鏈IHttpHandler
*

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top

Public Shared Function MakeSerial(ByVal Head As String) As String
    Dim KK As String
    KK = Format(Now, "yyyyMMddHHmmss")
    Return Head & KK & Format(Now.Millisecond, "000")
End Function

(繼續閱讀...)

Roger 發表在 痞客邦 留言(0) 人氣()

▲top
«1...212223 2425...34