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

vb asp +Êý¾Ý´«Êä¼ÓÃÜ

Ö÷ҪʵÏÖASPÓëVB³ÌÐòµÄÊý¾Ý½»»¥ ÓиöÎÊÌâÊÇÔÚ´«ÊäµÄ¹ý³ÌÖÐÊý¾Ý¶¼ÊÇÃ÷ÎĵÄ×¥°ü¹¤¾ßËæ±ã¾Í¿ÉÒԵõ½ÁË
ÎÒÏÖÔÚÏë°ÉASP²éѯµ½µÄÊý¾Ý¼¯¼ÓÃܺóÔÚ´«Êä²»

¼ÓÃÜÄ£¿éÒѾ­×öºÃµ«ÊDz»ÖªµÀ¸Ã°Ñ¼ÓÃܺ¯Êý¼ÓÔÚÄÇÀïÏ£Íûǰ±²ÃÇÖ¸µ¼ÏÂÌû³ö´úÂë

ASP£º Ö÷ҪȡµÃACCESSÊý¾Ý¿âÀïÃæµÄÊý¾Ý
VBScript code:

set GetFol = Server.CreateObject("MyDll.MyClass") 'ÕâÊǼÓÃܺ¯Êý
dim strInput
dim key
set conn=Server.CreateObject("ADODB.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data.mdb")
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from QQdata",conn
rs.save response,1
Set GetFol = Nothing
rs.close




VB£ºÍ¨¹ýASPÈ¡µÃµÄÊý¾Ý¼¯È»ºó°ó¶¨µ½DAE¿ØÖƲ¢ÏÔʾ³öÀ´


VB code:


'´ÓÔ¶³ÌÊý¾Ý¿âµÃµ½ÄÚÈÝ

Private Sub Command1_Click()
'¡®Ìá½»Ò»¸öHTTPÇëÇó¡£
Set rs = New ADODB.Recordset
rs.Open "http://192.168.1.11:8081/getinfo.asp"
Set DataGrid1.DataSource = rs
End Sub




ÕâÑù¿ÉÒÔʵÏÖÊý¾Ý°ó¶¨ÎÒÏÖÔÚÏëÔÚASP¼ÓÃÜÊý¾Ý¼¯ºó´«ÊäÈ»ºóVB³ÌÐòÔÚ½âÃÜ ²»ÖªµÀÕâÑùµÄ ·½°¸ÊÇ·ñÄÜʵÏÖ ¶®µÄÅóÓÑÀ´½â´ðÏ »¶Ó­ÓÑÇé°ïUPÈËÔ±
ûÈË »Ø´ðÂð
{{---


Ïà¹ØÎÊ´ð£º

aspÓÐûÓÐʲô±È½ÏºÃµÄchat×é¼þ£¿ - Web ¿ª·¢ / ASP

owc11Âú×ã²»ÁËÒªÇó£¬ÓÐûÓиüºÃµãµÄ£¬aspÄܵ÷ÓõÄ
Ŀǰû·¢ÏÖ£¬°ïÄã¶¥£¡

Ó¦¸ÃûÓÐÁ˰É

×ÔÒÑд¡£¶¥

°ï¶¥£¬¹Ø×¢£¡

ºÃÏñ¾ÍÕâ¸öÁË£¬Ä¿Ç°»¹Ã»¿´µ½ÆäËûµÃÉÏÊÐʹÓᣡ£¡£°ï¶¥£¡

×Ô¼ºÔÙ¶¥Ò»ÏÂ

ºÃÏñÊÇûÓÐ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

AspÈçºÎʵÏÖ³¬´óÎļþµÄÉÏ´«£¿ - Web ¿ª·¢ / ASP

¸÷λ´óϺ£º
  AspÈçºÎÄÜ×öµ½³¬´óÎļþµÄÉÏ´«¹ÜÀíÄØ£¿ÕâÀﳬ´óÎļþÖ¸µÄÊÇ£º100M ÖÁ 2G Ö®¼äµÄÒ»¸öÎļþ£¬Æ©È磺¼à¿ØÂ¼Ïñ Îļþ
ÎÒÏÖÔÚÓõÄÊÇFtpÉÏ´«£¬ÓÃÁË´ó°ëÄêÁË£¬ÏÖÔÚ·¢ÏÖFTPÀïÃæ·Ç³£»ìÂÒ£¬ºÜ¶àÓû§ÉÏ´«µÄ¶ ......

ÐÂÊÖÇë½ÌÒ»¸öaspµÄÀàÐÍת»»ÎÊÌ⣡ - Web ¿ª·¢ / ASP

±¾È˲»»áasp£¬±¨´íÁË£¬Çë´ó¼Ò°ïæ¿´¿´¡£
´úÂëÈçÏ£º
<%
dim keyword_Name,keyword_YJ,keyword_RQ
if rs("QS_PASS_1_name")<>"0,0" then
keyword_Name=split(rs("QS_ ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ