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

ʹÓÃASP·¢ËÍ·ÉÐŵÄÃâ·Ñ¶ÌÐÅ

ҪʵÏÖÔÚaspÍøÕ¾ÉÏ·¢ËÍ·ÉÐÅ£¬ÒªÇóÊÇÖйúÒÆ¶¯µÄÊÖ»úÓû§£¬²¢ÇÒ¿ªÍ¨Òƶ¯·ÉÐŹ¦ÄÜ¡£
     ʹÓÃÒÔÏÂasp´úÂ룬Ð޸IJÎÊýΪÄãµÄÊÖ»úºÅ¼°·ÉÐÅÃÜÂ룬¾Í¿ÉÒÔʵÏÖÔÚÍøÕ¾·¢Ãâ·Ñ¶ÌÐŹ¦ÄÜ¡£
    
fsend.aspÎļþÔ´´úÂëÈçÏ£º
<%
    Dim fno,fp,tofno,rurl
    fno="138xxxxxxxx"    'ÊÖ»úºÅ
    fp="xxxxxxxx"       '·ÉÐÅÃÜÂë
    tofno="137xxxxxxxx"  '·¢ËÍÄ¿±êÊÖ»úºÅ(ÒªÇóÊÇ×Ô¼ºµÄºÅÂë»ò·ÉÐźÃÓÑ)
    rurl=""              'Ìá½»ºó×ªÒÆµ½µÄÄ¿±êµØÖ·(Áô¿Õ½«²»×ªÒÆ)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÇëÁôÏÂÄãµÄÁªÏµÐÅÏ¢</title>
</head>
<body style="font-size: 10pt; font-family: ËÎÌå">
<%if (Request("msg")="") then%>
   <form method="POST" action="fsend.asp">
   <br>ÇëÁôÏÂÄãµÄÁªÏµÐÅÏ¢<br>
   <hr>
   ÁªÏµÐÅÏ¢:<br><textarea rows="5" name="msg" cols="27"></textarea><br>
   <p><input type="submit" value="Ìá½»" name="B1"></p>
   </form>
<%
else
    Dim returnString
    Dim msg
    msg=Request("msg")
    returnString=sendf(fno,fp,tofno,msg)
    if rurl="" then
       Response.Write returnString&"<br><a href='fsend.asp'>·µ»Ø</a>"
    else
       Response.Redirect rurl
    end if
end if
%>
</body>
</html>
<%
function sendf(fno,fp,tofno,msg)
    'º¯Êý²ÎÊý˵Ã÷:fno=µÇ¼ÊÖ»úºÅ,fp=µÇ¼ÃÜÂë,tofno=Ä¿±êÊÖ»úºÅ,msg=Òª·¢Ë͵ÄÐÅÏ¢
    Dim returnString
    Dim SoapRequest
 &n


Ïà¹ØÎĵµ£º

ÓÃASPʵÏÖ¶þ¼¶ÓòÃû

 






ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......

ASP ÖÐ Split º¯ÊýµÄʵÀý

´ó¼ÒÓÐÅöµ½¹ýÒªÏëȡһ×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵϰ£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
¡¡¡¡ÎÒÏȽéÉÜÒ»ÏÂSplit
º¯ÊýµÄÓ÷¨:
¡¡·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¡¡¡¡¼ÙÉè±äÁ¿strURL±£´æ×ÅU ......

ASPÖÐÓÃASPJPEGÈçºÎ¸øFCKEditorÉÏ´«µÄͼƬ¼Óˮӡ

´ò¿ªFCKEditor/Editor/Filemanager/Connectors/Asp/Commands.aspÎļþ£¬ÐÞ¸ÄFileUploadº¯Êý£¬ÈçÏÂËùʾ£º
Sub FileUpload( resourceType, currentFolder, sCommand )
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize = 0
oUploader.Allowed = ConfigAllowedExtensions.Item( ......

Éý»ªÌṩÖÕÉíÃâ·ÑASP+access PHP+mysqlÐéÄâÖ÷»ú

Éý»ªÌṩÖÕÉíÃâ·ÑASP+access PHP+mysqlÐéÄâÖ÷»ú
Ò»£ºÉý»ªÍøÂç¿Æ¼¼ÓÐÏÞ¹«Ë¾,ÓëÉý»ªÍ¬ÔÚÕ¾³¤ÖÕÉíÃâ·Ñ¿Õ¼ä·ö³Ö¼Æ»®.
1¡¢×ð¾´µÄÓû§ÄúºÃ,Ò²ÐíÄú»¹ÔÚΪÿÄêÒ»½»µÄ¿Õ¼ä·ÑÓ÷¢³î,Ò²ÐíÄúÏë»ñµÃÒ»¸ö¸üÓÅÖʵĿռäÈ´²»ÏëͶÈëÌ«¶à,´ÓÏÖÔÚÆð ÕâЩÎÊÌ⽫ӭÈжø½â→Éý»ªÍøÂç←ÓëÉý»ªÍ¬ÔÚÕ¾³¤·ö³Ö¼Æ»®È«ÃæÆô¶¯¡£
2¡¢Ã»ÓÐ×¢²á¹«Ë¾ ......

asp³¤ÎÄÕ·ÖÒ³ÊÕ¼¯´æµµ

<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
´ò¿ªÊý¾Ý±í..²»Ð´Á˹þ.
set rs=server.CreateObject("adodb.recordset")
sql="............"
rs.open sql, ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ