📄 ext_score_addx.asp

📁 大学的综合测评

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="img/Style.css" rel="stylesheet" type="text/css" />
<title>无标题文档</title>
</head>
<%
action=safeChar(Request.Form("action"))
if  not action="add76" then 
Response.Write("<li>非法操作</li>")
Response.End()
end if
%>
<%
dim term_spe_mark,term_spe_reason
term_spe_mark=pc_term&"_spe_mark"
term_spe_reason=pc_term&"_spe_reason"
user_no=split(safeChar(trim(Request.Form("user_no"))),",")
mark=split(safeChar(trim(Request.Form("mark"))),",")
reason=split(replace(safeChar(trim(Request.Form("reason"))),"#",""),",")
set e=Server.CreateObject("ADODB.Command")
e.ActiveConnection=dbconn
j=0
k=0
for i = 0 to UBound(user_no)
  on error resume next
  user_no1=trim(user_no(i))  
  mark1=trim(mark(i)) 
  reason1=trim(reason(i))     
            On Error Resume Next      
			e.CommandText="update  pc_user set "&term_spe_mark&"='"&mark1&"',"&term_spe_reason&"='"&reason1&"' where user_no='"&user_no1&"'"
			e.CommandType=1
			e.CommandTimeout=0
			e.Prepared=true
			e.Execute()
			
			if not isnumeric(mark1) then
			                j=j+1
			errmsg=errmsg & "<li> 学号为:&nbsp;<span class='red'>"& user_no1&"&nbsp;</span>的操作失败</li>"	
			 
			 err.clear
			 end if	

next
Response.Write("<li>失败<span class='red'> "&j&"</span>&nbsp;条记录,出错的可能原因： 1、得分输入有误 2、不存在输入的学号<br /></li><br />")
Response.Write(errmsg)
%>
<body>
</body>
</html>
<%dbconn.close%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -