📄 shop.asp
字号:
<%Option Explicit%>
<!--#include file=2008admin/config.asp-->
<!--#include file="con-the-hhlong.asp"-->
<!--#include file=functions.asp-->
<%
dim sql,objRS,objRS_path
dim sortid
dim i
dim thispath
dim pagecount,currpage,Spage,Epage,recordcount,logo,siteabout
sortid = Request.QueryString("sortid")
currpage = request.querystring("currpage")
if sortid = "" or not IsNumeric(sortid) then
Response.Write("错误参数")
Response.End
else
sql = "select * from sort where parentID = " & Clng(sortid)
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open sql,objConn,3,1
sql = "select * from pathform where thispath like '%" & sortid & "'"
Set objRS_path = objConn.Execute(sql)
if not objRS_path.EOF then thispath = GetPath(objRS_path("thispath"),objRS_path("pathname"),FALSE)
end if
if currpage = "" or IsNull(currpage) then currpage = 1
if not IsNumeric(currpage) then currpage = 1
currpage = Cint(currpage)
%>
<html>
<head>
<title>发布分类信息</title>
<meta name="description" content="搜索引擎，企业网，企业，品牌，名牌，著名企业">
<meta name="keywords" content="著名搜索引擎，企业网，企业，公司，集团，品牌，名牌">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="happycss.css" type="text/css">
<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>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<!--#include file="include-top.htm" -->
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="460" valign="top"><h1 align="center"><br>
发布分类信息</h1>
<p> <a href="http://gz.com2008.com"></a><b><a href="http://www.com2008.com">发布信息</a>>><a href="Submit-class.asp">选择分类</a>>><%=thispath%></b> <br>
<br>
</p>
<table width="556" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<p align="center">
<%
if instr(objRS_path("thispath"),chr(44)) <> 0 then Response.Write("<a href=""regsta1.asp?sortid=" & sortid & """>点击将分类信息发布在这个类目</a>")
%>
</p>
<p>
<%'////////////////////////////////////// 输出类名 ///////////////////////////////////////%>
</p>
<table width="100%" cellspacing="" cellpadding="0" align="center">
<%do while not objRS.EOF%>
<tr>
<td width="33%" valign="top"> <ul>
<li><a href="shop.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>"><%=objRS("sortName")%></a></li>
</ul></td>
<%objRS.MoveNext()%>
<td width="33%" valign="top">
<%if not objRS.EOF then%>
<ul>
<li><a href="shop.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>"><%=objRS("sortName")%></a></li>
</ul>
<%objRS.MoveNext()%>
<%end if%>
</td>
<td width="34%" valign="top">
<%if not objRS.EOF then%>
<ul>
<li><a href="shop.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>"><%=objRS("sortName")%></a></li>
</ul>
<%objRS.MoveNext()%>
<%end if%>
</td>
</tr>
<%loop%>
</table>
<p> </p></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="buttom.asp" -->
<%
objConn.Close()
Set objRS = nothing
Set objRS_path = nothing
Set objConn = nothing
%>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -