modify_xsl3.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 125 行

ASP
125 行
字号 
<!--#include file=conn.asp -->
<!--#include file=code.asp -->
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF


%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
</head>

<body>
<p>　 
  <%
ID=Request.QueryString("ID")
xueqi=request.form("select_xueqi")
zhouci=request.form("select_zhouci")
jyzx=request.form("text_jyzx")
jyyq=icode2html(htmlencode2(request.form("text_jyyq")), false, true)
day1=request.form("text_day1")
day2=request.form("text_day2")
day3=request.form("text_day3")
day4=request.form("text_day4")
day5=request.form("text_day5")
day6=request.form("text_day6")
xsl1=icode2html(htmlencode2(request.form("text_xsl1")), false, true)
xsl2=icode2html(htmlencode2(request.form("text_xsl2")), false, true)
xsl3=icode2html(htmlencode2(request.form("text_xsl3")), false, true)
xsl4=icode2html(htmlencode2(request.form("text_xsl4")), false, true)
xsl5=icode2html(htmlencode2(request.form("text_xsl5")), false, true)
xsl6=icode2html(htmlencode2(request.form("text_xsl6")), false, true)
bm1=icode2html(htmlencode2(request.form("text_bm1")), false, true)
bm2=icode2html(htmlencode2(request.form("text_bm2")), false, true)
bm3=icode2html(htmlencode2(request.form("text_bm3")), false, true)
bm4=icode2html(htmlencode2(request.form("text_bm4")), false, true)
bm5=icode2html(htmlencode2(request.form("text_bm5")), false, true)
bm6=icode2html(htmlencode2(request.form("text_bm6")), false, true)
set rs=server.CreateObject("ADODB.RecordSet")
sql="update xsl set xueqi='" & xueqi & "' where id="  &  id
conn.execute sql

sql="update xsl set zhouci='" & zhouci & "' where ID=" & ID
conn.execute sql

sql="update xsl set jyzx='" & jyzx & "' where ID=" & ID
conn.execute sql

sql="update xsl set jyyq='" & jyyq & "' where ID=" & ID
conn.execute sql

sql="update xsl set day1='" & day1 & "' where ID=" & ID
conn.execute sql

sql="update xsl set day2='" & day2 & "' where ID=" & ID
conn.execute sql

sql="update xsl set day3='" & day3 & "' where ID=" & ID
conn.execute sql

sql="update xsl set day4='" & day4 & "' where ID=" & ID
conn.execute sql

sql="update xsl set day5='" & day5 & "' where ID=" & ID
conn.execute sql

sql="update xsl set day6='" & day6 & "' where ID=" & ID
conn.execute sql

sql="update xsl set xsl1='" & xsl1 & "' where ID=" & ID
conn.execute sql

sql="update xsl set xsl2='" & xsl2 & "' where ID=" & ID
conn.execute sql

sql="update xsl set xsl3='" & xsl3 & "' where ID=" & ID
conn.execute sql

sql="update xsl set xsl4='" & xsl4 & "' where ID=" & ID
conn.execute sql

sql="update xsl set xsl5='" & xsl5 & "' where ID=" & ID
conn.execute sql

sql="update xsl set xsl6='" & xsl6 & "' where ID=" & ID
conn.execute sql

sql="update xsl set bm1='" & bm1 & "' where ID=" & ID
conn.execute sql

sql="update xsl set bm2='" & bm2 & "' where ID=" & ID
conn.execute sql

sql="update xsl set bm3='" & bm3 & "' where ID=" & ID
conn.execute sql

sql="update xsl set bm4='" & bm4 & "' where ID=" & ID
conn.execute sql

sql="update xsl set bm5='" & bm5 & "' where ID=" & ID
conn.execute sql

sql="update xsl set bm6='" & bm6 & "' where ID=" & ID
conn.execute sql

conn.close
set conn=nothing
%>
</p>
<table width="51%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr bgcolor="abb8d6"> 
    <td width="100%" height="28"> <div align="center"><strong>修 改 行 事 历 成 功</strong></div></td>
  </tr>
</table>
<p>&nbsp; </p>
</body>

</html>

modify_xsl3.asp - 源码说明

本页面展示了「这是一个学生毕业时做的教务系统」中的 modify_xsl3.asp 源码文件，采用 ASP 编程语言编写，共 125 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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