?? link.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 + -