admin_masterset.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<!--#include file="system/md5.asp"-->
<%
managemode
dim action
action=trim(request("action"))
select case action
case "setname"
setname
case "setpasd"
setpasd
case "setnameok"
setnameok
case "setpasdok"
setpasdok
case else
response.Write("<script>alert('错误的参数传递！请确定你从有效链接进入！');history.back();</script>")
end select
sub setname
set rs=conn.execute("select dianhua,email,fax,address,qq from master")
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form name="form1" method="post" action="?action=setnameok">
  <tr>
    <td width="127" height="24" align="center" bgcolor="#F5F5F5">联系电话：</td>
    <td width="286" bgcolor="#FFFFFF">　
    <input name="text1" type="text" id="text1" size="30" value=<%=rs("dianhua")%>></td>
    <td width="201" rowspan="5" bgcolor="#FFFFFF" class="ttt">　此内容为联系我社的内容！没有的项目可以不填写！系统自动读取当前设置。</td>
  </tr>
  <tr>
    <td height="24" align="center" bgcolor="#F5F5F5">传　　真：</td>
    <td bgcolor="#FFFFFF">　
    <input name="text2" type="text" id="text2" size="30" value=<%=rs("fax")%>></td>
  </tr>
  <tr>
    <td height="24" align="center" bgcolor="#F5F5F5">地　　址：</td>
    <td bgcolor="#FFFFFF">　
    <input name="text3" type="text" id="text3" size="30" value=<%=rs("address")%>></td>
  </tr>
  <tr>
    <td height="24" align="center" bgcolor="#F5F5F5">电子邮件：</td>
    <td bgcolor="#FFFFFF">　
    <input name="text4" type="text" id="text4" size="30" value=<%=rs("email")%>></td>
  </tr>
  <tr>
    <td height="24" align="center" bgcolor="#F5F5F5">在线　QQ：</td>
    <td bgcolor="#FFFFFF">　
    <input name="text5" type="text" id="text5" size="30" value=<%=rs("qq")%>></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF">
    <td height="32" colspan="3"><input type="submit" name="Submit" value="修　改">　　　
      <input type="reset" name="Submit2" value="重　设"></td>
  </tr>
</form>
</table>
<%
closers(rs)
end sub
sub setnameok
dim text1,text2,text3,text4,text5
text1=replace(trim(request("text1")),"'","")
text2=replace(trim(request("text2")),"'","")
text3=replace(trim(request("text3")),"'","")
text4=replace(trim(request("text4")),"'","")
text5=replace(trim(request("text5")),"'","")
conn.execute("update master set dianhua='"&text1&"',fax='"&text2&"',email='"&text4&"',qq='"&text5&"',address='"&text3&"'")
response.write ("<script>alert('修改成功！按确定重新载入设置页！');location='admin_masterset.asp?action=setname';</script>")
end sub

sub setpasd
%>
<script>
function check(){
if(form2.un.value=='' || form2.up.value==''){
alert("检查输入！");
return false;
}
if(form2.up.value != form2.reup.value){
alert("两次输入的密码不相等！");
return false;
}
}
</script>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<form action="?action=setpasdok" method="post" name="form2" onsubmit='return check();'>
  <tr bgcolor="#FFFFFF">
    <td width="91" height="24" align="center" bgcolor="#F5F5F5">用户名　：</td>
    <td width="321" height="24">　
    <input name="un" type="text" id="un"></td>
    <td width="202" rowspan="3" bgcolor="#FFFFFF" class="ttt">　修改方式为直接覆盖！系统不读取当前管理员设置，请记住你现在所填写的内容。</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">密　　码：</td>
    <td height="24">　
    <input name="up" type="password" id="up"></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="24" align="center" bgcolor="#F5F5F5">确认密码：</td>
    <td height="24">　
    <input name="reup" type="password" id="reup"></td>
  </tr>
  <tr>
    <td height="30" colspan="3" align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit3" value="修　改"></td>
  </tr>
  </form>
</table>
<%
end sub
sub setpasdok
dim un,up
un=replace(trim(request("un")),"'","")
up=md5(replace(trim(request("up")),"'",""))
conn.execute("update master set username='"&un&"',userpassword='"&up&"'")
response.write ("<script>alert('修改成功！按确定重新载入设置页！');location='admin_masterset.asp?action=setpasd';</script>")
end sub
manageend
%>