?? ch1.asp
字號:
<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/stumenu.asp"-->
<%
response.buffer=true
Response.Expires=0
if session("pwd")<>"" then
mm=session("pwd")
else
mm=request("mm")
end if
if session("user")<>"" then
xh=session("user")
else
xh=request("xh")
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("#25175class_cj.asp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select id from user where xh='"&xh&"' and mm='"&mm&"'"
rs.open sql,conn,3,3
if rs.eof then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<script language=JavaScript>" & chr(13) & "alert('無效的工號或密碼,請重新確認');" & "history.back()" & "</script>")
response.write("</table>")
response.end
else
session("pwd")=mm
session("user")=xh
%>
<%define="1"%>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<form action="stulook.asp" method="post" name="form1" >
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" nowrap>
<div align="center">查詢您的總分:</div>
</td>
<td width="200" height="25">
<input type="hidden" name="xh" value="<%=request("xh")%>">
<input name="submit" type="submit" value="確定">
<input name="al" type=hidden value="1"></td>
</tr>
</table>
</form> </td>
</tr>
<tr><td align="center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td height="30" colspan="4" align="center"><strong>分類查詢</strong></td>
</tr>
<tr>
<td>
<form action="stulook.asp" method="post" name="form1" >
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
<tr bgcolor="#EEEEEE">
<td height="25" colspan="2" align="center">按年代查詢</td>
</tr>
<tr>
<td width="50" height="25" align="center">年代:</td>
<td width="150" height="25">
<input type=text name="kc" size="15">
</td></tr>
<tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
</table>
</form>
</td>
<td>
<form action="stulook.asp" method="post" name="form1" >
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
<tr bgcolor="#CCCCCC">
<td height="25" colspan="2" align="center">按積分排序</td>
</tr>
<tr>
<td width="50" height="25" align="center">積分:</td>
<td width="150" height="25">
<input type=text name="cj" size="15">
</td></tr>
<tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
</table>
</form>
</td>
<td>
<form action="stulook.asp" method="post" name="form1" >
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
<tr bgcolor="#EEEEEE"><td height="25" colspan="2" align="center">按月份查詢</td>
</tr>
<tr>
<td width="50" height="25" align="center">月份:</td>
<td width="150" height="25">
<select name="xq">
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
<option>11</option>
<option>12</option>
</select>
</td></tr>
<tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
</table>
</form>
</td>
<td>
<form action="stulook.asp" method="post" name="form1" >
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2" align="center">按類型查詢</td>
</tr>
<tr><td width="50" height="25" align="center">類型:</td><td width="150" height="25">
<select name="lx"><option>基本工資</option><option>績效工資</option><option>獎金</option></select>
</td></tr>
<tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
</table>
</form>
</td>
</tr>
</table></td></tr>
</table>
<!-- #include file=inc/copyr.asp -->
<%
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -