<%if session("password")<>"" then%>
<%
dim IID
IID=trim(Request("id"))
dim sql
dim rs
if request("xh")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('請(qǐng)輸入學(xué)號(hào)！');" & "history.back()" & "</script>" 
	Response.End
end if
user=request("user")
xh=request("xh")
km=request("km")
cj=request("cj")
set con=Server.CreateObject("adodb.connection")	''''''''''''''''''''''''''''''' 連接數(shù)據(jù)庫(kù)
set rs=server.CreateObject("adodb.recordset")
 str="dsn=teacher"
 con.open str,"sa","810525"
sql="update teacher1 set tnum='"+xh+"',tname='"+user+"',tsc='"+km+"',tscore='"+cj+"' where id='"+IID+"'"
rs.Open sql,con,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('同學(xué)信息修改成功！');"&"window.location.href = 'gl.asp'"&" </script>" 
set rs=nothing
%>
<%else
Response.Redirect "dlu.asp"
end if%>