www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > 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 %>