📄 index.asp
字号:
if newpass<>newpass2 then
response.write "<script>alert('两次新密码不一致！');this.location.href='"&filename&"?action=modpass';</SCRIPT>"
response.end
end if
conn.execute("update [Admin] SET pass='"&newpass&"' WHERE user='"&session("Admin")&"'")
session("Admin")=User
response.write "<script>alert('修改成功！');this.location.href='index.asp';</SCRIPT>"
response.end
case "logout"
response.write "<script>alert('成功退出！');this.location.href='index.asp';</SCRIPT>"
response.cookies("administrator")=""
response.end
case "logout"
response.write "<script>alert('成功退出！');this.location.href='index.asp';</SCRIPT>"
response.cookies("administrator")=""
response.end
case "logincheck"
User=htmlencode(request.form("User"))
password=md5(request.form("password"))
function CheckLogin(User,password)
set rs=conn.execute("SELECT * FROM [admin] WHERE user='"&User&"' AND pass='"&password&"'")
if not rs.eof then
session("admin")=rs("user")
response.write "<script>alert('登录成功！');this.location.href='index.asp';</SCRIPT>"
response.cookies("administrator")="admin"
response.end
else
response.write "<script>alert('无法登录！');this.location.href='"&filename&"?action=login';</SCRIPT>"
response.end
end if
end function
CheckLogin User,password
case "login"
%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" colspan="2"align="center">管理员登录</td>
</tr>
<form name="form1" method="post" action="<% =filename %>?action=logincheck">
<tr>
<td height="13"></td>
<td></td>
</tr>
<tr>
<td height="25">管理员：</td>
<td><input type="text" name="User" class="input"></td>
</tr>
<tr>
<td height="25">密 码：</td>
<td><input type="password" name="password" class="input"></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"> <input name="Submit3" type="submit" value=" 登录 " class="input">
<input name="reset" type="reset" value=" 重置 " class="input"></td>
</tr>
</form>
</table>
<br> <br> <br>
<%
case "modpass"
checkadmin
%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" colspan="2" align="center">登录帐号修改</td>
</tr>
<form name="form1" method="post" action="<% =filename %>?action=modpassed">
<tr>
<td height="16" align="center"></td>
<td></td>
</tr>
<tr>
<td height="25" align="center">登录名：</td>
<td><input name="User" type="text" id="User10" value="<% =session("admin") %>" size="20" maxlength="16" readonly class="input"></td>
</tr>
<tr>
<td height="25" align="center">旧密码：</td>
<td><input name="oldpass" type="password" id="oldpass5" maxlength="16" class="input"></td>
</tr>
<tr>
<td height="25" align="center">新密码：</td>
<td><input name="newpass" type="password" id="newpass5" maxlength="16" class="input"></td>
</tr>
<tr>
<td height="25" align="center">确 认：</td>
<td><input name="confirm" type="password" id="confirm5" maxlength="16" class="input"></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"><input name="Submit2" type="submit" id="Submit24" value=" 修改 " class="input">
<input name="reset" type="reset" id="reset5" value=" 重置 " class="input"></td>
</tr>
</form>
</table>
<% end select %>
</td>
</tr>
</table>
</body>
</html>
<%
sub showpagebar(totalpage,curpage,strurl)
dim strpage
crupage=getvalidpageno(totalpage,curpage)
response.write "<table width=''100%''>"
response.write "<tr><td width=''100%'' lign=''right'' class=text1>"
response.write "页数："&curpage&"/"&totalpage&" "
if instr(strurl,"?")=0 then
strpage="?page="
else
strpage="&page="
end if
if curpage>1 then
response.write " [<a href="&strurl&strpage&"1>第一页</a>] "
else
response.write " [第一页] "
end if
if curpage>=2 then
response.write " [<a href="&strurl&strpage&curpage-1&">上一页</a>] "
else
response.write " [上一页] "
end if
if cint(curpage)<cint(totalpage) then
response.write " [<a href="&strurl&strpage&curpage+1&">下一页</a>] "
else
response.write " [下一页] "
end if
if cint(curpage)<>cint(totalpage) then
response.write " [<a href="&strurl&strpage&totalpage&">最末页</a>] "
else
response.write " [最末页] "
end if
if request.cookies("administrator")="admin" then
response.write "</td></tr></table>"
else
response.write "<a href=?action=login>管理留言</a></td></tr></table>"
end if
end sub
function getvalidpageno(pagecount,curpage)
dim ipage
ipage=curpage
if cint(curpage)<1 then
ipage=1
end if
if cint(ipage)>cint(pagecount) then
ipage=pagecount
end if
getvalidpageno=ipage
end function
Function code(strers)
strer=strers
strer=replace(strer,"<","<")
strer=replace(strer,">",">")
strer=replace(strer," "," ")
strer=replace(strer,CHR(9)," ")
strer=replace(strer,CHR(32)," ")
strer=replace(strer,CHR(13),"<br>")
strer=replace(strer,vbCrlf,"<br>")
strer=replace(strer,"'","'")
strer=replace(strer,"""",""")
code=strer
end function
Function code_admin(strers)
strer=strers
strer=replace(strer,vbCrlf,"<br>")
code_admin=strer
end function
Function recode_admin(strers)
strer=strers
strer=replace(strer,"<br>",vbCrlf)
recode_admin=strer
end function
function guestbookbox(action)%>
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="18" bgcolor="#F3F3F3" style="padding:2px;" valign="bottom"><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="12"><b>第<%=rs("messageid")%>条留言：</b><a href="mailto:<%=rs("email")%>" ><%=rs("user")%></a>（<%=rs("sex")%>）于 <%=rs("MDate")%> 说：
</td>
</tr>
</table></td>
</tr>
<%if request.cookies("administrator")="admin" then%>
<tr>
<FORM METHOD=POST ACTION="http://www.ip138.com/ips.asp" name="ipform" target="_blank">
<td bgcolor="#F3F3F3" style="padding:6px;">IP：<input type="text" name="ip" size="14" value="<%=rs("from")%>" class="input">
<input name="submit" type="submit" value="查询" class="input"> <INPUT TYPE="hidden" name="action" value="2" class="input">
[<a href="javascript:affirm('?action=delete&MessageID=<%=rs("MessageID")%>')" >删除</a>]
<% if rs("reply")<>"" then %>[回复]
[<a href="?action=modify&MessageID=<%=rs("MessageID")%>" >修改</a>]
<% else %>
[<a href="?action=reply&MessageID=<%=rs("MessageID")%>" >回复</a>]
<%end if%>
[<a href="index.asp?action=Ontop&MessageID=<%=rs("MessageID")%>">置顶</a>]
[<a href="index.asp?action=logout">注销</a>]
[<a href="index.asp?action=modpass">密码</a>]
</td>
</FORM>
</tr>
<% end if%>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%" style=" table-layout:fixed;word-break:break-all">
<tr>
<td height="1"> </td>
</tr>
<tr>
<td bgcolor="#F7F7F7" style="padding:6px;"><% if rs("secret")=0 then%><%=rs("content")%><% else %><% if request.cookies("administrator")="admin" then%><B><font color="#000000"><%=rs("user")%></font></B> 说的悄悄话：<br><%=rs("content")%><%else%>悄悄话...
<%
end if
end if %>
</td>
</tr>
</table>
<% if reply=1 then
replybox(reply)
elseif modify=1 then
replybox(modify)
elseif rs("reply")<>"" then
replybox(show)
end if %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3" bgcolor="#E5E5E5"> </td>
</tr>
<tr>
<td height="6"> </td>
</tr>
</table> </td>
</tr>
</table> </td>
</tr>
</table>
<%end function
function replybox(action) %>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<% if action=show then%>
<form>
<% elseif action=reply then%><form name="reply" method="post" action="?action=replyok&MessageID=<%=rs("MessageID")%>">
<% elseif action=modify then%>
<form name="modify" method="post" action="?action=modifyok&MessageID=<%=rs("MessageID")%>">
<% end if %>
<tr>
<td height="1"> </td>
</tr>
<tr>
<td height="22" colspan="3" bgcolor="#F7F7F7" style="padding:5px;"><font color="#ac0000">站长回复
<% if action<>show then %><font color="#cccccc">可以使用HTML标记</font>
<% end if %>
<%if action<>show then%>
<input name="Submit" type="submit" value=" 提 交 " class="input">
<%end if%>[<%=rs("RDate")%>]</font></td>
</tr>
<tr>
<td height="1"> </td>
</tr>
<tr>
<td colspan="3" bgcolor="#F7F7F7" style="padding:5px;"><font color="#ac0000">
<% if action=show then%>
<%=rs("reply")%>
<% elseif action=reply then%>
<textarea name="reply" style="width:100%" rows="12" class="input"></textarea>
<% elseif action=modify then%>
<textarea name="reply" style="width:100%" rows="12" class="input"><%=recode_admin(rs("reply"))%></textarea>
<% end if %>
</font></td>
</tr>
</form>
</table>
<%
end function
sub errormsgbox() %>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" colspan="3" align="center"><strong><font color="#394544">发生错误了!</font></strong></td>
</tr>
<tr>
<td width="100%" align="center" valign="middle"><br>
<font color="#394544"><%=errormsg%></font><br>
</td>
</tr>
<tr>
<td height="20" colspan="3" align="center">
<input name="Submit" type="button" class="input" onClick="javascript:history.go(-1)" value=" 返 回 ">
</td>
</tr>
</table>
<% end sub %>
<script language="JavaScript">
function gbcount(message,total,used,remain)
{
var max;
max = total.value;
if (message.value.length > max) {
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert("留言不能超过 <%=txt%> 个字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
</script>
<table border="0" cellspacing="0" cellpadding="0" align="center" width="760">
<tr align="center">
<td bgcolor="#E5E5E5" align="center"><!--#include file="../ms/footer.asp"-->
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -