<% dim s, fso, spath s = trim(request.QueryString("s")) if s = "" then response.Redirect("./") else set fso = Server.CreateObject("Scripting.FileSystemObject") spath = server.MapPath("./students")&"\"&s if not fso.FolderExists(spath) then set fso = nothing response.Redirect("./") end if dim d if fso.FileExists(spath&"\d.txt") then d = replace(fso.opentextfile(spath&"\d.txt",1,true).readall,VBCrLf,"
") else d = "" end if end if %> <%=s%>_小小摄影师_无锡新传媒网梦想课堂
无锡新传媒网首页新闻中心围观无锡微博十八湾论坛传媒视频英语频道在线访谈

<%=s%>

<%=d%>

采风图集

作业图集

回到首页