upload1f.asp

来自「学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁」· ASP 代码 · 共 44 行

<%
xh=request("xh")
 zybj=request("zybj")
key = request("key")
topic=request("topic")
bjbh = request("bjbh")


response.buffer=true 

formsize=request.totalbytes 
formdata=request.binaryread(formsize) 

bncrlf=chrB(13) & chrB(10) 

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) 

datastart=instrb(formdata,bncrlf & bncrlf)+4 

dataend=instrb(datastart+1,formdata,divider)-datastart 

mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection") 

set objRst = server.createobject("adodb.recordset")


connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("gws.mdb") & ";uid=;PWD=gws;" 

connGraph.Open 


set rec=server.createobject("ADODB.recordset") 
rec.Open "SELECT * FROM ["&bjbh&"] where xh='" + xh + "'",connGraph,1,3
rec("img").appendchunk mydata
rec("xh")=xh
rec.update
rec.close 

set rec=nothing 

set connGraph=nothing 
Response.Redirect"gwsxgf.asp?xh="&xh&"&zybj="&zybj&"&key="&key&"&topic="&topic&"&bjbh="&bjbh&""
%>