asp无人接到net请求解决
1. <!--#include   file= "conn.asp "-->
<%codepage=936%>
<%
Response.ContentType= "text/xml "
'response.expires=0
Response.Write( " <?xml   version= '1.0 '   encoding= 'GB2312 '?> ")
sqlr   =   "select   *   from   stu   "
rs.Open   sqlr,conn,3,2
rs.save   server.mappath( "aaa.xml "),adPersistXML
%>
现在问题时aaa.xml显示是乱码，也没有查到解决办法？
请问该如何解决呢？谢谢

2.Function   LoadFile(ByVal   File)
Dim   objStream
On   Error   Resume   Next
Set   objStream   =   Server.CreateObject( "ADODB.Stream ")
With   objStream
.Type   =   2
.Mode   =   3
.Open
.LoadFromFile   Server.MapPath(File)
.Charset   =   "GB2312 "
.Position   =.size
.writetext   "xulei ",adwriteline
.Position   =2
response.write(   .ReadText)
response.write(   .size)
.SaveToFile   Server.MapPath(File),2

.Close
End   With
Set   objStream   =   Nothing
End   Function
保存的全是乱码请问如何处理

------解决方案--------------------
第一个不会
第二个这样写
With objStream
.Type =2
.Mode = 3
.Open
.Position=0
.Charset = "GB2312 "
.LoadFromFile Server.MapPath(File)
response.flush