Newdoc.asp
----------------------------------------------------------
<%@ Language=vbscript%>
<script id=debugdirectives Runat=server language=javascript>
Set this to true to enable debugging or tracing
@set @debug =false
@set @trace =false
</SCRIPT>
<HTML>
<HEAD>
<meta Name=vi60_defaultclientscript content=vbscript>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
<script Id=clienteventhandlersvbs language=vbscript>
<!--
Sub Button2_onclick
Fo1. Textarea1.style.fontfamily=select1.value
End Sub
Sub Button3_onclick
Fo1. Textarea1.style.fontsize=select2.value
End Sub
Sub Button4_onclick
If button4.value= "Bold" Then
Button4.value= "Un Bold"
Fo1. textarea1.style.fontweight= "Bold"
Else
Button4.value= "Bold"
Fo1. textarea1.style.fontweight= "Normal"
End If
End Sub
Sub Button5_onclick
If button5.value= "italics" then
Button5.value= "Un italics"
Fo1. textarea1.style.fontstyle= "Italic"
Else
Button5.value= "italics"
Fo1. Textarea1.style.fontstyle= "Normal"
End If
End Sub
Sub Button6_onclick
Window.close
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<font face=arial size=3 color=royalblue><b>asp notepad</b></font>
<%dim x
If Request ("type") = "Save" Then
x = 1
End If
%>
<object id=object1 progid= "Scripting.FileSystemObject" runat= "Server" ></OBJECT>
<table Bgcolor=blanchedalmond border=0 cellpadding=1 cellspacing=1
Width= "100%" >
<TR>
<TD>
<% if not Len (Request ("Doc")) =0 then%>
<font face=arial size=2>document:<b> <%=request.querystring ("Doc")%></b></font>
<%else%>
<font face=arial size=2>document:<b> untitled</b></font>
<%
End If%>
</TD>
</TR>
</TABLE>
<p><select id=select1 name=select1 style= "HEIGHT:22PX; width:25% ">
<option value= ' Times New Roman ' >times new roman</option>
<option value= ' System ' >System</option>
<option value= ' Arial ' >Arial</option>
<option value= ' comic Sans MS ' >comic Sans
<option value= ' Courier ' >Courier</option>
<option value= ' Courier New ' >courier new</option>
<option value= ' Verdana ' >Verdana</option>
</SELECT>
<input id=button2 name=button2 Type=button value=font>
<select id=select2 name=select2 style= "HEIGHT:22PX; width:60px ">
<option value=8pt>8pt</option>
<option value=9pt>9pt</option>
<option value=10pt selected>10pt</option>
<%for a=11 to 100%>
<option value= ' <%=a%>pt ' ><%=a%>pt</option>
<%next
%>
</SELECT>
<input Id=button3 Name=button3 Type=button value=size>
<input id=button4 name=button4 Type=button value=bold>
<input id=button5 name=button5 Type=button value=italics>
<input id=button6 name=button6 Type=button value= ' Close Window ' ><BR><BR>
<font face=arial Size=1>you won't is questioned on saving the changes</p></font>
<form id=fo1 name=fo1 method=post action=newdoc.asp?type=save&ch=1&doc=<%=request.querystring ("Doc") %>>
<input id=text1 name=text1 style= "HEIGHT:24PX; width:80% "Value=<%=request.querystring (" Doc ")%>>
<input id=button1 name=button1 style= "HEIGHT:24PX; width:15% "Type=submit value=" Save File >
<BR>
<textarea id=textarea1 name=textarea1 style= "font-family:arial; font-size:10pt; height:50%; WIDTH:
100% "><%if Request (" ch ") =1 Then
Response.Write Request ("TEXTAREA1")
End If
If Len (Request ("Text1")) >0 Then
If OBJECT1. FileExists (Request ("text") then
OBJECT1. OpenTextFile ("Doc"). Write Request ("Textarea1&quo
