<!--#include file="include/conn.asp"-->
<%If SS<>"" Then%>
<%Call limsss(sQxa,"$$MenuSmall"&SS&"$$")%>
<%End If%>
<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>
<script src="../js/del.js" type="text/javascript"></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>
<%
select case gaozhen
case "mylist" call mylist()
case "myadd" call myadd()
case "myedd" call myedd()
End select
%>
<%sub mylist%>
<table border="1" width="100%" id="table3" cellspacing="0" style="border-collapse: collapse" bordercolor="#F6F6F6" cellpadding="0">
<form action="?gaozhen=mylist&TT=<%=TT%>&SS=<%=SS%>" method="post">
<tr>
<td>
输入关键字：<input class="keyword" value="" name="keyword" x-webkit-speech onwebkitspeechchange="webkitspeechchange()">
<input name="c" type="submit" value=" 开始搜索 ">
<input type="button" name="delete" onClick="del('?action=alldel&TT=<%=TT%>&SS=<%=SS%>')" value=" 删除全部信息 ">
</td>
</tr>
</form>
</table>
<table border="1" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
<tr>
<td>
<table border="0" width="100%" id="table1" cellspacing="3" cellpadding="3"><tr>
	<td align="left"><input type="button" name="delete" onclick="{location.href='?gaozhen=myadd&TT=<%=TT%>&SS=<%=SS%>';}" value="发布信息"></td></tr></table>
<table border="1" width="100%" id="table3" cellspacing="0" style="border-collapse: collapse" bordercolor="#F6F6F6" cellpadding="0">
<tr>
<td height="30" align="center" bgcolor="#F6F6F6"><b>大类名称</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>小类名称</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>信息名称</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>会员价格</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>排列顺序</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>添加时间</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>操作</b</td>
<%If MENUTYPE(SS)=2 Then%><td height="30" align="center" bgcolor="#F6F6F6"><b>线路详情</b></td><%End If%>
<%If MENUTYPE(SS)=4 Then%><td height="30" align="center" bgcolor="#F6F6F6"><b>酒店管理</b></td><%End If%>
<td height="30" align="center" bgcolor="#F6F6F6"><b>静态</b</td>
</tr>
<%

If keyword="" Then 

	if TT="" And SS="" then 
	sSql="select * from [LstNewsInfo] order by Id desc"
	ElseIf SS<>"" Then
	sSql="select * from [LstNewsInfo] where PSId="&SS&" order by Pindex desc, Id desc"
	Else
	sSql="select * from [LstNewsInfo] where PBId="&TT&" order by Pindex desc, Id desc"
	end If

Else 

	if TT="" And SS="" then 
	sSql="select * from [LstNewsInfo] where PTitle like '%"&keyword&"%' order by Id desc"
	ElseIf SS<>"" Then
	sSql="select * from [LstNewsInfo] where PTitle like '%"&keyword&"%' and PSId="&SS&" order by Pindex desc, Id desc"
	Else
	sSql="select * from [LstNewsInfo] where PTitle like '%"&keyword&"%' and PBId="&TT&" order by Pindex desc, Id desc"
	end If

End If



Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open sSql, oconn, 1, 1
If oRs.eof and oRs.bof then
Response.Write ""
Else
Call PageNum(100)
for i=1 to mypage%>
<form action="?action=paixu&Id=<%=oRs("Id")%>&TT=<%=oRs("PBID")%>&SS=<%=oRs("PSID")%>" method=post>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF"><a href=?gaozhen=mylist&TT=<%=oRs("PBId")%>><%=MENUNAME(oRs("PBId"))%></a><a name=bianji<%=oRs("Id")%>></a></td>
<td height="30" align="center" bgcolor="#FFFFFF"><a href=?gaozhen=mylist&TT=<%=oRs("PBId")%>&SS=<%=oRs("PSId")%>><%=MENUNAMESS(oRs("PSId"))%></a></td>
<td height="30" align="left" bgcolor="#FFFFFF">·<a target=_blank href="/LstInfo.asp?TT=<%=oRs("PBId")%>&SS=<%=oRs("PSId")%>&Id=<%=oRs("Id")%>"><%=oRs("PTitle")%></a></td>
<td height="30" align="left" bgcolor="#FFFFFF"><%=oRs("Phymoney")%></td>
<td height="30" align="center" bgcolor="#FFFFFF">
<input class="ingreen" type="button" name="delete1" onclick="{location.href='?action=newsindexjia&Id=<%=oRs("Id")%>&TT=<%=oRs("PBID")%>&SS=<%=oRs("PSID")%>';}" value="↑">
<input class="inred" type="button" name="delete22" onclick="{location.href='?action=newsindexjian&Id=<%=oRs("Id")%>&TT=<%=oRs("PBID")%>&SS=<%=oRs("PSID")%>';}" value="↓">
<input name="xuhao" type="text" size=5 value="<%=oRs("PIndex")%>"><input name="sssss" type="submit" value="改">
</td>
<td height="30" align="center" bgcolor="#FFFFFF"><input name="tttt" value="<%=oRs("PAddtime")%>"></td>
<td height="30" align="center" bgcolor="#FFFFFF">
<a href="?gaozhen=myedd&Id=<%=oRs("Id")%>"><img src=../images/ico/edit.gif></a>
<a href="?action=delproinfo&Id=<%=oRs("Id")%>&aaaa=<%=oRs("PBId")%>"><img src=../images/ico/del.gif></a>
</td>
<%If MENUTYPE(oRs("PSId"))=2 Then%><td height="30" align="center" bgcolor="#FFFFFF"><a href=LstNewsInfoRoad.asp?NewsId=<%=oRs("Id")%>>线路编辑</a></td><%End If%>
<%If MENUTYPE(oRs("PSId"))=4 Then%><td height="30" align="center" bgcolor="#FFFFFF"><a href=LstNewsInfoRoom.asp?NewsId=<%=oRs("Id")%>>管理房间</a></td><%End If%>
<td height="30" align="center"><a href="?action=changhtml&PBId=<%=oRs("PBId")%>&PSId=<%=oRs("PSId")%>&Id=<%=oRs("Id")%>"><img src=../images/ico/html.gif></a></td>
</tr>
</form>
<%
oRs.MoveNext
Next
End If
%>
</table>
<table border="0" width="100%" cellspacing="3" cellpadding="3">
	<tr>
		<td align="center" height="30"><%Call PageUrl("?gaozhen=mylist&TT="&TT&"&SS="&SS&"&keyword="&keyword&"",100)%></td>
	</tr>
</table>	
</td>
</tr>
</table>
<%end sub%>
<%sub myadd%>
<table border="1" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
<tr>
<td>
<form name="myform" action="?action=addproinfo" method=post>
<table border="1" width="100%" id="table3" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#F6F6F6">
<tr>
<td height="30" align="right" width="165">信息分类：</td>
<td height="30"><input name="PBId" value="<%=TT%>" type=hidden>
<input type="button" name="fsdfd" value="<%=MENUNAME(TT)%>">
<select name="PSId" size="1">
<%If SS<>"" Then%>
<OPTION Value="<%=SS%>"><%=MENUNAMESS(SS)%></option>
<%End If%>
<%=MENUNAMESMALL(TT)%>
</select>
星级：
<select name="Pstar">
<%For k=1 To 5%><option value="<%=k%>"><%=k%>星</option><%next%>
</select>
</td>
</tr>
<tr>
<td height="30" align="right" width="165">文章来源：</td>
<td height="30"><input name="Plyuan" value="原创" size="10">
文章作者：<input name="PAthuor" value="<%=session("adminuser")%>" size="10">
初始访问次数：<input name="phits" type="text" value="100" size="5">
</td>
</tr>
<tr>
<td height="30" align="right" width="165">添加时间：</td>
<td height="30">
<input name="PAddtime" value="<%=FormatTime(now(),3)%>" size="10">
排列顺序：<input name="Pindex" value="1" size="10">
* 排序数字越大越靠前
</td>
</tr>
<tr>
<td height="30" align="right" width="165">选择属性：</td>
<td height="30">
<%if Isarray(sLabel) Then%>
<%for i=0 to UBound(sLabel)%>
<input type="checkbox" name="Plabel" value="<%=sLabel(i)%>"><%=sLabel(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">文章标题：</td>
<td height="30">
<input name="PTitle" value="" size="95" class="input500">
</td>
</tr>
<tr>
<td height="30" align="right" width="165">文章导读：
</td>
<td height="30">
<textarea class="input500" id="PJian" name="PJian" rows="3" cols="80"></textarea></td>
</tr>
<tr>
<td height="30" align="right" width="165">输入价格：</td>
<td height="30" width="85%">市场：<input name="Pscmoney" value="0" size="10">
会员：<input name="Phymoney" value="0" size="10">&nbsp;* 线路、车辆、门票、酒店最低起订价.</td>
</tr>
<tr>
<td height="30" align="right" width="165">缩略图：</td>
<td height="30" width="85%"><input id="PSmallPic" name="PSmallPic" value="" size="50">
<input type="button" id="image" value="选择图片" />&nbsp;* 点击浏览后自动上传，保证图片200K以下.</td>
</tr>

<tr>
<td height="30" align="right" width="165">预订电话：</td>
<td height="30" width="85%"><input name="Pjtel" value="" size="30">
开放时间：<input name="Pkftime" value="" size="35">&nbsp;* 线路预订电话，酒店预订电话。</td>
</tr>
<tr>
<td height="30" align="right" width="165">所在位置：</td>
<td height="30" width="85%"><input name="PJaddress" value="" size="30">
商圈：<input name="Pshangye" value="" size="40">&nbsp;* 所在位置，针对景点、酒店有效。</td>
</tr>
<tr>
<td height="30" align="right" width="165">车辆品牌：</td>
<td height="30" width="85%"><input name="CarPP" value="" size="20">
乘坐人数：<input name="CarZai" value="" size="20">
室内配置：<input name="CarPz" value="" size="20">&nbsp;* 针对车辆租赁有效。</td>
</tr>


<tr>
<td height="30" align="right" width="165">是否视频：</td>
<td height="30" width="85%"><input name="PFlvUrl" value="" size="50">&nbsp;* 有视频请填写视频地址".flv"，无链接请留空。</td>
</tr>
<tr>
<td height="30" align="right" width="165">是否链接：</td>
<td height="30" width="85%"><input name="PLinkUrl" value="" size="50">&nbsp;* 有链接请填写链接地址，无链接请留空。</td>
</tr>
<tr>
<td height="30" align="right" width="165">是否下载：</td>
<td height="30"><input id="Downurl" name="Downurl" value="" size="50">
<input type="button" id="insertfile" value="选择文件" />&nbsp;* 此功能只正对下载栏目有效.</td>
</tr>
<tr>
<td height="30" align="right" width="165">是否下载：</td>
<td height="30"><input id="TAOBAOURL" name="TAOBAOURL" value="" size="100">&nbsp;* 输入淘宝或外部链接会点击转走.</td>
</tr>

<tr>
<td height="30" align="right" width="165">目的地：</td>
<td height="30">
<%if Isarray(sR1) Then%>
<%for i=0 to UBound(sR1)%>
<input type="checkbox" name="RMDD" value="<%=sR1(i)%>"><%=sR1(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">所属景点：</td>
<td height="30">
<%if Isarray(sR2) Then%>
<%for i=0 to UBound(sR2)%>
<input type="checkbox" name="RJING" value="<%=sR2(i)%>"><%=sR2(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">几日游：</td>
<td height="30">
<%if Isarray(sR3) Then%>
<%for i=0 to UBound(sR3)%>
<input type="checkbox" name="RDAY" value="<%=sR3(i)%>"><%=sR3(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">交通方式：</td>
<td height="30">
<%if Isarray(sR4) Then%>
<%for i=0 to UBound(sR4)%>
<input type="checkbox" name="RFSHI" value="<%=sR4(i)%>"><%=sR4(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">价格范围：</td>
<td height="30">
<%if Isarray(sR5) Then%>
<%for i=0 to UBound(sR5)%>
<input type="checkbox" name="RMONEY" value="<%=sR5(i)%>"><%=sR5(i)%>
<%Next 
End if%>
</td>
</tr>
<tr>
<td height="30" align="right" width="165">详细介绍：
<script>
var editor;
KindEditor.ready(function(K) {
editor = K.create('#emituofoconts');
html = editor.html(); 
});
</script>
</td>
<td height="30">
<textarea class="input500" id="emituofoconts" name="emituofoconts" rows="20" cols="100"></textarea></td>
</tr>
<tr>
<td height="30" width="165">　</td>
<td height="30"><input type="submit" onClick="return check()" value="    确认发布信息    "></td>
</tr>
</table>
</form>		
</td>
</tr>
</table>
<%end sub%>
<%sub myedd%>
<%
Set oRs = server.CreateObject ("adodb.recordset")
sSql="select * from [LstNewsInfo] where Id="& Id
oRs.open sSql,oConn,1,1
%>
<table border="1" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
<tr>
<td>
<form name="myform" action="?action=eddproinfo&Id=<%=Id%>" method=post>
<table border="1" width="100%" id="table3" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#F6F6F6">
<tr>
<td height="30" align="right" width="165">信息分类：</td>
<td height="30"><input name="PBId" value="<%=oRs("PBId")%>" type=hidden>
<input type="button" name="fsdfd" value="<%=MENUNAME(TT)%>">
<select name="PSId" size="1">
<option value="<%=oRs("PSId")%>"><%=MENUNAMESS(oRs("PSId"))%></option>
<%=MENUNAMESMALL(oRs("PBId"))%>
</select>
星级：
<select name="Pstar"><option value="<%=oRs("Pstar")%>"><%=oRs("Pstar")%></option>
<%For k=1 To 5%><option value="<%=k%>"><%=k%></option><%next%>
</select>
</td>
</tr>
<tr>
<td height="30" align="right" width="165">文章来源：</td>
<td height="30"><input name="Plyuan" value="<%=oRs("Plyuan")%>" size="10">
文章作者：<input name="PAthuor" value="<%=oRs("PAthuor")%>" size="10">
初始访问次数：<input name="phits" type="text" value="<%=oRs("phits")%>" size="5">
</td>
</tr>
<tr>
<td height="30" align="right" width="165">添加时间：</td>
<td height="30">
<input name="PAddtime" value="<%=FormatTime(oRs("PAddtime"),3)%>" size="10">
排列顺序：<input name="Pindex" value="<%=oRs("Pindex")%>" size="10">
* 排序数字越大越靠前
</td>
</tr>
<tr>
<td height="30" align="right" width="165">选择属性：</td>
<td height="30">
<%if Isarray(sLabel) Then%>
<%for i=0 to UBound(sLabel)%>
<input type="checkbox" name="Plabel" <%If InStr(oRs("Plabel"),sLabel(i))>0 Then%>checked<%End If%> value="<%=sLabel(i)%>"><%=sLabel(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">文章标题：</td>
<td height="30">
<input name="PTitle" value="<%=oRs("PTitle")%>" size="95" class="input500">
</td>
</tr>
<tr>
<td height="30" align="right" width="165">文章导读：
</td>
<td height="30">
<textarea class="input500" id="PJian" name="PJian" rows="3" cols="80"><%=oRs("PJian")%></textarea></td>
</tr>
<tr>
<td height="30" align="right" width="165">输入价格：</td>
<td height="30" width="85%">市场：<input name="Pscmoney" value="<%=oRs("Pscmoney")%>" size="10">
会员：<input name="Phymoney" value="<%=oRs("Phymoney")%>" size="10">&nbsp;* 线路、车辆、门票、酒店最低起订价.</td>
</tr>
<tr>
<td height="30" align="right" width="165">缩略图：</td>
<td height="30" width="85%"><input id="PSmallPic" name="PSmallPic" value="<%=oRs("PSmallPic")%>" size="50">
<input type="button" id="image" value="选择图片" />&nbsp;* 点击浏览后自动上传，保证图片200K以下.</td>
</tr>

<tr>
<td height="30" align="right" width="165">预订电话：</td>
<td height="30" width="85%"><input name="Pjtel" value="<%=oRs("Pjtel")%>" size="30">
开放时间：<input name="Pkftime" value="<%=oRs("Pkftime")%>" size="35">&nbsp;* 线路预订电话，酒店预订电话。</td>
</tr>
<tr>
<td height="30" align="right" width="165">所在位置：</td>
<td height="30" width="85%"><input name="PJaddress" value="<%=oRs("PJaddress")%>" size="30">
商圈：<input name="Pshangye" value="<%=oRs("Pshangye")%>" size="40">&nbsp;* 所在位置，针对景点、酒店有效。</td>
</tr>
<tr>
<td height="30" align="right" width="165">车辆品牌：</td>
<td height="30" width="85%"><input name="CarPP" value="<%=oRs("CarPP")%>" size="20">
乘坐人数：<input name="CarZai" value="<%=oRs("CarZai")%>" size="20">
室内配置：<input name="CarPz" value="<%=oRs("CarPz")%>" size="20">&nbsp;* 针对车辆租赁有效。</td>
</tr>

<tr>
<td height="30" align="right" width="165">是否视频：</td>
<td height="30" width="85%"><input name="PFlvUrl" value="<%=oRs("PFlvUrl")%>" size="50">&nbsp;* 有视频请填写视频地址".flv"，无链接请留空。</td>
</tr>
<tr>
<td height="30" align="right" width="165">是否链接：</td>
<td height="30" width="85%"><input name="PLinkUrl" value="<%=oRs("PLinkUrl")%>" size="50">&nbsp;* 有链接请填写链接地址，无链接请留空。</td>
</tr>
<tr>
<td height="30" align="right" width="165">是否下载：</td>
<td height="30"><input id="Downurl" name="Downurl" value="<%=oRs("PDownUrl")%>" size="50">
<input type="button" id="insertfile" value="选择文件" />&nbsp;* 此功能只正对下载栏目有效.</td>
</tr>
<tr>
<td height="30" align="right" width="165">是否下载：</td>
<td height="30"><input id="TAOBAOURL" name="TAOBAOURL" value="<%=oRs("TAOBAOURL")%>" size="100">&nbsp;* 输入淘宝或外部链接会点击转走.</td>
</tr>
<tr>
<td height="30" align="right" width="165">目的地：</td>
<td height="30">
<%if Isarray(sR1) Then%>
<%for i=0 to UBound(sR1)%>
<input type="checkbox" name="RMDD" <%If InStr(oRs("RMDD"),sR1(i))>0 Then%>checked<%End If%> value="<%=sR1(i)%>"><%=sR1(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">所属景点：</td>
<td height="30">
<%if Isarray(sR2) Then%>
<%for i=0 to UBound(sR2)%>
<input type="checkbox" name="RJING" <%If InStr(oRs("RJING"),sR2(i))>0 Then%>checked<%End If%> value="<%=sR2(i)%>"><%=sR2(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">几日游：</td>
<td height="30">
<%if Isarray(sR3) Then%>
<%for i=0 to UBound(sR3)%>
<input type="checkbox" name="RDAY" <%If InStr(oRs("RDAY"),sR3(i))>0 Then%>checked<%End If%> value="<%=sR3(i)%>"><%=sR3(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">交通方式：</td>
<td height="30">
<%if Isarray(sR4) Then%>
<%for i=0 to UBound(sR4)%>
<input type="checkbox" name="RFSHI" <%If InStr(oRs("RFSHI"),sR4(i))>0 Then%>checked<%End If%> value="<%=sR4(i)%>"><%=sR4(i)%>
<%Next 
End if%>
</td>
</tr>

<tr>
<td height="30" align="right" width="165">价格范围：</td>
<td height="30">
<%if Isarray(sR5) Then%>
<%for i=0 to UBound(sR5)%>
<input type="checkbox" name="RMONEY" <%If InStr(oRs("RMONEY"),sR5(i))>0 Then%>checked<%End If%> value="<%=sR5(i)%>"><%=sR5(i)%>
<%Next 
End if%>
</td>
</tr>
<tr>
<td height="30" align="right" width="165">详细介绍：
<script>
var editor;
KindEditor.ready(function(K) {
editor = K.create('#emituofoconts');
html = editor.html(); 
});
</script>
</td>
<td height="30">
<textarea class="input500" id="emituofoconts" name="emituofoconts" rows="20" cols="100"><%=oRs("PContent")%></textarea></td>
</tr>
<tr>
<td height="30" width="165">　</td>
<td height="30"><input type="submit" value="    确认保存信息    "></td>
</tr>
</table>
</form>		
</td>
</tr>
</table>

<%end sub%>


</body>
</html>
<%
'删除信息
If action="delproinfo" then
		set ors=Server.CreateObject("ADODB.Recordset")
		sSql="delete * from [LstNewsInfo] WHERE Id = "&Id&" "
		ors.open sSql,oconn,1,3
		set ors=nothing
		response.redirect "LstNewsInfo.asp?gaozhen=mylist&TT="&trim(request("aaaa"))&""
End if
'添加信息
If action="addproinfo" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [LstNewsInfo]"
	oRs.open sSql,oconn,1,3
		oRs.addnew
		oRs("PBId")=trim(request("PBId"))
		oRs("PSId")=trim(request("PSId"))
		oRs("Phits")=trim(request("Phits"))
		oRs("Plyuan")=trim(request("Plyuan"))
		oRs("PAthuor")=trim(request("PAthuor"))
		oRs("PAddtime")=trim(request("PAddtime"))
		oRs("PTitle")=trim(request("PTitle"))
		oRs("PJian")=trim(request("PJian"))
		oRs("Pstar")=trim(request("Pstar"))
		oRs("PSmallPic")=trim(request("PSmallPic"))
		
		oRs("PDownUrl")=trim(request("DownUrl"))
		oRs("PFlvUrl")=trim(request("PFlvUrl"))
		oRs("PLinkUrl")=trim(request("PLinkUrl"))
		oRs("PContent")=trim(request("emituofoconts"))
		oRs("Pindex")=trim(request("Pindex"))
		oRs("Pscmoney")=trim(request("Pscmoney"))
		oRs("Phymoney")=trim(request("Phymoney"))
		oRs("Pkftime")=trim(request("Pkftime"))
		oRs("PJaddress")=trim(request("PJaddress"))
		oRs("Pjtel")=trim(request("Pjtel"))
		oRs("Pshangye")=trim(request("Pshangye"))
		oRs("CarPP")=trim(request("CarPP"))
		oRs("CarZai")=trim(request("CarZai"))
		oRs("CarPz")=trim(request("CarPz"))
		oRs("Plabel")=trim(request("Plabel"))
		oRs("RMDD")=trim(request("RMDD"))
		oRs("RJING")=trim(request("RJING"))
		oRs("RDAY")=trim(request("RDAY"))
		oRs("RFSHI")=trim(request("RFSHI"))
		oRs("RMONEY")=trim(request("RMONEY"))
		oRs("TAOBAOURL")=trim(request("TAOBAOURL"))
		oRs.update
		NewsId = oRs("Id")
		oRs.close
		If sxNum <=0 Then
			Call alert("对不起，今天发布数量已够！","-1") 
		Else
			If oConn.execute("select top 1 MenuType from [LstMenuSmall] where id="&trim(request("PSId"))&" ")(0)=2 Then
				response.redirect "LstNewsInfoRoad.asp?NewsId="&NewsId&""
			Else
				response.redirect "LstNewsInfo.asp?gaozhen=mylist&TT="&trim(request("PBId"))&"&SS="&trim(request("PSId"))&""
			End If
		End If
	Set oRs = Nothing
End If
'编辑信息
If action="eddproinfo" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [LstNewsInfo] where id="&Id
	oRs.open sSql,oconn,1,3
		oRs("PBId")=trim(request("PBId"))
		oRs("PSId")=trim(request("PSId"))
		oRs("Phits")=trim(request("Phits"))
		oRs("Plyuan")=trim(request("Plyuan"))
		oRs("PAthuor")=trim(request("PAthuor"))
		oRs("PAddtime")=trim(request("PAddtime"))
		oRs("PTitle")=trim(request("PTitle"))
		oRs("PJian")=trim(request("PJian"))
		oRs("Pstar")=trim(request("Pstar"))
		oRs("PSmallPic")=trim(request("PSmallPic"))
	'	oRs("PSmallPic2")=trim(request("PBigPic"))
		oRs("PDownUrl")=trim(request("DownUrl"))
		oRs("PFlvUrl")=trim(request("PFlvUrl"))
		oRs("PLinkUrl")=trim(request("PLinkUrl"))
		oRs("PContent")=trim(request("emituofoconts"))
		oRs("Pindex")=trim(request("Pindex"))
		oRs("Pscmoney")=trim(request("Pscmoney"))
		oRs("Phymoney")=trim(request("Phymoney"))
		oRs("Pkftime")=trim(request("Pkftime"))
		oRs("PJaddress")=trim(request("PJaddress"))
		oRs("Pjtel")=trim(request("Pjtel"))
		oRs("Pshangye")=trim(request("Pshangye"))
		oRs("CarPP")=trim(request("CarPP"))
		oRs("CarZai")=trim(request("CarZai"))
		oRs("CarPz")=trim(request("CarPz"))
		oRs("Plabel")=trim(request("Plabel"))
		oRs("RMDD")=trim(request("RMDD"))
		oRs("RJING")=trim(request("RJING"))
		oRs("RDAY")=trim(request("RDAY"))
		oRs("RFSHI")=trim(request("RFSHI"))
		oRs("RMONEY")=trim(request("RMONEY"))
		oRs("TAOBAOURL")=trim(request("TAOBAOURL"))
		oRs.update
		oRs.close
		If oConn.execute("select top 1 MenuType from [LstMenuSmall] where id="&trim(request("PSId"))&" ")(0)=2 Then
				response.redirect "LstNewsInfoRoad.asp?NewsId="&trim(request("Id"))&""
			Else
				response.redirect "LstNewsInfo.asp?gaozhen=mylist&TT="&trim(request("PBId"))&"&SS="&trim(request("PSId"))&""
			End If
	Set oRs = Nothing
End If
'新闻信息排序
If action="newsindexjia" Then
	oConn.Execute("UPDATE [LstNewsInfo] SET PIndex = PIndex+1 where Id ="&Id)
	Call backurl("LstNewsInfo.asp?gaozhen=mylist&TT="&TT&"&SS="&SS&"#bianji"&Id+1&"")
End If
If action="newsindexjian" Then
	oConn.Execute("UPDATE [LstNewsInfo] SET PIndex = PIndex-1 where Id ="&Id)
	Call backurl("LstNewsInfo.asp?gaozhen=mylist&TT="&TT&"&SS="&SS&"#bianji"&Id+1&"")
End If
If action="paixu" Then
	oConn.Execute("UPDATE [LstNewsInfo] SET PIndex = "&Trim(request("xuhao"))&",PAddtime='"&trim(request("tttt"))&"' where Id ="&Id)
	Call backurl("LstNewsInfo.asp?gaozhen=mylist&TT="&TT&"&SS="&SS&"#bianji"&Id+1&"")
End If
'生成HTML
If action="changhtml" then
	if SaveFile("/Html/Info/"&PBId&"_"&PSId&"/"&Id&".html","/LstInfo.asp?TT="&PBId&"&SS="&PSId&"&Id="&Id&"") then 
	Call alert("静态页面生成成功！","-1") 
	else 
	Call alert("静态页面生成失败！","-1") 
	end if
End If
'删除全部
If action="alldel" then
	set ors=Server.CreateObject("ADODB.Recordset")
	If SS="" Then 
	sSql="delete * from [LstNewsInfo] WHERE PBID="&TT&" "
	Else
	sSql="delete * from [LstNewsInfo] WHERE PSID="&SS&" "
	End If
	ors.open sSql,oconn,1,3
	set ors=nothing
	Call backurl("LstNewsInfo.asp?gaozhen=mylist&TT="&TT&"&SS="&SS&"")
End if
%>