www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/links.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
Call CheckAdmin()
'Call CnkAdminRight(1)
Dim ShowLang
ShowLang=Trim(Request("ShowLang"))
if ShowLang<>"" then ShowLang=Clng(ShowLang)
thispage=request("page_code")
if thispage="" then
thispage=1
else
thispage=clng(thispage)
end if
if thispage<1 then thispage=1
PagePara="?ShowLang="&ShowLang
Dim Action,Language,lei,linktext,linkurl,linklogo,ishome,id
Action=Trim(Request("Action"))
Language=Trim(Request.Form("Language"))
lei=Trim(Request.Form("lei"))
linktext=Trim(Request.Form("linktext"))
linkurl=Trim(Request.Form("linkurl"))
linklogo=Trim(Request.Form("linklogo"))
ishome=Trim(Request.Form("ishome"))
'linkcontent=Trim(Request.Form("linkcontent"))
id=Trim(Request("id"))
if Trim(Request.Form("paixu"))<>"" then conn.execute("update cnk_weblinks set paixu="&Request("paixu")&" where id="&Request("id"))
Call Head()
%>
<script language="JavaScript">
<!--
function cform(){
if(!confirm("您确认删除吗? 请注意删除后无法恢复!"))
return false;
}//-->
</script>
<body>
<div class="cnkbox">
<% =GetChannelContent(ChannelID,"ChannelName")%>
管理导航： <a href="?ChannelID=<%= ChannelID %>">链接管理首页</a> | <a href="?ChannelID=<%= ChannelID %>&Action=Add">添加新链接</a></div>
<%
select case Action
case "saveadd"
Call SaveAdd()
case "savemodi"
Call SaveModi()
case "del"
Call del()
case ""
%>
<div class="cnkbox">
<div class="title">
<% =GetChannelContent(ChannelID,"ChannelName")%>
链接管理</div>
<div class="content"> <a href="?ChannelID=<%=ChannelID%>">显示全部</a> | <a href="?ChannelID=<%=ChannelID%>&ShowLang=0">只显示中文</a> | <a href="?ChannelID=<%=ChannelID%>&ShowLang=1">只显示英文</a>
<br>
<br>
文字链接：
<%sql="select id,paixu,Lang,linktext,linkurl,linklogo,ishome,initime from cnk_weblinks where lei=0 and ChannelID="&ChannelID
if ShowLang<>"" then sql=sql&" and Lang="&ShowLang
sql=sql&" order by paixu,initime"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "未有内容"
else
%>
<table width="96%" border="0" cellpadding="3" cellspacing="1">
<tr bgcolor="#C2E0FE" align="center">
<td width="10%">排序</td>
<td width="14%">时间</td>
<td width="20%">网站名称</td>
<td width="27%" align="center">链接地址</td>
<td width="13%" align="center">首页显示</td>
<td width="16%" align="center">操作</td>
</tr>
<% do while not rs.eof%>
<tr bgcolor="#F6F6F6" onMouseOut="mOut(this,'#F6F6F6');" onMouseOver="mOvr(this,'#EBFFBB');">
<form action="" method="post" name="form1">
<td align="center"><input name="paixu" type="text" class="input" value="<%= rs("paixu") %>" size="4" maxlength="4">
<input name="id" type="hidden" id="id" value="<%=rs("id")%>">
</td>
</form>
<td><%=rs("initime")%> </td>
<td>[
<% If rs("Lang")=0 Then Response.Write("中") Else Response.Write("英")%>
] <%=rs("linktext")%></td>
<td><%=rs("linkurl")%></td>
<td align="center"><% If rs("ishome")=1 Then Response.Write("是") Else Response.Write("否")%></td>
<td align="center"><a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&ShowLang=<%= ShowLang %>&Action=modi">修改</a> | <a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&ShowLang=<%= ShowLang %>&Action=del" onclick="return cform()"> 删除</a></td>
</tr>
<%rs.movenext
loop%>
</table>
注：输入排序数字后回车即可
<% end if
rs.close%>
<br>
<br>
图片链接：
<%dim logo
sql="select id,paixu,Lang,linktext,linkurl,linklogo,ishome,initime from cnk_weblinks where lei=1 and ChannelID="&ChannelID
if ShowLang<>"" then sql=sql&" and Lang="&ShowLang
sql=sql&" order by paixu,initime"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "未有内容"
else
%>
<table width="96%" border="0" cellpadding="3" cellspacing="1">
<tr bgcolor="#C2E0FE" align="center">
<td width="10%"> </td>
<td width="14%">时间</td>
<td width="20%">网站名称</td>
<td width="27%" align="center">链接地址</td>
<td width="13%" align="center">首页显示</td>
<td width="16%" align="center">操作</td>
</tr>
<% do while not rs.eof
if instr(rs("linklogo"),"http://")>0 then logo=rs("linklogo") else logo="/upfiles/"&rs("linklogo")%>
<tr bgcolor="#F6F6F6" onMouseOut="mOut(this,'#F6F6F6');" onMouseOver="mOvr(this,'#EBFFBB');">
<form action="" method="post" name="form1">
<td align="center"><input name="paixu" type="text" class="input" value="<%= rs("paixu") %>" size="4" maxlength="4">
<input name="id" type="hidden" id="id" value="<%=rs("id")%>"></td>
</form>
<td><%=rs("initime")%> </td>
<td>[
<% If rs("Lang")=0 Then Response.Write("中") Else Response.Write("英")%>
] <img src="<%= logo %>"></td>
<td><%=rs("linkurl")%></td>
<td align="center"><% If rs("ishome")=1 Then Response.Write("是") Else Response.Write("否")%></td>
<td align="center"><a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&ShowLang=<%= ShowLang %>&Action=modi">修改</a> | <a href="?id=<%=rs("id")%>&ChannelID=<%=ChannelID%>&ShowLang=<%= ShowLang %>&Action=del" onclick="return cform()"> 删除</a></td>
</tr>
<%rs.movenext
loop%>
</table>
注：输入排序数字后回车即可
<% end if
rs.close%>
</div>
</div>
<% Case "Add" %>
<form name="form1" method="post" action="links.asp">
<div class="cnkbox">
<div class="title">
<% =GetChannelContent(ChannelID,"ChannelName")%>
添加链接</div>
<div class="content">
<div id="list">
<ul>
<li class="t1">选择语言：</li>
<li class="t2">
<% If Lang=0 or Lang=2 Then %>
<input type="radio" name="Language" value="0" id="Lang1" checked="checked" />
<label for="Lang1">中文</label>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<input type="radio" name="Language" value="1" id="Lang2" />
<label for="Lang2">EngLish</label>
<% End If %>
</li>
</ul>
<ul>
<li class="t1">链接类别：</li>
<li class="t2">
<input type="radio" name="lei" value="0" id="lei1" checked="checked" />
<label for="lei1">文字链接</label>
<input type="radio" name="lei" value="1" id="lei2" />
<label for="lei2">LOGO图片</label>
</li>
</ul>
<ul>
<li class="t1">显示在首页：</li>
<li class="t2">
<input type="radio" name="ishome" value="1" id="ishome1" />
<label for="ishome1">是</label>
<input type="radio" name="ishome" value="0" id="ishome2" checked="checked" />
<label for="ishome2">否</label>
</li>
</ul>
<ul>
<li class="t1">网站名称：</li>
<li class="t2">
<input name="linktext" type="text" class="input" id="linktext" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">LOGO图片：</li>
<li class="t2">
<input name="linklogo" type="text" class="input" id="linklogo" value="http://" size="50" maxlength="100" />
<input type="button" name="Submit2" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=linklogo&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
可用外部图片地址或上传图片(文字链接不用填) </li>
</ul>
<ul>
<li class="t1">链接地址：</li>
<li class="t2">
<input name="linkurl" type="text" class="input" id="linkurl" value="http://" size="50" maxlength="100" />
</li>
</ul>
<br />
<ul>
<li class="t1">
<input name="Action" type="hidden" id="Action" value="saveadd" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" />
<input name="ShowLang" type="hidden" id="ShowLang" value="<%= ShowLang %>" />
</li>
<li class="t2">
<input name="提交" type="submit" class="button" value="提交" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</div>
</div>
</form>
<% Case "modi"
rs.open "select * from cnk_weblinks where id="&id,conn,1,1
%>
<form name="form1" method="post" action="links.asp">
<div class="cnkbox">
<div class="title">
<% =GetChannelContent(ChannelID,"ChannelName")&" -- "%>
修改链接</div>
<div class="content">
<div id="list">
<ul>
<li class="t1">选择语言：</li>
<li class="t2">
<% If Lang=0 or Lang=2 Then %>
<input type="radio" name="Language" value="0" id="Lang1" <% If rs("Lang")=0 Then Response.Write("checked=""checked""")%> />
<label for="Lang1">中文</label>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<input type="radio" name="Language" value="1" id="Lang2" <% If rs("Lang")=1 Then Response.Write("checked=""checked""")%> />
<label for="Lang2">EngLish</label>
<% End If %>
</li>
</ul>
<ul>
<li class="t1">链接类别：</li>
<li class="t2">
<input type="radio" name="lei" value="0" id="lei1" <% If rs("lei")=0 Then Response.Write("checked=""checked""")%> />
<label for="lei1">文字链接</label>
<input type="radio" name="lei" value="1" id="lei2" <% If rs("lei")=1 Then Response.Write("checked=""checked""")%> />
<label for="lei2">LOGO图片</label>
</li>
</ul>
<ul>
<li class="t1">显示在首页：</li>
<li class="t2">
<input type="radio" name="ishome" value="1" id="ishome1" <% If rs("ishome")=1 Then Response.Write("checked=""checked""")%> />
<label for="ishome1">是</label>
<input type="radio" name="ishome" value="0" id="ishome2" <% If rs("ishome")=0 Then Response.Write("checked=""checked""")%> />
<label for="ishome2">否</label>
</li>
</ul>
<ul>
<li class="t1">网站名称：</li>
<li class="t2">
<input name="linktext" type="text" class="input" id="linktext" value="<%= rs("linktext") %>" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">LOGO图片：</li>
<li class="t2">
<input name="linklogo" type="text" class="input" id="linklogo" value="<%= rs("linklogo") %>" size="50" maxlength="100" />
<input type="button" name="Submit2" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=linklogo&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
可用外部图片地址或上传图片(文字链接不用填) </li>
</ul>
<ul>
<li class="t1">链接地址：</li>
<li class="t2">
<input name="linkurl" type="text" class="input" id="linkurl" value="<%= rs("linkurl") %>" size="50" maxlength="100" />
</li>
</ul>
<br />
<ul>
<li class="t1">
<input name="Action" type="hidden" id="Action" value="savemodi" />
<input name="id" type="hidden" id="id" value="<%= rs("id") %>" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" />
<input name="ShowLang" type="hidden" id="ShowLang" value="<%= ShowLang %>" />
</li>
<li class="t2">
<input name="提交" type="submit" class="button" value="提交" />
</li>
</ul>
<div class="clearboth"></div>
</div>
</div>
</div>
</form>
<%
rs.close
End Select
Call Foot()
Call Closedb()
Sub SaveAdd()
sql="insert into cnk_weblinks"
sql=sql&" (ChannelID,Lang,lei,linktext,linkurl,linklogo,ishome)"
sql=sql&" values ("&ChannelID&","&Language&","&lei&",'"&linktext&"','"&linkurl&"','"&linklogo&"',"&ishome&")"
conn.execute(sql)
Call alertmsg_url("添加成功","links.asp?ChannelID="&ChannelID&"&ShowLang="&ShowLang)
End Sub
Sub SaveModi()
sql="update cnk_weblinks set"
sql=sql&" ChannelID="&ChannelID&",Lang="&Language&",lei="&lei&",linktext='"&linktext&"',linkurl='"&linkurl&"',linklogo='"&linklogo&"',ishome="&ishome&" where id="&id
conn.execute(sql)
Call alertmsg_url("修改成功","links.asp?ChannelID="&ChannelID&"&ShowLang="&ShowLang)
End Sub
Sub del()
conn.execute("delete from cnk_weblinks where id="&id)
Call alertmsg_url("删除成功","links.asp?ChannelID="&ChannelID&"&ShowLang="&ShowLang)
End Sub
%>