📄 admin.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
'-------------------------------------
'功能：用户修改网站信息
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'电脑家园http://www.pc326.com
'文秘家园http://www.wm326.com
'博大网址库http://www.ip126.com
'可自由传播和免费使用，但必须保留此完整版权信息
'本程序撷取了ITlearner、博大网址库智能友情链接系统、飞
'越智能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢
'-------------------------------------
dim action
dim strerror
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理网站信息_<%=WebName & ChannelName%> - Powered By ttdv</title>
<link rel="stylesheet" href="style.css">
</head>
<BODY background="images/back.gif">
<script language=javascript src=../images/mouse_on_title.js></script>
<script LANGUAGE=JavaScript>
function textLimitCheck(thisArea, maxLength){
if (thisArea.value.length > maxLength){
alert(maxLength + ' 个字限制. \r超出的将自动去除.');
thisArea.value = thisArea.value.substring(0, maxLength);
thisArea.focus();
}
/*回写span的值，当前填写文字的数量*/
messageCount.innerText = thisArea.value.length;
}
</script>
<!--#include file="top.asp"-->
<%
action=request("action")
dim username
username = session("username")
if action="chklogin" then
call chklogin
elseif action="loginform" then
call loginform
elseif action="getcode" and username<>"" then
call getcode
elseif action="showlog" and username<>"" then
call showlog
elseif action="saveedit" and username<>"" then
call saveedit
elseif action="exit" then
call exitlogin
else
call listinfo
end if
sub exitlogin
session("username")=""
strerror="<li>成功退出"
call loginform
end sub
sub chklogin
dim username,password
username=hx.checkstr(request.form("username"),12)
password=hx.checkstr(request.form("password"),12)
if username="" or password="" then
strerror="<li>请重新输入"
call loginform
else
dim rs
set rs=hx.execute("select * from tt_Link where username='"&username&"'")
if rs.eof then
strerror="<li>无此用户名"
call loginform
else
if rs("password")<>md5(password) then
strerror="<li>密码不符"
call loginform
else
session("username")=username
call listinfo
end if
end if
end if
end sub
sub shownavbar
%>
<p align="center"><br> <a href="?action=getcode">获取链接代码</a> <a href="?action=listinfo">修改网站信息</a> <a href="?action=showlog">详细点击记录</a> <a href="?action=exit">退出管理</a> <a href="http://www.ttdv.cn" target="_blank">本程序由天天DV网提供</a></p>
<%
end sub
sub getcode
call shownav("获取链接代码")
%>
<div class="bt<%=skin%>">
<%call shownavbar%>
<ul>
<li>点击越多，排名越前，前<%=LineLogo*LineNum%>名可以显示图标，其它则显示文字。</li>
<li>请注意：只有日均点击大于<%=inpc%>次，才会在页面上显示。</li>
<li>站长推荐贵站使用文字链接，如果您愿意使用图标链接，请将图片拷贝到您的服务器上，这样的好处有：<br>
1.增加贵站页面上显示此logo的速度，2.减少我站调用此图片的流量，谢谢！</li>
</ul>
<table width="100%" border="0" align="center">
<tr valign="top">
<td width="50%"><p>文字链接 <font color="#0000FF">代码：</font><br>
网站名称：<%=WebName%><br>
网 址：http://<%=hx.BaseUrl%>ttindex.asp?id=<%=username%><br>
网站简介：<%=WebAlt%><p><br>
或：<br>
<textarea name="textarea" style="width:96%;height:80px;"><a href="http://<%=hx.BaseUrl%>ttindex.asp?id=<%=username%>" target="_blank" title="<%=WebAlt%>"><%=WebName%></a></textarea>
<p><font color="#0000FF">显示样式：</font><a href="http://<%=hx.BaseUrl%>ttindex.asp?id=<%=username%>" target="_blank" title="<%=WebAlt%>"><%=WebName%></a></p></td>
<td width="50%"><p>图标链接<font color="#0000FF"> 代码：</font><br>
网站名称：<%=WebName%><br>
网 址：http://<%=hx.BaseUrl%>ttindex.asp?id=<%=username%><br>
图标地址：http://<%=hx.BaseUrl%>images/logo.gif<br>
网站简介：<%=WebAlt%><p>
或：<br>
<textarea name="textarea2" style="width:96%;height:80px;"><a href="http://<%=hx.BaseUrl%>ttindex.asp?id=<%=username%>" target="_blank"><img src="http://<%=hx.BaseUrl%>images/logo.gif" width="88" height="31" alt="<%=WebAlt%>" border="0"></a></textarea>
</p>
<p><font color="#0000FF">显示样式：</font><a href="http://<%=hx.BaseUrl%>ttindex.asp?id=<%=username%>" target="_blank"><img src="http://<%=hx.BaseUrl%>images/logo.gif" width="88" height="31" alt="<%=WebAlt%>" border="0"></a></p></td>
</tr>
</table>
</div>
<%
end sub
sub listinfo
if session("username")="" then
call loginform
exit sub
end if
dim rs,problem2
set rs=hx.execute("select * from tt_Link where username='"&session("username")&"'")
call shownav("修改网站信息")
%>
<div class="bt<%=skin%>"><br>
<%call shownavbar%>
<form method="post" action="?action=saveedit&problem2=<%=rs("problem")%>">
<table width="90%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center">
<tr class="tr<%=skin%>">
<td width="100" align="center">用 户 名：</td>
<td><%=rs("username")%>(不能修改)</td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站名称：</td>
<td><input type="text" name="ttname" size="14" maxlength="30" value="<%=rs("ttname")%>"> <img src=images/memo.gif alt="不能超过30个字符（15个汉字）"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站地址：</td>
<td><input type="text" name="tturl" size="50" maxlength="110" value="<%=rs("tturl")%>"> <img src=images/memo.gif alt="不能超过100个字符"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">图片地址：</td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input type="text" name="ttlogo" size="50" maxlength="100" value="<%=rs("ttlogo")%>"> <img src=images/memo.gif alt="可选项，不能超过100个字符 （图片大小尺寸为:88*31，如果暂时没有，请留空）"></td>
<td><img src="<%=rs("ttlogo")%>" width=88 height=31></td>
</tr>
</table></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站类型：</td>
<td><select name="webtype" size="1">
<%call hx.listwebtype(rs("webtype"),0)%>
</select> <img src=images/memo.gif alt="请正确选择您网站的类型"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密 码：</td>
<td><input type="password" name="password" size="10" maxlength="12" value="<%=rs("password")%>"> <img src=images/memo.gif alt="4~12个字符"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密码确认：</td>
<td><input type="password" name="pwdconfirm" size="10" maxlength="12" value="<%=rs("password")%>"> <img src=images/memo.gif alt="请再输一遍确认"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密码问题：</td>
<td><input name="problem" type="text" id="problem" size="12" maxlength="12" value="<%=rs("problem")%>"> <img src=images/memo.gif alt="用于密码保护和找回密码。12个字符内"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密码答案：</td>
<td><input name="answer" type="text" id="answer" size="12" maxlength="12" value=""> <img src=images/memo.gif alt="找回密码时要回答的内容。限12个字符内，不改留空"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">答案确认：</td>
<td><input name="answerconfirm" type="text" id="answerconfirm" size="12" maxlength="12" value=""> <img src=images/memo.gif alt="请再输一遍确认"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">联系邮箱：</td>
<td><input type="text" name="email" size="30" maxlength="50" value="<%=rs("email")%>"> <img src=images/memo.gif alt="请输入有效的邮件地址，不能超过50个字符认"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">邮件列表：</td>
<td><%if rs("maillist")=1 then%>
<input type="radio" name="maillist" value="1" id="maillist" checked>
订阅
<input type="radio" name="maillist" value="0" id="maillist">
不订阅 <img src=images/memo.gif alt="如果想获得本站最新资讯请加入邮件列表"></td>
<%else%>
<input type="radio" name="maillist" value="1" id="maillist">
订阅
<input type="radio" name="maillist" value="0" id="maillist" checked>
不订阅 <img src=images/memo.gif alt="如果想获得本站最新资讯请加入邮件列表"><%end if%></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站简介：</td>
<td><textarea rows="4" name="ttinfo" cols="70" onkeyUp="textLimitCheck(this, 100);"><%=rs("ttinfo")%></textarea>
<br>限 100 个字符 已输入 <font color="#CC0000"><span id="messageCount">0</span></font> 个字 <img src=images/memo.gif alt="不能超过100个字符（50个汉字）"></td>
</tr>
<tr class="tr<%=skin%>">
<td colspan="2" align="center" class="td"><input type="submit" value=" 确 定 " name="yes">
<input type="reset" value=" 重 写 " name="reset">
</td>
</tr>
</table>
</form>
</div>
<%end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -