ÓÃJ2MEÓëASP½¨Á¢Êý¾Ý¿âÁ¬½Ó
¡¡J2MEÊÇÀûÓÃHttpConnection½¨Á¢HTTPÁ¬½Ó£¬È»ºó»ñÈ¡Êý¾Ý£¬ASPÒ²ÊÇÀûÓÃHTTPÐÒé
£¬Òò¶ø¿ÉÒÔÀûÓÃJ2MEÓëASP½¨Á¢Á¬½Ó£¬´Ó¶ø·ÃÎÊÊý¾Ý¿â¡£
¡¡¡¡ASPÊÇMicroSoft¹«Ë¾µÄ·þÎñÆ÷
¶Ë¶¯Ì¬Ò³Ãæ¼¼Êõ£¬¿ÉÒÔ¸ù¾ÝÇëÇóÔËÐзþÎñÆ÷
¶Ë³ÌÐòÈ»ºó·µ»Ø½á¹û£¬ÕâÒ²¸øMIDPÌṩºÜ¶àÓÐÓõŦÄÜ¡£ÓÉÓÚMIDP¿Í»§¶Ë´¦ÀíÄÜÁ¦²»Ç¿£¬Òò´Ë¿ÉÒÔ°ÑһЩ´¦ÀíÈÎÎñ·ÅÔÚ·þÎñÆ÷¶Ë£¬ÀûÓÃASPÍê³ÉһЩËü²»ÄÜÍê³ÉµÄÈÎÎñ£¬Èç²Ù×÷Êý¾Ý¿â¡£
¡¡¡¡ÕâÀï¸ø³öÒ»¸ö¼òµ¥µÄÀý×Ó£¬ËµÃ÷MIDPÈçºÎÓëASP½øÐн»»¥£¬Íê³ÉÊý¾Ý¿â²Ù×÷¡£
¡¡¡¡£¨1£©È·±£IIS¡¡WEB·þÎñÆ÷Õý³£¹¤×÷¡£
¡¡¡¡£¨2£©½¨Á¢Ò»¸ö²âÊÔ
Êý¾Ý¿â
¡¡¡¡²ÉÓÃACCESSÊý¾Ý¿â£¬Éú³ÉÒ»¸öÊý¾Ý¿âÎļþ±£´æµ½D:\J2ME\J2METEST\IIS\DATEBASEÖУ¬ÎļþÃûÊÇ
J2MEtest.mdb.È»ºóн¨Ò»¸öÊý¾Ý¿â±í£Message,´´½¨µÄ±í°üº¬ÒÔÏÂ×ֶΣºID£¨×Ô¶¯±àºÅ£©¡¢MESSAGE£¨Îı¾£©¡¢IP£¨Îı¾£©¡¢
DATE£¨ÈÕÆÚ£©¡£
¡¡¡¡£¨3£©´´½¨ASP³ÌÐò
¡¡¡¡ÒÔÏÂÊÇASP³ÌÐòÔ´´úÂ룬ÎļþÃûΪConnectASP.asp,±£´æµ½D:\J2ME\J2METEST\IIS\ASPÖС£
¡¡¡¡//ConnectASP.asp
£¼%@LANGUAGE=VBScript%£¾
£¼%
strDBLocation=Server.Mappath£¨"/database/j2meTest.mdb"£©£»
strConnectionString="Provider=Microsoft.Jet.OLEDB.4.0£»Data Source="+strDBLocation£»
var cnn=Server.CreateObject£¨"ADODB.Connection"£©£»
cnn.Open£¨strConnectionString£©£»
rs=Server.CreateObject£¨"ADODB.Recordset"£©£»
ip=Request.ServerVariables£¨"REMOTE_ADDR"£©£»
message=Request.QueryString£¨"message"£©£»
rs.ActiveConnection=cnn£»
rs.CursorType=1£»
rs.LockType=2£»
rs.Source="Message"£»
rs.Open£¨£©£»
rs.AddNew£¨£©£»
rs£¨"Message"£©=message£»
rs£¨"IP"£©=ip£»
rs£¨"Date"£©=£¨new Date£¨£©£©.getVarDate£¨£©£»
rs.Update£¨£©£»
rs.Close£¨£©£»
cnn.Close£¨£©£»
Response.Write£¨"The message writed successfully.\n"£©£»
%£¾
¡¡¡¡È»ºóÔÚä¯ÀÀÆ÷ÖÐÊäÈëÒÔÏÂURL£ºhttp://localhost/asp/ConnectASP.asp?message=Hello+J2ME!
Èç¹ûÔËÐгɹ¦£¬ä¯ÀÀÆ÷»áÊä³öÓï¾ä“The message weited successfully.”£¬È»ºó´ò¿ªÊý¾Ý¿âÎļþ²é¿´±íMESSAGE£¬Ò»Ìõ¼Ç¼ÒѾ³É¹¦Ð´Èë¡£IDΪ1£¬MessageΪHello J2ME£¬IPΪ127.0.0.1£¬DATEΪµ±Ç°ÈÕÆÚ¡£
¡¡¡¡£¨4£©±àдMIDlet³ÌÐò
¡¡¡¡½ÓÏÂ
Ïà¹ØÎĵµ£º
<%
for i=1 to rs.recordCount '±äÁ¿i´Ó1Ñ»·µ½Êý¾Ý¿âÖеÄÈ«²¿¼Ç¼Êý
if (i mod 1 =1) then 'ÿ¸ötr¼´Ã¿ÐÐÏÔʾ1¸ö¼Ç¼,¿É¸ù¾ÝÐèÒª×ÔÐÐÐÞ¸Ä, ½«×ó±ßµÄ1ÐÞ¸ÄΪ2¼´ÏÔʾÁ½ÐС£
response.write "<tr align='center'>"
end if
%>
´Ë´¦ÎªÒªÑ»·µÄÄÚÈÝ
<%if (i mod 1 = 0) then ......
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
+++ ASP.NET»º´æÖеÄÊý¾ÝÊDz»Îȶ¨µÄ£¬²»»á±»ÓÀ¾ÃµØ´æ´¢£¬¿ÉÄÜ»áÓÉÓÚÒÔÏÂÔÒòÖ®Ò»¶ø´Ó»º´æÖб»×Ô¶¯ÒƳý£º
1) »º´æÂúÁË
2) »º´æÏîÒѾ¹ýÆÚ
3) »º´æÒÀÀµµÄÏî¸Ä±äÁË
+++ ³ýÁË¿ÉÒÔ×Ô¶¯ÒƳý»º´æÏîÍ⣬Äã¿ÉÒÔÏÔÊ¾ÒÆ³ý»º´æÏî¡£ÁíÍ⣬µ±ÄãÓÃInsert·½·¨ºÍAdd·½·¨Ïò»º´æÖÐÌí¼ÓµÄ»º´æÏîÒѾ´æÔÚʱ£¬ÄÇô£¬ÔÀ´µÄ»º´æÏ±»×Ô¶¯É¾³ý¡ ......
Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite  ......
Adodb.StreamÊÇADOµÄStream¶ÔÏó,Ìṩ´æÈ¡¶þ½øÖÆÊý¾Ý»òÕßÎı¾Á÷,´Ó¶øÊµÏÖ¶ÔÁ÷µÄ¶Á¡¢Ð´ºÍ¹ÜÀíµÈ²Ù×÷.
ÓÐÏÂÁз½·¨£º
Cancel ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.Cancel
˵Ã÷£ºÈ¡ÏûÖ´ÐÐ¹ÒÆðµÄÒì²½ Execute »ò Open ·½·¨µÄµ÷Óá£
Close ·½·¨
......