?? addc.asp
字號:
<!--#include file="conn.asp"-->
<%
xino=request.form("xino")
zhuanyeno=request.form("zhuanyeno")
set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 系 where xino='"&request.form("xino")&"'"
rs.open sqlstr,conn,1,1
if not rs.eof then
xiname=rs("xiname")
end if
set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 專業 where zhuanyeno='"&request.form("zhuanyeno")&"'"
rs.open sqlstr,conn,1,1
if not rs.eof then
zhuanye=rs("zhuanye")
end if
jino=request.form("jino")
banno=request.form("banno")
stnum=request.form("stnum")
room=request.form("room")
set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 班級"
rs.open sqlstr,conn,3,3
rs.addnew
if zhuanyeno="--選擇專業--" then
response.write "<script language='javascript'>"
response.write "alert('請輸入專業');"
response.write "history.back(1);"
response.write "</script>"
response.end
end if
if xino="--選擇系--" then
response.write "<script language='javascript'>"
response.write "alert('請輸入系');"
response.write "history.back(1);"
response.write "</script>"
response.end
end if
if stnum="" then
response.write "<script language='javascript'>"
response.write "alert('請輸入學生人數');"
response.write "history.back(1);"
response.write "</script>"
response.end
end if
rs("classno")=xiname&zhuanye&jino&banno
rs("xino")=xino
rs("zhuanyeno")=zhuanyeno
rs("xiname")=xiname
rs("zhuanye")=zhuanye
rs("jino")=jino
rs("stnum")=stnum
rs("banno")=banno
rs("room")=room
rs.update
rs.close
response.redirect "kebiaoclass.asp"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -