📄 admin_edit.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="xuanke.asp" -->
<!--#include file="include/is_admin.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改课程</title>
<style type="text/css">
<!--
@import url("style.css");
body,td,th {
font-size: small;
}
.STYLE1 {font-size: 12px}
.STYLE2 {width: auto; height: auto;}
body {
background-image: url(image/back.jpg);
}
-->
</style>
</head>
<%
dim cno,rs_course,sql
cno=request("cno")
'打开课程数据库--------------------
set rs_course=server.CreateObject("adodb.recordset")
sql = "select * from course where cno='" & request("cno") & "'"
rs_course.open sql,xuanke_conn,3,2
%>
<body bgcolor="#FFFFCC">
<div align="center">
<table width="706" height="281" border="0" class="table_big">
<tr>
<td valign="top"><div align="center">
<!--#include file="include/admin_head.asp" -->
<br>
<form name="form1" method="post" action="admin_editchk.asp">
<table width="482" border="0" cellspacing="0" class="table_small">
<tr>
<td colspan="4" background="image/type_bg.gif"> </td>
</tr>
<tr>
<td colspan="4" class="text_title"><div align="left">修改课程信息</div></td>
</tr>
<tr>
<td colspan="4" class="table_title"> </td>
</tr>
<tr class="text">
<td colspan="3"><div align="left">
<input name="cno" type="hidden" class="textfield" id="cno" value="<%= rs_course("cno") %>">
</div></td>
</tr>
<tr class="text">
<td width="75" class="text"><div align="left" class="text">课程名称：</div></td>
<td colspan="3"><div align="left" class="STYLE1">
<input name="cname" type="text" class="textfield" id="cname" value="<%= rs_course("cname") %>">
</div></td>
</tr>
<tr class="text">
<td class="text"><div align="left" class="STYLE1">学时:</div></td>
<td colspan="3"><div align="left" class="STYLE1">
<input name="ctime" type="text" class="textfield" id="ctime" value="<%= rs_course("ctime") %>">
</div></td>
</tr>
<tr class="text">
<td class="text"><div align="left" class="text">学分:</div></td>
<td colspan="3"><div align="left" class="STYLE1">
<input name="credit" type="text" class="textfield" id="credit" value="<%= rs_course("credit") %>">
</div></td>
</tr>
<tr class="text">
<td class="text"><div align="left" class="text">任课老师:</div></td>
<td colspan="3"><div align="left" class="STYLE1">
<input name="c_tname" type="text" class="textfield" id="c_tname" value="<%= rs_course("c_tname") %>">
</div></td>
</tr>
<tr>
<td height="28" class="text"><div align="left" class="text">教师信息:</div></td>
<td colspan="7"><div align="left" class="STYLE1"> <textarea name="remarks" cols="50" rows="15" class="STYLE2" id="remarks"><%= rs_course("remarks") %></textarea>
</div></td>
</tr>
<tr>
<td height="14"><div align="left" class="STYLE1">
<div align="left" class="text">课程信息：</div>
</div></td>
<td height="14" colspan="3"><label>
<textarea name="c_beizhu" cols="50" rows="15" id="c_beizhu" ><%= rs_course("c_beizhu") %></textarea>
</label></td>
</tr>
<tr>
<td height="14" class="text">年级限制：</td>
<td height="14" colspan="2" class="text"><input name="gradelimit" type="checkbox" id="gradelimit" value="1"
<%
If (rs_course("gradelimit")="" Or IsNull(rs_course("gradelimit"))) Then
else
gradelimit=rs_course("gradelimit")
preArray = split(gradelimit,",")
preif=false
For I=0 to Ubound(preArray)
if preArray(I)=1 Then
preif=True
End If
Next
If preif Then
response.write "checked"
Else
End If
End If %>>
大一
<input name="gradelimit" type="checkbox" id="gradelimit" value="2"
<%
If (rs_course("gradelimit")="" Or IsNull(rs_course("gradelimit"))) Then
else
gradelimit=rs_course("gradelimit")
preArray = split(gradelimit,",")
preif=false
For I=0 to Ubound(preArray)
if preArray(I)=2 Then
preif=True
End If
Next
If preif Then
response.write "checked"
Else
End If
End If %>>
大二</td>
<td height="14" class="text"><input name="gradelimit" type="checkbox" id="gradelimit" value="3"
<%
If (rs_course("gradelimit")="" Or IsNull(rs_course("gradelimit"))) Then
else
gradelimit=rs_course("gradelimit")
preArray = split(gradelimit,",")
preif=false
For I=0 to Ubound(preArray)
if preArray(I)=3 Then
preif=True
End If
Next
If preif Then
response.write "checked"
Else
End If
End If %>>
大三
<input name="gradelimit" type="checkbox" id="gradelimit" value="4"
<%
If (rs_course("gradelimit")="" Or IsNull(rs_course("gradelimit"))) Then
else
gradelimit=rs_course("gradelimit")
preArray = split(gradelimit,",")
preif=false
For I=0 to Ubound(preArray)
if preArray(I)=4 Then
preif=True
End If
Next
If preif Then
response.write "checked"
Else
End If
End If %>>
大四</td>
</tr>
<tr>
<td><div align="right" class="STYLE1"></div></td>
<td width="20"> </td>
<td width="130"><span class="STYLE1">
<input name="edit" type="submit" class="button" id="edit" value="修改">
</span></td>
<td width="245"><input name="reset" type="reset" class="button" id="reset" value="清空"></td>
</tr>
<tr>
<td colspan="4" background="image/type_bg.gif"> </td>
</tr>
</table>
</form>
<br>
</div></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -