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ÈËÔ±
ûÈË »Ø´ðÂð
{{---
Ïà¹ØÎÊ´ð£º
owc11Âú×ã²»ÁËÒªÇó£¬ÓÐûÓиüºÃµãµÄ£¬aspÄܵ÷ÓõÄ
Ŀǰû·¢ÏÖ£¬°ïÄã¶¥£¡
Ó¦¸ÃûÓÐÁ˰É
×ÔÒÑд¡£¶¥
°ï¶¥£¬¹Ø×¢£¡
ºÃÏñ¾ÍÕâ¸öÁË£¬Ä¿Ç°»¹Ã»¿´µ½ÆäËûµÃÉÏÊÐʹÓᣡ£¡£°ï¶¥£¡
×Ô¼ºÔÙ¶¥Ò»ÏÂ
ºÃÏñÊÇûÓÐ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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ÈçºÎÄÜ×öµ½³¬´óÎļþµÄÉÏ´«¹ÜÀíÄØ£¿ÕâÀﳬ´óÎļþÖ¸µÄÊÇ£º100M ÖÁ 2G Ö®¼äµÄÒ»¸öÎļþ£¬Æ©È磺¼à¿ØÂ¼Ïñ Îļþ
ÎÒÏÖÔÚÓõÄÊÇFtpÉÏ´«£¬ÓÃÁË´ó°ëÄêÁË£¬ÏÖÔÚ·¢ÏÖFTPÀïÃæ·Ç³£»ìÂÒ£¬ºÜ¶àÓû§ÉÏ´«µÄ¶ ......
±¾È˲»»áasp£¬±¨´íÁË£¬Çë´ó¼Ò°ïæ¿´¿´¡£
´úÂëÈçÏ£º
<%
dim keyword_Name,keyword_YJ,keyword_RQ
if rs("QS_PASS_1_name")<>"0,0" then
keyword_Name=split(rs("QS_ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......