www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/road/self.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
call zwtj()
'取得参数///////////////////////////////////////////////////////////////////////
function getinfos(lx,val)
dim rsi
set rsi=conn.execute("select * from Jw_infos where lx='"&lx&"'")
do while not rsi.eof
Response.Write("<option value='"&rsi("id")&"'")
if val<>"" then 
if trim(val)=rsi("id") then 
Response.Write(" selected")
end if
end if
Response.Write(">"&rsi("mc")&"</option>")
rsi.movenext
loop
call recordend(rsi)
end function

'属性/////////////////////////////////////////////////////////////////
sub tssx(sx1,sx2)
if sx1=1 then
Response.Write("<span class=""fontr"">[置顶]<span>")
end if
if sx2=1 then
Response.Write("<span class=""fontr"">[禁用]<span>")
end if
end sub

function ymdh()
if fid=0 then 
ymdh="" 
end if
dim fpath,path,i
fpath=getmc("jw_selfclass","id",fid,"fpath")
path=split(fpath,",")
for i=1 to (ubound(path)-1)
ymdh=ymdh&"<a href=""?fid="&path(i)&""">"&getmc("jw_selfclass","id",path(i),"mc")&"</a> &gt; "
next
end function
'///////////////////////////////////////////////////////////////////////////////////////////////
mytit=mytit&"<a href=""?fid=0"">自驾线路管理</a> > "

select case action
case "add"
mytit=mytit&ymdh()&"添加自驾线路"
call add()
case "del"
call del()
case "show",""
if fid=0 then 
mytit=mytit&"所有自驾线路"
else
mytit=mytit&ymdh()&"自驾线路列表"
end if
call show()
case "ups"
mytit=mytit&ymdh()&"编辑自驾线路"
call ups()
case "px"
mytit=mytit&ymdh()&"自驾线路排序"
call cdpx()
case "zd"
call zd()
case "qxzd"
call qxzd()
case "jy"
call jy()
case "qy"
call qy()
case "aadd"
call aadd()
case "doup"
call doup()
case "qqzz"
call qqzz()
case "tj"
call tj()
case "qxtj"
call qxtj()
end select

'自驾线路列表///////////////////////////////////////////////////////////////////////////////////////
sub show()
if fid=0 then
sql="select * from jw_self order by zd desc,qz asc"
else
sql="select * from jw_self where instr(fpath,',"&fid&",')>0 order by zd desc,"&order("jw_selfclass",fid)
end if
call record(rs,sql,1)
call head()
%>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加自驾线路 </a>|| <a href="?action=px&fid=<%= fid %>">自驾线路排序</a> || <a href="selfclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" id="form1" method="post" action="">
<tr>
<td width="5%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="36%" bgcolor="#C5E0F3"><strong>自驾线路名称</strong></td>
<td width="14%" align="center" bgcolor="#C5E0F3"><strong>创建人</strong></td>
<td width="15%" align="center" bgcolor="#C5E0F3"><strong>所属分类</strong></td>
<td width="13%" align="center" bgcolor="#C5E0F3"><strong>权重</strong></td>
<td width="11%" align="center" bgcolor="#C5E0F3"><strong>操作</strong></td>
<td width="6%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td>
</tr>
<% 
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td>
<% If getmc("jw_selfclass","id",rs("fid"),"newspath")<>"" Then %>
<a href="<%= getmc("jw_selfclass","id",rs("fid"),"newspath") %>?fid=<%= rs("fid") %>&id=<%= rs("id") %>" target="_blank"><%= rs("mc") %></a>
<% Else %>
<%= rs("mc") %>
<% End If %>
<% call tssx(rs("zd"),rs("show")) %></td>
<td align="center"><%= rs("creater") %></td>
<td align="center">
<%
If rs("fid")=0 Then
Response.Write("根目录")
else
Response.Write("<a href=""selfclass.asp?action=ups&id="&rs("fid")&""">"&getmc("jw_selfclass","id",rs("fid"),"mc")&"</a>")
end if
%></td>
<td align="center"><%= rs("qz") %></td>
<td align="center"><table width="81" border="0" cellpadding="2" cellspacing="0">
<tr>
<td valign="bottom"><a href="?action=ups&amp;fid=<%= fid %>&amp;id=<%= rs("id") %>"><img src="../../images/admin/20050703091537508.gif" alt="编辑信息" width="14" height="15" border="0" align="absbottom" /></a></td>
<td valign="bottom"><% If rs("show")=0 Then %>
<a href="?action=jy&amp;fid=<%= fid %>&amp;id=<%= rs("id") %>"><img src="../../images/admin/20050703091539318.gif" alt="锁定" width="13" height="13" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qy&amp;fid=<%= fid %>&amp;id=<%= rs("id") %>"><img src="../../images/admin/20050703091613193.gif" alt="解锁" width="12" height="13" border="0" align="absbottom" /></a>
<% End If %></td>
<td valign="bottom"><% If rs("zd")=0 Then %>
<a href="?action=zd&amp;fid=<%= fid %>&amp;id=<%= rs("id") %>"><img src="../../images/admin/qxzd.gif" alt="置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qxzd&amp;fid=<%= fid %>&amp;id=<%= rs("id") %>"><img src="../../images/admin/zd.gif" alt="取消置顶" width="16" height="16" border="0" align="absbottom" /></a>
<% End If %></td>
<td valign="bottom"><% If rs("tj")=0 Then %>
<a href="?action=tj&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/qxtj.gif" alt="推荐" width="16" height="18" border="0" align="absbottom" /></a>
<% Else %>
<a href="?action=qxtj&fid=<%= fid %>&id=<%= rs("id") %>"><img src="../../images/admin/tj.gif" alt="取消推荐" width="16" height="18" border="0" align="absbottom" /></a>
<% End If %></td>
</tr>
</table></td>
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onclick="td_bgcolor(r<%=rs("id")%>,1);"></td>
</tr>
<% 
i=i-1
rs.movenext 
loop
%>
<tr>
<td colspan="7" bgcolor="#C5E0F3">

<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="8%"><input name="del" type="button" class="button_1" id="del" value="删除所选" onmouseup="tjqr('您确定要删除?此操作无法逆转!','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
<td width="92%"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

'添加/////////////////////////////////////////////////////////////////////////////////////////////
sub add()
call chkqx(9,4)
call head()
%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %> || <a href="?action=px&fid=<%= fid %>">自驾线路排序</a> || <a href="selfclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="13%" bgcolor="#D9ECF7">所属分类:</td>
<td width="87%" bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="40" value="<%= getlmdh("jw_selfclass",fid) %>" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="fid" type="hidden" id="fid" value="<%= fid %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=jw_selfclass&amp;fid=<%= fid %>','','left=100,top=100,scrollbars=yes,resizable=yes,width=400,height=300')"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">自驾线路名称:</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%"><input name="mc" type="text" class="inp" id="mc" size="40" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'"/></td>
<td width="64%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">关&nbsp;键&nbsp;字:</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="gjzstr" type="text" class="inp" id="gjzstr" size="40"onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="gjz" type="hidden" id="gjz" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selgjz.asp','','scrollbars=yes,resizable=yes,width=600,height=400')"/></td>
<td><span class="fonth">可以填写或选择多个关键字,用&quot;,&quot;隔开</span></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">浏&nbsp;&nbsp;&nbsp;&nbsp;览:</td>
<td bgcolor="#D9ECF7"><input name="hits" type="text" class="inp" id="hits" size="40"value="0" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr style="display:none">
<td bgcolor="#D9ECF7">缩&nbsp;略&nbsp;图:</td>
<td bgcolor="#D9ECF7"><input name="simg" type="text" class="inp" id="simg" size="40" onFocus="this.className='focus'" onBlur="this.className='inp'"/></td>
</tr>
<tr style="display:none">
<td bgcolor="#D9ECF7">原&nbsp;&nbsp;&nbsp;&nbsp;图:</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="bimg" type="text" class="inp" id="bimg" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
<td><img src="../../images/admin/img.gif" alt="上传" width="20" height="20" onclick="MM_openBrWindow('../upfile.asp?lx=1&f1=bimg&f2=simg&bj=1','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
</tr>
</table></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">出发地点:</td>
  <td bgcolor="#D9ECF7"><input name="cfd" type="text" class="inp" id="cfd" size="40" onFocus="this.className='focus'" onBlur="this.className='inp'" /></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">线路指南:</td>
  <td bgcolor="#D9ECF7"><textarea name="xlzn" cols="60" rows="4" class="inp" id="xlzn" onFocus="this.className='focus'" onBlur="this.className='inp'"></textarea></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">行车里程:</td>
  <td bgcolor="#D9ECF7"><input name="xclc" type="text" class="inp" id="xclc" size="40" onFocus="this.className='focus'" onBlur="this.className='inp'" /></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">行车时间:</td>
  <td bgcolor="#D9ECF7"><input name="xcsj" type="text" class="inp" id="xcsj" size="40" onFocus="this.className='focus'" onBlur="this.className='inp'" /></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">温馨提示:</td>
  <td bgcolor="#D9ECF7"><textarea name="tishi" cols="60" rows="4" class="inp" id="tishi" onFocus="this.className='focus'" onBlur="this.className='inp'"></textarea></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">属&nbsp;&nbsp;&nbsp;&nbsp;性:</td>
<td bgcolor="#D9ECF7"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td bgcolor="#D9ECF7">审核</td>
<td bgcolor="#D9ECF7"><input name="show" type="checkbox" id="show" value="0" checked="checked" /></td>
<td bgcolor="#D9ECF7">置顶</td>
<td bgcolor="#D9ECF7"><input name="zd" type="checkbox" id="zd" value="1" /></td>
<td bgcolor="#D9ECF7">推荐</td>
<td bgcolor="#D9ECF7"><input name="tj" type="checkbox" id="tj" value="1" /></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7">线路简介/备注:</td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7">
<input name="content" type="hidden"/>
<iframe id="cons" src="../../edit/ewebeditor.htm?id=content" scrolling="no" frameborder="0" width="100%" height="350"></iframe></td>
</tr>

<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=aadd')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo('?action=aadd');
</SCRIPT>
<%
call connend()
call foot()
end sub

'执行添加//////////////////////////////////////////////////////////////////////////////////////
sub aadd()
call chkqx(9,4)
dim mc,qz,fid1,fpath,content,simg,bimg,spic,gjzstr,hits,show,zd,tj,gjz,cfd,xlzn,xcsj,xclc,tishi

mc=getform("mc",1,1)
fid1=getform("fid",2,0)
qz=scpx("jw_self",fid1)
simg=getform("simg",1,1)
bimg=getform("bimg",1,1)
content=getform("content",1,1)
hits=getform("hits",2,0)
show=getform("show",2,0)
zd=getform("zd",2,0)
tj=getform("tj",2,0)

cfd=getform("cfd",1,1)
xlzn=getform("xlzn",1,1)
xcsj=getform("xcsj",1,1)
xclc=getform("xclc",1,1)
tishi=getform("tishi",1,1)


fpath=getmc("jw_selfclass","id",fid1,"fpath")
spic=getpic(content)
if hits="" then 
hits=0
end if
if show="" then 
show=0
end if
if zd="" then 
zd=0
end if
if tj="" then 
tj=0
end if

'判断是否根栏目//////////////////////////////////////////////////////////////////////////////
if fid1=0 then 
call errs("请选择自驾线路分类")
end if

gjz=clgjz(gjzstr)

'处理编辑器图片------------------------------------------------------------------
if spic<>"" then 
dim str,i 
str=split(spic,"|")
if tjsy=0 then 

if sylx=0 then '图片水印
for i=0 to ubound(str)-1
if str(i)<>"" then 
call picsy(str(i))
call addpic(str(i))
end if
next
else '文字水印
for i=0 to ubound(str)-1
if str(i)<>"" then
call textsy(str(i))
call addpic(str(i))
end if
next
end if
end if
end if
'处理图片END---------------------------------------------------------------------

'插入记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select top 1 * from jw_self where 1=1",3)
rs.addnew()
rs("fid")=fid1
rs("mc")=mc
rs("fpath")=fpath
rs("simg")=simg
rs("bimg")=bimg
rs("spic")=spic
rs("content")=content
rs("gjz")=gjz
rs("hits")=hits
rs("show")=show
rs("zd")=zd
rs("qz")=qz
rs("tj")=tj

rs("cfd")=cfd
rs("xlzn")=xlzn
rs("xcsj")=xcsj
rs("xclc")=xclc
rs("tishi")=tishi

rs("creater")=creater
rs("ctim")=now()
rs("lastm")=now()
rs.update()
call recordend(rs)

if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'修改////////////////////////////////////////////////////////////////////////////////////////////
sub ups()
call chkqx(9,5)
set rs=conn.execute("select * from jw_self where id="&id)
if rs.eof then 
call cc("记录不存在!")
end if
dim gjz,str,i,gjzstr
gjz=rs("gjz")
if gjz<>"" then 
str=split(gjz,",")
for i=0 to ubound(str)
gjzstr=gjzstr&getmc("Jw_newskey","id",str(i),"mc")&","
next
gjzstr=left(gjzstr,len(gjzstr)-1)
end if

call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"> <strong><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加自驾线路 </a>|| <a href="?action=px&fid=<%= fid %>">自驾线路排序</a> || <a href="selfclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<form action="" name="form1" id="form1" method="post">
<tr>
<td width="10%" bgcolor="#D9ECF7">所属分类:</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="40" value="<%= getlmdh("jw_selfclass",rs("fid")) %>" onfocus="this.className='focus'" onblur="this.className='inp'" />
<input name="fid" type="hidden" id="fid" value="<%= rs("fid") %>" /></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selfid.asp?tab=jw_selfclass&fid=<%= rs("fid") %>','','scrollbars=yes,resizable=yes,width=400,height=300')"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">自驾线路名称:</td>
<td bgcolor="#D9ECF7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%"><input name="mc" type="text" class="inp" id="mc" size="40" onfocus="this.className='focus'" onblur="out_mc();this.className='inp'" value="<%= rs("mc") %>"/></td>
<td width="64%"><div id="cmc"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">关&nbsp;键&nbsp;字:</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="gjzstr" type="text" class="inp" id="gjzstr" size="40" value="<%= gjzstr %>" onfocus="this.className='focus'" onblur="this.className='inp'"/>
<input name="gjz" type="hidden" id="gjz" value="<%= gjz %>"/></td>
<td width="40" align="center"><img src="../../images/admin/20061205172113303.gif" alt="浏览" width="27" height="20" style="cursor:hand;" onclick="MM_openBrWindow('../selgjz.asp','','scrollbars=yes,resizable=yes,width=600,height=400')"/></td>
<td><span class="fonth">可以填写或选择多个关键字,用&quot;,&quot;隔开</span></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">浏&nbsp;&nbsp;&nbsp;&nbsp;览:</td>
<td bgcolor="#D9ECF7"><input name="hits" type="text" class="inp" id="hits" size="40" readonly value="<%= rs("hits") %>" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr style="display:none">
<td bgcolor="#D9ECF7">缩&nbsp;略&nbsp;图:</td>
<td bgcolor="#D9ECF7"><input name="simg" type="text" class="inp" id="simg" size="40" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= rs("simg") %>" /></td>
</tr>
<tr style="display:none">
<td bgcolor="#D9ECF7">原&nbsp;&nbsp;&nbsp;&nbsp;图:</td>
<td bgcolor="#D9ECF7">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input value="<%= rs("bimg") %>" name="bimg" type="text" class="inp" id="bimg" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
<td><img src="../../images/admin/img.gif" alt="上传" width="20" height="20" onclick="MM_openBrWindow('../upfile.asp?lx=1&id=<%= rs("id") %>&up=1&f1=bimg&f2=simg&bj=1&tab=jw_self','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
</tr>
</table></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">出发地点:</td>
  <td bgcolor="#D9ECF7"><input name="cfd" type="text" class="inp" id="cfd" size="40" onFocus="this.className='focus'" onBlur="this.className='inp'" value="<%= rs("cfd") %>"/></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">线路指南:</td>
  <td bgcolor="#D9ECF7"><textarea name="xlzn" cols="60" rows="4" class="inp" id="xlzn" onFocus="this.className='focus'" onBlur="this.className='inp'"><%= rs("xlzn") %></textarea></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">行车里程:</td>
  <td bgcolor="#D9ECF7"><input name="xclc" type="text" class="inp" id="xclc" size="40" onFocus="this.className='focus'" onBlur="this.className='inp'" value="<%= rs("xclc") %>"/></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">行车时间:</td>
  <td bgcolor="#D9ECF7"><input name="xcsj" type="text" class="inp" id="xcsj" size="40" onFocus="this.className='focus'" onBlur="this.className='inp'" value="<%= rs("xcsj") %>" /></td>
</tr>
<tr>
  <td bgcolor="#D9ECF7">温馨提示:</td>
  <td bgcolor="#D9ECF7"><textarea name="tishi" cols="60" rows="4" class="inp" id="tishi" onFocus="this.className='focus'" onBlur="this.className='inp'"><%= rs("tishi") %></textarea></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">属&nbsp;&nbsp;&nbsp;&nbsp;性:</td>
<td bgcolor="#D9ECF7"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td>审核</td>
<td><input name="show" type="checkbox" id="show" value="0" <% If rs("show")=0 Then Response.Write("checked") end if%>/></td>
<td>置顶</td>
<td><input name="zd" type="checkbox" id="zd" value="1" <% If rs("zd")=1 Then Response.Write("checked") end if%>/></td>
<td bgcolor="#D9ECF7">推荐</td>
<td bgcolor="#D9ECF7"><input name="tj" type="checkbox" id="tj" value="1" <% If rs("tj")=1 Then Response.Write("checked") end if%>/></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7">线路简介/备注:</td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7">

<input name="content" type="hidden" value="<%= server.HTMLEncode(rs("content")) %>" />
<iframe id="cons" src="../../edit/ewebeditor.htm?id=content" scrolling="no" frameborder="0" width="100%" height="350"></iframe></td>
</tr>
<tr>
<td bgcolor="#D9ECF7">最后更新:</td>
<td bgcolor="#D9ECF7"><input name="lastm" type="text" class="inp" id="lastm3" size="50" disabled="disabled" value="<%= rs("lastm") %>" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>

<tr>
<td colspan="2" bgcolor="#D9ECF7"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#D9ECF7"><input onclick="goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>')" name="go" type="button" class="button_1" id="go" value="提交" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'">
<input name="reset" type="reset" class="button_1" id="reset" value="重置" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'" /></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<SCRIPT language="javascript" event="onkeydown" for="document">
if(event.keyCode==13&&event.srcElement.type!='button'&&event.srcElement.type!='submit'&&event.srcElement.type!='reset'&&event.srcElement.type!='textarea'&&event.srcElement.type!='')
goo('?action=doup&id=<%= id %>');
</SCRIPT>
<%
call connend()
call foot()
end sub

'执行修改////////////////////////////////////////////////////////////////////////////////////
sub doup()
dim mc,fid1,fpath,content,simg,bimg,spic,gjzstr,hits,show,zd,tj,gjz,cfd,xlzn,xcsj,xclc,tishi

mc=getform("mc",1,1)
fid1=getform("fid",2,1)
simg=getform("simg",1,1)
bimg=getform("bimg",1,1)
content=getform("content",1,1)
hits=getform("hits",2,0)
show=getform("show",2,0)
zd=getform("zd",2,0)
tj=getform("tj",2,0)

cfd=getform("cfd",1,1)
xlzn=getform("xlzn",1,1)
xcsj=getform("xcsj",1,1)
xclc=getform("xclc",1,1)
tishi=getform("tishi",1,1)


fpath=getmc("jw_selfclass","id",fid1,"fpath")
spic=getpic(content)
if hits="" then 
hits=0
end if
if show="" then 
show=0
end if
if zd="" then 
zd=0
end if
if tj="" then 
tj=0
end if
dim fidy,spicy

fidy=getmc("jw_self","id",id,"fid")
spicy=getmc("jw_self","id",id,"spic")

'判断是否根栏目//////////////////////////////////////////////////////////////////////////////
if fid1=0 then 
call errs("不能将自驾线路移到根目录下")
end if

gjz=clgjz(gjzstr)

'删除没用到的图片////////////////////////////////////////////////////////////////////////
dim picstr,i,spicstr
if spic<>spicy then
picstr=split(spicy,"|")
for i=0 to ubound(picstr)-1
if instr(spic,picstr(i))=0 then 
call delfile(picstr(i))
end if
next
end if

spicstr=split(spic,"|")
for i=0 to ubound(spicstr)
if instr(spicy,spicstr(i))=0 then
'插入文件表,加水印
if spicstr(i)<>"" then 
if tjsy=0 then
if sylx=0 then '图片水印
call picsy(spicstr(i))
call addpic(spicstr(i))
else '文字水印
call textsy(spicstr(i))

call addpic(spicstr(i))
end if
end if
end if
end if
next

'更新记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select * from jw_self where id="&id,3)
rs("fid")=fid1
rs("mc")=mc
rs("fpath")=fpath
rs("simg")=simg
rs("bimg")=bimg
rs("spic")=spic
rs("content")=content
rs("gjz")=gjz
rs("hits")=hits
rs("show")=show
rs("zd")=zd
rs("tj")=tj

rs("cfd")=cfd
rs("xlzn")=xlzn
rs("xcsj")=xcsj
rs("xclc")=xclc
rs("tishi")=tishi

rs.update
call recordend(rs)
call zhgx("jw_self",id)
'结束/////////////////////////////////////////////////////////////////////////////////////
if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'删除//////////////////////////////////////////////////////////////////////////////////////////
sub del()
call chkqx(9,6)
dim dpic,j
dim idstr,iid,i
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")

for i=0 to ubound(iid)
'删除自驾线路
set rs=conn.execute("select * from jw_self where id="&iid(i))
if not rs.eof then 
'删除小图
if not rs("simg")="" then
call delfile(rs("simg"))
end if
if not rs("bimg")="" then
call delfile(rs("bimg"))
end if
'删除编辑器中的图片
if not rs("spic")="" then
dpic=split(rs("spic"),"|")
for j=0 to ubound(dpic)
call delfile(dpic(j))
next
set j=nothing
end if
end if
call recordend(rs)
'删除自驾线路
conn.execute("delete * from jw_self where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'自驾线路排序///////////////////////////////////////////////////////////////////////////////
sub cdpx()
call chkqx(9,5)
if fid=0 then 
sql="select * from jw_self order by zd desc,"&order("jw_selfclass",fid)
else
sql="select * from jw_self where fid="&fid&" order by zd desc,"&order("jw_selfclass",fid)
end if
call record(rs,sql,1)
call head()
%>

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><strong><%= mytit %> || <a href="?action=add&fid=<%= fid %>">添加自驾线路 </a>|| <a href="?action=px&fid=<%= fid %>">自驾线路排序</a> || <a href="selfclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="2%" align="center" bgcolor="#D9ECF7"><strong>ID</strong></td>
<td width="43%" bgcolor="#D9ECF7"><strong>自驾线路名称</strong></td>
<td width="29%" align="center" bgcolor="#D9ECF7"><strong>权重</strong></td>
</tr>
<% 
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<form action="?action=qqzz&fid=<%= fid %>&id=<%= rs("id") %>" name="form" id="form" method="post">
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td><%= rs("mc") %></td>
<td align="center"><input name="qz" type="text" class="btn2" id="qz" size="8" value="<%= rs("qz") %>"><input name="Submit" type="submit" class="btn2" value="更新"></td>
</tr>
</form>
<% 
i=i+1
rs.movenext 
loop
%>
<tr>
<td colspan="3" bgcolor="#EAF4FB"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

'执行排序//////////////////////////////////////////////////////////////////////////////
sub qqzz()
if fid="" then 
fid=getmc("jw_self","id",id,"fid")
end if
call dopx("jw_self",fid,id,Trim(Request.Form("qz")))
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'置顶//////////////////////////////////////////////////////////////////////////////////////
sub zd()
call chkqx(9,5)
dim val
val=1
if id<>"" then
call uptab("jw_self","zd",val,"id",id)
call zhgx("jw_self",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'取消置顶//////////////////////////////////////////////////////////////////////////////////////
sub qxzd()
call chkqx(9,5)
dim val
val=0
if id<>"" then
call uptab("jw_self","zd",val,"id",id)
call zhgx("jw_self",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'禁用//////////////////////////////////////////////////////////////////////////////////////
sub jy()
call chkqx(9,5)
dim val
val=1
if id<>"" then
call uptab("jw_self","show",val,"id",id)
call zhgx("jw_self",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'起用//////////////////////////////////////////////////////////////////////////////////////
sub qy()
call chkqx(9,5)
dim val
val=0
if id<>"" then
call uptab("jw_self","show",val,"id",id)
call zhgx("jw_self",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'推荐//////////////////////////////////////////////////////////////////////////////////////
sub tj()
call chkqx(9,5)
dim val
val=1
if id<>"" then
call uptab("jw_self","tj",val,"id",id)
call zhgx("jw_self",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'取消推荐//////////////////////////////////////////////////////////////////////////////////////
sub qxtj()
call chkqx(9,5)
dim val
val=0
if id<>"" then
call uptab("jw_self","tj",val,"id",id)
call zhgx("jw_self",id)
end if 
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub
%>

<script language="javascript" src="/<%= hturl %>/inc/chk.js"></script>
<script language="javascript">
function InsertHTML(val)
{var oEditor = FCKeditorAPI.GetInstance('content') ;
if ( oEditor.EditMode == FCK_EDITMODE_WYSIWYG )
{oEditor.InsertHtml(val);}
else
alert("请切换到编辑模式");}

function goo(act)
{
var chk=true;
if (!out_mc()){chk=false;}
if (!out_content()){chk=false;}

if (chk==true){
GE("go").disabled="disabled";
GE("reset").disabled="disabled";

//GE("form1").action="?action=aadd";
//GE("form1").submit()

var fid=GE("fid").value;
var mc=escape(GE("mc").value);
var content=escape(cons.getHTML());
var gjzstr=escape(GE("gjzstr").value);
var simg=escape(GE("simg").value);
var bimg=escape(GE("bimg").value);
var hits=escape(GE("hits").value);
var cfd=escape(GE("cfd").value);
var xlzn=escape(GE("xlzn").value);
var xcsj=escape(GE("xcsj").value);
var xclc=escape(GE("xclc").value);
var tishi=escape(GE("tishi").value);

var show;
if(GE("show").checked)
{show=0;}
else{show=1;}
var zd;
if(GE("zd").checked)
{zd=1;}
else{zd=0;}
var tj;
if(GE("tj").checked)
{tj=1;}
else{tj=0;}

var Ajax = new oAjax(act,backs);
var arrKey = new Array("fid","mc","simg","bimg","content","gjzstr","hits","show","zd","tj","cfd","xlzn","xcsj","xclc","tishi");
var arrValue =new Array(fid,mc,simg,bimg,content,gjzstr,hits,show,zd,tj,cfd,xlzn,xcsj,xclc,tishi);
Ajax.Post(arrKey,arrValue);
GE("msg").innerHTML=loading;
function backs(str)
{
if(str=="0")
{
GE("msg").innerHTML=ok+"&nbsp;&nbsp;操作成功";
window.location.href="?fid=<%= fid %>"
}
else
{
GE("msg").className="d_err";
GE("msg").innerHTML=err+"&nbsp;&nbsp;"+unescape(str);
GE("go").disabled="";
GE("reset").disabled="";
}
}
}
}
</script>