textbox.asp

晴和教务管理系统

<!--#include file="../inc/conn.asp"-->
<link href="../css.css" rel="stylesheet" type="text/css">
<%
dim action
action=request.QueryString("action")
select case action

case "addnews"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_news where newsid="&session("newsid"),conn,1,3
newscontent=rs("newscontent")
response.write newscontent
rs.close
set rs=nothing
conn.close
set conn=nothing

case "addsoft"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_down where downid="&session("downid"),conn,1,3
softmore=rs("softmore")
response.write softmore
rs.close
set rs=nothing
conn.close
set conn=nothing

case "addbook"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_book where bookid="&session("bookid"),conn,1,3
ty=rs("ty")
response.write ty
rs.close
set rs=nothing
conn.close
set conn=nothing

case "addstudentjcqk"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_student where id="&session("studentid"),conn,1,3
jcqk=rs("jcqk")
response.write jcqk
rs.close
set rs=nothing
conn.close
set conn=nothing

case "addstudentgrjl"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_student where id="&session("studentid"),conn,1,3
grjl=rs("grjl")
response.write grjl
rs.close
set rs=nothing
conn.close
set conn=nothing

case "addteacherjcqk"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_teacher where id="&session("teacherid"),conn,1,3
jcqk=rs("jcqk")
response.write jcqk
rs.close
set rs=nothing
conn.close
set conn=nothing

case "addteachergrjl"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_teacher where id="&session("teacherid"),conn,1,3
grjl=rs("grjl")
response.write grjl
rs.close
set rs=nothing
conn.close
set conn=nothing

end select
%>