?? rusedit.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Connkaa = hdobj.WeekaaConn()
ID=request.QueryString("ID")
Set rc = Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [StuRus] where ID="&ID
rc.Open Sqlc,Connkaa,1,3
if request.QueryString("action") = "" then
rcA=rc("a")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>紅笛軟件</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
a:link {
text-decoration: none;
color: #FFFFFF;
}
a:visited {
text-decoration: none;
color: #FFFFFF;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE12 {font-family: "黑體"; font-size: 16px;}
.STYLE13 {color: #000066}
.STYLE14 {font-size: 12px; color: #000066; }
-->
</style>
</head>
<body>
<form name="form1" method="post" action="?action=action&ID=<%=ID%>">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
<tr>
<td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12">學生成績修改</td>
</tr>
<tr>
<td bgcolor="#0066CC"><table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td width="17%" height="35" bgcolor="#F1F3F5" class="STYLE14">姓名</td>
<td width="17%" bgcolor="#F1F3F5" class="STYLE14">學期</td>
<td width="31%" bgcolor="#F1F3F5" class="STYLE14">課程</td>
<td width="17%" bgcolor="#F1F3F5" class="STYLE14">開課時間</td>
<td width="18%" bgcolor="#F1F3F5" class="STYLE14">成績</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="35" bgcolor="#FFFFFF"><%call stuNam(rcA)%></td>
<td bgcolor="#FFFFFF"><%=rc("c")%></td>
<td bgcolor="#FFFFFF"><%=rc("i")%></td>
<td bgcolor="#FFFFFF"><%=rc("j")%></td>
<td bgcolor="#FFFFFF"><input name="f" type="text" id="f" value="<%=rc("f")%>" size="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12"><input type="submit" name="Submit" value="保存"></td>
</tr>
</table>
</form>
<p>
</body>
</html>
<%
else
f=request.form("f")
rc("f")=f
rc.update
end if
sub stuNam(ID)
ID=trim(ID)
ID=ID * 1
Set rs = Server.CreateObject("ADODB.RecordSet")
sqls = "Select * From [StuRus] where ID="&ID
rs.Open Sqls,Connkaa,1,3
if not rs.eof then
rsc=rs("c")
else
rsc=ID
end if
response.write rsc
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -