<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$LstClassPic$$")%>
<html>
<title>分类广告</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../css/lst.css" rel="stylesheet" type="text/css" />
<script charset="utf-8" src="/Classeditor/kindeditor.js"></script>
<script charset="utf-8" src="/Classeditor/lang/zh_CN.js"></script>
<script charset="utf-8" src="../js/ImagesAll.js"></script>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<!----头文件---->
<table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2"><tr><td height="31"><div class="titlebt">分类广告</div></td></tr></table>
<table border="1" width="100%" cellpadding="2" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
	<tr>
		<td>

<table border="1" width="100%" id="table3" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bgcolor="#ffffff" bordercolor="#F6F6F6">
<tr>
<td height="30" align="center" bgcolor="#F6F6F6">分类名称</td>
<td height="30" align="center" bgcolor="#F6F6F6">图片</td>
<td height="30" align="center" bgcolor="#F6F6F6">操作</td>
</tr>
<%
sSql="select * from LstMenuBig order by Id asc"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Response.Write ""
Else
Do While Not oRs.eof%>
<tr>
<td height="30" align="center"><input disabled name="aaaa" value="<%=oRs("MenuTitle")%>" size="13"></td>
<td height="30" align="center"><img src="<%=oRs("MenuPic")%>" height=30></td>
<td height="30" align="center"><a href="?gaozhen=myedd&Id=<%=oRs("Id")%>"><img src=../images/ico/save.gif></a>
</td>
</tr>
<%
oRs.MoveNext
Loop
End If
%>
</table>
<%If gaozhen="myedd" Then%>
<%
Set oRs = server.CreateObject ("adodb.recordset")
sSql="select * from [LstMenuBig] where Id="& Id
oRs.open sSql,oConn,1,1
%>
<form name="myform" action="?action=eddbanner&Id=<%=Id%>" method=post>
<table border="1" width="100%" id="table3" cellspacing="0" cellpadding="0" bgcolor="#ffffff" style="border-collapse: collapse" bordercolor="#F6F6F6">
<tr>
<td height="30" align="right" width="165">名称：</td>
<td height="30" colspan="2"><%=oRs("MenuTitle")%></td>
</tr>
<tr>
<td height="30" align="right" width="165">图片：</td>
<td height="30"><input id="PSmallPic" name="PSmallPic" value="<%=oRs("MenuPic")%>" size="50">
<input type="button" id="image" value="选择图片" />
</td>
</tr>
<tr>
<td height="30" align="right" width="165">链接地址：</td>
<td height="30" colspan="2"><input name="MenuPicUrl" value="<%=oRs("MenuPicUrl")%>" size="50"></td>
</tr>

<tr>
<td height="30" width="165">　</td>
<td height="30" colspan="2"><input type="submit" value="保存信息"></td>
</tr>
</table>
</form>		

<%End If%>	
		
		
		
		
		</td>
	</tr>
</table>

</body>
</html>
<%
If action="eddbanner" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [LstMenuBig] where id="&Id
	oRs.open sSql,oconn,1,3
		oRs("MenuPic")=trim(request("PSmallPic"))
		oRs("MenuPicUrl")=trim(request("MenuPicUrl"))
		oRs.update
		oRs.close
		call alert("编辑成功!","LstClassPic.asp")
	Set oRs = Nothing
End If
%>
