ASP Êý×é
Class Vector
Private vector_datas()
Private initial_capacity '³õʼ»¯ÈÝÁ¿
Private capacity_increment 'ÈÝÁ¿ÔöÁ¿
Private element_count 'ÔªËØÊý
Private max_capacity '×ÜÈÝÁ¿
Private Sub Class_Initialize()
RemoveAll
End Sub
Public Function RemoveAll()
element_count = 0
initial_capacity = 10
capacity_increment = 10
max_capacity = initial_capacity
ReDim vector_datas(initial_capacity)
End Function
Public Property Get Count()
Count = element_count
End Property
Public Property Get Capacity()
Capacity = max_capacity
End Property
Public Property Get InitialCapacity()
InitialCapacity = initial_capacity
End Property
Public Property Get CapacityIncrement()
CapacityIncrement = capacity_increment
End Property
Public Default Property Get Item(index)
If IsObject(vector_datas(index)) Then
Set Item = vector_datas(index)
Else
Item = vector_datas(index)
&
Ïà¹ØÎĵµ£º
<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
xml.load(server.mappath("style.xml"))
if xml.parseError.errorCode <> 0 then ......
ÔÚASPÖÐʹÓà Request.ServerVariables("REMOTE_ADDR") À´È¡µÃ¿Í»§¶ËµÄIPµØÖ·£¬µ«Èç¹û¿Í»§¶ËÊÇʹÓôúÀí·þÎñÆ÷À´·ÃÎÊ£¬ÄÇÈ¡µ½µÄ¾ÍÊÇ´úÀí·þÎñÆ÷µÄIPµØÖ·£¬¶ø²»ÊÇÕæÕýµÄ¿Í»§¶ËIPµØÖ·¡£ÒªÏë͸¹ý´úÀí·þÎñÆ÷È¡µÃ¿Í»§¶ËµÄÕæÊµIPµØÖ·£¬¾ÍҪʹÓà Request.ServerVariables("HTTP_X_FORWARDED_FOR") À´¶ÁÈ¡¡£²»¹ýҪעÒâµÄÊ£¬²¢²»ÊÇÿ¸ö ......
½ÓÏÂÀ´¿ªÊ¼½²½âÈçºÎÓÃÈý²ã¼Ü¹¹À´½¨Á¢Óû§µÇ¼¹ý³Ì.
Õâ¸ö¹ý³ÌÓÃÒ»°ãµÄ±à³Ì·½Ê½Ð´ÆðÀ´ºÜ¼òµ¥,´ÓÕâÀïÈëÊÖÀ´½²½âÈý²ã¼Ü¹¹µÄʵÀý,Ïë±Ø´ó¼Ò¶¼»á¸üÈÝÒ×Á˽âÆäÖеÄÂß¼½á¹¹.
Ê×ÏÈÎÒÃÇ×öһЩ׼±¸¹¤×÷,¹¹ÔìÕâ¸öÒµÎñÐèÒªÓõ½µÄ¼¸¸öÀà,ÆäÖаüÀ¨Èý¸ö²¿ ......
ASPµ÷Óô洢¹ý³ÌµÄ·½·¨£º
---- ¡¡¡¡µ÷Óô洢¹ý³ÌµÄ·½·¨ÐèҪʹÓÃADOµÄCommand¶ÔÏó¡£Command¶ÔÏóÊǶÔÒ»¸öÊý¾ÝÔ´ÔËÐÐÌØ¶¨ÃüÁîµÄ¶¨Ò壨ÀýÈ磬һ¸öSQL²éѯ»òÒ»¸öSQL´æ´¢¹ý³Ì£©¡£ÏÂÃæÒÔMS SQL SERVER6.5Ϊºǫ́Êý¾Ý¿â£¬½éÉÜASPµ÷Óô洢¹ý³ÌµÄ·½·¨¡£
---- ¡ ......