📄 user.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<link href="images/css1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.inttext { font-size: 9pt;
color: #006600;
border: 1px solid #006600;
}
-->
</style>
<!--#include file="inc.asp"-->
<!--#include file="md5.asp"-->
<title>用户修改链接信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="150" height="400" bgcolor="#FFFFFF"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="54" align="center"><a href="all.asp"><img src="images/mfkbb1.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="all-1.asp"><img src="images/mfkbb2.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="all-2.asp"><img src="images/mfkbb3.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="user.asp"><img src="images/mfkbb4.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="addlinks.asp"><img src="images/mfkbb5.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="index.asp"><img src="images/mfkbb6.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="http://www.yongzi.com" target="_blank"><img src="images/mfkbb7.gif" width="137" height="48" border="0"></a></td>
</tr>
</table></td>
<td width="602" valign="top" bgcolor="#FFFFFF"><table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/mfkbbb4.gif" width="600" height="32"></td>
</tr>
<tr>
<td height="360">
<%
dim action
action=request("action")
select case action
case "login"
call login
case "mm"
call mm
case "mmok"
call mmok
case else
call order
end select
sub order
%>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td><img src="images/mfkbbb7.gif" width="400" height="32"></td>
</tr>
<tr>
<script>
function check(){
if(form1.textfield1.value==""){
alert('不是吧，你什么都没有填写！');
return false;
}
}
</script>
<td height="127" bgcolor="#FFFFFF"><table width="239" border="0" align="center" cellpadding="0" cellspacing="0">
<form action="?action=login" method="post" name="form1" onSubmit="return check();">
<tr>
<td width="180" height="30" align="center"><input name="textfield1" type="text" class="inputtext" id="textfield1" onmouseover="this.focus();"></td>
<td width="59">站长用户</td>
</tr>
<tr>
<td height="30" align="center"><input name="textfield2" type="password" class="inputtext" onmouseover="this.focus();"></td>
<td>站长密码</td>
</tr>
<tr align="center">
<td height="45" colspan="2"><input type="image" src="images/mfk33.gif" name="Submit" value="提交"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%end sub
sub login
dim webmasterid,webmasterpsd
webmasterid=mfkiqpl.checkstr(mfkiqpl.getstr("textfield1"))
webmasterpsd=md5(mfkiqpl.checkstr(mfkiqpl.getstr("textfield2")))
mfkiqpl.openmdb
set rs=conn.execute("select id,webmasterid,webmasterpsd from links where webmasterid='"&webmasterid&"' and webmasterpsd='"&webmasterpsd&"'")
if rs.eof or rs.bof then
response.write("<table width=239 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#CCCCCC><tr><td><img src=images/mfkbbb9.gif width=400 height=32></td></tr><tr><td height=127 align=center bgcolor=#ffffff>用户名/密码错误,忘记密码了请与管理员取回！<br><br>如果你没有在我站申请友情链接！请先申请后再修改！<br><br>感谢你的支持！</td></tr></table>")
else
idid=rs("id")
mfkiqpl.closers(rs)
mfkiqpl.closeconn
session("user")="mfkiqpl"
response.Redirect("user.asp?action=mm&id="&idid&"")
end if
end sub
sub mm
if session("user")<>"mfkiqpl" then
response.Redirect("user.asp")
else
dim id
id=trim(request("id"))
mfkiqpl.openmdb
session.Contents.remove "user"
set rs=conn.execute("select * from links where id="&id)
%>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form action="?action=mmok" method="post" name="form1">
<tr>
<td><img src="images/mfkbbb8.gif" width="400" height="32"></td>
</tr>
<tr>
<td height="52" bgcolor="#FFFFFF"><table width="398" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="89" height="30" align="center" bgcolor="#FFFFFF">网站名称</td>
<td width="209" align="left" bgcolor="#FFFFFF">
<input name="textfield1" type="text" class="inttext" id="textfield1" size="20" value="<%=rs("webname")%>"></td>
<td width="100" rowspan="2" align="center" bgcolor="#FFFFFF"><img src="<%=rs("weblogo")%>" width="88" height="31"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">网站地址</td>
<td align="left" bgcolor="#FFFFFF">
<input name="textfield2" type="text" class="inttext" id="textfield2" value="<%=rs("weburl")%>" size="25"></td>
</tr>
<tr>
<td rowspan="2" height="30" align="center" bgcolor="#FFFFFF">更换图标</td>
<td colspan="2" align="left" bgcolor="#FFFFFF"><iframe frameborder=0 height="25" marginheight=0 marginwidth=0 scrolling=no width=300 src="upload.asp"></iframe></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF" colspan="2">
<input name="textfield3" type="text" class="inttext" id="WebLogo" size="20" maxlength="100">（可直接写Logo地址）</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">网站简介</td>
<td colspan="2" align="left" bgcolor="#FFFFFF">
<input name="textfield4" type="text" class="inttext" size="40" value="<%=rs("webbio")%>"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">你的用户</td>
<td colspan="2" align="left" bgcolor="#FFFFFF">
<input name="textfield5" type="text" class="inttext" size="15" value="<%=rs("webmasterid")%>"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">你的密码</td>
<td colspan="2" align="left" bgcolor="#FFFFFF">
<input name="textfield6" type="password" class="inttext" size="15">
不改密码不需填写</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">你的邮件</td>
<td colspan="2" align="left" bgcolor="#FFFFFF">
<input name="textfield7" type="text" class="inttext" size="30" value="<%=rs("webmasteremail")%>">
<input name="textfield3" type="hidden" class="inttext">
<input name="textfield31" type="hidden" class="inttext" value="<%=rs("weblogo")%>">
<input name="idid" type="hidden" class="inttext" value="<%=rs("id")%>">
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="33" align="center" bgcolor="#FFFFFF"><input type="image" src="images/mfk33.gif" name="Submit2" value="提交"></td>
</tr>
</form>
</table>
<%
mfkiqpl.closers(rs)
mfkiqpl.closeconn
session("usergo2")="go2"
end if
end sub
sub mmok
if session("usergo2")<>"go2" then
response.Redirect("user.asp")
end if
session.Contents.remove "usergo2"
dim webname,weburl,weblogo,weblogo1,webmasterid,webmasterpsd,webmasteremail,webtop,webok,idid
webname=mfkiqpl.checkstr(mfkiqpl.getstr("textfield1"))
weburl=mfkiqpl.checkstr(mfkiqpl.getstr("textfield2"))
weblogo=mfkiqpl.checkstr(mfkiqpl.getstr("textfield3"))
weblogo=replace(weblogo,",","")
webmasterbio=mfkiqpl.checkstr(mfkiqpl.getstr("textfield4"))
webmasterid=mfkiqpl.checkstr(mfkiqpl.getstr("textfield5"))
webmasterpsd=mfkiqpl.checkstr(mfkiqpl.getstr("textfield6"))
webmasteremail=mfkiqpl.checkstr(mfkiqpl.getstr("textfield7"))
idid=mfkiqpl.checkstr(mfkiqpl.getstr("idid"))
if webmasterpsd<>"" and weblogo<>"" then
sql="update links set webname='"&webname&"',weburl='"&weburl&"',weblogo='"&weblogo&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasterpsd='"&md5(webmasterpsd)&"',webmasteremail='"&webmasteremail&"'"&_
" where id="&idid
elseif webmasterpsd="" and weblogo<>"" then
sql="update links set webname='"&webname&"',weburl='"&weburl&"',weblogo='"&weblogo&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasteremail='"&webmasteremail&"'"&_
" where id="&idid
elseif webmasterpsd<>"" and weblogo="" then
sql="update links set webname='"&webname&"',weburl='"&weburl&"',webmasterpsd='"&md5(webmasterpsd)&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasteremail='"&webmasteremail&"'"&_
" where id="&idid
else
sql="update links set webname='"&webname&"',weburl='"&weburl&"',"&_
"webmasterid='"&webmasterid&"',webbio='"&webmasterbio&"',webmasteremail='"&webmasteremail&"'"&_
" where id="&idid
end if
mfkiqpl.openmdb
conn.execute(sql)
mfkiqpl.closeconn
%>
<table width=239 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#CCCCCC><tr><td><img src=images/mfkbbb10.gif width=400 height=32></td>
</tr><tr>
<td height=127 align=center bgcolor=#ffffff>你本次操作成功！<br>
<br>
请记住你的密码！<br>
<br>感谢你的支持！</td></tr></table>
<%
end sub
%>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -