asp vb com×é¼þ¿ª·¢Óëµ÷ÊÔ
½ñÌìÔÚ¹«Ë¾·þÎñÆ÷ÉÏ¿´Ò»¸öÀϵôÑÀµÄasp³ÌÐò£¬·¢ÏÖ¾¹È»µ÷ÓÃÁË×Ô¶¨Òåcom×é¼þ£¬ÊÇvbдµÄ£¬·â×°ÁËÊý¾Ý¿âÁ¬½ÓÓë²Ù×÷£¬ÎĵµÉÏдÕâÑù×öÊÇΪʲôÓû§µ½·þÎñÆ÷Ò²¿´²»µ½Êý¾Ý¿âµÄÓû§ÃûÓëÃÜÂ룬Ҳ¶Ô°¡£¬Õâ¸öÊDzÆÎñµÄ·þÎñÆ÷£¬µ±È»²»ÄÜÈÃÎÒÃÇitËæ±ã¿´ÁË£¬ºÇºÇ£¡£¨itºöÓÆfinance£¬ÈÃfinanceÏàÐÅit¿´²»µ½Êý¾Ý¿âÓû§ÃûÓëÃÜÂ룬my god£©ÓÉÓÚ£¬ÎÒÃÇ·þÎñÆ÷¹ÜÀíÈËÔ±Òª·þÎñÆ÷£¬¾ö¶¨Òª"ºÍг"Õâ¸ö·þÎñÆ÷£¬Ö»Äܽ«Õâ¸ö·þÎñÆ÷ÉϵÄÓ¦ÓÃÈ«²¿ÒƵ½ÁíÒ»¸ö·þÎñÆ÷ÉÏ£¬ÓÚÊǾÍÒª¸ÄÕâ¸öcom×é¼þÒÔÖ¸¶¨ÐµÄdbÃû³Æ£¬
½«com×é¼þÔ´Âëcopyµ½±¾»úÉÏ£¬¸ÄÁ¬½Ó£¬±àÒëdll£¬ÔÙcopyµ½·þÎñÆ÷ÉÏ£¬regsvr32 ×¢²á£¬Ò»ÇÐÕý³££¬ÓÚÊǽ«Ôdb offline£¬Ò»»á¶ù¾ÍÓÐcallÎÒÁË£¬Ò³Ã汨´í£¬ÎÞ·¨·ÃÎÊ£¡´ò¿ªÒ³Ãæ¿´µ½´íÎóÐÅÏ¢ odbcûÓÐÕÒµ½Êý¾Ý¿â£¬×Ðϸһ¿´£¬»¹ÊÇÔÀ´Êý¾Ý¿â£¬ÐÄÀïÄǸö°ÎÁ¹µÄ£¬Á¢¼´google£¬Í¬Ê±½«Ôdb online
ÔÀ´µÃ½«iisÖØÆð: iisreset
ÓÖ¼ÓÒ»¸öcom×é¼þ·½·¨£¬
Public Function getData(ByVal sss As Integer) 'as Variant ²»Äܼӷµ»ØÖµÀàÐÍ
Dim dd() 'as String Ò²²»Äܼӷµ»ØÖµÀàÐÍ
Dim i As Integer
ReDim dd(sss - 1)
i = 0
Do While i < sss
dd(i) = CStr(i)
i = i + 1
Loop
getData = dd
End Function <%
dim b
b = com.getData(10)
Response.Write VarType (b) & "ssss"
Response.Write b(1)
%>
Êý×éÓë·µ»ØÖµ²»Äܶ¨ÀàÐÍ ·ñÔò VarType ·µ»Ø8200,Ìáʾ "ÀàÐͲ»Æ¥Åä" ´íÎó, Õý³£ÊÇ8204
µÚÒ»´Î±àÒ룬¹¤³ÌÊôÐÔ£²¿¼þ£°æ±¾¼æÈÝÐÔ£²»¼æÈÝ£¬ÔÙ±àÒëʱ£¬Ñ¡¹¤³Ì¼æÈÝ
ÔÚcom×é¼þÖرàÒëʱ£¬Òª½«±¾»úiis: iisreset /stop£¬È·±£Ã»½ø³Ìµ÷ÓÃÕâ¸ö×é¼þ£¬ ·ñÔòÎÞ·¨¸²¸ÇÔdll
Õâ¾ÍÊÇasp È¡ com×é¼þÊý×é·µÖµ ·½·¨
À§ÁË£¬Ë¯¾õÁË ^_^
Ïà¹ØÎĵµ£º
¼ÆËãÈòÄêÖ÷ÒªÊÇΪÁËÅжÏ2Ô·ݵÄÌìÊý£¬Ò»°ãÈòÄê2Ô·ÝÊÇ29Ì죬ƽÄê2Ô·ÝÊÇ28Ìì¡£¼ÆËãÈòÄêµÄËã·¨·Ç³£¼òµ¥£¬¼´£ºÄܱ»400Õû³ý£¬»òÕßÄܱ»4Õû³ý¶ø²»Äܱ»100Õû³ý¡£
Ëã·¨ÈçÏ£º
function isLeapYear(pYear)
set oreg=new RegExp
oreg.Pattern="^\d{4}$"
if n ......
VBÑÕÉ«ºÍRGBÉ«»¥Ïàת»»Í·ÌÛÁËÎÒºÃÒ»¶Îʱ¼ä,Èç½ñÕÒµ½½â¾ö°ì·¨ÁË
ÌرðÌù³öÀ´Óë´ó¼Ò¹²Ïí
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
´ò¿ªÊý¾Ý±í..²»Ð´Á˹þ.
set rs=server.CreateObject("adodb.recordset")
sql="............"
rs.open sql, ......