mdbxw.asp

吻宇考试管理系统源码 吻宇考试管理系统源码

<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->

<%
action=trim(request.QueryString("action"))
if action="scoredel" then
dim sql
sql="delete * from score"
conn.execute(sql)
conn.close
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你成功清除分数表中的所有数据~!")
window.location.href"right.asp"
</script>
<%elseif action="shitidel" then
dim mdb
mdb=trim(request.querystring("mdb"))
sql="delete * from "&mdb
conn.execute(sql)
conn.close
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你成功清除你所选题库中的所有数据~!")
window.location.href"right.asp"
</script>
<%elseif action="jsdel" then
sql="update js set total='0',today='0',yesterday='0',month='0',bmonth='0' where id=1"
conn.execute(sql)
conn.close
set conn=nothing%>
<script language="vbscript">
msgbox("恭喜你成功的清除计数器的流量~!")
window.location.href"right.asp"
</script>
<%else%>
<script language="vbscript">
msgbox("吻宇警告你非法操作~!")
window.location.href"right.asp"
</script>
<%end if%>