<% function showcode(filename) set fso = server.createobject("scripting.filesystemobject") set cnrs = fso.opentextfile(filename, 1) while not cnrs.atendofstream rsline = cnrs.readline rsline = server.htmlencode(rsline) response.write(rsline & "<br>") wend end function %> <form action="viewcode.asp" method="post"> 输入文件名<input type="file" name="filename"> <input type="submit" value="查看源程序"> </form> <% file=request.form("filename") response.write (file & "源程序如下<hr>") if trim(file)<> "" then call showcode(file) end if %> |
<% whichfile=server.mappath("test.txt") set fso = createobject("scripting.filesystemobject") set txt = fso.opentextfile(whichfile,1) rline = txt.readall rline=replace(server.htmlencode(rline),chr(13),"<br>") response.write rline txt.close %> |
<% if not request.form("nextline")="" then set fso=server.createobject("scripting.filesystemobject") textfile1=server.mappath("story.txt") set cnrs=fso.opentextfile(textfile1,8) cnrs.writeline(request.form("nextline")) cnrs.close end if %> 故事如下: <% set fso=server.createobject("scripting.filesystemobject") textfile1=server.mappath("story.txt") set cnrs=fso.opentextfile(textfile1,1) while not cnrs.atendofstream response.write " " & cnrs.readline wend cnrs.close %> <hr> <form method="post" action="story.asp"> 请输入这个故事的新行:<input name="nextline" type="text" size="70"> <input type="submit" value="提交"> </form> |
<% whichfile=server.mappath("site.txt") set fso=createobject("scripting.filesystemobject") set thisfile=fso.opentextfile(whichfile) my_string=thisfile.readline a_num = instr(my_string,"a") b_num = instr(my_string,"b") c_num = instr(my_string,"c") d_num = instr(my_string,"d") total_num = len(my_string) a_value = mid(my_string,a_num+1,b_num-a_num-1) b_value = mid(my_string,b_num+1,c_num-b_num-1) c_value = mid(my_string,c_num+1,d_num-c_num-1) d_value = mid(my_string,d_num+1,total_num-d_num) select case request.form("website") case "a": a_value=a_value+1 case "b": b_value=b_value+1 case "c": c_value=c_value+1 case "d": d_value=d_value+1 end select mynew_string="a" & cstr(a_value) & "b" & cstr(b_value) & "c" & cstr(c_value) & "d" & cstr(d_value) set newfile=fso.createtextfile(whichfile) newfile.writeline(mynew_string) newfile.close set fso=nothing %> 当前投票:<br> cnbruce.com:<%=a_value%><br> blueidea.com:<%=b_value%><br> it356cn.com:<%=c_value%><br> 5d.cn:<%=d_value%><br> <a href="website.html">返回继续</a> |
如对本文有疑问, 点击进行留言回复!!
asp中Request.ServerVariables的参数集合
网友评论