For I As Int32 = 1 To DT.Rows.Count

                 If order_num_right = DT.Rows(I - 1)("Pid") Then

                     Pid_No = I - 1

                 End If

                 #OFCL.Pid = DT.Rows(I - 1)("Pid")

                 #OFCL.GetDataRowAndReturnSelfOrNothing()

                Dim NewT As String = oT.Result

                NewT = NewT.Replace("#Y#", StartY + (I - 1) * LH)

                NewT = NewT.Replace("#序號#", I.ToString)

                NewT = NewT.Replace("#品號#", OFCL.Pid)

                NewT = NewT.Replace("#品名#", OFCL.Product_Name)

                NewT = NewT.Replace("#包裝#", OFCL.Package)

                NewT = NewT.Replace("#單位#", OFCL.UNIT)

                NewT = NewT.Replace("#數量#", OFCL.Qty)

                NewT = NewT.Replace("#箱數#", OFCL.BOX)

                NewT = NewT.Replace("#總數量#", OFCL.Total)

                NewT = NewT.Replace("#未稅價#", OFCL.Price)

                NewT = NewT.Replace("#總金額#", OFCL.Sum)

                Res &= NewT

            Next

Windows 2008 的 SMTP 寄信時若遇到 "Helo command rejected: need fully-qualified hostname" ，可做以下的修改。

The fix is easy:

1. Open IIS
2. View the properties of you Default SMTP Virtual Server
3. Go to the “Delivery” tab
4. Click the “Advanced” button (in the bottom right corner)
5. Under “Fully-qualified domain name” enter a domain name that points to the server
6. Click Ok until you’re back to IIS

DT.Select("Id=" & ProductId) 

'寫入Cache前先設定好

DT.PrimaryKey = New DataColumn() {obj.Columns("Id")} 

Dim row As DataRow = DT.Rows.Find(ProductId)

SELECT

    DB_NAME(dbid) as DBName,

    COUNT(dbid) as NumberOfConnections,

    loginame as LoginName

FROM

    sys.sysprocesses

WHERE

    dbid > 0

GROUP BY

    dbid, loginame

USE [master]

GO

/****** Object: StoredProcedure [dbo].[sp_who3]    Script Date: 06/26/2008 09:40:54 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE PROCEDURE [dbo].[sp_who3]    

(    

@filter tinyint = 1,    

@filterspid int = NULL    

)    

AS    

SET NOCOUNT ON;    

    

DECLARE @processes TABLE    

(    

spid int,    

blocked int,    

databasename varchar(256),    

hostname varchar(256),    

program_name varchar(256),    

loginame varchar(256),    

status varchar(60),    

cmd varchar(128),    

cpu int,    

physical_io int,    

[memusage] int,    

login_time datetime,    

last_batch datetime,    

current_statement_parent xml,

current_statement_sub xml)



INSERT INTO @processes    

SELECT sub.*

FROM

(

SELECT sp.spid,    

sp.blocked,    

sd.name,    

RTRIM(sp.hostname) AS hostname,

RTRIM(sp.[program_name]) AS [program_name],    

RTRIM(sp.loginame) AS loginame,    

RTRIM(sp.status) AS status,    

sp.cmd,    

sp.cpu,    

sp.physical_io,    

sp.memusage,    

sp.login_time,    

sp.last_batch,

(

    SELECT

LTRIM(st.text) AS [text()]

    FOR XML PATH(''), TYPE

) AS parent_text,

(

    SELECT

LTRIM(CASE

WHEN LEN(COALESCE(st.text, '')) = 0 THEN NULL

ELSE SUBSTRING(st.text, (er.statement_start_offset/2)+1,

((CASE er.statement_end_offset

WHEN -1 THEN DATALENGTH(st.text)

ELSE er.statement_end_offset

END - er.statement_start_offset)/2) + 1)

END) AS [text()]

FROM sys.dm_exec_requests er CROSS APPLY sys.dm_exec_sql_text(er.sql_handle) AS st

WHERE er.session_id = sp.spid

    FOR XML PATH(''), TYPE

) AS child_text

FROM sys.sysprocesses sp WITH (NOLOCK) LEFT JOIN sys.sysdatabases sd WITH (NOLOCK) ON sp.dbid = sd.dbid

CROSS APPLY sys.dm_exec_sql_text(sp.sql_handle) AS st

) sub INNER JOIN sys.sysprocesses sp2 ON sub.spid = sp2.spid

ORDER BY

sub.spid



-- if specific spid required    

IF @filterspid IS NOT NULL    

DELETE @processes    

WHERE spid <> @filterspid    

    

-- remove system processes    

IF @filter = 1 OR @filter = 2    

DELETE @processes    

WHERE spid < 51

OR spid = @@SPID

    

-- remove inactive processes    

IF @filter = 2    

DELETE @processes    

WHERE status = 'sleeping'    

AND cmd IN ('AWAITING COMMAND')    

AND blocked = 0    



SELECT spid,    

blocked,    

databasename,    

hostname,    

loginame,    

status,    

current_statement_parent,

current_statement_sub,

cmd,    

cpu,    

physical_io,    

program_name,    

login_time,    

last_batch    

FROM @processes    

ORDER BY spid



RETURN 0; 

DECLARE @Table TABLE(

        spid int,    

        blocked int,    

        databasename varchar(256),    

        hostname varchar(256),    

        loginame varchar(256),    

        status varchar(60),    

        current_statement_parent xml,

        current_statement_sub xml,

        cmd varchar(128),    

        cpu int,    

        physical_io int,    

        program_name varchar(256),    

        login_time datetime,    

        last_batch datetime

)



INSERT INTO @Table EXEC sp_who3



SELECT *

FROM    @Table

WHERE databasename= 'Leon' and cmd = 'AWAITING COMMAND'

and CAST(current_statement_parent AS nvarchar(max)) not LIKE '%AspNet_SqlCachePollingStoredProcedure%'

order by CAST(current_statement_parent AS nvarchar(max))

    void Application_BeginRequest(object sender, EventArgs e)

    {

        UW.WU.BlockHacker();

    }

SELECT TOP 100 execution_count, total_worker_time, last_worker_time, max_worker_time, min_worker_time, CONVERT(INT, att.value) AS dbid, DB_NAME(CONVERT(INT, att.value)) as dbname ,SUBSTRING(st.text, (qs.statement_start_offset/2) + 1,((CASE statement_end_offset WHEN -1 THEN DATALENGTH(st.text)ELSE qs.statement_end_offset END - qs.statement_start_offset)/2) + 1) as statement_text

FROM sys.dm_exec_query_stats as qs 

CROSS APPLY sys.dm_exec_sql_text(qs.sql_handle) as st

CROSS APPLY sys.dm_exec_plan_attributes(qs.plan_handle) att

WHERE att.attribute='dbid' and DB_NAME(CONVERT(INT, att.value)) = 'P9'

ORDER BY execution_count DESC 

SELECT TOP 10 execution_count, total_worker_time, last_worker_time, max_worker_time, min_worker_time, SUBSTRING(st.text, (qs.statement_start_offset/2) + 1,((CASE statement_end_offset WHEN -1 THEN DATALENGTH(st.text)ELSE qs.statement_end_offset END - qs.statement_start_offset)/2) + 1) as statement_text

FROM sys.dm_exec_query_stats as qs CROSS APPLY sys.dm_exec_sql_text(qs.sql_handle) as st

WHERE statement_start_offset = 0

ORDER BY execution_count DESC  

SELECT TOP 10 total_worker_time, last_worker_time, max_worker_time, min_worker_time, SUBSTRING(st.text, (qs.statement_start_offset/2) + 1,((CASE statement_end_offset WHEN -1 THEN DATALENGTH(st.text)ELSE qs.statement_end_offset END - qs.statement_start_offset)/2) + 1) as statement_text

FROM sys.dm_exec_query_stats as qs CROSS APPLY sys.dm_exec_sql_text(qs.sql_handle) as st

ORDER BY max_worker_time DESC 

Dim arrKeys(HT.Count - 1) As String

HT.Keys.CopyTo(arrKeys, 0)