?? systemsmallclassmanage.asp
字號:
<td height="22" colspan="2" align="center" bgcolor="#FFFFFF" class="fonttitle"><strong>修改系統小類</strong></td>
</tr>
<tr>
<td width="30%" height="26" align="right" bgcolor="#E7E7DE">
<font color="#CC0000">*</font> 小類名稱：</td>
<td width="70%" bgcolor="#FFFFFF"> <input name="T_SClassName" type="text" id="T_BClassName" size="40" value="<%=rs_edit("SClassName")%>"></td>
</tr>
<tr>
<td height="22" align="right" bgcolor="#E7E7DE">所屬大類：</td>
<td bgcolor="#FFFFFF"> <select name="S_BigClassID">
<%set rs_class=server.CreateObject("adodb.recordset")
sql_class="select * from tSystemBigClass"
rs_class.open sql_class,conn,1,1
do while not rs_class.eof
if rs_edit("BigClassID")=rs_class("ID") then
response.write "<option value='"&rs_class("ID")&"' selected>"&rs_class("BClassName")&"</option>"
else
response.write "<option value='"&rs_class("ID")&"'>"&rs_class("BClassName")&"</option>"
end if
rs_class.movenext
loop
%>
</select></td>
</tr>
<tr>
<td height="22" align="right" bgcolor="#E7E7DE">添加時間：</td>
<td bgcolor="#FFFFFF"> <input name="T_AddTime" type="text" id="T_AddTime" value="<%=rs_edit("AddTime")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="31" colspan="2" align="center"><input name="BigClassID" type="hidden" id="BigClassID" value="<%=request("BigClassID")%>">
<input name="PageNo" type="hidden" id="PageNo" value="<%=request("PageNo")%>">
<input name="EditID" type="hidden" id="EditID" value="<%=request("EditID")%>">
<input type="submit" name="Submit4" value="正確提交" onClick="return check_data(this.form)">
<input type="reset" name="Submit22" value="重新填寫"> <input type="button" name="Submit32" value="返回" onClick="javascript:history.back();"></td>
</tr>
</form>
</table>
<%end if%> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="32" align="center"> <% set rs_BigClass=server.CreateObject("adodb.recordset")
sql_BigClass="select * from tSystemBigClass"
rs_BigClass.open sql_BigClass,conn,1,1
do while not rs_BigClass.eof
response.write "<a href='?BigClassID="&rs_BigClass("ID")&"'>"&rs_BigClass("BClassName")&"</a> "
rs_BigClass.movenext
loop
%> </td>
</tr>
</table>
<% PERPAGE =15
PageNo=request("PageNo")
set rs=server.createobject("ADODB.recordset")
if request("BigClassID")="" then
sql="select tSystemSmallClass.*,tSystemBigClass.BClassName from tSystemSmallClass,tSystemBigClass where tSystemSmallClass.BigClassID=tSystemBigClass.ID"
else
sql="select tSystemSmallClass.*,tSystemBigClass.BClassName from tSystemSmallClass,tSystemBigClass where tSystemSmallClass.BigClassID=tSystemBigClass.ID and BigClassID='"&request("BigClassID")&"'"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暫時沒有數據!"
else
if request("PageNo")="" then
curpage = 1
else
curpage = cint(request("PageNo"))
end if
rs.pagesize = PERPAGE
rs.absolutepage = curpage
%> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#FFFFFF">
<td width="14%" height="22">ID</td>
<td width="14%"><strong>類別名稱</strong></td>
<td width="15%" height="22"><strong>所屬種類</strong></td>
<td width="16%"><strong>添加時間</strong></td>
<td width="12%" height="22"><strong>功能操作</strong></td>
</tr>
<% for i = 1 to rs.pagesize %>
<tr align="center" bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#e7e7e7';" onMouseOut="this.style.backgroundColor='#ffffff'">
<td height="22"><%=rs("ID")%></td>
<td height="22"><%=rs("SClassName")%></td>
<td height="22"><%=rs("BClassName")%></td>
<td height="22"><%=rs("AddTime")%></td>
<td height="22"> <a href='?cur_action=edit&EditID=<%=rs("ID")%>&BigClassID=<%=request("BigClassID")%>&PageNo=<%=PageNo%>'>修改</a>|<a href='javascript:dele_check("<%=rs("ID")%>","<%=request("BigClassID")%>","<%=PageNo%>")'>刪除</a></td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table></td>
</tr>
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="33%"> 頁次：<b><%=curpage%></b>/<b><%=rs.pagecount %></b>頁 共<b><%=rs.recordcount %></b>條記錄</td>
<td width="67%" align="right"> <%
if curpage = 1 then
response.write " 首頁 | 上一頁 | "
else
response.write "<a href='?PageNo=1&BigClassID="&request("BigClassID")&"'><b> 首頁 </b></a> | <a href='?PageNo="&curpage-1&"&BigClassID="&request("BigClassID")&"'><b>上一頁</b></a>| "
end if
if curpage = rs.pagecount then
response.write "后一頁 | 尾頁 "
else
response.write "<a href='?PageNo="&curpage+1&"&BigClassID="&request("BigClassID")&"'><b>后一頁</b> </a>| <a href='?PageNo="&rs.pagecount&"&BigClassID="&request("BigClassID")&"'><b>尾頁</b> </a>"
end if
%> 跳轉到：
<select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
<% for i=1 to rs.pagecount
if curpage=i then
response.write "<option value='?PageNo="&i&"&BigClassID="&request("BigClassID")&"' selected>第"&i&"頁"
else
response.write "<option value='?PageNo="&i&"&BigClassID="&request("BigClassID")&"'>第"&i&"頁"
end if
next
%>
</select></td>
</tr>
</table>
<%end if%> <br> <br> <br> <br> </td>
<td width="10" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -