📄 admin_verify_dialog.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<html>
<%
Response.Buffer = True  
Response.ExpiresAbsolute = Now() - 1  
Response.Expires = 0  
Response.CacheControl = "no-cache"  
Response.AddHeader "Pragma", "No-Cache"
%>
<!--#include file="head.asp"-->
<!--#include file="AdminSession.asp"-->

<title><%=NetName%> - 用户管理</title>
<style type="text/css">
TD {
	FONT-SIZE: 12px;
}
.MyInput {
	BORDER-RIGHT: cccccc 1pt solid; PADDING-RIGHT: 3pt; BORDER-TOP: cccccc 1pt solid; PADDING-LEFT: 3pt; FONT-SIZE: 9pt; PADDING-BOTTOM: 1pt; BORDER-LEFT: cccccc 1pt solid; PADDING-TOP: 1pt; BORDER-BOTTOM: cccccc 1pt solid
}
.MySubmit {
 FONT-SIZE:12px; WIDTH: 60px; HEIGHT :23px;
}
body {
	background-color: #D6D3CE;
}
</style>
<script laugauge=javascript>
<!--
function linkoprate(oprate){
	if (oprate==2)
		if (!xxg_modify2()) return;
	f.methoder.value=oprate;
	f.submit();
}

function xxg_modify2(){
	if (document.f.pass1.value!=""){
	  if (document.f.pass1.value.length<4 ||document.f.pass1.value.length>16){
		  alert("请注意密码长度");
		  document.f.pass1.focus();
		  return false;
			} 
	  if (document.f.pass2.value==""){
		  alert("请输入确认密码");
		  document.f.pass2.focus();
		  return false;
		  } 
	  if (document.f.pass2.value!=document.f.pass1.value){
		  alert("两次输入的密码不一致");
		  document.f.pass2.select();
		  return false;
		  } 
	 }
		 
	  if (document.f.email.value==""){
		  alert("请输入电子邮件地址");
		  document.f.email.focus();
		  return false;
		  } 
	  if (document.f.sitename.value==""){
		  alert("请输入网站名称");
		  document.f.sitename.focus();
		  return false;
		  } 	  
			  
	  if (document.f.siteurl.value.length<10){
		  alert("请输入网站地址");
		  document.f.siteurl.focus();
		  return false;
		  } 	  	    
		  return true;
}

//-->
</script>
<%
id = cint(request("Id"))
sql="select * from Users where Id="&id
set rs=conn.execute (sql)
if not rs.eof then
	uname=rs("UserName")
	email=rs("Email")
	qq=rs("QQ")
	sitename=rs("SiteName")
	siteurl=rs("SiteUrl")
	outtype=rs("OutType")
	intype=rs("InType")
	flag=rs("Flag")
	if flag=0 then
		flagstatus="等待审核"
	elseif  flag=1 then
		flagstatus="已认证"
	elseif  flag=2 then
		flagstatus="已锁定"
	end if
	sitetype=rs("SiteType")
	sxid=rs("SxId")
	
	remainpop=rs("RemainPop")
	money=rs("Money")
	
	rs.close
end if
%>
<body onMouseOver="window.status='欢迎来到<%=NetName%>！';return true">
<table width="450"  border="0" align="center" cellpadding="4" bgcolor="#D6D3CE">
  <form name="f" action="admin_verify_oprate.asp" method="pose"  target="Oprate">
	<tr>
	  <td>
		<fieldset><legend>用户管理 - <strong><%=uname%></strong> - [<font color=green><%=flagstatus%></font>]</legend>
		<table width="98%" height="98%"  border="0" align="center">
          <tr>
            <td style="line-height:200%">
        　 新 密 码:
        <input type="password" size="16" name="pass1" />
        (不修改密码不要填写)<br />
        　 确认密码:
        <input type="password" size="16" name="pass2" />
        (不修改密码不要填写)<br />
        　 电子邮件:
        <input size="30" name="email" value="<%=email%>" />
        <br />
        　 站 长Q Q:
        <input size="30" name="qq" value="<%=qq%>" />
        <br />
        　 网站名称:
        <input size="30" name="sitename" value="<%=sitename%>" />
        <br />
        　 网站地址:
        <input size="30" name="siteurl" value="<%=siteurl%>" />
        <span class="style11"> 注意：必须加http://</span><br />
        　 交换方式:
        <select size=1 name=outtype>
          <option value=0 <%if outtype=0 then response.write "selected" %>>延迟弹出</option>
          <option value=1 <%if outtype=1 then response.write "selected" %>>退出弹出</option>
          <option value=2 <%if outtype=2 then response.write "selected" %>>暂停弹出</option>
        </select>
        积分模式:
        <select size=1 name=intype>
          <option value=0 <%if intype=0 then response.write "selected" %>>积分交换</option>
          <option value=1 <%if intype=1 then response.write "selected" %>>积分累积</option>
        </select>
        <br />
        　 网站类型:
        <select size="1" name="sitetype">
          <%OptionList(sitetype)%>
        </select>
        <br />
        　 推荐人ID:
        <input name="sxid" size="6" value=<%=sxid%> ></td>
          </tr>
        <td><hr align="center" width="90%" size="1" noshade></td>
      </tr>  <tr>
          <td><span style="line-height:200%">　 剩余流量:
            <input name="remainpop" type="text" id="remainpop" value="<%=remainpop%>" size="16" />
          </span>帐户金额:<span style="line-height:200%">
          <input name="money" type="text" id="money" value="<%=money%>" size="16" />
          </span></td>
        </tr>
  <input type=hidden name="methoder">
  <input type=hidden name="id" value=<%=id%>>
        </table>
		</fieldset>
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
           <tr>
            <td height="8" align="right"></td>
          </tr>
		  <tr>
            <td align="right"><input type="button" name="Submit" value="认证通过" class="MySubmit" onClick="linkoprate(1)" <%if Flag=1 then response.write "disabled" end if%>>
&nbsp;
<%if Flag=0 then  %>
<input type="button" name="Submit2" value=" 锁 定 " class="MySubmit" onClick="linkoprate(3)" disabled>
<%elseif Flag=1 then  %>
<input type="button" name="Submit2" value=" 锁 定 " class="MySubmit" onClick="linkoprate(3)">
<%elseif Flag=2 then %>
<input type="button" name="Submit2" value="解除锁定" class="MySubmit" onClick="linkoprate(4)">
<%end if%>
&nbsp;
<input type="button" name="Submit3" value=" 删 除 " class="MySubmit" onClick="linkoprate(0)">
&nbsp;
<input type="button" name="Submit" value="修改信息" class="MySubmit" onClick="linkoprate(2)">
&nbsp; 
<input type="button" name="Submit" value="关闭窗口" class="MySubmit" onClick="window.close()"></td>
          </tr>
        </table></td>
	</tr></form>
</table>
<IFRAME ID="Oprate" name="Oprate" FRAMEBORDER="0" SCROLLING="no" WIDTH="0" HEIGHT="0"></IFRAME>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -