📄 upload.asp

📁 学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁

💻 ASP

字号:

<%
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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -