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µÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......