?? xscj_edit.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file = "conn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>學生成績錄入</title>
<script language="vbscript">
<%
dim conn1,rs,cmd,conn
dim sql
%>
Function OPxskc()
<%
if request("StuOP") = "確認" then
'set conn1 = server.CreateObject("ADODB.connection")
'connstr = "Provider=SQLOLEDB.1;Data Source=CB81B7FACF19493;UID=sa;Password=;Initial Catalog=XSCJ"
'conn1.open connstr
set cmd = server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandText = "AddStuScore"
cmd.CommandType = 4
cmd.Parameters.Append cmd.CreateParameter("@XM",adVarChar,adParamInput,6)
cmd.Parameters.Append cmd.CreateParameter("@KCM",adVarChar,adParamInput,16)
cmd.Parameters.Append cmd.CreateParameter("@CJ",adInteger,adParamInput)
cmd.Parameters("@XM") = trim(Request("StuXM"))
cmd.Parameters("@KCM") = trim(Request("StuKCM"))
cmd.Parameters("@CJ") = Cint(Request("StuCJ"))
set rs1 = cmd.Execute
end if
%>
End function
</script>
<style>
@import URL("xscj.css");
</style>
</head>
<body onload="OPxskc()">
<%'response.Write(""&request("StuXM")&"")
%>
<div align="center"><span class="pagenote1">學生成績錄入</span>
</div>
<hr />
<form name="StuForm" method="post" action="xscj_edit.asp">
<table align="center" bordercolor="#000000" border="1" bordercolor="#000000" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<%
'OpenConn()
'set SqlConn = server.CreateObject("ADODB.connection")
'connstr = "Provider=SQLOLEDB.1;Data Source=CB81B7FACF19493;UID=sa;Password=;Initial Catalog=XSCJ"
'SqlConn.open connstr
'response.Write("數據庫連接成功!")
set SqlRecSet = Server.CreateObject("ADODB.recordset")
StrSQL = "select XH,XM from XS order by XH"
sqlRecSet.Open StrSQL,conn,1,1
%>
<tr>
<td width="150" bgcolor="#CCCCCC"><p align="center">姓名</p></td>
<td width="150">
<select name="StuXM">
<% SqlRecSet.MoveFirst
while Not SqlRecSet.eof%>
<option value="<%=SqlRecSet("XM")%>"><%=SqlRecSet("XM")%>
</option>
<%SqlRecSet.moveNext
Wend%>
</select>
</td>
</tr>
<% SqlRecSet.Close
StrSQL = "select KCM from KC"
SqlRecSet.Open StrSQL,conn,1,1
%>
<tr>
<td bgcolor="#CCCCCC"><p align="center">課程</p></td>
<td>
<select name="StuKCM">
<%while not SqlRecSet.eof%>
<option value="<%=SqlRecSet("KCM")%>"><%=SqlRecSet("KCM")%>
</option>
<% SqlRecSet.movenext
wend%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><div align="center">成績</div></td>
<td><input name="StuCJ" type="text" size="15" /></td>
</tr>
<tr>
<td height="17" align="center" colspan="2">
<input name="StuOP" type="submit" value="確認" />
<input name="StuOP" type="reset" value="取消" />
</td>
</tr>
</table>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -