<!--#include file="Conn.asp"--><%Checklogin("链接管理")%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>管理区域</title>
<link rel="stylesheet" href="css/common.css" type="text/css" />
<script language="javascript" src="../js/jquery-1.6.1.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
</head>

<body>
<div id="man_zone">
<%
Act = Request.QueryString("act")
If act = "save" Then
isedit = False
id = Request.Form("id")
If id<>"" And IsNumeric(id) Then isedit = True
sname = TextEnCode(Request.Form("sname"))
stitle = TextEnCode(Request.Form("stitle"))
surl = TextEnCode(Request.Form("surl"))
sord = Request.Form("sord")
sreplace = Request.Form("sreplace")
starget = Request.Form("starget")

If sord="" Or Not IsNumeric(sord) Then sord=0
If sreplace="" Or Not IsNumeric(sreplace) Then sreplace=0
If starget="" Or Not IsNumeric(starget) Then starget=0

If isedit Then
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select * From setlink Where id="&id,Conn,1,3
	If Not Rs.Bof And Not Rs.Eof Then
		Rs("sname")=sname
		Rs("stitle")=stitle
		Rs("surl")=surl
		Rs("sreplace")=sreplace
		Rs("starget")=starget
		Rs("sord")=sord
	Else
		Rs.AddNew
		Rs("sname")=sname
		Rs("stitle")=stitle
		Rs("surl")=surl
		Rs("sreplace")=sreplace
		Rs("starget")=starget
		Rs("sord")=sord
		Rs("sstate")=1
	End If
	Rs.Update:Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing
	Page = Request.QueryString("Page")
	Keys=Server.UrlEnCode(Request.QueryString("Keys"))
	Ord=Server.UrlEnCode(Request.QueryString("Ord"))
	Response.Redirect "?keys="&Keys&"&Ord="&Ord&"&Page="&Page
Else
	Conn.Execute("Insert into setlink(sname,stitle,surl,sreplace,starget,sord,sstate) values('"&sname&"','"&stitle&"','"&surl&"',"&sreplace&","&starget&","&sord&",1)")
	Conn.Close:Set Conn=Nothing:Response.Redirect "?"
End If
Conn.Close:Set Conn=Nothing

Response.End
End If 'end save


If Act = "add" Or Act = "edit" Then
id = Request.QueryString("id")
isedit = False
If id<>"" And IsNumeric(id) Then isedit=True
If isedit Then
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select * From setlink Where id="&id,Conn,1,1
	If Not Rs.Bof And Not Rs.Eof Then
		sname=Rs("sname")
		stitle=Rs("stitle")
		surl=Rs("surl")
		sord=Rs("sord")
		sreplace=Rs("sreplace")
		starget=Rs("starget")
	Else
		isedit = False
	End If
	Rs.Close:Set Rs=Nothing
End If

Page = Request.QueryString("Page")
Keys=Server.UrlEnCode(Request.QueryString("Keys"))
Ord=Server.UrlEnCode(Request.QueryString("Ord"))
hrefstr = "?keys="&Keys&"&Ord="&Ord&"&Page="&Page
%>
	<form name="form1" method="post" action="<%=hrefstr%>&act=save">
	<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
		<tbody>
			<tr>
				<th width="8%">链接名</th>
				<td><input type="text" id="sname" name="sname" value="<%=sname%>" class="txt1" /><input type="hidden" name="id" value="<%=id%>" /></td>
			</tr>
			<tr>
				<th width="8%">描述</th>
				<td><input type="text" id="stitle" name="stitle" value="<%=stitle%>" class="txt1" /></td>
			</tr>
			<tr>
				<th width="8%">URL</th>
				<td><input type="text" id="surl" name="surl" value="<%=surl%>" class="txt1" /></td>
			</tr>
			<tr>
				<th width="8%">排序<span>(优先级)</span></th>
				<td><input type="text" id="sord" name="sord" value="<%=sord%>" class="txt1" style="width:100px" /> <span style="color:red">数字越大，越优先替换，不填写默认0</span></td>
			</tr>
			<tr>
				<th width="8%">替换次数</th>
				<td><input type="text" id="sreplace" name="sreplace" value="<%=sreplace%>" class="txt1" style="width:100px" /> <span style="color:red">0替换全部，不填写默认0</span></td>
			</tr>
			<tr>
				<th width="8%">窗口类型</th>
				<td><label for="starget0"><input type="radio" id="starget0" name="starget" value="0"<%If starget<>1 Then Response.Write " checked=""checked"""%> />原窗口打开</label><label><input type="radio" id="starget1" name="starget" value="1"<%If starget=1 Then Response.Write " checked=""checked"""%> />新窗口打开</label></td>
			</tr>
			<tr>
				<th></th>
				<td><input type="submit" name="save" id="save" value="确定" class="btn1" /> <input type="reset" name="save" id="save" value="重置" class="btn1" /> <input type="button" value="返回" class="btn1" onClick="location.href='<%=hrefstr%>'" /></td>
			</tr>
		</tbody>
	</table>
	</form>
</div>
</body>
</html>
<%
Response.End
End If 'End add


If Act="postchk" Then

Keys = Server.UrlEnCode(Request.QueryString("Keys"))
Ord = Server.UrlEnCode(Request.QueryString("Ord"))
Page = Request.QueryString("Page")
chkact = Request.Form("chkact")
SqlStr = ""
For i = 1 To Request.Form("chkbox").Count
	If SqlStr<>"" Then
		SqlStr = SqlStr & " Or id="&Request.Form("chkbox")(i)
	Else
		SqlStr = " Where id="&Request.Form("chkbox")(i)
	End If
Next

Select Case chkact
Case "0":SqlStr = "Update setlink Set sstate="&chkact&SqlStr
Case "1":SqlStr = "Update setlink Set sstate="&chkact&SqlStr
Case Else:SqlStr = "Delete From setlink"&SqlStr
End Select

Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing
Response.Redirect "?Keys="&Keys&"&Ord="&Ord&"&Page="&Page
Response.End
End If	'End postchk



Keys=Request.QueryString("Keys")
Keyscode=TextEnCode(Keys)
Ord=Request.QueryString("Ord")
Page = Request.QueryString("Page")
If Ord<>"" Then
	OrdStr=Ord&","
Else
	OrdStr=""
End If

Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From setlink Where sname like '%"&Keyscode&"%' Or stitle like '%"&Keyscode&"%' Or surl like '%"&Keyscode&"%' Order By "&OrdStr&"Id Desc",Conn,1,1
Keys=Server.UrlEnCode(Keys)
Ord=Server.UrlEnCode(Ord)
hrefstr = "?keys="&Keys
%>	
	<form id="form1" method="post" action="?act=postchk&Keys=<%=keys%>&Ord=<%=Ord%>&Page=<%=Page%>" onSubmit="return false" />
	<table width="100%" border="0" cellpadding="3" cellspacing="1" class="table1">
		<thead>
			<tr>
				<th width="4%"><input type="checkbox" name="chkall" id="chkall" onClick="chkboxall(this,'chkbox')" /></th>
				<th width="6%">序号</th>
				<th width="26%"><a href="<%=hrefstr%><%If ord="sname" Then Response.Write "&ord=sname+Desc" Else Response.Write "&ord=sname"%>">链接名<%If Ord="sname" Then Response.Write "↓" Else If Ord="sname+Desc" Then Response.Write "↑"%></a></th>
				<th width="40%"><a href="<%=hrefstr%><%If ord="surl" Then Response.Write "&ord=surl+Desc" Else Response.Write "&ord=surl"%>">URL<%If Ord="surl" Then Response.Write "↓" Else If Ord="surl+Desc" Then Response.Write "↑"%></a></th>
				<th width="8%"><a href="<%=hrefstr%><%If ord="sord" Then Response.Write "&ord=sord+Desc" Else Response.Write "&ord=sord"%>">排序<%If Ord="sord" Then Response.Write "↓" Else If Ord="sord+Desc" Then Response.Write "↑"%></a></th>
				<th width="8%"><a href="<%=hrefstr%><%If ord="sstate" Then Response.Write "&ord=sstate+Desc" Else Response.Write "&ord=sstate"%>">状态<%If Ord="sstate" Then Response.Write "↓" Else If Ord="sstate+Desc" Then Response.Write "↑"%></a></th>
				<th width="8%">操作</th>
			</tr>
		</thead>
		<tbody>
<%
If Not Rs.Bof And Not Rs.Eof Then
	Rs.PageSize = 10
	If Page = "" Then Page = 1
	If Page = "end" Then Page = Rs.PageCount
	If Not IsNumeric(Page) Or Page < 1 Then Page = 1
	Page = Cint(Page)
	If Page > Rs.PageCount Then Page = Rs.PageCount
	Rs.AbsolutePage = Page
	TempNum = Rs.PageSize * (Page - 1)
	
	Set Rs1=Server.CreateObject("ADODB.RecordSet")

	For i=1 To Rs.PageSize
		If Rs.Bof Or Rs.Eof Then Exit For
		TempNum=TempNum+1
%>

			<tr onMouseOver="this.style.background='#F7FCFF'" onMouseOut="this.style.background='#FFFFFF'">
				<td align="center"><input type="checkbox" name="chkbox" value="<%=Rs(0)%>" /></td>
				<td align="center"><%=TempNum%></td>
				<td align="center"><%=Rs("sname")%></td>
				<td align="center"><%=Rs("surl")%></td>
				<td align="center"><%=Rs("sord")%></td>
				<td align="center"><%If Rs("sstate")=1 Then Response.Write "正常" Else Response.Write "<span style=""red"">隐藏</span>" End If%></td>
				<td align="center"><a href="?Keys=<%=keys%>&Ord=<%=Ord%>&Page=<%=Page%>&act=edit&id=<%=Rs(0)%>" class="ico_edit">修改</a></td>
			</tr>
<%
		Rs.MoveNext
	Next
Set Rs1=Nothing
Else
	If Keys="" Then
%>
			<tr>
				<td align="center" colspan="7">Sorry，当前暂无内链</td>
			</tr>

<%
	Else
%>
			<tr>
				<td align="center" colspan="7"><a href="?">Sorry，没有找到“<%=Keyscode%>”相关的内链，点击返回</a></td>
			</tr>
<%
	End If
End If
%>
		</tbody>
		<tfoot>
			<tr>
				<td colspan="7">
					<div class="showpagebox">
<%
If Rs.PageCount > 1 Then
	PageName="?Keys="&Keys&"&Ord="&Ord&"&"
	Pagelen=3
	If Page>1 Then
		Response.Write "<a href="""&PageName&"Page=1"">首页</a>"
		Response.Write "<a href="""&PageName&"Page="&Page-1&""">上一页</a>"
	End If

	If Pagelen*2+1 >= Rs.PageCount Then
		StartPage=1:EndPage=Rs.PageCount
	Else
		If Page<=Pagelen+1 Then
			StartPage=1
			EndPage=Pagelen*2+1
		Else
			StartPage=Page-Pagelen
			EndPage=Page+Pagelen
		End If
		If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount
	End If

	For i = StartPage To EndPage
		If i = Page Then
			Response.Write "<a class=""current"">"&i&"</a>"
		Else
			Response.Write "<a href="""&PageName&"Page="&i&""">"&i&"</a>"
		End If
	Next

	If Page<Rs.PageCount Then
		If Rs.PageCount - Page > Pagelen Then Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">..."&Rs.PageCount&"</a>"
		Response.Write "<a href="""&PageName&"Page="&Page+1&""">下一页</a>"
		Response.Write "<a href="""&PageName&"Page="&Rs.PageCount&""">尾页</a>"
	End If

	Response.Write "<input type=""text"" id=""Pagego"" value="""&Page&""" onFocus=""if(this.value == '"&Page&"'){this.value='';}"" onBlur=""if(this.value == ''){this.value='"&Page&"';}"" onKeyUp=""this.value=this.value.replace(/\D/g,'')"" onKeyDown=""if(event.keyCode==13){location.href='"&PageName&"Page='+document.getElementById('Pagego').value}"" />"
End If
%>					</div>
					<div class="searchbox"><input type="text" id="keys" value="<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>" onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="if(event.keyCode==13){location.href='?Keys='+escape(document.getElementById('keys').value)}" /><input type="button" id="searchgo" value="go" onClick="location.href='?Keys='+escape(document.getElementById('keys').value)" /></div>
					<div class="postchkbox">
						<select id="chkact" name="chkact">
							<option value="1">正常</option>
							<option value="0">隐藏</option>
							<option value="-1">删除</option>
						</select>
						<input type="button" value="执行" onClick="postchk(2)" class="btn1" />
						<input type="button" value="新增" onClick="location.href='?act=add'" class="btn1" />
					</div>
				</td>
			</tr>
		</tfoor>
	</table>
	</form>
<%Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing%>
</div>
</body>
</html>
