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
%>
ÌØ´Ë¼Ç¼£¬Ï£Íû¶ÔÓÐÐèÒªµÄÅóÓѸøÓë°ïÖú£¬Ò²·½±ã×Ô¼ºÒÔºó²é¿´£¡
Ïà¹ØÎĵµ£º
<%
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array( ......
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØÖ¸Ê¹ÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.ContentType ="application/vnd.ms-excel"
%>
<%
Set xlApplication = Server.CreateObject("Excel.Application") 'µ÷ÓÃexcel¶ÔÏó
xlApplication.Visible = False 'ÎÞÐè´ò¿ªexcel
xlApplication.SheetsInN ......
ASPÈçºÎÁ¬½ÓÊý¾ÝÔ´£¿(ϵͳDSN)Öн¨Á¢µÄÊý¾ÝÔ´£¿
ASPÔõô½¨Á¢Á¬½Ó£¬²»ÊÇOLEDB·½Ê½£¬ÓÃODBCÖеēÓû§DSN”½¨Á¢µÄÊý¾ÝÔ´½øÐÐÁ¬½Ó£¿ÈçºÎ²Ù×÷£¿
ÎÊÌâ²¹³ä£ºÎÒµÄÊÇODBCÖеēÓû§DSN”²»ÊǓϵͳDSN”£¬“Óû§DSN”ÔõôÁ¬½Ó£¿¶øÇÒÎÒµÄÊý¾Ý¿âÓÐÃÜÂë¡£
ÌáÎÊÕߣºÄäÃû
×î¼Ñ´ð°¸
Set co ......
Ê×ÏÈ£¬ËûÃǵÄÔËÐлúÖÆ²»Í¬¡£aspÊÇÊôÓÚÒ»ÖÖ½âÊÍÐ͵Ŀò¼Ü£¡ÊǽâÊÍÖ´Ðеģ¬Êǽű¾¡£asp.netÊDZàÒëÐ͵ģ¡×îÖÕ»á±à³Ì¶þ½øÖƵĻúÆ÷´úÂë¡£´ÓÕâÒ»µãÀ´Ëµ£¬asp.netÖ´ÐÐЧÂÊÉÏÒª±Èasp¸ß£¡
Æä´Î£¬aspÖ»ÔÊÐíʹÓÃjs»òÕßvbs¡£¶øasp.netÔò²»Ò»Ñù£¬Ö»Òª·ûºÏ¹«¹²ÓïÑÔÔËÐÐ¿â¹æ·¶µÄÓïÑÔ£¬¶¼¿ÉÒÔʹÓã¡´ÓÕâÒ»µãÉÏÀ´Ëµ£¬aspÔڵײã²Ù×÷ÉϽÏasp.ne ......