<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Sub Save_File(psFilePath, psFileContent, psCharSet)
dim oStream
Set oStream =Server.CreateObject("Adodb.Stream")
With oStream
.Type =2
.Mode =3
.Charset =psCharSet
.Open
.WriteText psFileContent,0
.SaveToFile Server.MapPath(psFilePath),2
.Flush
.Close
End With
Set oStream =Nothing
End Sub
If Request.QueryString("act") ="关机" Then Call Save_File("1.txt", "0", "gb2312")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form method="get" action="">
<input type="submit" name="act" value="关机" />
</form>
</body>
</html>
<%
Sub Save_File(psFilePath, psFileContent, psCharSet)
dim oStream
Set oStream =Server.CreateObject("Adodb.Stream")
With oStream
.Type =2
.Mode =3
.Charset =psCharSet
.Open
.WriteText psFileContent,0
.SaveToFile Server.MapPath(psFilePath),2
.Flush
.Close
End With
Set oStream =Nothing
End Sub
If Request.QueryString("act") ="关机" Then Call Save_File("1.txt", "0", "gb2312")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form method="get" action="">
<input type="submit" name="act" value="关机" />
</form>
</body>
</html>