📄 post_step1.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/code.asp"-->
<%dim id
id=Trim(Request.QueryString("id"))
if id="" then
id=0
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发布软件 - <%=SiteSetting(0)%></title>
<STYLE>
BODY {
scrollbar-face-color : <%=SkinSetting(10)%>;
scrollbar-shadow-color : <%=SkinSetting(11)%>;
scrollbar-highlight-color : <%=SkinSetting(12)%>;
scrollbar-3dlight-color : <%=SkinSetting(13)%>;
scrollbar-darkshadow-color : <%=SkinSetting(14)%>;
scrollbar-track-color : <%=SkinSetting(15)%>;
scrollbar-arrow-color : <%=SkinSetting(16)%>;
}
.mouseover {
background-color: <%=SkinSetting(8)%>;
border: 1px solid <%=SkinSetting(9)%>;
}
.mouseout {
background-color: <%=SkinSetting(3)%>;
}
.mouseout2 {
background-color: <%=SkinSetting(4)%>;
}
</STYLE>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="<%=SkinSetting(0)%>" background="<%=SkinSetting(1)%>" leftmargin="0" topmargin="0">
<!--#include file="header.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="<%=SiteSetting(9)%>">
<tr>
<td bgcolor="<%=SkinSetting(3)%>">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="xuxian">
<tr>
<td height="300" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="18" valign="bottom" class="xuxian3"> <img src="images/point1.gif" width="17" height="16" align="absmiddle">
当前位置：<a href="default.asp">首页</a> \ 发布软件(第一步:选择分类)</td>
</tr>
</table>
<br><%if chkmember=true and power(0)="1" then%>
<table width="200" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="<%=SkinSetting(7)%>" class="TdBorderB">
<%dim sql,rs
if id=0 then
response.write "<font color=white>::一级分类::</font>"
else
sql="select ClassName from Class where ID="&CInt(id)
set rs=conn.execute(sql)
response.write "<font color="&SkinSetting(6)&">::"&rs(0)&"::</font>"
end if
%>
</td>
<td align="right" bgcolor="<%=SkinSetting(7)%>" class="TdBorderB"><font color="<%=SkinSetting(6)%>">[</font><a href="javascript:history.back()"><font color="<%=SkinSetting(6)%>">返回</font></a><font color="<%=SkinSetting(6)%>">]</font></td>
</tr>
</table>
<table width="200" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td class="TdBorderB"> </td>
</tr>
<%
sql="select ID,ClassName,ChildID from Class where ParentID="&Cint(id)&" order by Sequence"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<tr><td colspan=5 align=center bgcolor=#EEEEEE>没有下级分类</td></tr>"
else
do while not rs.eof%>
<tr>
<td align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderRB"><a href="post_step1.asp?id=<%=rs(0)%>"><%=rs(1)%></a>
<%if rs(2)<>"" then response.write "("&UBound(Split(rs(2),","))+1&")" end if
if id<>0 then response.write " [<a href=post_step2.asp?id="&rs(0)&">添加软件</a>]"%>
</td>
</tr>
<%rs.movenext
loop
end if
set rs=nothing
else
response.write "<br><br><br><center><font color=red class=size14><b>您没有发布软件的权限！</b></font></center>"
end if
conn.close
set conn=nothing%>
</table>
<p> </p>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="footer.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -