[求助]asp的跳转菜单！ - ASP技术论坛

问题点数：0 回复次数：1

[求助]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>
<tr>
<td>信息内容:<textarea name="content" cols="1" rows="1" id="content" style="display:none"><%if content<>"" then response.write content %></textarea><iframe ID="eWebEditor1"SRC="../edit/ewebeditor.asp?id=content&style=news" frameborder="0" scrolling="no" width="100%" HEIGHT="350"></iframe></td>
</tr>
<tr>
<td >上传图片:<input name="companyphoto" type="text" value="" size="25"></td>
</tr>
<tr>
<td ><input type="hidden" name="id" value="6"><input name="Submit" type="submit" class="sbe_button" value="提交"> <input name="Submit2" type="reset" class="sbe_button" value="重置"></td>
</tr>
</form>
</table>
</body>
</html>

搜索更多相关主题的帖子: 菜单　 asp　