📄 adminlinkmodi.asp
字号:
<%dim nowplace
nowplace="link"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接修改</title>
<link href=AdminStyle.css rel=stylesheet type=text/css>
<script src="edit.js" type="text/javascript"></script>
</head>
<script language=javascript>
function showlist(dd){
if(dd=="a"){
linkimg.style.display="none";
}else{
linkimg.style.display="";
}
}
</script>
<%
id=my_request("id",1)
action=my_request("action",0)
if action="save" then
call save()
end if
sql="select * from weblink where id="&id
set rs=conn.execute (sql)
%>
<body>
<table border="0" width="100%" id="table1" cellpadding="4" style="border:1px solid #183789; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" cellspacing="1">
<form action=AdminLinkModi.asp method=post>
<tr>
<td width="100%" colspan="2" background="Image/admin_bg_1.gif" height="25">
<font color="#FFFFFF"><b>友情链接发布：</b></font></td>
</tr>
<tr>
<td width="103">链接类型：</td>
<td width="867"><input type="radio" value="0" checked name="flag" onClick='showlist("a");' <%if rs("flag")=0 then response.write "checked"%>>文字链接
<input type="radio" value="1" name="flag" onClick='showlist("b");' <%if rs("flag")=1 then response.write "checked"%>>Logo链接</td>
</tr>
<tr>
<td width="103">链接文字：</td>
<td width="867">
<input type="text" name="webname" size="58" maxlength="50" value="<%=rs("webname")%>"></td>
</tr>
<tr>
<td width="970" colspan="2">
<table border="0" width="100%" id="linkimg" cellspacing="0" cellpadding="0" style='display:none'>
<tr>
<td width="106">Logo地址：</td>
<td> <input type="text" name="imgpath" size="16" readonly maxlength="50" value="<%=rs("imgpath")%>"><font color="#330000" size="2"><a href="javascript:openWin('upload1.asp?Fname=imgpath','upload','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=410,height=230')"><img src="image/upload.gif" alt="上传图片" width="60" height="18" border="0" align="middle" style="cursor: hand;" onMouseOver="window.status='使用系统自带的上传程序上传图片';return true;" onMouseOut="window.status='';return true;"></a></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="103">链接网址：</td>
<td width="867">
<input type="text" name="url" size="58" maxlength="50" value="<%=rs("url")%>"><input type="hidden" name="id" value=<%=id%>><input type="hidden" name="action" value="save"></td>
</tr>
<tr>
<td width="103"> </td>
<td width="867"><input type="submit" value="保存数据" name="B1"></td>
</tr></form>
</table>
</body>
</html>
<%
sub save()
id=cint((my_request("id",1)))
webname=trim(my_request("webname",0))
url=trim(my_request("url",0))
flag=cint(my_request("flag",1))
imgpath=trim(my_request("imgpath",0))
sql="update weblink set webname='"&webname&"',url='"&url&"',flag="&flag&",imgpath='"&imgpath&"' where id="&id
conn.execute (sql)
call wurl("修改成功","AdminLinkList.asp")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -