?? admindatabasereadsave.asp
字號:
<!--#include file="conn.asp"-->
<!--#include FILE="upload_5xsoft.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
dim upload,file,formName,formPath,iCount,newname
set upload=new upload_5xSoft ''建立上傳對象
%>
<%
subjectview=upload.form("subjectview")
typeadd=upload.form("typeadd")
tmid=upload.form("tmid")
sql3="select * from tbread where tmid="&tmid
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
if rs3.eof then
readno=1
else
readno=rs3.recordcount+1
end if
sql="select * from tbread "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("tmid")=tmid
rs("xiaoti")=upload.form("question")
rs("readans")=upload.form("answer")
rs("a")=upload.form("text1")
rs("b")=upload.form("text2")
rs("c")=upload.form("text3")
rs("d")=upload.form("text4")
rs("e")=upload.form("text5")
rs("f")=upload.form("text6")
rs("slevel")=upload.form("slevel")
rs("pic")=upload.form("filename")
rs("readno")=readno
sql2="select * from tbtk where tmid="&tmid
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
kao=rs2("kao")
chapter=rs2("chapter")
kcid=rs2("kcid")
rs2("ans")=rs2("ans")+1
rs2.update
rs.update
topage="admindatabaseaddread.asp?tmid="&tmid&"&subjectview=" & kcid & "&typeadd=" & typeadd & "&str=添加成功!請繼續添加小題目!&kao="&kao&"&chapter="&chapter
response.redirect topage
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -