📄 submit-class.asp
字号:
<%Option Explicit%>
<%
'*************************************************************************************
' 程序作者：龙家深
' 2005.7 release it
' Homepage: http://www.com2008.com
' E_mail:2008@hhlong.com
'*************************************************************************************
%>
<!--#include file="con-the-hhlong.asp"-->
<%
dim objRS,objShortCut,sql
dim tmpid(2),RecCount
dim i
Set objRS = Server.CreateObject("ADODB.RecordSet")
sql = "select description,sortName,ID from sort where parentID = " & -1
objRS.Open sql,objConn,3,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>COM2008分类信息发布系统</title>
<link rel="stylesheet" href="happycss.css" type="text/css">
<script language="JavaScript">
<!--
function setvalid(f,b) {
for (var i=0;i<f.elements.length;i++) {
var e = f.elements[i]
if (e.name != 'si' && e.name != 'b1' && e.name != 'b2' && e.name != 'op' && e.name != 'keyword')
e.disabled = !b
}
}
function gethelp() {
location.href="help.html"
}
function admlogin() {
window.open('admlogin.asp','lmslogin','width=520,height=180')
}
//-->
</script>
<LINK
href="stylecss/main.css" rel=stylesheet>
<SCRIPT language=JavaScript><!--
function tabOver(o) {
o.style.backgroundColor = "#FFFFCC";
o.style.cursor="hand";
}
function tabOut(o) {
o.style.backgroundColor = "#CCCC99";
}
function menuOver(o) {
o.style.backgroundColor = "#CCCC99";
o.style.cursor="hand";
}
function menuOut(o) {
o.style.backgroundColor = "transparent";
}
function buttonOver(o) {
o.style.backgroundColor = "#FFFFCC";
o.style.cursor="hand";
}
function buttonOut(o) {
o.style.backgroundColor = "#CCCC99";
}
//--></SCRIPT>
</head>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0" vlink="#000000" alink="#000000" >
<!--#include file="include-top.htm"-->
<table width="778" border="0" align="center" cellpadding="20" cellspacing="0">
<tr>
<td valign="top"> <h1 align="center">选择分类</h1></td>
</tr>
</table>
<table width="778" border="0" align="center" >
<%
RecCount = objRS.RecordCount
if RecCount < 1 then Response.Write("暂无分类<br>")
%>
<%do while RecCount > 0%>
<%for i = 0 to 2 : tmpid(i) = NULL : next%>
<tr>
<td width="32%" valign="top"> <p align="left"><b><a href="shop.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>">[<%=objRS("sortName")%>]</a></b></p></td>
<%tmpid(0) = objRS("ID") : objRS.MoveNext() : RecCount = RecCount - 1%>
<td width="34%" valign="top">
<%if RecCount > 0 then%>
<p align="left"><b><a href="shop.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>">[<%=objRS("sortName")%>]</a></b></p>
<%tmpid(1) = objRS("ID") : objRS.MoveNext() : RecCount = RecCount - 1%>
<%end if%>
</td>
<td width="34%" valign="top">
<%if RecCount > 0 then%>
<p align="left"><b><a href="shop.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>">[<%=objRS("sortName")%>]</a></b></p>
<%tmpid(2) = objRS("ID") : objRS.MoveNext() : RecCount = RecCount - 1%>
<%end if%>
</td>
</tr>
<tr>
<td width="32%" class="0" valign="top">
<%
sql = "select * from shortcut where rootID = " & tmpid(0)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="shop.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a>
<%objShortCut.MoveNext%>
<%loop%>
</td>
<td width="34%" class="0" valign="top">
<%
if not IsNull(tmpid(1)) then
sql = "select * from shortcut where rootID = " & tmpid(1)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="shop.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a>
<%objShortCut.MoveNext%>
<%loop%>
<%end if%>
</td>
<td width="34%" class="0" valign="top">
<%
if not IsNull(tmpid(2)) then
sql = "select * from shortcut where rootID = " & tmpid(2)
Set objShortCut = objConn.Execute(sql)
do while not objShortCut.EOF
%>
<a href="shop.asp?sortid=<%=objShortCut("sortID")%>" title="<%=objShortCut("description")%>"><%=objShortCut("sortName")%></a>
<%objShortCut.MoveNext%>
<%loop%>
<%end if%>
</td>
</tr>
<tr>
<td width="32%"> </td>
<td width="34%"> </td>
<td width="34%"> </td>
</tr>
<%loop%>
</table>
<td width="31%"><p align="center"> </p>
<!--#include file="buttom.asp"-->
</body>
</html>
<%
objConn.Close()
Set objRs = nothing
Set objConn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -