📄 jsxgxg.asp

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

💻 ASP

字号:

<!--#include file="conn.asp"-->
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">

<%



function gwsgs(str)
 dim gwsg
 dim l
 if isNULL(str) then 
 gwsgs=""
 exit function
 end if
 l=len(str)
 gwsg=""
	dim i
	for i = 1 to l
	 select case mid(str,i,1)
	 case "<"
	 gwsg=gwsg+"&lt;"
	 case ">"
	 gwsg=gwsg+"&gt;"
 case chr(13)
	 gwsg=gwsg+"<br>"
	 case chr(34)
	 gwsg=gwsg+"&quot;"
	 case "&"
	 gwsg=gwsg+"&amp;"
 case chr(32)	 
	 if i+1<=l and i-1>0 then
	 if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then	 
	 gwsg=gwsg+"&nbsp;"
	 else
	 gwsg=gwsg+"&nbsp;"
	 end if
	 else
	 gwsg=gwsg+"&nbsp;"	 
	 end if
	 case chr(9)
	 gwsg=gwsg+"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	 case else
	 gwsg=gwsg+mid(str,i,1)
 end select
 next 
 gwsgs=gwsg
 end function












 dm=request("dm")
  jj=request.form("jj")

   dim rs
 dim sql
  set rs=server.createobject("adodb.recordset")

 sql="select * from jsxxb where dm='" + dm + "'"

 rs.open sql,conn,3,3
 
 dm=request("dm")
 xm=request("xm")
 bm=request("bm")
 zc=request("zc")
 mm=request("mm")
 xl=request("xl")
 csny=request("csny")
 xb=request("xb")
 rs("jj")=gwsgs(jj)


 conn.execute("update [jsxxb] set dm='"&dm&"',xm='"&xm&"',bm='"&bm&"',zc='"&zc&"',mm='"&mm&"',xl='"&xl&"',xb='"&xb&"',csny='"&csny&"',jj='"&jj&"' WHERE dm='"&dm&"'")
 


 
 
%>
 
<center>修改成功！<br><a href=jsindex0.asp>返回教师管理页面</a></center>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -