📄 link.asp

📁 BBS论坛的开发和设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<!--#include file = "function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接管理</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<br>
<%
Sub errorMsg(theError)
response.write"<script language=javascript>alert('"& theError &"');history.back();</script>"
response.End
End Sub
'---------------------------------------
action = trim(request.QueryString("action"))
SELECT Case action
	Case "add"
		Call add()
	Case "SaveNew"
		Call SaveNew()
	Case "SaveEdit"
		Call SaveEdit()
	Case "Edit"
		Call Edit()
	Case "Del"
		Call Del()
	Case else
		Call list()
End SELECT
'============================
Sub SaveNew()
	sitename = replace(trim(request.Form("linkname")),"'","")
		if sitename = "" then ErrorMsg "链接名称不可为空!~" 
	logo =  replace(trim(request.Form("logo")),"'","") 
	siteurl =  replace(trim(request.Form("siteurl")),"'","") 
		if siteurl = "" then ErrorMsg"网站地址不可为空"
	siteorder =  trim(request.Form("siteorder"))
		if Not(IsNumeric(siteorder)) then Errormsg "排序值只能为数字!~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * From JBB_link",conn,1,3
	rs.addnew
		rs("sitename") = sitename
		rs("logo") = logo
		rs("siteurl") = siteurl
		rs("siteorder") = siteorder
		rs("imgortxt") = request.Form("imgortxt")
	rs.update
	rs.close
	set rs = nothing
	response.write "　友情链接<b> "&sitename&" </b>添加成功"
	Application.Lock
		Application(JBBMasterCookies&"linkStr")=""
	Application.UnLock
End Sub
'============================
Sub SaveEdit()
	linkid = request.QueryString("linkid")
		if Not(IsNumeric(linkid)) then ErrorMsg "参数错误!~"
	sitename = replace(trim(request.Form("linkname")),"'","")
		if sitename = "" then ErrorMsg "链接名称不可为空!~" 
	logo =  replace(trim(request.Form("logo")),"'","") 
	siteurl =  replace(trim(request.Form("siteurl")),"'","") 
		if siteurl = "" then ErrorMsg"网站地址不可为空"
	siteorder =  trim(request.Form("siteorder"))
		if Not(IsNumeric(siteorder)) then Errormsg "排序值只能为数字!~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * From JBB_link where id = "&linkid,conn,1,3
		rs("sitename") = sitename
		rs("logo") = logo
		rs("siteurl") = siteurl
		rs("siteorder") = siteorder
		rs("imgortxt") = request.Form("imgortxt")
	rs.update
	rs.close
	set rs = nothing
	response.write "　友情链接<b> "&sitename&" </b>修改成功"
	Application.Lock
		Application(JBBMasterCookies&"linkStr")=""
	Application.UnLock
End Sub
'============================
Sub Del()
	linkid = trim(request.QueryString("linkid"))
		if Not(IsNumeric(newsid)) then ErrorMsg "参数错误!~"
	if trim(request.Form("Submit")) = "确定删除" then
		Conn.ExeCute("Delete From JBB_link where ID="&linkid &" and id <>1")
		response.Write("<br><br>　　删除完毕!~")
		Application.Lock
			Application(JBBMasterCookies&"linkStr")=""
		Application.UnLock
	else
%>
<br>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form2" method="post" action="?action=Del&linkid=<%=linkid%>">
    <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"><strong>确认删除</strong></div></td>
    </tr>
    <tr> 
      <td height="50" bgcolor="#FFFFFF">
<div align="center"><font color="#FF0000">您确定删除此友情链接吗？</font></div></td>
    </tr>
    <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"> 
          <input name="Submit" type="submit" class="form1" id="Submit" value="确定删除">
          　 
          <input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
        </div></td>
    </tr>
  </form>
</table>
<%
	End if
End Sub
'============================
Sub add()
%>
<form name="form1" method="post" action="?action=SaveNew">
  <table width="399" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>添加友情链接</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="130">链接名称</td>
      <td width="246"> 
        <input name="linkName" type="text" id="linkName"> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>连接方式</td>
      <td>图片 
        <input name="imgortxt" type="radio" value="1" checked>
        　文字 <input type="radio" name="imgortxt" value="0"> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>LOGO地址</td>
      <td> 
        <input name="logo" type="text" id="logo" value="http://" size="35"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>网站地址</td>
      <td> 
        <input name="siteurl" type="text" id="siteurl" value="http://" size="35"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>链接排序(越小越前)</td>
      <td> 
        <input name="siteorder" type="text" id="siteorder" value="9" size="2" maxlength="2"></td>
    </tr>
  </table>

<div align="center"><br>
    <input name="Submit" type="button" class="form1" value="添加此友情链接" onClick="javascript:submit()">
  </div>
</form>
<br>
<%
End Sub
'=========================
Sub Edit()
	linkid = request.QueryString("linkid")
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * from JBB_link where id="& linkid,conn,1,1
	if not rs.eof then
%>
<form name="form1" method="post" action="?action=SaveEdit&linkid=<%=linkid%>">
  <table width="399" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>修改友情链接</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="125">链接名称</td>
      <td width="251"> 
        <input name="linkName" type="text" id="linkName" value="<%=rtrim(rs("sitename"))%>"> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>连接方式</td>
      <td>图片 
        <input name="imgortxt" type="radio" value="1" <%if rs("imgortxt") then response.Write("checked")%>>
        　文字 
        <input type="radio" name="imgortxt" value="0" <%if Not(rs("imgortxt")) then response.Write("checked")%>> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>LOGO地址</td>
      <td> 
        <input name="logo" type="text" id="logo" value="<%=rtrim(rs("logo"))%>" size="35"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>网站地址</td>
      <td> 
        <input name="siteurl" type="text" id="siteurl" value="<%=rtrim(rs("siteurl"))%>" size="35"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>链接排序(越小越前)</td>
      <td> 
        <input name="siteorder" type="text" id="siteorder" value="<%=rtrim(rs("siteorder"))%>" size="2" maxlength="2"></td>
    </tr>
  </table>
  <div align="center"><br>
    <input name="Submit" type="button" class="form1" value="确定修改" onClick="javascript:submit()">
  </div>
</form>
<br>
<%
	End if
	rs.close
	set rs = Nothing
End Sub
'=========================
Sub list()
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select id,sitename,siteurl,logo from JBB_link order By siteorder asc",conn,1,1
	if Not(rs.eof and rs.bof) then
%>
<br>
<table width="319" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFE7"> 
    <td width="212" bgcolor="#EFEFE7"><strong>友情链接列表</strong></td>
    <td width="92"> 
      <div align="center"><strong>管理</strong></div></td>
  </tr>
  <%
	for i = 1 to rs.recordCount
	%>
  <tr bgcolor="#FFFFFF"> 
    <td> <a href="<%=rtrim(rs("siteurl"))%>" target="_blank"><%=rtrim(rs(1))%></a> <%
	if trim(rs("logo"))<>"http://" and trim(rs("logo")) <> "" then
	response.Write("<br><a href="""&rtrim(rs("siteurl"))&""" target=_blank""><img src="& rtrIm(rs("logo")) &" width=""88"" height=""31"" border=""0""></a>")
	End if
	%> </td>
    <td> 
      <%
	if rs(0) <> 1 then
	%>
      [<a href="?action=Edit&linkid=<%=rs("id")%>">编辑</a>][<a href="?action=Del&linkid=<%=rs("id")%>">删除</a>] 
      <%
	End if
	%></td>
  </tr>
  <%
	rs.MoveNext
	Next
	%>
</table>
<br>

<%
	End if
	rs.close
	set rs = Nothing
End Sub
set conn = nothing
%>
</body>
</html>
⌨️ 快捷键说明

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