<% if Instr(session("AdminPurview"),"|2,")=0 then response.write ("

您没有管理该模块的权限!
") response.end end if %> <% select case request.QueryString("Action") case "ModifyPass" SaveNewPass case else end select %>
首页幻灯效果设置 (推荐图片最佳尺寸为 848*148 像素 使用.jpg格式图片)
<%set rs=server.createobject("adodb.recordset") rs.open "select * from newpic",conn,1,3 %> <% rs.close set rs=nothing conn.close set conn=nothing %>
幻灯图片地址1: ">
推荐连接地址1: ">

英文连接地址1: ">

幻灯图片地址2: ">
推荐连接地址2: ">
英文连接地址2: ">
幻灯图片地址3: ">
推荐连接地址3: ">
英文连接地址3: ">
幻灯图片地址4: ">
推荐连接地址4: ">
英文连接地址4: ">
幻灯图片地址5: ">
推荐连接地址5: ">
英文连接地址5: ">
幻灯图片地址6: ">
推荐连接地址6: ">
英文连接地址6: ">

<% function SaveNewPass() dim LoginName,rs,sql LoginName=request.QueryString("LoginName") set rs = server.createobject("adodb.recordset") sql="select * from Admin where AdminName='"&LoginName&"'" rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write "读取数据库记录出错!" response.end else if len(trim(Request.Form("NewPassword")))<6 or len(trim(Request.Form("NewPassword")))>20 then response.write "" response.end end if if Request.Form("NewPassword")<>Request.Form("vNewPassword") then response.write "" response.end end if rs("Password")=Md5(Request.Form("NewPassword")) rs.update rs.close set rs=nothing end if response.write "你的管理密码已成功修改,请牢记[ "&trim(Request.Form("NewPassword"))&" ]!" response.end end function %>