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

VBת»»³ÉC#ʱ³öÏÖµÄÎÊÌâ - .NET¼¼Êõ / C#

Ò»¸ö¼òµ¥µÄÎļþ¹ÜÀíÆ÷£¬ÏÔʾuploadÎļþ¼ÐϵÄÎļþ£¬Ô­À´ÊÇVBµÄ£¬ÄÜÓ㬸Äд³ÉC#Ö®ºó²»ÖªµÀÄĵÄÎÊÌâ¿ÉÖ´Ðе«ÎļþÄÚÈݲ»ÏÔʾ£¬Çë¸÷λ°ïæ¿´Ò»ÏÂÎÊÌâÔÚÄÄ£¬Ð»Ð»!

================
<%@ Import Namespace="System.IO"%>
<%@ Import Namespace="System.Data"%>
<script language="C#" runat="server">
void PageLoad()
{
 if(!IsPostBack)
 {
  BindData();
 }
}
void MyDG_Delete(Object sender,DataGridCommandEventArgs E)
{
 String myfile;
 myfile=Server.MapPath(@"upload\"+MyDG.DataKeys[E.Item.ItemIndex]);
 File.Delete(myfile);
 MyDG.EditItemIndex=-1;
 BindData();
}
void BindData()
{
 DirectoryInfo mydir=new DirectoryInfo(Server.MapPath("upload"));
 MyDG.DataSource=mydir.GetFiles("*.*");
 MyDG.DataBind();
}
</script>

<html>
<body>
<h4 align="center">ÎÒµÄÎļþ¹ÜÀíÆ÷</h4>
<a href="upload.aspx">ÉÏ´«Îļþ</a>
<form runat="server">
<ASP:DataGrid id="MyDG" HeaderStyle-BackColor="#BCBCBC" Width="100%" AutoGenerateColumns="false" OnDeleteCommand="MyDG_Delete" DataKeyField="Name" runat="server">
<Columns>
<asp:HyperLin


Ïà¹ØÎÊ´ð£º

VFPÈçºÎµ÷ÓÃCº¯Êý - ÆäËûÊý¾Ý¿â¿ª·¢ / VFP

ÇëÎÊVFPÖÐÈçºÎµ÷ÓÃC/C++º¯Êý£¿

ÄãÒªµ÷ÓÃʲô¹¦Äܵĺ¯Êý£¿Òª¿´¿´VFPÖÐÓÐûÓжÔÓ¦µÄº¯Êý£¬Èç¹ûÓоÍÊ¡×ÅÔÙµ÷ÓÃÁË¡£Èç¹ûûÓУ¬¿ÉÒÔ½«C/C++º¯Êýд¸öDLL»òFLL£¬È»ºóÔÚVFPµ÷Óü´¿É¡£

Ê®¶¹Èý ÀÏʦ£¬Ôõô²ÅÄÜÐÞ¸Ä×Ô¼ºµÄ ......

C/C++ÀïÆÁshift+f10¼üÒªÔõôд£¡ - C/C++ / C++ ÓïÑÔ

SHIFT¼ÓF10ÓëÄǸö¼üÓÒctrl±ßÉϵÄÄǸö¼ü¹¦ÄÜÒ»Ñù£¬ÏëÆÁÕâ¸ö
µ«²»ÖªÒªÔõôдÄǸö×éºÏ¼ü£¡
ÓÐûÄĸö´óÏÀ·ÅÒ»¶ÎÕâ¸öµÄ´úÂë»òдһ¶Î
http://topic.csdn.net/u/20090609/15/7dc9fb70-243f-4070-9cfd-34e48b66e6c6.html ......

C/C++ÖÐÓÐûÓиñʽ»¯UÅ̵ĺ¯Êý - C/C++ / C++ ÓïÑÔ

´ó¼ÒºÃ£º
ÎÒÏëʵÏÖ¼ì²âµ½²åÈëSD¿¨ºó×Ô¶¯½«SD¿¨¸ñʽ»¯µÄ¹¦ÄÜ£¬²»ÖªC/C++ÖÐÓÐûÓиñʽ»¯UÅ̵ĺ¯Êý£¿
ÁíÍ⣬ÎÒ²»ÏëʹÓÃSHFormatDrive£¬ÒòΪÕâ¸öº¯Êý»áµ¯³öÊÇ·ñÒª¸ñʽ»¯µÄÌáʾ¿ò£¬ÎÒÐèÒªµÄÊÇϵͳ×Ô¶¯¸ñʽ»¯£¬¶ø²Ù×÷Õß² ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ