upload.asp

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

ASP
52
字号
<%
xh=request("xh")

zybj = request("zybj")
s = request("s")
bjbh = request("bjbh")
key="b"+cstr(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 ["&key&"] where xh='" + xh + "'",connGraph,1,3
rec("img").appendchunk mydata
rec("xh")=xh
rec.update
rec.close 

set rec=nothing 

set connGraph=nothing 

%>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif" topmargin="0">
<p><p>

<center> <p> </p>
<p> </p>
<p><a href=lrgl.asp?zybj=<%=zybj%>&s=<%=s%>&jsmax=<%=xh%>>录入<%=s%><%=zybj%>下一位学生</a></p>
</center>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?