📄 mod_chengji.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("user")="" then
response.write "您无此权限"
response.end
end if
dim id
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from ach where ID="& id
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改成绩情况</title>
<link rel="stylesheet" href="style.css">
</head>
<body>
<!--#include file="top.asp"-->
<%
if request("key")=1 then
user_number=session("user_number")
%>
<div align="center">
<table width="700">
<tr><td align="left"><a href="query.asp?id=2&user_number=<%=user_number%>">返回学生信息查询</a></td></tr>
</table>
</div>
<%end if%>
<form method="POST" action="mod_chengji1.asp">
<%if request("key")=1 then%>
<input type="hidden" name="key" value="1">
<%end if%>
<div align="center">
<input type="hidden" value="<%=id%>" name="id">
<input type="hidden" value="<%=rs("user_name")%>" name="user_name">
<table border="1" width="400" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
<tr>
<td colspan="2" align="center">添加学生成绩情况</td>
</tr>
<tr>
<td>姓名：</td>
<td><%=rs("user_name")%></td>
</tr>
<tr>
<td>考试科目：</td>
<td>
<select size="1" name="subject">
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from subject"
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<option value="<%=rs1("subject")%>"><%=rs1("subject")%></option>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
</select>
</td>
</tr>
<tr>
<td>考试时间：</td>
<td>
<%
dim i,num,y,d,m
y=cint(year(date))
d=cint(day(date))
m=cint(month(date))
%>
<select name="year">
<%
for i=0 to 50
num=2000+i
if num=y then
%>
<option value="<%=num%>" selected><%=num%></option>
<%
else
%>
<option value="<%=num%>"><%=num%></option>
<%
end if
next
%>
</select>
年
<select name="month">
<%
for i=1 to 12
num=i
if num=m then
%>
<option value="<%=num%>" selected><%=num%></option>
<%
else
%>
<option value="<%=num%>"><%=num%></option>
<%
end if
next
%>
</select>
月
<select name="day">
<%
for i=1 to 31
num=i
if num=d then
%>
<option value="<%=num%>" selected><%=num%></option>
<%
else
%>
<option value="<%=num%>"><%=num%></option>
<%
end if
next
%>
</select>
日 </td>
</tr>
<tr>
<td>考试成绩：</td>
<td><input type="text" name="ach" value="<%=rs("ach")%>"></td>
</tr>
<tr>
<td colspan="2"><div align="center"><input type="submit" name="b1" value="提交"></div></td>
</tr>
</table>
</div>
</form>
<%
rs.close
set rs=nothing
%>
<!--#include file="down.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -