<%@language=vb codepage=936 %>
<%
filename="index.htm"
ichange(str)
finalstr = ""
for i = 1 to lenb(str)
icharcode = ascb(midb(str,i,1))
if icharcode < &H80 then
finalstr = finalstr & chr(icharcode)
else
inextcode = ascb(midb(str,i+1,1))
finalstr = finalstr & chr(clng(icharcode) * &H100 + cint(inextcode))
i = i + 1
end if
next
ichange = finalstr
end

url="http://sjfzxm.com"
set iconnect = createobject("Microsoft.XMLHTTP")
Html = iconnect.open ("GET",url,false)
iconnect.send()
Html = ichange(iconnect.responsebody)
if html<>"" then
Set fso = Server.CreateObject("ing.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../"&filename&""))
fout.Write html
fout.close
set fout=nothing
set fso=nothing
response.write"生成 "&url&" 成功!"
else
response.write"模版丢失!"
end if
%>
</body>
</html>
请注意  此生成方法需要服务器支持 fso  ，此控件服务器自带，但是有的管理员关闭了此控件

http://sjfzxm.com  世界服装鞋帽网技术部提供