📄 user_pro.asp

📁 网上新闻调查发布系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
Recordset2.ActiveConnection = MM_myzb_STRING
Recordset2.Source = "SELECT * FROM usero WHERE id = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()

Recordset2_numRows = 0
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=(Recordset2.Fields.Item("dengluming").Value)%>的详细信息</title>
<style type="text/css">
<!--
body,td,th {
	color: #000000;
	font-size: 12px;
}
.style1 {color: #FF0000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.id; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' 必须是E-mail地址.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' 必须填数字.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' 数字范围从 '+min+' 到 '+max+'之间.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' 是空的.\n'; }
  } if (errors) alert('你煞笔丫?看看！！好好看看！:\n'+errors);
  document.MM_returnValue = (errors == '');
}

function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
</head>

<body>
    <form name="form1" method="POST" action="<%=MM_editAction%>"><table width="77%" border="1" align="center">
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">数据ID</div></td>
   <td align="left" width="82%"><%=(Recordset2.Fields.Item("id").Value)%></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">真实姓名</div></td>
   <td align="left" width="82%">
    <input name="xingming" type="text" id="真实姓名" value="<%=(Recordset2.Fields.Item("xingming").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">年龄</div></td>
   <td align="left" width="82%">
    <input name="ninangling" type="text" id="年龄" value="<%=(Recordset2.Fields.Item("nianling").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">性别</div></td>
   <td align="left" width="82%">
    <input name="xingbie" type="text" id="性别" value="<%=(Recordset2.Fields.Item("xingbie").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">密码</div></td>
   <td align="left" width="82%">
    <input name="mima" type="text" id="密码" value="<%=(Recordset2.Fields.Item("mima").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">单位</div></td>
   <td align="left" width="82%">
    <input name="danwei" type="text" id="单位" value="<%=(Recordset2.Fields.Item("danwei").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">QQ</div></td>
   <td align="left" width="82%">
    <input name="qq" type="text" id="qq" value="<%=(Recordset2.Fields.Item("qq").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">mail</div></td>
   <td align="left" width="82%">
    <input name="mail" type="text" id="mail" value="<%=(Recordset2.Fields.Item("mail").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">电话</div></td>
   <td align="left" width="82%">
    <input name="tel" type="text" id="电话" value="<%=(Recordset2.Fields.Item("tel").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">认证会员</div></td>
   <td align="left" width="82%">
    <select name="mb" id="mb">
      <option value="1" selected <%If (Not isNull((Recordset2.Fields.Item("mb").Value))) Then If ("1" = CStr((Recordset2.Fields.Item("mb").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>普通</option>
      <option value="2" <%If (Not isNull((Recordset2.Fields.Item("mb").Value))) Then If ("2" = CStr((Recordset2.Fields.Item("mb").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>认证</option>
    </select>    
    目前状态:<span class="style1">
    <%fbzt= (Recordset2.Fields.Item("mb").Value) 
				if fbzt = 1 then Response.Write("普通用户") 
				if fbzt = 2 then Response.Write("认证用户")%>
    </span></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">密码问题</div></td>
   <td align="left" width="82%">
    <input name="mmwt" type="text" id="密码问题" value="<%=(Recordset2.Fields.Item("mimawenti").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">密码回答</div></td>
   <td align="left" width="82%">
    <input name="mmhd" type="text" id="密码回答" value="<%=(Recordset2.Fields.Item("mimahuida").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">登陆名</div></td>
   <td align="left" width="82%">
    <input name="dlm" type="text" id="登陆名" value="<%=(Recordset2.Fields.Item("dengluming").Value)%>"></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">注册IP</div></td>
   <td align="left" width="82%"><%=(Recordset2.Fields.Item("ripadd").Value)%></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">最后登陆IP</div></td>
   <td align="left" width="82%"><%=(Recordset2.Fields.Item("lipadd").Value)%></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">注册时间</div></td>
   <td align="left" width="82%"><%=(Recordset2.Fields.Item("zcsj").Value)%></td>
  </tr>
  <tr>
   <td width="18%" align="left" valign="middle"><div align="right">最后登陆时间</div></td>
   <td align="left" width="82%"><%=(Recordset2.Fields.Item("zhdl").Value)%></td>
  </tr>
  <tr>
    <td align="left" valign="middle">&nbsp;</td>
    <td align="left"><input name="Submit" type="submit" onClick="MM_validateForm('xingming','','R','ninangling','','RisNum','xingbie','','R','mima','','R','danwei','','R','qq','','RisNum','mail','','RisEmail','tel','','RisNum','mb','','RisNum','mmwt','','R','mmhd','','R','dlm','','R');return document.MM_returnValue" value="更新">
    <input type="reset" name="Submit" value="重置"></td>
  </tr>
</table>
            <input type="hidden" name="MM_update" value="form1">
      <input type="hidden" name="MM_recordId" value="<%= Recordset2.Fields.Item("id").Value %>">
</form>


  
  <div align="center">
    <form name="form2" method="POST" action="<%=MM_editAction%>">
      <input name="id" type="hidden" id="id" value="<%=(Recordset2.Fields.Item("id").Value)%>">
      <input name="Submit" type="submit" onClick="MM_popupMsg('当你点完确定以后,说明这丫的用户信息已经被删了.祝贺您做了一次伟大的点击')" value="删除这丫的">
      <input type="hidden" name="MM_delete" value="form2">
      <input type="hidden" name="MM_recordId" value="<%= Recordset2.Fields.Item("id").Value %>">
    </form>
    <p>
      <%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_myzb_STRING
Recordset1.Source = "select * from usero where dengluming='"&Session("MM_Username")&"'and mb='1'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
if Recordset1.eof then
  response.Write("<a href="&"http://www.bdqilu.net target="&"_blank"&""&">"&"淄博日丰电脑商行制作"&"</a>")
  else 
  while not Recordset1.eof
response.write("<script Language=Javascript>alert('你是普通用户，不能使用此系统。');location.href = 'javascript:history.go(-1)';</script>")

	Recordset1.movenext
  wend
end if
%>
    </p>
</div>
</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
上一页 12
⌨️ 快捷键说明

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