Kinh nghiệm lập trình

Tìm kiếm với hàm instr trong ASP

Trong lập trình ASP với cơ sở dữ liệu để tìm kiếm, ta đã quen với việc dùng câu lệnh Like để tìm kiếm. Hôm nay tôi trình bày một kinh nghiệm sử dụng hàm instr có sẵn trong ASP để hỗ trợ việc tìm kiếm.

Xem xét hàm tim_kiem sau

function tim_kiem(noi_dung, chuoi_tim,dieu_kien)

dim keywords,keycnt,kq_1,kq_2,kq,kq_tam

rem đầu tiên đưa các từ cần tìm vào 1 mảng

keywords = split(chuoi_tim," ")

rem đếm số từ cần tìm

keycnt = ubound(keywords)

rem gán các giá trị mặc định cho các biến

kq_1=0

kq_2=0

kq=0

kq_1=instr(1,noi_dung,chuoi_tim,vbTextCompare)

kq_tam=0

For Each word in keywords

kq_2 = instr(1,noi_dung,word,vbTextCompare)

if kq_2>0 then kq_tam=kq_tam+1 end if

next

select case dieu_kien

rem nếu điều kiện là “tìm chính xác cụm từ” thì kết quả chính là kq_1

case "phrase":kq=kq_1

rem nếu điều kiện là “tìm tất cả từ” thì nếu kết quả tạm lớn hơn số từ +1 là đúng

case "and":if kq_tam>=keycnt + 1 then kq=1 else kq=0 end if

rem nếu điều kiện là “tìm ít nhất một từ” thì nếu kết quả tạm lớn hơn 1 là đúng

case "or":if kq_tam>=1 then kq=1 else kq=0 end if

end select

tim_kiem=kq

end function

Giải thích

Hàm Instr(số_bắt_đầu_tìm, nội_dung,chuỗi_tìm,tùy_chọn) sẽ trả về số thứ tự tìm thấy chuỗi_tìm trong nội_dung.

Do đó, trong hàm tìm kiếm, đầu tiên ta tách các từ cần tìm vào một mảng tên là keywords. Sau đó kq_1 sẽ là tìm nguyên chuỗi trong nội dung, nếu xuất hiện chuỗi này trong nội dung, kq_1 sẽ lớn hơn 1. Do đó, với điều kiện “tìm chính xác cụm từ”, ta chỉ đơn giản dùng ngay kq_1.

Với điều kiện “Tìm ít nhất một từ”, ta thấy kq_2 được tăng lên sau từng vòng lặp bằng với số từ tìm kiếm. Do đó chỉ cần kq_2 lớn hơn 1 thì kết quả tìm kiếm sẽ là đúng.

Với điều kiện “tìm tất cả các từ” thì kq_2 ít nhất phải bằng số từ cần tìm, do đó với điều kiện kq_2>=keycnt+1 thì cho kết quả đúng.

Phạm vi ứng dụng

Với một số đặc thù công việc tìm kiếm, đôi khi ta cần tìm một lúc trên nhiều trường trong cơ sở dữ liệu, việc sử dụng mệnh đề hoặc (OR) và mệnh đề và (AND) kết hợp với câu lệnh Like trong cơ sở dữ liệu sẽ làm cho hệ thống chạy chậm và câu lệnh phức tạp. Việc đưa một phần công việc tìm kiếm cho ASP xử lý sẽ giúp cơ sở dữ liệu chạy nhanh hơn và kết quả tìm kiếm sẽ tốt hơn.

Đổi owner của các bảng trong SQLServer

Với câu lệnh này, bạn sẽ có một danh sách tất cả các bảng cần đổi chủ sở hữu về sa

SELECT 'EXEC(''sp_changeobjectowner @objname = ''''' 
+ ltrim(u.name) + '.' + ltrim(s.name) 
+ '''''' 
+ ', @newowner = dbo'')' 
FROM 
sysobjects s, 
sysusers u 
WHERE 
s.uid = u.uid 
AND u.name <> 'dbo' 
AND xtype in ('V', 'P', 'U') 
AND u.name not like 'INFORMATION%' 
order by 
s.name

How to Use Windows XP: Setting Up a Network Printer

Preparation

In order to install a network printer, you must know your printer's Manufacturer, Model Name, and IP Address.

The Manufacturer and Model Name can be found on the printer case, an example is HP LaserJet 4000N .
The IP Address can be found on a label attached to the printer. An example of the IP Address is 141.161.888.999.

If your printer does not have a label indicating the IP Address, or you can't identify what model it is, please call your Help Desk.

Setting Up a Network Printer

1. Click on the Start button, then click Control Panel, then click Printers and Faxes, then click Add Printer.

2. A new Add Printer Wizard window opens. Click Next to start.

3. Select Local printer attached to this computer. Make sure Automatically detect and install my Plug and Play printer is NOT checked.

4. Then click Next to continue.

5. We will create a new port for your network printer. Select Create a new port.

6. Beside Type of Port, click on the down arrow, then click on Standard TCP/IP Port.

7. Click Next to continue.

8. A new Add Printer Port Wizard will open. Click Next to continue.

9. You must now type your printer's IP Address in the Printer Name or IP Address field.

10. The Port Name will automatically be filled when you enter the IP Address. Do not change the Port Name.

11. Click Next to continue.

12. IF YOU HAVE PROBLEMS, then you will see the screen on the right. This means that the IP Address for the printer is NOT available on the network. Select the Back button and make sure you entered the correct IP Address. Check to see that your network printer is powered on and displays a 'ready' status.

13. IF YOU DID NOT HAVE PROBLEMS, Windows XP will scan the network to find your printer's IP Address. This may take a few seconds. Select Finish to continue.

14. You must now select the printer's manufacturer and model. Windows XP will automatically select the detected manufacturer and printer driver. Normally, you will not have to change this selection.

15. OPTIONAL: If your printer is listed but you have more than one printer model to choose from, please select the model with PS, if available.

16. IF your network printer is NOT automatically detected, select the Windows Update button to find the proper software drivers.

Note: If your printer is not automatically recognized using Windows Update, please call your Help Desk.

17. You will be prompted to confirm the selected printer driver. Make sure Keep existing driver is selected, then click Next to continue.

18. You will be prompted to assign the printer a Name. You can use the default name, or add more info to indicate the printer location, such as My Office, Hallway, Foyer, Room 222, etc.

19. Select Yes if you want to use the printer as the default printer. Click Next to continue.

20. You will be prompted to share the network printer. Do NOT share the network printer.

21. Click Next to continue.

22. You will be prompted to print a test page. Select Yes, then click Next.

23. Check your network printer to make sure your page printed. Select Yes when prompted to confirm a successful test page.

24. Click on the Finish button to complete the Add Printer Wizard.

Congratulations! If your test page printed, you have successfully installed the network printer.

Install Network Printer on Windows XP

Windows XP

To install a network printer first click on Start -> Printers and Faxes
Click on Add a Printer located on the left toolbar in the window that appears.
At the Welcome To Add Printer Wizard screen click Next.
At the next window make sure A Network Printer… is selected then click
Next.
In the window you can either type in the printer name or you can browse
for the printer. It is recommended that you browse for the printer so make sure
Find a printer in the directory is selected then click Next.
Make sure Entire Directory is selected then click Find Now.
Double-click on desired printer.
The next window is where you can choose your newly created
printer to be your default printer. Select Yes or No then click Next.
You are now finished adding a network printer. Click Finish and you are ready to
start printing your documents.

Windows 2000

To install a network printer first click on Start -> Settings -> Printers
From the Printers Explorer window that appears, double-click the Add Printer icon at the top of the list.
The Add Printer Wizard dialog window appears, choose Next.
At the next window make sure Network Printer is selected then click
Next.
Select the first option from the list that appears, which is "Find a printer in the Directory". Then choose Next.
In the window you can either type in the printer name or you can browse
for the printer. It is recommended that you browse for the printer so make sure
Entire Directory is selected then click Find Now.
Double-click on desired printer.
The next window is where you can choose your newly created
printer to be your default printer. Select Yes or No then click Next.
You are now finished adding a network printer. Click Finish and you are ready to
start printing your documents.

Password Generator

Public Function PasswordGenerator(ByVal lngLength As Long) As String

On Error GoTo Err_Proc

Dim iChr As Integer
Dim c As Long
Dim strResult As String
Dim iAsc As String

Randomize Timer

For c = 1 To lngLength

   ' Randomly decide what set of ASCII chars we will use
   iAsc = Int(3 * Rnd + 1)

    'Randomly pick a char from the random set
   Select Case iAsc
     Case 1
       iChr = Int((Asc("Z") - Asc("A") + 1) * Rnd + Asc("A"))
     Case 2
       iChr = Int((Asc("z") - Asc("a") + 1) * Rnd + Asc("a"))
     Case 3
       iChr = Int((Asc("9") - Asc("0") + 1) * Rnd + Asc("0"))
     Case Else
       Err.Raise 20000, , "PasswordGenerator has a problem."
   End Select

   strResult = strResult & Chr(iChr)

Next c

PasswordGenerator = strResult

End function

Checking valid email function

Function RegExpTest(sEmail)

RegExpTest = false

Dim regEx, retVal

Set regEx = New RegExp

' Create regular expression:

regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"

' Set pattern:

regEx.IgnoreCase = true

' Set case sensitivity.

retVal = regEx.Test(sEmail)

' Execute the search test.

If not retVal Then

exit function

End If

RegExpTest = true

End Function

Using:

blnValidEmail2 = RegExpTest(MasterUser)

if not blnValidEmail2 then

err_no=err_no+1

err_str=err_str & "<li>Please enter the correct email"

end if

How do I get the IDENTITY / AUTONUMBER

SQL Server

PRINT IDENT_CURRENT('table')

PRINT SCOPE_IDENTITY()

CREATE PROCEDURE myProc
@param1 INT
AS
BEGIN
SET NOCOUNT ON
INSERT INTO someTable
(
intColumn
)
VALUES
(
@param1
)
SELECT NEWID = SCOPE_IDENTITY()
END

<%
fakeValue = 5
set conn = CreateObject("ADODB.Connection")
conn.open "<conn string>"
set rs = conn.execute("EXEC myProc @param1=" & fakeValue)
response.write "New ID was " & rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
%>

SELECT NEWID = SCOPE_IDENTITY()

SELECT NEWID = @@IDENTITY

CREATE TRIGGER triggerInsert_tablename ON tablename FOR INSERT AS
BEGIN
SELECT @@IDENTITY
-- rest of trigger's logic...
END
GO

CREATE TABLE Table1
(
i INTEGER IDENTITY(1,1) PRIMARY KEY,
x INTEGER NOT NULL UNIQUE
)
GO

CREATE TRIGGER trg_Table1 ON Table1
INSTEAD OF INSERT
AS
BEGIN
SET NOCOUNT ON
INSERT INTO Table1 (x)
SELECT x FROM Inserted
END
GO

INSERT INTO Table1 (x) VALUES (1)
GO

SELECT SCOPE_IDENTITY(), IDENT_CURRENT('Table1')

------ ------
NULL 1

Access

KB #232144

Article #2126

<%
fakeValue = 5
set conn = CreateObject("ADODB.Connection")
conn.open "<conn string>"
sql = "INSERT someTable(IntColumn) values(" & fakeValue & ")" & _
VBCrLf & " SELECT @@IDENTITY"
set rs = conn.execute(sql)
response.write "New ID was " & rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
%>

<%
fakeValue = 5
set conn = CreateObject("ADODB.Connection")
conn.open "<conn string>"
conn.execute "INSERT someTable(IntColumn) values(" & fakeValue & ")"
set rs = conn.execute("select MAX(ID) from someTable")
response.write "New ID was " & rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
%>

Article #2182

<%
fakeValue = 5
set conn = CreateObject("ADODB.Connection")
conn.open "<conn string>"
set rs = CreateObject("ADODB.Recordset")
rs.open "SELECT [intColumn] from someTable where 1=0", conn, 1, 3
rs.AddNew
rs("intColumn") = fakeValue
rs.update
response.write "New ID was " & rs("id")
rs.close: set rs = nothing
conn.close: set conn = nothing
%>

Sử dụng Subquery trong Store Procedure

CREATE procedure search_candidates(@candidate_list varchar(1000))
as
declare @sql varchar(1000)
set @sql='select * from candidates where candidate_id in ('+ @candidate_list +')'
execute(@sql)
GO

Many-to-many selections query

Table: candidate_skills
candidate_id (PKey)
skill_id (PKey)

Table: skills
skill_id (PKey)

Table: job_skill_required
job_id(PKey)
skill_id(PKey)

select candidate_id
from candidate_skills
where skill_id
    in ( select skill_id
           from job_skill_required
          where job_id = 937 )
group
    by candidate_id
having count(*)
     = ( select count(*)
           from job_skill_required
          where job_id = 937 )

Để không mất email trong outlook khi cài đặt lại máy

Hàng ngày bạn dùng email bằng Outlook Express đi kèm theo máy và một hôm bạn cài đặt lại máy tính, thế là toàn bộ email đã không cánh mà bay. Thật đáng sợ phải không, vài thủ thuật nhỏ sau đây sẽ giúp bạn làm chủ tình hình này.

Outlook Express đi kèm theo MS Windows lưu email trong thư mục mặc định là

\Documents and Settings\<UserName>\Local Settings\Application Data\Identities\{64A1561A-9785-42DF-BFEA-B8E5642D05D6}\Microsoft\Outlook Express

Và Microsoft Outlook lưu trong \Documents and Settings\<UserName>\Local Settings\Application Data\Microsoft\Outlook

Do đó khi cài lại máy, nhất là khi phải format lại mà quên không copy file trong thư mục này thì rất dễ mất hết email. Để đơn giản vấn đề thì chỉ cần đổi đường dẫn đến thư mục cá nhân là xong.

Với Outlook Express, các bạn sẽ tìm thấy chỗ thay đổi đường dẫn: Menu Tools->Options->Maintenace->

Ví dụ: tạo thư mục Email trong ổ đĩa cá nhân, sau đó chọn và bấm Ok, thế là các mail sẽ được lưu ở chỗ mới, trong trường hợp email đã có sẵn, thì copy các file email cũ vào thư mục mới là xong.

Chú ý quan trọng: với các hộp mail đã có sẵn, khi copy vào thư mục mới, phải bỏ thuộc tính readonly đi thì Outlook Express mới đọc được.

Với Microsoft Outlook thì vào Menu Tools->Options->Mail setup->Data Files

Chỉ cần chuyển file ra thư mục khác rồi Add vào lại là xong

Bằng việc để email và các dữ liệu cá nhân vào một ổ đĩa khác, thế là bạn có thể yên tâm hơn khỏi lo ngay ngáy chuyện mất email nữa

How to decrease the Size of the Transaction Log in SQL Server 2000

Overview

Every Microsoft SQL Server 2000 database has a transaction log that records all transactions and the database modifications made by each transaction. This record of transactions and their modifications supports three operations:

Recovery of individual transactions
Recovery of all incomplete transactions when SQL Server is started
Rolling a restored database forward to the point of failure

If log records were never deleted from the transaction log, the logical log would grow until it filled all the available space on the disks holding the physical log files. At some point in time, old log records no longer necessary for recovering or restoring a database must be deleted to make way for new log records.

SQL Server 2000 has to options to decrease the size of the Transaction Log:

1. Log truncation does not reduce the size of a physical log file, it reduces the size of the logical log and marks as inactive the virtual logs that do not hold any part of the logical log.

2. Log shrinking removes enough inactive virtual logs to reduce the log file to the requested size.

Example

Here is an example how boths steps can be performed:

Database is in FULL Recovery Mode

# For this example we switch to FULL Mode
USE master
ALTER DATABASE Curia SET RECOVERY FULL;
GO
The command(s) completed successfully.

# Add logical Devices for the Backup (The directories must exist!)
EXEC sp_addumpdevice 'disk', 'curia_dat',
'C:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\curia_dat.dat'
GO
(1 row(s) affected)
'Disk' device added.

EXEC sp_addumpdevice 'disk', 'curia_log',
'C:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\curia_log.dat'
GO
(1 row(s) affected)
'Disk' device added.

# Create a Backup before Truncating / Shrinking
BACKUP DATABASE Curia TO curia_dat
GO
Processed 26392 pages for database 'Curia', file 'MigrationBasisplus_Data' on file 9.
Processed 1 pages for database 'Curia', file 'MigrationBasisplus_Log' on file 9.
BACKUP DATABASE successfully processed 26393 pages in 9.756 seconds (22.161 MB/sec).

BACKUP LOG Curia TO curia_log
GO
Processed 1 pages for database 'Curia', file 'MigrationBasisplus_Log' on file 5.
BACKUP LOG successfully processed 1 pages in 0.065 seconds (0.039 MB/sec).

# Truncate the Transaction Log
BACKUP LOG Curia WITH TRUNCATE_ONLY
GO
The command(s) completed successfully.

# Drop logical Devices
sp_dropdevice 'curia_dat'
GO
Device dropped.

sp_dropdevice 'curia_log'
GO
Device dropped.

# Get the Name of the Transaction Log
USE curia
SELECT name FROM dbo.sysfiles
GO

# Shrink the physical Size of the Transaction Log to 20MB
USE curia
DBCC SHRINKFILE (MigrationBasisplus_Log, 20)
GO

Database is in SIMPLE Recovery Mode

# For this example we switch to SIMPLE Mode
USE master
ALTER DATABASE Curia SET RECOVERY SIMPLE;
GO
The command(s) completed successfully.

# Add logical Device for the Backup (The directories must exist!)
EXEC sp_addumpdevice 'disk', 'curia_dat',
'C:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\curia_dat.dat'
GO
(1 row(s) affected)
'Disk' device added.

# Create a Backup before Truncating / Shrinking
BACKUP DATABASE Curia TO curia_dat
GO
Processed 26392 pages for database 'Curia', file 'MigrationBasisplus_Data' on file 9.
Processed 1 pages for database 'Curia', file 'MigrationBasisplus_Log' on file 9.
BACKUP DATABASE successfully processed 26393 pages in 9.756 seconds (22.161 MB/sec).

# Truncate the Transaction Log
BACKUP LOG Curia WITH TRUNCATE_ONLY
GO
The command(s) completed successfully.

# Drop logical Device
sp_dropdevice 'curia_dat'
GO
Device dropped.

# Get the Name of the Transaction Log
USE curia
SELECT name FROM dbo.sysfiles
GO
The command(s) completed successfully.

# Shrink the physical Size of the Transaction Log to 20MB
USE curia
DBCC SHRINKFILE (MigrationBasisplus_Log, 20)
GO

More Information

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tsqlref/ts_dbcc_8b51.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/architec/8_ar_da2_876t.asp

Download Source Code HPBlog

Chào các bạn, như các bạn đã biết website huyphong.com sử dụng mã nguồn từ phần mềm HPBlog(Do chính Huy Phong phát triển và đã được cấp giấy chứng nhận bản quyền số 502/2006/QTG do Cục bản quyền tác giả cấp ngày 17/3/2006). Cách đây vài bữa, có một bạn hỏi xin phần mềm này. Và từ hôm nay các bạn có thể download miễn phí phần mềm này để có thể phát triển những web cá nhân cho riêng mình.

Xin cảm ơn các bạn đã quan tâm và ủng hộ Huy Phong trong thời gian qua.

Huy Phong

PS. Nếu các bạn phát triển website mà chưa có chỗ hosting thì đừng ngại liên lạc với Huy Phong để có 1 gói hosting phù hợp với mức giá từ $1/tháng nhé.

IIS 7

cscript %systemdrive%\inetpub\adminiscripts\adsutil.vbs set w3svc/AspScriptErrorSentToBrowser true

Vista

Những kinh nghiệm khi sử dụng Windows Vista (Sưu tầm)

You'll like this.

On your Windows Vista machine, launch a command prompt as administrator. Navigate to the windows\system32 folder and type:

ribbons.scr /p65552

Enjoy

Dave

From here