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

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<!--#include file="../inc/md5.asp" -->
<%
call zwtj()
function ymdh()
if fid=0 then 
ymdh="" 
end if
dim fpath,path,i
fpath=getmc("Jw_linksclass","id",fid,"fpath")
path=split(fpath,",")
for i=1 to (ubound(path)-1)
ymdh=ymdh&"<a href=""?fid="&path(i)&""">"&getmc("Jw_linksclass","id",path(i),"mc")&"</a> &gt; "
next
end function
'//////////////////////////////////////////////////////////////////////////////////////////////////
mytit=mytit&"<a href=""?fid=0"">链接管理</a> > "

dim sh,stt
sh=Trim(Request.QueryString("sh"))

if sh="" then 
sh=0
else
sh=int(sh)
end if

select case action
case "add"
mytit=mytit&ymdh()&"添加链接"
call add()
case "del"
call del()
case "show",""
if sh=1 then
stt="&gt; 未审核链接"
elseif sh=2 then 
stt="&gt; 已审核链接"
end if
if fid=0 then
mytit=mytit&"所有链接"&stt
else
mytit=mytit&ymdh()&"链接列表"&stt
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
if sh=1 then 
sql="select * from Jw_links where show=1 order by zd desc,qz asc"
elseif sh=2 then
sql="select * from Jw_links where show=0 order by zd desc,qz asc"
else
sql="select * from Jw_links order by zd desc,qz asc"
end if
else
if sh=1 then 
sql="select * from Jw_links where show=1 and instr(fpath,',"&fid&",')>0 order by zd desc,qz asc"
elseif sh=2 then
sql="select * from Jw_links where show=0 and instr(fpath,',"&fid&",')>0 order by zd desc,qz asc"
else
sql="select * from Jw_links where instr(fpath,',"&fid&",')>0 order by zd desc,qz asc"
end if
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="?fid=<%= fid %>">所有链接</a> || <a href="?fid=<%= fid %>&amp;sh=1">未审核链接</a> || <a href="?fid=<%= fid %>&amp;sh=2">已审核连接</a> || <a href="?action=add&fid=<%= fid %>&sh=<%= sh %>">添加链接 </a>|| <a href="?action=px&fid=<%= fid %>&sh=<%= sh %>">链接排序</a> || <a href="linksclass.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="3%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="48%" bgcolor="#C5E0F3"><strong>网站名称</strong></td>
<td width="13%" align="center" bgcolor="#C5E0F3"><strong>创建人</strong></td>
<td width="14%" align="center" bgcolor="#C5E0F3"><strong>所属分类</strong></td>
<td width="10%" align="center" bgcolor="#C5E0F3"><strong>权重</strong></td>
<td width="9%" align="center" bgcolor="#C5E0F3"><strong>操作</strong></td>
<td width="3%" 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>
<%= rs("mc") %><% 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=""linksclass.asp?action=ups&id="&rs("fid")&""">"&getmc("Jw_linksclass","id",rs("fid"),"mc")&"</a>")
end if
%>
</td>
<td align="center"><%= rs("qz") %></td>
<td align="center"><table 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>
</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(8,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="?fid=<%= fid %>">所有链接</a> || <a href="?fid=<%= fid %>&amp;sh=1">未审核链接</a> || <a href="?fid=<%= fid %>&amp;sh=2">已审核连接</a> || <a href="?action=px&fid=<%= fid %>&sh=<%= sh %>">链接排序</a> || <a href="linksclass.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="#C5E0F3">所属分类：</td>
<td bgcolor="#C5E0F3">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="40" value="<%= getlmdh("Jw_linksclass",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('../selfid1.asp?tab=Jw_linksclass&amp;fid=<%= fid %>','','left=100,top=100,scrollbars=yes,resizable=yes,width=400,height=300')"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">网站类型：</td>
<td bgcolor="#C5E0F3">
<select name="lb" class="inp" id="lb" style="width:120px" onfocus="this.className='focus'" onblur="this.className='inp'">
<option value="0">不属于任何类别</option>
<option value="1">宾馆</option>
<option value="2">旅行社</option>
<option value="3">旅游网站</option>
</select></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">网站名称：</td>
<td bgcolor="#C5E0F3"><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="#C5E0F3">网站地址：</td>
<td bgcolor="#C5E0F3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%"><input name="url" type="text" class="inp" id="url" onfocus="this.className='focus'" onblur="out_url();this.className='inp'" value="http://" size="40"/></td>
<td width="64%"><div id="curl"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">网站LOGO：</td>
<td bgcolor="#C5E0F3">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="pic" type="text" class="inp" id="pic" 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=pic','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
</tr>
</table></td>
</tr>

<tr>
<td bgcolor="#C5E0F3">站长姓名：</td>
<td bgcolor="#C5E0F3"><input name="sname" type="text" class="inp" id="sname" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">电子邮件：</td>
<td bgcolor="#C5E0F3"><input name="semail" type="text" class="inp" id="semail" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">站&nbsp;长&nbsp;QQ：</td>
<td bgcolor="#C5E0F3"><input name="sqq" type="text" class="inp" id="sqq" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">密&nbsp;&nbsp;&nbsp;&nbsp;码：</td>
<td bgcolor="#C5E0F3"><input name="psw" type="password" class="inp" id="psw" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">确认密码：</td>
<td bgcolor="#C5E0F3"><input name="psw1" type="password" class="inp" id="psw1" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">备&nbsp;&nbsp;&nbsp;&nbsp;注：</td>
<td bgcolor="#C5E0F3">
<textarea name="content" cols="80" rows="6" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"></textarea></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">链接属性：</td>
<td bgcolor="#C5E0F3"><table border="0" cellpadding="2" cellspacing="0">
<tr>
<td>审核</td>
<td><input name="show" type="checkbox" id="show" value="0" checked="checked" /></td>
<td>置顶</td>
<td><input name="zd" type="checkbox" id="zd" value="1" /></td>
</tr>
</table></td>
</tr>


<tr>
<td colspan="2" bgcolor="#C5E0F3"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#C5E0F3"><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(8,4)
dim mc,qz,fid1,fpath,content,url,pic,show,zd,lb,sname,sqq,semail,psw,psw1

mc=getform("mc",1,1)
fid1=getform("fid",2,1)
qz=scpx("Jw_links",fid1)
pic=getform("pic",1,1)
url=getform("url",1,1)
fpath=getmc("Jw_linksclass","id",fid1,"fpath")
content=getform("content",1,1)
show=getform("show",2,0)
zd=getform("zd",2,0)
lb=getform("lb",2,0)
sname=getform("sname",1,1)
sqq=getform("sqq",1,1)
semail=getform("semail",1,1)
psw=getform("psw",1,1)
psw1=getform("psw1",1,1)

if psw="" or psw1="" or psw<>psw1 then 
call errs("两次输入的密码不一致")
end if 

psw=md5(psw)

if show="" then 
show=0
end if
if zd="" then 
zd=0
end if

if getnum(" jw_links where mc='"&mc&"'")>0 then
call errs("该链接信息已存在")
end if

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

'插入记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select top 1 * from Jw_links where 1=1",3)
rs.addnew()
rs("mc")=mc
rs("qz")=qz
rs("fid")=fid1
rs("fpath")=fpath
rs("content")=content
rs("url")=url
rs("pic")=pic
rs("show")=show
rs("zd")=zd
rs("creater")=creater
rs("lb")=lb
rs("sname")=sname
rs("sqq")=sqq
rs("semail")=semail
rs("psw")=psw
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(8,5)
set rs=conn.execute("select * from Jw_links where id="&id)
if rs.eof then 
call cc("记录不存在！")
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="?fid=<%= fid %>">所有链接</a> || <a href="?fid=<%= fid %>&amp;sh=1">未审核链接</a> || <a href="?fid=<%= fid %>&amp;sh=2">已审核连接</a> || <a href="?action=add&fid=<%= fid %>&sh=<%= sh %>">添加链接 </a>|| <a href="?action=px&fid=<%= fid %>&sh=<%= sh %>">链接排序</a> || <a href="linksclass.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="#C5E0F3">所属分类：</td>
<td width="90%" bgcolor="#C5E0F3">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="fidstr" readonly type="text" class="inp" id="fidstr" size="40" value="<%= getlmdh("Jw_linksclass",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('../selfid1.asp?tab=Jw_linksclass&fid=<%= rs("fid") %>','','scrollbars=yes,resizable=yes,width=400,height=300')"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">网站类型：</td>
<td bgcolor="#C5E0F3">
<select name="lb" class="inp" id="lb" style="width:120px" onfocus="this.className='focus'" onblur="this.className='inp'">
<option value="0" <% If rs("lb")=0 Then Response.Write("selected") end if %>>不属于任何类别</option>
<option value="1" <% If rs("lb")=1 Then Response.Write("selected") end if %>>宾馆</option>
<option value="2" <% If rs("lb")=2 Then Response.Write("selected") end if %>>旅行社</option>
<option value="3" <% If rs("lb")=3 Then Response.Write("selected") end if %>>旅游网站</option>
</select></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">网站名称：</td>
<td bgcolor="#C5E0F3"><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="#C5E0F3">网站地址：</td>
<td bgcolor="#C5E0F3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36%"><input name="url" type="text" class="inp" id="url" onfocus="this.className='focus'" onblur="out_url();this.className='inp'" size="40" maxlength="100" value="<%= rs("url") %>"/></td>
<td width="64%"><div id="curl"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">网站LOGO：</td>
<td bgcolor="#C5E0F3">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input value="<%= rs("pic") %>" name="pic" type="text" class="inp" id="pic" 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=pic&up=1&tab=Jw_links&id=<%= id %>','','left='+(event.clientX+205)+',top='+(event.clientY+115)+',width=350,height=20')" style="cursor:hand;"/></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">站长姓名：</td>
<td bgcolor="#C5E0F3"><input name="sname" type="text" class="inp" id="sname" size="40" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= rs("sname") %>"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">电子邮件：</td>
<td bgcolor="#C5E0F3"><input name="semail" type="text" class="inp" id="semail" size="40" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= rs("semail") %>"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">站&nbsp;长&nbsp;QQ：</td>
<td bgcolor="#C5E0F3"><input name="sqq" type="text" class="inp" id="sqq" size="40" onfocus="this.className='focus'" onblur="this.className='inp'" value="<%= rs("sqq") %>"/></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">密&nbsp;&nbsp;&nbsp;&nbsp;码：</td>
<td bgcolor="#C5E0F3"><input name="psw" type="password" class="inp" id="psw" size="40" onfocus="this.className='focus'" onblur="this.className='inp'"/> 
  <span class="fontr">不修改请留空</span></td>
</tr>

<tr>
<td bgcolor="#C5E0F3">备&nbsp;&nbsp;&nbsp;&nbsp;注：</td>
<td bgcolor="#C5E0F3">
<textarea name="content" cols="80" rows="6" class="inp" id="content" onfocus="this.className='focus'" onblur="this.className='inp'"><%= rs("content") %></textarea></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">链接属性：</td>
<td bgcolor="#C5E0F3"><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>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#C5E0F3">最后更新：</td>
<td bgcolor="#C5E0F3"><input name="lastm" type="text" class="inp" id="lastm" size="50" disabled="disabled" value="<%= rs("lastm") %>" onfocus="this.className='focus'" onblur="this.className='inp'"/></td>
</tr>


<tr>
<td colspan="2" bgcolor="#C5E0F3"><div id="msg"></div></td>
</tr>
<tr>
<td colspan="2" bgcolor="#C5E0F3"><input onclick="goo('?action=doup&id=<%= rs("id") %>&fid=<%= fid %>&sh=<%= sh %>')" 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()
call chkqx(8,5)
dim mc,fid1,fpath,content,url,pic,show,zd,lb,sname,sqq,semail,psw

mc=getform("mc",1,1)
fid1=getform("fid",2,1)
pic=getform("pic",1,1)
url=getform("url",1,1)
fpath=getmc("Jw_linksclass","id",fid1,"fpath")
content=getform("content",1,1)
show=getform("show",2,0)
zd=getform("zd",2,0)
lb=getform("lb",2,0)
sname=getform("sname",1,1)
sqq=getform("sqq",1,1)
semail=getform("semail",1,1)
psw=getform("psw",1,1)

if psw<>"" then 
psw=md5(psw)
end if

dim fidy

fidy=getmc("Jw_links","id",id,"fid")
'判断是否根栏目//////////////////////////////////////////////////////////////////////////////
if fid1=0 then 
call errs("不能将链接移到根目录下")
end if

'更新记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select * from Jw_links where id="&id,3)
rs("mc")=mc
rs("fid")=fid1
rs("fpath")=fpath
rs("content")=content
rs("url")=url
rs("pic")=pic
rs("show")=show
rs("zd")=zd
rs("lb")=lb
rs("sname")=sname
rs("sqq")=sqq
rs("semail")=semail
if psw<>"" then 
rs("psw")=psw
end if
rs.update
call recordend(rs)
call zhgx("Jw_links",id)
'结束/////////////////////////////////////////////////////////////////////////////////////
if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)
end sub

'删除//////////////////////////////////////////////////////////////////////////////////////////
sub del()
call chkqx(8,6)
dim dJw_links,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_links where id="&iid(i))
if not rs.eof then 
'删除小图
if not rs("pic")="" then
call delfile(rs("pic"))
end if
end if
call recordend(rs)
'删除链接
conn.execute("delete * from Jw_links where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'链接排序///////////////////////////////////////////////////////////////////////////////
sub cdpx()
call chkqx(8,5)
if fid=0 then 
sql="select * from Jw_links order by zd desc,qz asc"
else
sql="select * from Jw_links where fid="&fid&" order by zd desc,qz asc"
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="?fid=<%= fid %>">所有链接</a> || <a href="?fid=<%= fid %>&amp;sh=1">未审核链接</a> || <a href="?fid=<%= fid %>&amp;sh=2">已审核连接</a> || <a href="?action=add&fid=<%= fid %>&sh=<%= sh %>">添加链接 </a>|| <a href="?action=px&fid=<%= fid %>&sh=<%= sh %>">链接排序</a> || <a href="linksclass.asp">栏目管理</a></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="3%" align="center" bgcolor="#D9ECF7"><strong>ID</strong></td>
<td width="60%" bgcolor="#D9ECF7"><strong>网站名称</strong></td>
<td width="37%" 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 %>&sh=<%= sh %>&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()
call chkqx(8,5)
if fid="" then 
fid=getmc("Jw_links","id",id,"fid")
end if
call dopx("Jw_links",fid,id,Trim(Request.Form("qz")))
call zhgx("Jw_links",id)
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

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

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

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

'起用//////////////////////////////////////////////////////////////////////////////////////
sub qy()
call chkqx(8,5)
dim val
val=0
if id<>"" then
call uptab("Jw_links","show",val,"id",id)
call zhgx("Jw_links",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_url()){chk=false;}

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

//GE("form1").action="?action=doup&id=<%= id %>";
//GE("form1").submit()

var fid=GE("fid").value;
var mc=escape(GE("mc").value);
var url=escape(GE("url").value);
var pic=escape(GE("pic").value);
var content=escape(GE("content").value);
var show;
if(GE("show").checked)
{show=0;}
else{show=1;}
var zd;
if(GE("zd").checked)
{zd=1;}
else{zd=0;}

var lb=GE("lb").value;
var sname=escape(GE("sname").value);
var sqq=escape(GE("sqq").value);
var semail=escape(GE("semail").value);
var psw=escape(GE("psw").value);
<% If action="add" Then %>
var psw1=escape(GE("psw1").value);
<% End If %>
var Ajax = new oAjax(act,backs);
var arrKey = new Array("mc","fid","content","pic","url","show","zd","lb","sname","sqq","semail","psw"<% If action="add" Then %>,"psw1"<% End If %>);
var arrValue =new Array(mc,fid,content,pic,url,show,zd,lb,sname,sqq,semail,psw<% If action="add" Then %>,psw1<% End If %>);
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>