【 tulaoshi.com - ASP 】
newDoc.asp
----------------------------------------------------------
<%@ Language=VBScript %
<SCRIPT id=DebugDirectives runat=server language=javascript
// Set these 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<BASP 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=2Document:<B <%=Request.querystring("doc")%</B</font
<%else%
<Font face=arial size=2Document:<B Untitled</B</font
