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
Ïà¹ØÎĵµ£º
·Ï»°ÉÙ˵,¼û´úÂë
<%=request.ServerVariables("LOGON_USER")%>
Ê×ÏÈIISËùÔڵķþÎñÆ÷Òª¼ÓÈëÓò,Æä´ÎÊÇIIS·þÎñÆ÷µÄÉèÖÃ.¼ûͼ1
ͼ2
·þÎñÆ÷ÉèÖúúó, IISËùÔڵķþÎñÆ÷ʹÓÃ
<%=request.ServerVariables("LOGON_USER")%>
¾ÍÄÜ»ñÈ¡µ½ÓòÃû³ÆºÍÓû§ÃûÁË.
Èç¹û·ÃÎÊÕßûÓмÓÈëÓò,»áÌáʾµÇ¼,ÈçÏÂͼ.Ê ......
add.html
<html>
<head>
<title>ÎÞ×é¼þÉÏ´«</title>
</head>
<body>
<form method="POST" name="myform" action="xSave.asp" target="_self">
<input name="PicPath" type="text" id="PicPath" readonly="true">
<input name="sPicPath" type="hidden" id="sPi ......
<%
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 ......
Ò³ÃæÉúÃüÖÜÆÚ
Ò³ ÃæÉúÃüÖÜÆÚÖ´ÐÐһϵÁв½Öè£ºÒ³ÃæµÄ³õʼ»¯¡¢ÊµÀý»¯¿Ø¼þ¡¢»¹ÔºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´úÂë¡¢³ÊÏÖ¡£ÎªÁËÔÚºÏÊʵĽ׶ÎÖ´ÐÐËùÐèµÄ´úÂ룬ËùÒÔÒª¶ÔÒ³ÃæÉúÃü ÖÜÆÚ·Ç³£ÊìϤ¡£ÔÚÒ³ÉúÃüÖÜÆÚµÄ¸÷¸ö½×¶Î£¬Ò³Ãæ»áÖð¸öÒý·¢¶¨ÒåµÄʼþ£¬Í¨¹ý¶Ô´úÂ뿪·¢£¬ÔÚÒ³ÃæµÄÉúÃüʼþÖÐÖ´ÐÐÎÒÃÇËùÐèÒªµÄ³ÌÐò
Ò³ÉúÃüÖÜÆÚ½×¶Î
1¡ ......
ASPͨ¹ýcookieʵÏÖ×Ô¶¯¼ÇסÃÜÂëµÄ¹¦ÄÜ
°ÑÒÔÏ´úÂë¼ÓÈëÑéÖ¤Ò³£º
<%if Trim(Cstr(request.QueryString("check")))="true" then ‘ÓÃÀ´ÅжÏÊÇ·ñÓÐÑ¡Ôñ¼ÇסÃÜÂë
Response.Cookies("UserCookie")("username") = Trim(Cstr(request.Form("username")))
Response.Cookies("UserCookie")("passwords") = trim ......