ASPÓÃADODB.StreamдUTF
Function WriteToUTF(content,sFilen)'contentΪÌæ»»ºóµÄ×Ö·û´®,filenameΪÉú³ÉµÄÎļþÃû
dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"' //±àÂ룬ÕâÀïÄã¿ÉÒԸijÉÈκαàÂë
.Position = objStream.Size
.WriteText = content' //Ä£°æ+Êý¾Ý дÈëÄÚÈÝ
.SaveToFile server.mappath("../"&sFilen),2' //Éú³ÉÎļþ·¾¶
.Close
End With
Set objStream = Nothing
End Function
Ïà¹ØÎĵµ£º
JMAIL°²×°ÅäÖÃ
jmail·¢ËÍÓʼþµÄʵÀý´úÂëÍøÉϺܶà.µ«ÊÇÓÐЩϸ½ÚÈç¹û²»ÅäÖúÃ,·¢ËÍʧ°ÜµÄ¿ÉÄÜÐԺܴó.
Ê×ÏÈ˵Ã÷Ò»ÏÂjmail°²×°ÅäÖò½Öè:
1. JMail ÏÂÔصØÖ·
http://hbdx3.skycn.com/down/w3JMail43Personal.exe
2.°²×°
±¾ÈËÔÚWindows 2003ÏÂÃæÅäÖÃ,ÆäËüϵͳ»¹Ã»ÓвâÊÔ.
°²×°µ½Ä¿Â¼±ÈÈç: C:\Program Files\Dimac\w3JMai ......
<script language="javascript">
function CheckAll(form)
{ ///¶¨Ò庯Êýcheckall,²ÎÊýΪform
for (var i=0;i<form.elements.length;i++)
///Ñ»·,form.elements.lengthµÃµ½±íµ¥ÀïµÄ¿Ø¼þ¸öÊý
{
///°Ñ±íµ¥ÀïµÄÄÚÈÝÒÀÒÀ¸¶¸øeÕâ¸ö±äÁ¿
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = for ......
½ñÌìÔÚÐÞ¸ÄÒÔÇ°¿ª·¢µÄÒ»¸öÍøÕ¾µÄʱºòÓöµ½Ò»¸öÎÊÌ⣬ÒòΪ¹¦ÄܵÄÐèÒª£¬ÒÔÇ°µÄÒ»¸öÊý×ÖÀàÐÍ×ֶθıäΪÎı¾×ֶΣ¬ÒòΪÕâ¸ö×Ö¶ÎÐèÒª°üº¬¶à¸öÀà±ðµÄID£¬ÒÔÇ°Õâ¸ö×Ö¶ÎÖ»¶ÔÓ¦Ò»¸öIDµÄ¡£
ÍøÕ¾ÊÇASP VBÓïÑԵģ¬Êý¾Ý¿âʹÓõÄÊÇAccess
ÐÞ¸ÄÊý¾ÝÀàÐÍÖ®ºóǰ̨µÄ²éѯ´úÂë¾Í²»ÄÜʹÓÃÖîÈçxID=1ÕâÖÖÌõ¼þÁË¡£ÓÉÓÚÏÖÔÚ¸Ã×ֶαäΪÎı¾ÀàÐ ......
<%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>¿ªÊ¼Ö´ÐÐÇåÀíµ±Ç°Õ¾µã»º´æ</b>£º")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInf ......