⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 adminlink.asp

📁 仿搜狐NBA网站源码,仿搜狐NBA网站源码全站生成HTML静态页面
💻 ASP
字号:
🔍 
<!--#include file=conn.asp-->
<%
if session("adminname")="" then
    response.write "<script language='javascript'>" & chr(13)
    response.write "window.document.location.href='login.asp';"&Chr(13)
    response.write "</script>" & Chr(13)
    Response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<title>米儿文章管理系统</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style></head>

<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<%
function isurl(url)
  isurl=true
  n=len(url)
  if left(url,7)<>"http://" or n<9 then
    isurl=false
  else
      r_url=right(url,n-7)
	  for i=1 to n-7
        if instr("0123456789abcdefghigklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.?/",cstr(mid(r_url,i,1)))<1 then
	      isurl=false
	      exit for
	    end if
      next
  end if
end function 
%>
<%
mi222=trim(request("mi222"))
if mi222="addlink" then
  mi222_name=trim(request.Form("mi222_name"))
  mi222_url=trim(request.Form("mi222_url"))
  mi222_logo=trim(request.Form("mi222_logo"))
  mi222_about=trim(request.Form("mi222_about"))
  if mi222_name="" then
    Response.Write("<script>alert('请填写网站名称!');history.go(-1)</script>")
    Response.End
  elseif mi222_url="" or not isurl(mi222_url) then
    Response.Write("<script>alert('请正确填写网站网址!');history.go(-1)</script>")
    Response.End
  elseif mi222_about="" then
    Response.Write("<script>alert('请填写网站简介!');history.go(-1)</script>")
    Response.End
  else
    if mi222_logo<>"" then
	  if isurl(mi222_logo) then
        if right(mi222_logo,3)="gif" then
	      mi222_logo_ok=1
	    elseif right(mi222_logo,3)="jpg" then
	      mi222_logo_ok=1
	    elseif right(mi222_logo,3)="bmp" then
	      mi222_logo_ok=1
	    else
		  mi222_logo_ok=0
		end if
	    if mi222_logo_ok=0 then
          Response.Write("<script>alert('请正确填写LOGO!');history.go(-1)</script>")
          Response.End
	    end if
	  end if
	end if
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="select * from mi222link"
  rs.Open sql,conn,1,3
  rs.addnew
  rs("mi222_name")=mi222_name
  rs("mi222_url")=mi222_url
  rs("mi222_about")=mi222_about
  if mi222_logo<>"" then
    rs("mi222_logo")=mi222_logo
  else
    rs("mi222_logo")="mi222"
  end if
  rs.update
  rs.close
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('链接添加成功！');" & Chr(13)
  response.write "window.document.location.href='adminlink.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
  end if
%>
<%
elseif mi222="edilinkok" then
  id=trim(request("id"))
  mi222_name=trim(request.Form("mi222_name"))
  mi222_url=trim(request.Form("mi222_url"))
  mi222_logo=trim(request.Form("mi222_logo"))
  mi222_about=trim(request.Form("mi222_about"))
  if mi222_name="" then
    Response.Write("<script>alert('请填写网站名称!');history.go(-1)</script>")
    Response.End
  elseif mi222_url="" or not isurl(mi222_url) then
    Response.Write("<script>alert('请正确填写网站网址!');history.go(-1)</script>")
    Response.End
  elseif mi222_about="" then
    Response.Write("<script>alert('请填写网站简介!');history.go(-1)</script>")
    Response.End
  else
    if mi222_logo<>"" then
	  if isurl(mi222_logo) then
	    mi222_logo_ok=0
        if right(mi222_logo,3)="gif" then
	      mi222_logo_ok=1
	    elseif right(mi222_logo,3)="jpg" then
	      mi222_logo_ok=1
	    elseif right(mi222_logo,3)="bmp" then
	      mi222_logo_ok=1
	    end if
	    if mi222_logo_ok=0 then
          Response.Write("<script>alert('请正确填写LOGO!');history.go(-1)</script>")
          Response.End
	    end if
	  end if
	end if
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="select * from mi222link where cstr(id)='"& id &"'"
  rs.Open sql,conn,1,3
  rs("mi222_name")=mi222_name
  rs("mi222_url")=mi222_url
  rs("mi222_about")=mi222_about
  if mi222_logo<>"" then
    rs("mi222_logo")=mi222_logo
  else
    rs("mi222_logo")="mi222"
  end if
  rs.update
  rs.close
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('链接修改成功！');" & Chr(13)
  response.write "window.document.location.href='adminlink.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
  end if
%>
<%
elseif mi222="dellink" then
  id=trim(request("id"))
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="delete from mi222link where cstr(id)='"& id &"'"
  rs.Open sql,conn,1,3
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('链接删除成功！');" & Chr(13)
  response.write "window.document.location.href='adminlink.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
%>
<%elseif mi222="edilink" then
  id=trim(request("id"))
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="select * from mi222link where cstr(id)='"& id &"'"
  rs.Open sql,conn,1,1
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD width="593" class=title2>修改链接</TD>
    </TR>
  <form name="form1" method="post" action="adminlink.asp?mi222=edilinkok&id=<%=rs("id")%>">
    <TR bgColor=#ffffff>
      <TD></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;网站名称：
              <input name="mi222_name" type="text" id="mi222_name" value="<%=rs("mi222_name")%>" size="20">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;网站网址：
              <input name="mi222_url" type="text" id="mi222_url" value="<%=rs("mi222_url")%>" size="50">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;LOGO链接：
            <%if rs("mi222_logo")<>"mi222" then%><input name="mi222_logo" type="text" id="mi222_logo"  value=" <%=rs("mi222_logo")%>"  size="50"><%else%><input name="mi222_logo" type="text" id="mi222_logo"  value=""  size="50"><%end if%>
        </div></TD></TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;网站简介：
            <input name="mi222_about" type="text" id="mi222_about" value="<%=rs("mi222_about")%>" size="60" maxlength="255">
        </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><input type="submit" name="Submit" value="修改链接">
          <input type="reset" name="Submit" value="取消修改"></TD>
    </TR>
  </form>
</TABLE>
<%
rs.close
else
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD colspan="2" class=title2>链接管理</TD>
      </TR>
    <TR bgColor=#99CCFF class="redfont">
      <TD height="15"><strong>连 接 列 表</strong></TD>
      <TD height="15"><strong> 操 作 </strong></TD>
    </TR>
<%
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from mi222link order by id desc"
rs.Open sql,conn,1,1
if rs.bof and rs.eof then
%>
    <TR bgColor=#ffffff>
      <TD height="14" colspan="2">暂无链接信息！</TD>
    </TR>
<%
else
for i=1 to rs.recordcount
%>
    <TR bgColor=#ffffff >
      <TD width="525"><div align="left">【<%=rs("id")%>】<a href="<%=rs("mi222_url")%>" title="<%=rs("mi222_about")%>"><%=rs("mi222_name")%></a> <font color="#CC6699"> [<%=rs("mi222_time")%>] <%if rs("mi222_logo")<>"mi222" then%>『LOGO』<%else%> 『文字』<%end if%></font></div></TD>
      <TD width="68"><div align="left">&nbsp;<a href="adminlink.asp?mi222=edilink&id=<%=rs("id")%>">修改</a>  <a href="adminlink.asp?mi222=dellink&id=<%=rs("id")%>">删除</a></div></TD>
    </TR>
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close
%>
  </TBODY>
</TABLE>
<br>
<font color="#CC0099">
=========================================================================================================<br>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^</font>
<br>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD width="593" class=title2>添加链接</TD>
    </TR>
<form name="form1" method="post" action="adminlink.asp?mi222=addlink">
    <TR bgColor=#ffffff>
      <TD>
      </TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><div align="left">&nbsp;网站名称：
          <input name="mi222_name" type="text" id="mi222_name" size="20">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><div align="left">&nbsp;网站网址：
          <input name="mi222_url" type="text" id="mi222_url" size="50">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><div align="left">&nbsp;LOGO链接：
        <input name="mi222_logo" type="text" id="mi222_logo" size="50">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><div align="left">&nbsp;网站简介：
	        <input name="mi222_about" type="text" id="mi222_about" value="" size="60" maxlength="255">    
        </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><input type="submit" name="Submit" value="添加链接">
        <input type="reset" name="Submit" value="取消添加"></TD>
    </TR>
</form>
  </TBODY>
</TABLE>
<%
End if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -