作业入库.txt

来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习的好资料」· 文本代码 · 共 42 行

TXT

42 行

<%  'from jxHomework1 form  6项值输入
xuehao= request("xuehao")
jihao = request("iphao")
zuoye = request("zuoye")
tihao = request("tihao")
sDir  = request("dir")

Response.Write "<body bgColor = #D9ECFF><center>"
if zuoye = "" then
  Response.Write now() &" <font color=red><b>作业为空，不提交。</b></font></center>":
                                                                   Response.end
elseif len(zuoye) > 8192 then
  Response.Write " <font color=red>由于硬盘空间的原因，限制作业的文本大小<8k，
                              请删减后再提交。</font></center>": Response.end
end if
zuoye = replace(zuoye, "<BR>", vbCrLf)
zuoye = replace(zuoye, chr(34), "'")            ' " -> '
zuoye = replace(zuoye, "'", "''")     

sDBFile = "/jxyd/HomeWork/"& sDir &"/Work"& left(tihao,1) &"Get.mdb"
Set dbc = Server.CreateObject("ADODB.Connection")
strConn = "driver={Microsoft Access Driver (*.mdb)}"
dbc.open strConn & ";dbq=" & Server.MapPath(sDBfile)

sql = "select * from 作业题目 where 学号='"& xuehao &"'"
Set rs = dbc.execute(sql)
if rs.EOF then
  sql = "insert into 作业题目(日期,学号,机号,内容)"
  sql = sql & "values('"& now() &"','"& xuehao &"','"& jihao &"','"& zuoye &"')"
  Set rs = dbc.execute(sql)
  Response.Write now() &" <font color=red><b>成功提交作业。</b></font></center>"
else
  riqi = rs("日期"): defen = rs("得分")
  sql = "update 作业题目 SET 日期='"& now() &"',机号='"& jihao &"',内容='"& zuoye &"',
                                得分='"& cstr(cint(defen)-1) &"' where 学号='"& xuehao &"'"
  Set rs = dbc.execute(sql)
  Response.Write now() &" <font color=red><b>第"& cstr(cint(abs(defen))+1) &"次成功提交作业。
                                                                </b></font></center>"
end if
Set rs = Nothing: Set dbc = Nothing 
%>

作业入库.txt - 源码说明

本页面展示了「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习的好资料」中的作业入库.txt 源码文件，采用文本编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Web开发相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?