-By Elaya Manickam Narayanan.
We all must have used the "Scripting.FileSystemObject" progid to create text files. But only a few know that it can be used for writing all kinds of files. For example, you can create html files using the filesystemobject. And why not, you can even write ASP files using an asp file! That's right! An ASP Code generator.
Here's the complete code of how this can be done: Just copy and paste the following code into an asp file. Invoke your browser and request the asp file. Eureka! The file generates its own asp file (generatedasp.asp) and submits itself. For any queries regarding this article mail me at elayamanickam@indya.com. Happy programming!
<%
'Author Name : Elaya Manickam Narayanan 'Purpose : Generates as output an .asp file
'Create the ASP file 'Variables Declaration Dim fso Dim i 'Create Object for the ASP File Set fso = Server.CreateObject("Scripting.FileSystemObject") 'Create the asp file Set FileSys = fso.CreateTextFile(Server.mappath("generatedasp.asp"),true) 'Procedure to write the asp file Call WriteASP() 'Close the file FileSys.Close 'Release the reference Set FileSys = Nothing
'Procedure for the body of the Generated asp file Sub WriteASP() FileSys.WriteLine("<%") FileSys.WriteLine("'******This file was generated by vbscript******") FileSys.WriteLine("Response.write ""You logged in as:"" & Request(""login"")") FileSys.WriteLine("Response.Write ""<BR>""") FileSys.WriteLine("Response.write ""Your password is:"" & Request(""password"")") 'In the following line '%' and '>' are intentionally seperated becos it 'generates an error if they are given together. FileSys.WriteLine("%" & ">") End Sub %> <html> <head> </head> <body> <form name = "form1" action = "Generatedasp.asp" method = "post"> <table align = "center" border = "1"> <tr> <td> Login </td> <td> <input type ="text" name ="login" maxlength = 12> </td> </tr> <tr> <td> Password </td> <td> <input type="password" name ="password" maxlength = 12> </td> </tr> <tr> <td> </td> <td> <input type ="Submit" value ="Submit"> </td> </tr> </table> </form> </body> </html>
|
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
More ASP Code Articles More By aspfree developerWorks - FREE Tools! | <a href="http://zeus.developershed.com/shonuff.php?blackbird=3853&zoneid=442&source=&dest=http%3A%2F%2Fwww.ibm.com%2Fdeveloperworks%2Fspaces%2Fjazz%3FS_TACT%3D105AGY31%26S_CMP%3DDEVSHED&ismap="><img src="http://images.devshed.com/corp/img/news/jazz01.gif" alt="developerWorks Jazz space" align="left"></a>You've heard the buzz about Jazz... want to know more about it from a developer's perspective? Check out the Jazz space on developerWorks. This space is an up-to-date resource for developers, including technical information about Jazz and products built on Jazz, like Rational Team Concert Express. The Jazz space includes content from a wide variety of sources, including links, feeds, and comments from experts. FREE! Go There Now!
| | | | Building a software-as-a-service solution requires addressing a few key technical challenges. In this webcast, we'll focus on the role of IBM Tivoli Directory Server and WebSphere Portlet Factory in creating a Software as a Service solution. We will demonstrate how to use Tivoli Directory Server to prevent the user population of one tenant from accessing the virtual portal and portlet components of another tenant. We will also use the dynamic profile capability of WebSphere Portlet Factory to create multiple highly customized applications from one code base. FREE! Go There Now!
| | | | Visit IBM developerWorks to download a free trial of the latest release of IBM Lotus Sametime Standard V8.0. Lotus Sametime Standard V8.0 is a platform for unified communications and collaboration that combines security features with an extensible, open solution including integrated Voice over IP, geographic location awareness, mobile clients, and a robust Business Partner community offering telephony and video integration. FREE! Go There Now!
| | | | Listen to this webcast to get an overview of Info 2.0 and a technical demo of how to quickly build an enterprise mashup. IBM's Info 2.0 technology leverages emerging Web 2.0 technologies such as mashups, feeds, AJAX, and JSON in order to simplify assembly of information using feeds and services. Come learn about the technical elements of Info 2.0 including the Feed Generation framework, Mashup Engine, and mashup assembly components. Learn how to pull information from databases, departmental information, and the Web to create mashups critical to your company’s success. We will also discuss best practices to help you get started. FREE! Go There Now!
| | | | Ken Krugler, co-founder of code search company Krugle, and Laura Merling, vice president of Marketing and Business Development for Krugle, join to talk about the ins and outs of code search and what it means as a new feature for developerWorks users. FREE! Go There Now!
| | | | Join this Rational Talks to You teleconference on December 4 at 1:00 pm ET to discuss how Rational Method Composer can help meet your compliance objectives. Get your questions answered! FREE! Go There Now!
| | | | Get a free trial download of the latest version of IBM Rational Functional Tester V7.0.1. Rational Functional Tester is an automated functional and regression testing solution for QA teams concerned with the quality of their Java, Microsoft Visual Studio .NET, and Web-based applications. FREE! Go There Now!
| | | | Try the latest version of IBM Rational Manual Tester V7.0.1 by downloading a free trial from IBM developerWorks. This manual test authoring and execution tool promotes test step reuse to reduce the impact of software change on testers and business analysts and addresses the needs of teams performing at least a portion of their testing manually. FREE! Go There Now!
| | | | As businesses grow increasingly dependent upon Web applications, these complex entities grow more difficult to secure. Most companies equip their Web sites with firewalls, Secure Sockets Layer (SSL), and network and host security, but the majority of attacks are on applications themselves – and these technologies cannot prevent them. This paper explains what you can do to help protect your organization, and it discusses an approach for improving your organization’s Web application security. FREE! Go There Now!
| | | | Join this webcast to learn how IBM Rational's Functional Testing solution enables you to implement automation your way, at your pace, with your existing staff. In this webcast, you’ll learn how you can eliminate redundancy of manual test scripts, reduce errors, and increase test coverage through test automation. After this presentation you will understand how IBM Rational Functional Testing solution can streamline your manual testing and make test automation easily attainable. FREE! Go There Now!
| | | | All FREE IBM® developerWorks Tools! | |