1. 爱易网页
  2. ASP教程
  3. 用ASP做一个记事本编缉器（附源码）

用ASP做一个记事本编缉器（附源码）

日期：2011-01-21　 浏览次数：21012 次

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><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>
  &nbs

相关资料更多>

  1. 哪位高手知道 ASP Debugger工具中哪个最好用(散分)
  2. 在ASP中限制同以表单被多次提交
  3. 注册的简单有关问题，怎么检索数据库中的用户名和邮箱是否存在，都不允许重复；最好能对resinger.asp中的user,pass,email,进行上检测
  4. ASP错误代码总结_ASP基础_ASP教程
  5. Microsoft.XMLHTTP打开一个页面 和直接打开页面效果是否一样解决方法
  6. 无组件上传文件(1)
  7. 求一条SQL语句,请各位帮帮忙解决方案
  8. Microsoft 脚本编码器Script Encoder介绍（3）全中文！！！！_脚本编码_ASP教程
  9. 求INSTR句-在线,该怎么解决