ÎÒÐèÒªÓÃVBÁ¬½ÓOracle²¢ÏÂÔØblo£â×ֶΣ¬
ÎÒÓÃÒÔÏÂÁ¬½Ó·½Ê½£¬³ÌÐòʼÖÕ²»ÄÜʶ±ð£â£ì£ï£â×ֶΣ¬
connStr = "Provider=msdaora;Persist Security Info=False;User ID=" & _
uid & ";Password=" & pwd & ";Data ......
Çë½Ì¸ßÊÖ£ºÔÚasp.netÒ³ÃæÖУ¬½«ÏÂÃæµÄvbÓï¾äת»¯Îªc#´úÂë¡£
<%
if request("id")="0" then response.write "ÇëÌîдÍêÕû£¡"
if request("id")="1" then response.write "Óû§Ãû»òÃÜÂë´íÎó£¡"
if request("id")="3 ......
ÕâÊÇÒ»¸öʱ³£ÄÜÓõ½µÄ·½·¨,½â¸ßÊÖ½â´ð,×îºÃ¸½ÉÏÔ´Âë,лл!!
'¼ÙÉèÓÐÒ»¸ö×Ö¶Î,¶àÁÐ×ֶεÄÇé¿öÕÕÕßÐ޸ļ´¿É
MDB_ZD = InputBox("ÇëÊäÈëÊý¾Ý¿âÖÐÓû´æºÅÂëµÄ×Ö¶ÎÃû")
'¼ÙÉèÎı¾ÎļþÓÐÒ»ÁÐÊý¾Ý,Ñ»·È¡µÃ´æÈëÊý×é JGHaoMa(i)
'Ö´ÐÐÏÂÃæµÄ¹ý³Ì,ÒªÒýÓÃado
Sub Xr_ACCESS() 'дÈëÊý¾Ý¿â
& ......
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err. ......
Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathfromIDList Lib "Shell32" Alias "SHGetPathfromIDListA" (ByVal pidl As Long ......
ÏëÓÃvb6×öÈí¼þ, µ«ÊǾÝ˵vbµÄ³ÌÐòÊÇÒÀÀµÔËÐпâºÍocx¿Ø¼þµÄ, ÊDz»ÊÇwindows2000ÒÔÉϵÄϵͳ¶¼ÄÜÖ§³Övb6ÌṩµÄ¿Ø¼þ°¡? ÎÒÔÚͬÊ»úÆ÷ÉϲâÁËÒ»¸ö³ÌÐò±¨ÕÒ²»µ½richtextbox.ocx, ËùÒÔÈç¹ûÕæÒªÓÃvbÀ´×öÉÌÒµÈí¼þ,ΪÁË¿É¿¿Æð¼û,ÊDz»ÊÇÓ¦¸Ã°ÑËùÓÐÓõ½µÄdll,ocx´ò°ü½øÀ´°¡? Åνâ´ð,лл.
»ù±¾ÉÏ£¬Windows 98/2000/XP/Vista µÈ¶¼¿ ......