📄 viewclassframe.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="Include/Client_Module.asp"-->
<%
ErrTitle = "分类出错："
SucTitle = "分类成功："
Dim i,x,w
%>
<html><head><title><%=PageTitle%> → 所有分类</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta NAME="author" CONTENT="软件下载">
<meta NAME="description" CONTENT="软件下载">
<meta NAME="keywords" CONTENT="软件下载">
<SCRIPT language=javascript src="js/menu.js" type="text/javascript"></SCRIPT>
<SCRIPT language=javascript src="js/pop.js" type="text/javascript"></SCRIPT>
<link href="Css/Style.css" rel="stylesheet" type="text/css"></head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="758" border="0" cellpadding="0" cellspacing="0" align="center"><tr><td width="200" align="center"><img src="Images/Logo.gif" width="200" height="70"></td>
    <td valign="top" align="right">&nbsp;</td>
</tr></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><tr><TD height="40" bgcolor="#416194"><%
Call OpenDatabase()
Call AClass()
%></TD>
</TR></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><table width="760" border="0" cellpadding="0" cellspacing="1" align="center" bgColor="#416194"></table><table width="760" border="0" cellpadding="0" cellspacing="0" align="center"><TR><TD height="1"></TD></TR></table><%
Dim CRs
Call OpenDatabase()
Set Rs=Conn.Execute("SELECT Classid,Classname FROM [Class] WHERE Flag=0")
%><table width="760" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><%If Rs.Eof Then%><tr>
  <td bgcolor="#FFFFFF" align="center"><b>暂无数据</b></td>
</tr><%Else
While Not Rs.EOF%><tr><td bgcolor="#F0F0F0"><a href="ViewClass.asp?ACid=<%=Rs(0)%>" class="SoftMeun"><b><%=Rs(1)%></b></a></td></tr><%
Set CRs=Conn.Execute("SELECT Classid,Classname FROM [Class] WHERE Flag="&Rs(0)&"")
If CRs.Eof Then
%><tr>
  <td bgcolor="#FFFFFF" align="center"><b>暂无数据</b></td>
</tr><%Else%><tr bgcolor="#FFFFFF"><td align="center" width="20%"><table width="100%" border="0" cellpadding="4" cellspacing="1" align="center" bgColor="#416194"><tr bgcolor="#FFFFFF"><%
i=1
x=1
w=1
While Not CRs.EOF
%><%
If i=6 Then
Response.Write ("</tr><tr bgcolor='#FFFFFF'>")
i=1
w=w+1
End If
Response.Write ("<td align='center' width='20%' onmouseover=""javascript:this.bgColor='#F7F7F7';this.style.cursor='default';"" onmouseout=""javascript:this.bgColor='#FFFFFF';""><a href=""ViewClass.asp?ACid="&Rs(0)&"&NCid="&CRs(0)&""" class=""SoftMeun"">"&CRs(1)&"</a></td>")
i=i+1
x=x+1
CRs.MoveNext
Wend
x=((5*w)-(x-1))
For i=1 TO x
	Response.Write ("<td align='center' width='20%' onmouseover=""javascript:this.bgColor='#F7F7F7';this.style.cursor='default';"" onmouseout=""javascript:this.bgColor='#FFFFFF';"">&nbsp;</td>")
Next
%></tr></table></td></tr><%
CRs.Close
Set CRs=Nothing
End If
Rs.MoveNext
Wend
End If%></table><%
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -