?? tselectsub.asp
字號:
<%@ Language=VBScript %>
<%Response.Buffer=true%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgColor=Azure>
<%
db="testsys.MDB"
if Request.QueryString("act")="add" then
'如果請求加入試題內容，則form1提交的頁面為taddquestion.asp
Response.Write "<FORM action=taddquestion.asp method=POST id=form1 name=form1>"else '如果請求修改試題內容，則form1提交的頁面為teditquestion.asp
Response.Write "<FORM action=teditquestion.asp method=POST id=form1 name=form1>"
end if
%><P>選擇所要修改/加入題目的課程</P>
<P><SELECT id=select1 name=selsub
style="HEIGHT: 21px; WIDTH: 204px">
<%
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open
'從存儲課程的表subinfo中選擇teachid等于當前教師編號的記錄
strsql="select * from subinfo where teachid='" & session("teachid") & "'"
set mrs=conn.Execute(strsql)
while not mrs.eof
'將所有的課程加入到select中
Response.Write "<OPTION>" & mrs("sub")
mrs.movenext
wend
'關閉并清空數據庫連接對象
conn.Close
set conn=nothing
%>
</SELECT>
<INPUT id=submit1 name=submit type=submit value=確定></P>
</FORM>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -