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

ASP:CrazyÍÜ!Ä£°æ²Ù×÷Àà(×î¼òµ¥µÄÄ£°åÀà¡¢½öÌṩ½»Á÷)

ÎļþÃû£ºAwa_temp.Class.asp
 <%
'CrazyÍÜ!Ä£°å²Ù×÷Àà
'×÷ÕßCrazy~ÍÜ! QQ:379969387 »¶Ó­½»Á÷
'°æ±¾V1.0;
Class AwaTemp
Public aa
Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'===========================================
'¹¹Ô캯Êý_³õʼ»¯FSO×é¼þ
'===========================================
Private Sub Class_Initialize()
  Set FSO=Server.CreateObject("Scripting.FileSystemObject")
End Sub
'===========================================
'¹¹Îöº¯Êý_Ïú»ÙFSO×é¼þ
'===========================================
Private Sub Class_terminate()
  Set FSO=nothing
End Sub
'===========================================
'ÀàÊôÐÔ
'===========================================
'°æ±¾ÐÅÏ¢
Public Property Get Version
    Version="Crazy~ÍÜ! Ä£°å²Ù×÷Àà!V1.0°æ±¾;"
End Property
'»ñÈ¡Ä£°åµØÖ·ÒÔ¼°Ãû³Æ
Public Property Let Temp(ByVal Values)
  StrTemp=Values
End Property
'»ñÈ¡Éú³ÉÎļþµÄÎļþÃû
Public Property Let HtmlName(ByVal Values)
  StrHtmlName=Values
End Property
'»ñÈ¡±êÇ©
Public Property Let Label(ByVal Values)
  StrLabel=Values
End Property
'»ñÈ¡½«±êÇ©Ìæ»»µÄÖµ
Public Property Let LValues(ByVal Values)
  StrLValues=Values
End Property
'===========================================
'Àà·½·¨
'===========================================
'¼ì²éÄ£°åÉèÖÃÒÔ¼°ÊÇ·ñ´æÔÚ
Private Function Check()
   If StrTemp="" Then
      Check="<span style='color:red;'>´íÎó£ºÎ´ÉèÖÃÄ£°åÎļþ´æ´¢Î»Öã¡</span>"
   Else
      If FSO.FileExists(StrTemp)=false Then
      Check="<span style='color:red;'>´íÎó£ºÖ¸¶¨Ä£°å²»´æÔÚ£¡</span>"
   Else
      Check=true
   End If
   End If 
End Function
'¶ÁÈ¡Ä£°åÒ³
Public Sub ReadTemp()
   If Check()<>true Then
      Response.Write Check()
&nb


Ïà¹ØÎĵµ£º

asp¡¢·þÎñÆ÷¶Ë´ò¿ªÐ´°¿Ú

asp.netÖдò¿ªÐ´°¿ÚµÄ¶àÖÖ·½·¨(תÔØ)
1.Response.Redirect("XXX.aspx",true)——Ö±½ÓתÏòеÄÒ³Ã棬ԭ´°¿Ú±»´úÌæ;
2. Response.Write("
")——´ò¿ªÐµÄÒ³Ã棬ԭ´°¿Ú±»´úÌæ;
4.Server.Transfer("XXX.aspx")——´ò¿ªÐµÄÒ³Ãæ;
5.Response.Write("
......

asp ²Ù×÷xml

<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
      xml.load(server.mappath("style.xml"))
       if   xml.parseError.errorCode   <>   0   then ......

ʵÀýѧϰDreamweaver MX ASP±à³Ì»ù´¡2

°´“F12”ÊÔÊÔЧ¹û¡£
¡¡¡¡×¢£º³£ÓõÄʱ¼äº¯Êý£º
now()                    »ñÈ¡µ±Ç°ÏµÍ³ÈÕÆÚºÍʱ¼ä,ASPÊä³ö¿ÉÒÔÕâÑùд£º<%=now()%>
Year(now())         »ñÈ¡Äê·Ý ......

aspµ÷ÓÃsql server´æ´¢¹ý³Ì

ASPµ÷Óô洢¹ý³ÌµÄ·½·¨£º    
 
----  ¡¡¡¡µ÷Óô洢¹ý³ÌµÄ·½·¨ÐèҪʹÓÃADOµÄCommand¶ÔÏó¡£Command¶ÔÏóÊǶÔÒ»¸öÊý¾ÝÔ´ÔËÐÐÌض¨ÃüÁîµÄ¶¨Ò壨ÀýÈ磬һ¸öSQL²éѯ»òÒ»¸öSQL´æ´¢¹ý³Ì£©¡£ÏÂÃæÒÔMS  SQL  SERVER6.5Ϊºǫ́Êý¾Ý¿â£¬½éÉÜASPµ÷Óô洢¹ý³ÌµÄ·½·¨¡£    
 
----  ¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ