Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb¸Ä³Éasp

<script language="VB" runat="server">
'¶¨ÒåÈô¸ÉÒ³Ãæ¼¶±äÁ¿ºÍ³£Á¿,Ö÷ÒªÓÃÀ´·ÖÒ³
Dim conn As OleDbConnection      'Êý¾Ý¿âÁ¬½Ó¶ÔÏó±äÁ¿
Dim PageSize As Integer          'ÿÐÐÏÔʾ¶àÉÙÌõ¼Ç¼
Dim StartPosition As Integer    '´ÓµÚ¼¸Ìõ¼Ç¼¿ªÊ¼ÏÔʾ
Dim CurrentPage As Integer      'µ±Ç°ÏÔʾµÚ¼¸Ò³
Dim TotalPage As Integer        '¸Ã±äÁ¿ÓÃÀ´±íʾ×ܹ²¶àÉÙÒ³

Sub Page_Load(Sender As Object, E As EventArgs)
'½¨Á¢Connection¶ÔÏó
conn= New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("guest.mdb"))
'´Óweb.ConfigÎļþÖжÁÈ¡Êý¾Ý
PageSize=ConfigurationSettings.AppSettings("PageSize")

'Èç¹ûûÓÐÌá½»±íµ¥£¬¾ÍÖ´ÐÐÏÂÃæµÄ°ó¶¨º¯Êý
If Not Page.IsPostBack Then
'ÏÂÃæµ÷Óú¯Êý£¬°ó¶¨Êý¾Ý
Call BindData()
End If
End Sub

'Êý¾Ý°ó¶¨¹ý³Ì£¬¹©ÆäËüº¯Êýµ÷ÓÃ
Sub BindData()
'ÔÚ°ó¶¨Êý¾Ý֮ǰ£¬ÏȼÆËãµÃµ½ÓйرäÁ¿**************************************************************

'Ïȵ÷Óú¯Êý£¬·µ»Ø×ܹ²ÓжàÉÙÒ³
TotalPage=GetTotalPage()

'¼ÆË㵱ǰҪÏÔʾµÄÒ³
If Request.QueryString("commandname") <>"" Then
'ÕâÖÖÇé¿ö±íʾѡÔñÁ


Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ