用ASP做一个记事本编缉器_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>

http://www.gaodaima.com/66178.html用ASP做一个记事本编缉器_asp

    <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>
    ASP NOTEPAD
    <%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%>
    Document: <%=Request.querystring("doc")%>
    <%else%>
    Document: Untitled
    <%
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 MS</option>
    <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'>

    You will not be questioned on saving the changes</P>
    <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" >  
    <hr width="100%">
    

    <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(request("doc")).Write request("textarea1")
    else
    OBJECT1.CreateTextFile (request("text1"),true).Write Request("textarea1")
    end if
    end if
    if not Request.QueryString("doc")="" and not Request("ch")=1 then
    if OBJECT1.FileExists(Request.QueryString("doc")) then
    Response.Write OBJECT1.OpenTextFile(Request.QueryString("doc")).ReadAll
    else
    Response.Write "<????> No document Exists <????>"
    end if
    end if
    %>
    </TEXTAREA>
    </form>
    <HR width="100%">
     
    </BODY>
    </HTML>
     
    aspnp.asp
    ----------------------------------------------------------------
    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    <SCRIPT ID=clientEventHandlersjs LANGUAGE=javascript>
    <!--

function submit1_onclick() {
if(frm1.file1.value==null)
window.open("newdoc.asp?doc=" + document.frm1.file1.value);
}

function button2_onclick() {
window.close()
}

function new_onclick() {
window.open("newdoc.asp?doc=");
}

//-->
    </SCRIPT>
    </HEAD>
    <BODY>
    <form name=frm1>
    <P align=left><STRONG>ASP  
    NOTEPAD</STRONG></P>
    <P align=center>
     
    <INPUT id=file1 name=file1
type=file CHECKED readOnly style="HEIGHT: 22px; LEFT: 55px; TOP: 16px; WIDTH: 100%">

  
    <INPUT id=submit1 name=submit1 type=submit value=Open style="HEIGHT: 24px; WIDTH: 65px"
LANGUAGE=javascript onclick="return submit1_onclick()"> <INPUT id=new name=new style="HEIGHT: 24px;
WIDTH: 64px" type=submit value=New LANGUAGE=javascript onclick="return new_onclick()">  
    <INPUT id=button2 name=button2 style="HEIGHT: 24px; WIDTH: 74px" type=button value=Exit
LANGUAGE=javascript onclick="return button2_onclick()"></P>  
     
    </form>
    <P> </P>
    <P>
    <HR>
    <STRONG>Author: </STRONG>Sharon  
    Jayaraj
<STRONG>Platform:  
    </STRONG>Win98
<STRONG>Application  
    Used: </STRONG>Interdev(for easy  
    Working) and PWS(for  
    testing)</P>
     
    </BODY>
    </HTML>

欢迎大家阅读《用ASP做一个记事本编缉器_asp》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 用ASP做一个记事本编缉器_asp

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注