📄 adminlink.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<body <%=background%> >
<% if Request.QueryString("action")="add" then
if Request.QueryString("mode")="add" then
y_title=chktopic(trim(request.form("y_title")))
y_url=chktopic(request.form("y_url"))
y_img=chktopic(request.form("y_img"))
y_content=chktopic(request.form("y_content"))
if y_title="" or y_url="" then
errormsg="<li>错误：友情连接标题或者连接地址不能为空</li>"
call error(errormsg)
response.end
end if
strSql = "insert into link (y_title, y_url,y_img,y_content) Values ('"
strSql = StrSQl & y_title & "', '"
strSql = StrSQl & y_url & "', '"
strSql = StrSQl & y_img & "', '"
strSql = StrSQl & y_content & "')"
conn.Execute (strsql)
response.write "<script>alert(""友情连接建立成功"");</script>"
end if
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<form name="form1" method="POST" action="?action=add&mode=add">
<tr align="center">
<td colspan="4" <%=tColor%> class=tdc1 height="22">
<a href="?">友情连接设置</a> | <a href="?action=add">添加连接</a></td>
</tr>
<tr align="center">
<td colspan="2" <%=tColor%> class=tdc1 height=22>添加友情连接</td>
</tr>
<tr>
<td width="25%" align="right" height="32" bgcolor=<%=tColor2%> class=tdc>连接主页名称：</td>
<td height="32" bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="y_title" class=bdtj3 size="20">
</td>
</tr>
<tr>
<td width="25%" align="right" bgcolor=<%=tColor2%> class=tdc>连接主页地址：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="y_url" size="50" class=bdtj3>
</td>
</tr>
<tr>
<td width="25%" align="right" bgcolor=<%=tColor2%> class=tdc>连接主页图片：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="y_img" size="50" class=bdtj3>
</td>
</tr>
<tr>
<td width="25%" align="right" bgcolor=<%=tColor2%> class=tdc>连接主页简介：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<textarea name="y_content" cols="50" rows="3" class=bdtj3></textarea>
</td>
</tr>
<tr>
<td bgcolor=<%=tColor2%> class=tdc> </td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="submit" name="Submit" value="提交" class=bdtj>
<input type="reset" name="Submit2" value="重设" class=bdtj>
</td>
</tr>
</form>
</table>
<% Elseif Request.QueryString("action")="del" then
sqldel="DELETE * from link where y_id="&chktopic(Request.QueryString("y_id"))&""
conn.Execute (sqldel)
response.redirect"?"
%>
<% Elseif Request.QueryString("action")="edit" then
if Request.QueryString("mode")="edit" then
y_title=chktopic(trim(request.form("y_title")))
y_url=chktopic(request.form("y_url"))
y_img=chktopic(request.form("y_img"))
y_content=chktopic(request.form("y_content"))
sqlch="Update link set y_title='"&y_title&"',y_url='"&y_url&"',y_img='"&y_img&"',y_content='"&y_content&"' where y_id="&chktopic(Request.QueryString("y_id"))&""
conn.Execute (sqlch)
response.write "<script>alert(""连接已经更新"");</script>"
end if
sqledit="select * from link where y_id="&Request.QueryString("y_id")&""
set rsedit=conn.Execute (sqledit)
%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<td colspan="4" <%=tColor%> class=tdc1 height="22">
<a href="?">友情连接设置</a> | <a href="?action=add">添加连接</a></td>
</tr>
<form ACTION="?action=edit&mode=edit&y_id=<%=rsedit("y_id")%>" METHOD="POST" name="form3"><tr align="center">
<td colspan="2" <%=tColor%> class=tdc1 height="22">更新友情连接</td>
</tr>
<tr>
<td width="25%" align="right" height="32" bgcolor=<%=tColor2%> class=tdc>连接主页名称：</td>
<td height="32" bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="y_title" value="<%=rsedit("y_title")%>" class=bdtj3 size="20">
</td>
</tr>
<tr>
<td width="25%" align="right" bgcolor=<%=tColor2%> class=tdc>连接主页地址：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="y_url" size="50" value="<%=rsedit("y_url")%>" class=bdtj3>
</td>
</tr>
<tr>
<td width="25%" align="right" bgcolor=<%=tColor2%> class=tdc>连接主页图片：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="text" name="y_img" size="50" value="<%=rsedit("y_img")%>" class=bdtj3>
</td>
</tr>
<tr>
<td width="25%" align="right" bgcolor=<%=tColor2%> class=tdc>连接主页简介：</td>
<td bgcolor=<%=tColor2%> class=tdc>
<textarea name="y_content" cols="50" rows="3" class=bdtj3><%=rsedit("y_content")%></textarea>
</td>
</tr>
<tr>
<td bgcolor=<%=tColor2%> class=tdc> </td>
<td bgcolor=<%=tColor2%> class=tdc>
<input type="submit" name="Submit" value="提交" class=bdtj>
<input type="reset" name="Submit2" value="重设" class=bdtj>
</td>
</tr>
</form>
</table>
<% Elseif Request.QueryString("action")="" then
sql="select * from link"
set rs=conn.execute(sql)%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr align="center">
<td colspan="4" <%=tColor%> class=tdc1 height="22">
<a href="?">友情连接设置</a> | <a href="?action=add">添加连接</a></td>
</tr>
<tr>
<td width="25%" <%=hColor%> class=tdc1>名称</td>
<td <%=hColor%> class=tdc1>简介</td>
<td width="82" <%=hColor%> class=tdc1>图片</td>
<td width="20%" align="center" <%=hColor%> class=tdc1>操作</td>
</tr>
<% do while not rs.Eof %>
<tr>
<td width="25%" bgcolor=<%=tColor2%> class=tdc><%=rs("y_title")%> </td>
<td bgcolor=<%=tColor2%> class=tdc><%=rs("y_content")%> </td>
<td width="82" bgcolor=<%=tColor2%> class=tdc><a href="<%=rs("y_url")%>" target=_blank><img src="<%=rs("y_img")%>" alt=" <%=rs("y_content")%>" border="0" width="81" height="33"></a></td>
<td width="20%" align="center" bgcolor=<%=tColor2%> class=tdc>
<a href="?action=del&y_id=<%=rs("y_id")%>" onclick="{if(confirm('确定要删除该连接吗？')){return true;}return false;}">删除</a><br>
<a href="?action=edit&y_id=<%=rs("y_id")%>">修改</a></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
set rs=nothing
end if%>
</table>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -