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 + -
显示快捷键?