linktxt.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
If Cint(AdminGroup(5))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
%>
<!--#include file="top.asp"-->
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <tr>
    <td align="center" class="banner"><a href="linktxt.asp">查看</a>/<a href="?action=add">添加</a></td>
  </tr>
</table>
<%
select case request("action")
case "add"
call add()
case "saveadd"
call saveadd()
case "del"
call del()
case else
call normal()
end select
sub normal()
dim strFileName
strFileName="linktxt.asp"
pageno=15
dim rs,p_i
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from linktxt order by id desc",conn,1,1
rscount=rs.recordcount
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor" style="word-break:break-all;table-layout:fixed">
  <tr> 
    <td width="200" align="center" class="tablebody">链接名称</td>
    <td align="center" class="tablebody">链接地址</td>
    <td width="10%" align="center" class="tablebody">修改</td>
    <td width="10%" align="center" class="tablebody">删除</td>
  </tr>
  <%
   if  rscount<1 then
  %>
  <tr> 
    <td colspan="4" class="tablebody" align="center">暂时没有内容！</td>
  </tr>
<%
  else
call showsql(pageno)
rs.move(rsno)
for p_i=1 to loopno
%>
  <tr> 
    <td align="center" class="tablebody"><%=rs(2)%></td>
    <td align="center" class="tablebody"><a href="<%=rs(1)%>" target="_blank"><%=rs(1)%></a></td>
    <td align="center" class="tablebody"><a href="?action=add&id=<%=rs(0)%>">修改</a></td>
    <td align="center" class="tablebody"><a href="?action=del&id=<%=rs(0)%>">删除</a></td>
  </tr>
  <%
  rs.movenext
  next
  %>
  <tr> 
      <td colspan="4" align="right" class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"个链接")%></td>
  </tr>
  <%
  end if
  %>
</table>
<%
end sub
sub add()
dim id,linkurl,linkname
id=request("id")
if id<>"" then
if not isnumeric(id) then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
dim rs
set rs=conn.execute("select linkurl,linkname from linktxt where id="&clng(id))
linkurl=rs(0)
linkname=rs(1)
rs.close
set rs=nothing
end if
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <form name="form1" method="post" action="?action=saveadd">
    <tr class="tablebody"> 
      <td width="30%" align="center">链接名称：</td>
      <td><input name="linkname" type="text" id="linkname" value="<%=linkname%>" size="40" maxlength="50">
        </td>
    </tr>
    <tr class="tablebody"> 
      <td align="center">链接地址：</td>
      <td><input name="linkurl" type="text" id="linkurl" value="<%=linkurl%>" size="40" maxlength="255">
        (格式如：http://www.qzcibn.com)</td>
    </tr>
    <tr class="tablebody"> 
      <td align="center">&nbsp;</td>
      <td><input type="hidden" name="id" value="<%=id%>"> <input type="submit" name="Submit" value="提交"> 
        <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  </form>
</table>
<%
end sub
sub saveadd()
dim id,linkname,linkurl
id=request.Form("id")
linkname=checkStr(request.Form("linkname"))
linkurl=checkStr(request.Form("linkurl"))
if linkname="" then
response.Write("<script>alert('请输入链接名称！');history.back()</script>")
response.End()
end if
if linkurl="" then
response.Write("<script>alert('请输入链接地址！');history.back()</script>")
response.End()
end if
dim rs
set rs=server.CreateObject("adodb.recordset")
if id<>"" then
if not isnumeric(id) then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
rs.open "select linkname from linktxt where linkname='"&linkname&"' and id<>"&id,conn,1,1

if not rs.bof and not rs.eof then
response.Write("<script>alert('该链接名称已存在！');history.back()</script>")
response.End()
end if
rs.close
rs.open "select * from linktxt where id="&id,conn,1,2
rs(1)=linkurl
rs(2)=linkname
rs.update
rs.close
set rs=nothing
response.Write("<script>alert('更新成功！');location='linktxt.asp'</script>")

else
rs.open "select linkname from linktxt where linkname='"&linkname&"'",conn,1,1
if not rs.bof and not rs.eof then
response.Write("<script>alert('该链接名称已存在！');history.back()</script>")
response.End()
end if
rs.close
rs.open "linktxt",conn,1,2
rs.addnew
rs(1)=linkurl
rs(2)=linkname
rs.update
rs.close
set rs=nothing

'conn.execute("insert into tema(linkname,password,tema,addtime) values("&linkname&",'"&password&"','"&tema&"','"&addtime&"')")
response.Write("<script>alert('添加成功！');location='linktxt.asp'</script>")
end if
end sub
sub del()
dim id
id=request("id")
if id="" or not isnumeric(id) then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
conn.execute("delete from linktxt where id="&clng(id))
response.Write("<script>alert('删除成功！');location='linktxt.asp'</script>")
end sub
%>
<%closeconn%>
<!--#include file="end.asp"-->