modi.asp

.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 8.代码精简 9.整合部分重复代码 1

<%if session("password")<>"" then%>
<%
dim IID
IID=request("id")

if request("xh")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('请输入学号！');" & "history.back()" & "</script>" 
	Response.End
end if
user=request("user")
bj=request("bj")
xh=request("xh")
kc=request("kc")
cj=request("cj")
xq=request("xq")
lx=request("lx")

set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("class_cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'set rs=conn.execute("update bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj&"','"&xh&"','"&user&"','"&kc&"','"&cj&"','"&xq&"','"&lx&"')")
sql="update bbs1 set bj='"&bj&"',xh='"&xh&"',user='"&user&"',kc='"&kc&"',cj='"&cj&"',xq='"&xq&"',lx='"&lx&"' where id="+IID
rs.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('ok');"&"window.location.href = 'admin.asp'"&" </script>" 

set rs=nothing
%>
<%else
Response.Redirect "admpost.asp"
end if%>