index.asp

功能强大的霸王插件源代码

   set rs=nothing
   if (i=0) then
     response.write "登录失败,没找到相应记录,请刷新提交页面后重新输入!<br>" 
     conn.close
     set conn=nothing 
     
     response.end
   end if
   if pswd<>"" then
     if pswd<>password then
       response.write "登录失败,口令错误,请刷新提交页面后重新输入!<br>" 
       conn.close
       set conn=nothing      
       response.end
     end if
   else
     conn.execute("update admin set password='"+password+"' where userid='"+userid+"'")   
   end if 
   session("user_id_hitpop")=userid
   if request.Cookies("user_id_hitpop")<>"" then
     response.Cookies("user_id_hitpop")=""
   end if
   response.Cookies("user_id_hitpop")=userid
 end if  
 'response.write "flag:"+flag+"<br>"
 'response.write "jsq:"+jsq+"<br>"
 if session("user_id_hitpop")<>"" then
 '新增记录
 if (flag="3") then
   id=trim(request("e_id0"))
   xm=trim(request("e_name0"))
   password=trim(request("e_password0"))   
   url=trim(request("e_url0"))
   jzrq=trim(request("e_jzrq0"))
   cjlx=trim(request("cjlx0"))
   bz=trim(request("e_bz0"))
   
   response.write "操作:新增记录--姓名:"+xm+"<br>处理结果:"
   conn.execute("insert into user_list(user,xm,pswd,url,jzrq,cjlx,bz) select '"+id+"','"+xm+"','"+password+"','"+url+"','"+jzrq+"','"+cjlx+"','"+bz+"'")
   response.write "成功<br>"
 end if
 '修改
 if (flag="4_0") then
   id=trim(request("e_id"+cstr(key)))
   xm=trim(request("e_name"+cstr(key)))
   password=trim(request("e_password"+cstr(key)))   
   url=trim(request("e_url"+cstr(key)))  
   
   jzrq=trim(request("e_jzrq"+cstr(key)))
   cjlx=trim(request("cjlx"+cstr(key)))
   bz=trim(request("e_bz"+cstr(key)))  
   
   response.write "操作:修改记录,姓名:"+xm+"<br>处理结果:"    
   
   conn.execute("update user_list set user='"+id+"',xm='"+xm+"',pswd='"+password+"',url='"+url+"',jzrq='"+jzrq+"',cjlx='"+cjlx+"',bz='"+bz+"' where ID="+cstr(key))
   response.write "成功<br>"
 end if 
 '修改
 if (flag="4") then
   response.write "操作:修改全部记录<br>处理结果:"   
   maxxh=request("e_maxid")
   for key=1 to maxxh
     url=trim(request("e_url"+cstr(key)))
     if IsNull(url) then
       url=""
     end if
     if url<>"" then
       id=trim(request("e_id"+cstr(key)))
       xm=trim(request("e_name"+cstr(key)))
       password=trim(request("e_password"+cstr(key)))   
       url=trim(request("e_url"+cstr(key)))  
   
       jzrq=trim(request("e_jzrq"+cstr(key)))
       cjlx=trim(request("cjlx"+cstr(key)))
       bz=trim(request("e_bz"+cstr(key)))     
       conn.execute("update user_list set user='"+id+"',xm='"+xm+"',pswd='"+password+"',url='"+url+"',jzrq='"+jzrq+"',cjlx='"+cjlx+"',bz='"+bz+"' where ID="+cstr(key))
     end if
   next 
   response.write "成功<br>"
 end if 
 '删除
 if (flag="5") then
   response.write "操作:删除记录<br>处理结果:"     
   conn.execute("delete from user_list where ID="+key)
   response.write "成功<br>"   
 end if 
 '修改基本配置
 if (flag="34") then
   down=trim(request("e_down")) 
   if isnull(down) then
     down=""
   end if
   response.write "操作:修改系统参数<br>处理结果:"     
   conn.execute("update sysdata set down='"+down+"',msg='"+trim(request("e_msg"))+"',md5='"+trim(request("e_md5"))+"',ver='"+trim(request("e_ver"))+"'")
   response.write "成功<br>"   
 end if 
 '退出系统
 if (flag="29") then
   session("user_id_hitpop")=""
   response.write "成功退出登录<br>"   
 end if
 '修改登录口令
 if (flag="33") then
   userid=trim(session("user_id_hitpop"))
   old_password=trim(request("old_password")) 
   new_password=trim(request("new_password"))
   old_password=md5(old_password)
   sql="select * from admin where userid='"+userid+"' and password='"+old_password+"'"
   Set rs= Server.CreateObject("ADODB.Recordset")
   rs.open sql,conn,1,3
   i=0
   pswd=""
   do until rs.eof
     i=1
     rs.movenext
   loop
   rs.close
   set rs=nothing    
   response.write "操作:修改登录口令<br>处理结果:"   
   if i=0 then
     response.write "失败,原口令错误!<br>" 
   else 
     new_password=md5(new_password)
     conn.execute("update admin set password='"+new_password+"' where userid='"+userid+"'") 
     response.write "成功,请牢记新口令!<br>" 
   end if      
 end if
 '搜索过滤
 if (flag="35") then
   fl_look=trim(request("e_look")) 
   if isnull(fl_look) then 
     fl_look=""
   end if
   response.write "操作:过滤用户列表--"+fl_look+"<br>"   
 end if
 end if
%>
<center><h2>后台管理<h2></center>
<form name=refresh method=post>
  <input type=button value="刷新页面" onclick="javascript:refresh_web()"> 

<input type=hidden name=flag value="">
<%
 
 if session("user_id_hitpop")<>"" then
%>
  
  <input type=button value="退出登录" onclick="javascript:exit_login()">
  

<%
 end if
%>
</form>
<hr>
<br>
<%
 if session("user_id_hitpop")="" then
%>
   <form name=loginform method=post onsubmit="javascript:return login();">
   <input type=hidden name=flag value="">
   <center>
   <TABLE cellSpacing=0 cellPadding=0 width=300  border=1>
   <TBODY>
   <TR>
      <td align="center" ><font size=2>管理员编号</font></td>
      <td ><font size=2><input type=text name=e_userid size=20 maxlength=20></font></td>
   </tr>
   <TR>
      <td align="center" ><font size=2>登录口令</font></td>
      <td ><font size=2><input type=password name=e_password size=20 value="" maxlength=20></font></td>
   </tr>  
   <TR> 
     <TD align="center"><font size=2>验证码</font></TD>
     <TD ><font size=2><INPUT name=systempassword type=text size=6 maxlength=4>
          <IMG src="code.asp" width="50" height="10" border=0 align=absMiddle> </font></TD> 
   </TR>
   </TBODY>
   </TABLE>
   
   <font size=2><input type=submit value="登录">
           <input type=reset value="取消"></font> 
   </center>
   </form>
<%
 response.end
 end if
%>
<%    
sql="select * from sysdata"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
down=rs.fields("down")
if isnull(down) then
  down=""
end if
msg=rs.fields("msg")
if isnull(msg) then
  msg=""
end if
md51=rs.fields("md5")
if isnull(md51) then
  md51=""
end if
%>
<font size=2>系统参数</font>

<form name=ver method=post >
<input type=hidden name=flag value="">

<TABLE cellSpacing=0 cellPadding=0 width=750  border=1 bordercolordark="#ffffff" bordercolorlight="#000000">
<TBODY>
<TR>
  <td width=60 align="center"><font size=2>插件版本</font></td>
  <td><font size=2><input type=text name=e_ver size=6 maxlength=6 value="<%=rs.fields("ver")%>">
                        
                   </font>
      </td>
</tr>
<tr>
  <td align="center"><font size=2>系统公告</font></td>
  <td><font size=2>
                   <textarea name=e_msg rows=10 cols=80><%=msg%></textarea>
  </font></td>
</tr>
<tr>
  <td align="center"><font size=2>下载地址</font></td>
  <td><font size=2><input type=text name=e_down size=80 maxlength=80 value="<%=down%>">
  </font></td>
</tr>
<tr>
  <td align="center"><font size=2>md5标记</font></td>
  <td><font size=2><input type=text name=e_md5 size=80 maxlength=32 value="<%=md51%>">
  </font></td>
</tr>
</tbody>
</table>
</form>
<input type=button value="保存" onclick="javascript:set_cfg()">
<input type=button value="生成ver文件" onclick="javascript:create_html()">
<hr><br>
<font size=2>登录口令</font>
<form name=f_pswd method=post >
<input type=hidden name=flag value="">
<TABLE cellSpacing=0 cellPadding=0 width=750  border=1 bordercolordark="#ffffff" bordercolorlight="#000000">
<TBODY>
<TR>
<td><font size=2>原口令<input type=password name=old_password size=15 value="" maxlength=20> </font></td>
<td><font size=2>新口令<input type=password name=new_password size=15 value="" maxlength=20> </font></td>
<td><font size=2>新口令验证<input type=password name=new_password1 size=15 value="" maxlength=20></font></td>
</tr>
</tbody>
</table><br> 
        <font size=2><input type=button value="修改" onclick="javascript:change_password()"></font>
</form>
<hr><br>
<form name=look method=post >
<font size=2>用户列表  过滤条件<input type=text name=e_look value="<%=fl_look%>"><input type=button value="过滤" onclick="javascript:do_look()"></font>
<input type=hidden name=flag value="">
</form>
<form name=list method=post >
<input type=hidden name=flag value="">
<input type=hidden name=e_key value=0>

<TABLE cellSpacing=0 cellPadding=0 width=100%  border=1 bordercolordark="#ffffff" bordercolorlight="#000000">
<TBODY>
<TR>   
      <td align="center" width=39><font size=2>序号</font></td>   
      <td align="center" width=73><font size=2>用户编号</font></td>      
      <td align="center" width=56><font size=2>姓名</font></td>
      <td align="center" width=63><font size=2>密码</font></td>      
      <td align="center" 225><font size=2>绑定域名</font></td>      
      <td align="center" width=72><font size=2>到期时间</font></td>            
      
      <td align="center" width=62><font size=2>插件类型</font></td>      
      <td align="center" 171><font size=2>备注</font></td>    
      <td align="center" width=102><font size=2>操作</font></td>             
</tr>

<%
rs.close
set rs=nothing
 
'取访问列表
sql="select * from user_list "
if fl_look<>"" then
  sql=sql+" where bz like '%"+fl_look+"%' or user like '%"+fl_look+"%' or xm like '%"+fl_look+"%' or url like '%"+fl_look+"%'"
end if
sql=sql+" order by ID"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
i=0
maxid=0
do until rs.eof  
  i=i+1
key=rs.fields("ID")
bz=rs.fields("bz")
if isnull(bz) then
  bz=""
end if
if maxid<key then
  maxid=key
end if
%>

<TR>
      <td align="center"><font size=2><%=i%></font></td> 
      <td ><font size=2><input type=text name=e_id<%=key%>  style='width:100%' value="<%=rs.fields("user")%>" maxlength=20></font></td>
      <td ><font size=2><input type=text name=e_name<%=key%>  style='width:100%'  value="<%=rs.fields("xm")%>" maxlength=20></font></td>
      <td ><font size=2><input type=text name=e_password<%=key%> style='width:100%' value="<%=rs.fields("pswd")%>" maxlength=20></font></td>      
      <td ><font size=2><input type=text name=e_url<%=key%> style='width:100%' value="<%=rs.fields("url")%>" maxlength=80></font></td>      
      <td ><font size=2><input type=text name=e_jzrq<%=key%> style='width:100%' value="<%=rs.fields("jzrq")%>" maxlength=10>      
                        </font></td>      
      <td ><font size=2><select name="cjlx<%=key%>" style='width:100%'>
              <option value="点击" <%if rs.fields("cjlx")="点击" then %>selected<% end if %>>点击</option>
              <option value="弹窗" <%if rs.fields("cjlx")="弹窗" then %>selected<% end if %>>弹窗</option>  
              <option value="vip" <%if rs.fields("cjlx")="vip" then %>selected<% end if %>>vip</option>                                                  
            </select></font></td>
      <td ><font size=2><input type=text name=e_bz<%=key%> style='width:100%' value="<%=bz%>" maxlength=300></td>      
      <td ><font size=2><input type=button value="修改" onclick="javascript:edit_url(<%=key%>)">                        
                        <input type=button value="删除" onclick="javascript:delete_url(<%=key%>)">     
                        
           </font></td>
</tr>
<%
  rs.movenext
loop
rs.close
set rs=nothing
y=cstr(DatePart("yyyy",now+32))
m=cstr(DatePart("m",now+32))
d=cstr(DatePart("d",now+32))
if len(m)=1 then
  m="0"+m
end if
if len(d)=1 then
  d="0"+d
end if
jzrq=y+"-"+m+"-"+d
%>
<TR>      
      <td ><font size=2>&nbsp;</font></td>
      <td ><font size=2><input type=text name=e_id0 style='width:100%' value="" maxlength=20></font></td>
      <td ><font size=2><input type=text name=e_name0  style='width:100%' value="" maxlength=20></font></td>
      <td ><font size=2><input type=text name=e_password0 style='width:100%' value="" maxlength=20></font></td>      
      <td ><font size=2><input type=text name=e_url0  style='width:100%'  value="" maxlength=80></font></td>   
      <td ><font size=2><input type=text name=e_jzrq0 style='width:100%' value="<%=jzrq%>" maxlength=10></font></td>      
      <td ><font size=2><select name="cjlx0" style='width:100%'>
              <option value="点击" >点击</option>
              <option value="弹窗" selected>弹窗</option>                          
              <option value="vip" >vip</option>
            </select></font></td>
      <td ><font size=2><input type=text name=e_bz0 style='width:100%' value="" maxlength=300>      
      <td ><font size=2><input type=button value="新增" onclick="javascript:new_url()">                        
           </font></td>
</tr>
</TBODY>
</TABLE>
  <input type=hidden name=e_maxid value=<%=maxid%>><br>
<center><font size=2><input type=button value="全部修改" onclick="javascript:edit_all()">                        
           </font></center>
</form>
<br>
<br>
</body>
</html>