📄 manageguestbook.asp
字号:
<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:mfkiqpl@126.com--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title><%=title%>-后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
td {
font-size: 9pt;
color: #000000;
}
-->
</style></head>
<body>
<script>
function check(){
if(form1.t1.value==""){
window.close();
return false;
}
if(form1.t2.value==""){
window.close();
return false;
}
}
</script>
<%
dim action,mfk
mfk=request("mfk")
action=request("action")
if mfk="out" then
session.Abandon()
response.Write("<script>window.opener.location.reload();</script>")
response.Write("<script>window.close();</script>")
end if
if session("admin")<>"mfkiqpl" then
call ddd
else
call ssss
end if
select case action
case "ok"
call checkl
case "mm"
call mmm
end select
sub mmm
dim s1,s2,s3,s4,s5,s6
s1=replace(request("s1"),"'","")
s2=replace(request("s2"),"'","")
s3=replace(request("s3"),"'","")
s4=replace(request("s4"),"'","")
s5=replace(request("s5"),"'","")
s6=replace(request("s6"),"'","")
sss="update setguestbook set s1='"&s1&"',s2='"&s2&"',s3='"&s3&"',s4='"&s4&"',s5='"&s5&"',s6='"&s6&"' where id=2"
conn.execute sss
connclose
response.Write("<script>window.opener.location.reload();</script>")
response.Redirect "manageguestbook.asp"
end sub
sub ddd
%>
<script>
window.resizeTo('300','150');
</script>
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="350" valign="top"><table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="<%=color1%>">请先登录</td>
</tr>
</table>
<table width="300" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=color1%>">
<form name="form1" method="post" action="manageguestbook.asp?action=ok" onsubmit="return check();">
<tr>
<td height="324" valign="top" bgcolor="<%=color3%>"> <table width="280" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="95" height="30" align="center">用户名：</td>
<td width="185" height="30"><input name="t1" type="text" id="t14" size="15"></td>
</tr>
<tr>
<td height="30" align="center">密码：</td>
<td height="30"><input name="t2" type="password" id="t24" size="15"></td>
</tr>
<tr align="center">
<td height="30" colspan="2"><input type="submit" name="Submit" value="登 录">
<input name="bt1" type="button" id="bt14" value="取 消" onClick="javascript:window.close();"></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%
end sub
sub checkl
dim t1,t2
t1=replace(trim(request("t1")),"'","’")
t2=replace(trim(request("t2")),"'","’")
sql="select username,userpassword from master where username='"&t1&"' and userpassword='"&t2&"'"
set rs=conn.execute (sql)
if rs.eof then
response.Redirect "manageguestbook.asp"
rsclose(rs)
end if
session("admin")="mfkiqpl"
response.Write("<script>window.opener.location.reload();</script>")
response.Redirect "manageguestbook.asp"
end sub
sub ssss
%>
<script>
window.resizeTo('300','350');
</script>
<table width="300" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=color1%>">
<tr>
<td height="350" valign="top" bgcolor="<%=color3%>"><table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="<%=color1%>">属性修改</td>
</tr>
</table>
<table width="300" border="0" cellspacing="0" cellpadding="0">
<form name="form2" method="post" action="?action=mm">
<tr>
<td width="104" height="30" align="center">颜色1</td>
<td width="196" height="30"><input name="s1" type="text" id="s1" value="<%=color1%>"></td>
</tr>
<tr>
<td height="30" align="center">颜色2</td>
<td height="30"><input name="s2" type="text" id="s2" value="<%=color2%>"></td>
</tr>
<tr>
<td height="30" align="center">颜色3</td>
<td height="30"><input name="s3" type="text" id="s3" value="<%=color3%>"></td>
</tr>
<tr>
<td height="30" align="center">颜色4</td>
<td height="30"><input name="s4" type="text" id="s4" value="<%=color4%>"></td>
</tr>
<tr>
<td height="30" align="center">每面显示记录数</td>
<td height="30"><input name="s6" type="text" id="s6" value="<%=pagesize%>"></td>
</tr>
<tr>
<td height="30" align="center">标题</td>
<td height="30"><input name="s5" type="text" id="s5" value="<%=title%>"></td>
</tr>
<tr align="center">
<td height="43" colspan="2"><input type="submit" name="Submit2" value="确定修改">
<input type="button" name="Submit3" value="返回界面操作" onclick="javascript:window.close();window.opener.location.reload();"></td>
</tr>
<tr align="center">
<td height="43" colspan="2"><input type="button" name="Submit4" value="退出管理身份" onClick="javascript:window.location='manageguestbook.asp?mfk=out';"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -