📄 check.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<%
dim Username,Boss
Username=request.Cookies("username")
Dim Conn,DateBase,connstr
datebase="../../../data/study.mdb" '数据库文件位置,相对路径.
connstr="DBQ="+server.mappath(""&datebase&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set Conn=server.createobject("ADODB.CONNECTION")
Conn.open connstr
Dim VRs
Set VRs=Server.CreateObject("ADODB.RecordSet")
Dim VSql
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
body {
background-color: #6633FF;
}
.style1 {
font-size: 16px;
color: #CCFF00;
}
-->
</style></head>
<body >
<%
VSql="select boss from boss Where id='" & UserName &"'"
VRs.open VSql,Conn,1,3
If VRs.eof then
response.write "你还没有加入小组"
VRs.close
else
Boss=VRs("boss")
VRs.close
VSql="select boss from boss Where id='" & UserName &"'and boss='"&UserName&"'"
VRs.open VSql,Conn,1,3
If VRs.eof then
response.write "你不是队长!"
else
VRs.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
VSql="select * from up_2 Where boss='"&UserName&"'"
VRs.open VSql,Conn,1,3
If VRs.eof then
response.Redirect("up_2.asp")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
VRs.close
end if
end if
end if
%>
<form method="post" action='../../ups.asp'>
<div id="Layer1" style="position:absolute; width:200px; height:115px; z-index:1">
<h5 class="style1">报告早交了!</h5>
<table width="200" border="0">
<tr>
<td><input type="submit" value="返回"> </td>
</tr>
</table>
</div>
<form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -