用ASP做一个记事本编缉器（附源码）
2018-09-05 23:48
newDoc.asp
----------------------------------------------------------
<%@ Language=VBScript %>
// Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
<!--
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
-->
<%dim x
if Request(type)=save then
x = 1
end if
%>