UTF8Êý¾Ýת»»³ÉΪGB2312£¨AspÖУ©
½ñÌìÓöµ½Ò»¸öasp³ÌÐò£¬ÓÃReWriteÖØÐ´URLºó£¬ÖÐÎIJÎÊýÂÒÂ룬²é×ÊÁϺó˵ÊÇReWriteËù½ÓÊյIJÎÊý×Ô¶¯×ªÎªUTF-8£¬¶øÎÒµÄÇ°Ì¨Ò³ÃæºÍÊý¾Ý¿â¶¼ÎªGB2312¸ñʽ£¬ºóÀ´ÔÚÍøÉÏÕÒÁ˺þã¬ÖÕÓÚÕÒµ½Ò»¸öÄܳɹ¦½«UTF-8ת»»ÎªGB2312µÄº¯Êý£¬º¯Êýת»»´úÂëÈçÏÂ
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.CreateObject("adodb.stream")
stm.Type=2
stm.Mode=3
stm.Charset="GB2312"
stm.Open
stm.WriteText fileContent
stm.Position=0
stm.Charset="UTF-8"
CodeConvert = stm.ReadText
stm.Close
set stm=nothing
End function
%>
ÌØ´Ë¼Ç¼£¬Ï£Íû¶ÔÓÐÐèÒªµÄÅóÓѸøÓë°ïÖú£¬Ò²·½±ã×Ô¼ºÒÔºó²é¿´£¡
Ïà¹ØÎĵµ£º
Array()
¡¡¡¡FUNCTION: ·µ»ØÒ»¸öÊý×é
¡¡¡¡SYNTAX: Array(list)
¡¡¡¡ARGUMENTS: ×Ö·û£¬Êý×Ö¾ù¿É
¡¡¡¡EXAMPLE: <%
¡¡¡¡Dim myArray()
¡¡¡¡For i = 1 to 7
¡¡¡¡Redim Preserve myArray(i)
¡¡¡¡myArray(i) = WeekdayName(i)
¡¡¡¡Next
¡¡¡¡%[/IMG]
¡¡¡¡RESULT: ½¨Á¢ÁËÒ»¸ö°üº¬7¸öÔªËØµÄÊý×émyArray
¡ ......
ASP±à³ÌÖÐ20¸ö·Ç³£ÓÐÓõÄÀý×Ó
1.ÈçºÎÓÃAspÅжÏÄãµÄÍøÕ¾µÄÐéÄâÎïÀí·¾¶
´ð£ºÊ¹ÓÃMappath·½·¨
<%= Server.MapPath("\")%>
2.ÎÒÈçºÎÖªµÀʹÓÃÕßËùÓõÄä¯ÀÀÆ÷£¿
´ð£ºÊ¹ÓÃthe Request object·½·¨
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") & ......
´ó¼ÒÓÐÅöµ½¹ýÒªÏëȡһ×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵϰ£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
ÎÒÏȽéÉÜÒ»ÏÂSplitº¯ÊýµÄÓ÷¨:
·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¼ÙÉè±äÁ¿strURL±£´æ×ÅURLÖµ£¬ÈçstrURL = "ftp://username ......
ÔÚ´óÐ͵ÄASPÏîÄ¿ÖУ¬ºÜ¶àµÄÒ³Ãæ¶¼Éæ¼°µ½·Ò³¹¦ÄÜ¡£Èç¹ûÿ¸öÒ³Ãæ¶¼Ð´Ò»¸ö·Ò³µÄ³ÌÐòµÄ»°£¬ÕâÑùµÄ¹¤×÷¼´½µµÍÁ˹¤×÷Ч
ÂÊ£¬Ò²²»ÀûÓÚ¹¤³ÌµÄÄ£¿é»¯£¬²»ÄÜʹ´úÂëÖØÓá£Òò´Ë£¬°Ñ·Ò³ÕâÑùµÄ¹¦ÄÜÄ£¿é»¯ÊǺÜÓбØÒªµÄ¡£
¡¡¡¡Éè¼Æ·½·¨£º
¡¡¡¡1¡¢µ÷ÓøÃÄ£¿éʱ£¬Ö»ÐèÒª´«µÝ¼Ç¼¼¯ºÍÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£»
¡¡¡¡2¡¢¿ÉÒÔµã»÷Á´½Ó½øÐз ......
aspÁ¬½ÓaccessºÍmssqlµÄÍòÄÜ´úÂ룺
'½â¾öÁËACCESSÊý¾Ý¿â·¾¶µÄÎÊÌ⣡
'²ÉÓÃDBType=0»òDBType=1À´Çø·ÖAC¿â»¹ÊÇMSSQL¿â
'¾ßÌå²ÉÓÃAC¿âʱӦעÒâµÄÊÂÏÇë¿´³ÌÐò˵Ã÷
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0ΪAccessÊý¾Ý¿â£¬1ΪMSSQLÊý¾Ý¿â
If(DBType=0) Then
......