长阳县大堰乡:asp 跳转菜单问题!

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 19:26:21
<!--#include file="admin_conn.asp" -->
<%
cid =request("cid")
'-------------------获取数据------------------------------------------------
if cid<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from ST_com_info where classid="& cid
rs.open sql,conn,1,1
if not rs.eof then
content=rs("content")
picurl=rs("picurl")
else
content=""
picurl=""
end if
rs.close
set rs=nothing
end if
'---------------------------------------------------------------------------

'-------------------分类目录下拉选择菜单SortList(selec)----------------------
dim ii
ii=0
sub SortList(selec)
sql="Select * From ST_com_class where followid="&selec
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if rs1("id")=cid then
response.write("<option value="&rs1("ID")&" selected>"&string(ii," ")&"├"&rs1("ClassName")&"</option>")
else
response.write("<option value="&rs1("ID")&">"&string(ii," ")&"├"&rs1("ClassName")&"</option>")
end if
ii=ii+1
SortList rs1("id")
ii=ii-1
rs1.movenext
loop
Set Rs1 = Nothing
end sub
'-----------------------------------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加资讯</title>
<script language="javascript">
function CheckForm()
{
if (eWebEditor1.getHTML()==""){
alert("系统提示\n内容不能为空");
return (false);
}
}
</script>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="25"><font color="#6A859D">企业信息>> 增加信息</font></td>
</tr>
<tr>
<td height="1" background="../images/dot.gif"></td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" id="sbe_table">
<form name="add" method="post" OnSubmit="return CheckForm();" action="admin_com_info_add_save.asp">
<tr>
<td>企业信息</td>
</tr>
<tr>
<td>信息类别:
<select name="select" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location='?cid='+jmpURL;} else {this.selectedIndex=0 ;}">
<option >请选择...</option>
<% sortlist(0)%>
</select>
</td>
</tr>

有什么问题?没太懂。