📄 user_modi.asp
字号:
var enterCOL = prompt("使文字产生光晕效果.用法: [GLOW=宽度, 颜色, 边界]要产生光晕效果的文字[/GLOW]", "100,red,2");
if (!enterURL||!enterCOL) {
FoundErrors += "\n" + "您必须输入各项参数!";
}
if (FoundErrors) {
alert("错误!"+FoundErrors);
return;
}
AddTxt = "[glow="+enterCOL+"]"+enterURL
AddText(AddTxt);
AddTxt="[/glow]";
AddText(AddTxt);
}
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<table width="96%" border="0" align="center" class="px14">
<tr>
<td> </td>
</tr>
<tr>
<td align="center" bgcolor="#0065CA"><font color="#FFFFFF">修改用户信息</font></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" align="center">
<!--#include file="opendb.asp" -->
<%set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from users where userid="&Request.QueryString("userid")
'Response.Write sqlstr
'Response.end
rs.open sqlstr,conn,1,3
if rs.recordcount>0 then%>
<form name="form1" method="post" action="user_modi1.asp">
<table width="760" border="1" align="center" cellspacing="0" bordercolorlight="#666666" bordercolordark="#FFFFFF">
<tr>
<td width="30%" align="right" bgcolor="#BBDDFF">用户名</td>
<td width="70%" bgcolor="#f0f0f0"><input name="uid" type="text" class="input" id="uid" title="例如：myname" value="<%=rs("nickname")%>" maxlength="20">
<font color="#FF0000"> * </font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">密码</td>
<td bgcolor="#f0f0f0"><input name="pwd" type="text" class="input" id="pwd" value="<%=rs("password")%>" maxlength="20">
4-20位字母或数字 <font color="#FF0000">* </font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">真实姓名</td>
<td bgcolor="#f0f0f0"> <input name="truename" type="text" class="input" id="truename" value="<%=rs("truename")%>" maxlength="20"></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">性别</td>
<td bgcolor="#f0f0f0"> <input type="radio" name="sex" value="1" <%if rs("sex")=true then%>checked<%end if%>>
男生
<input type="radio" name="sex" value="0" <%if rs("sex")=false then%>checked<%end if%>>
女生 <font color="#FF0000">* </font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">生日</td>
<td bgcolor="#f0f0f0"><input name="birthday" type="text" class="input" value="<%=rs("birthday")%>" maxlength="10">
yyyy-mm-dd (如:1980-08-12) <font color="#FF0000">* </font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">婚姻状况</td>
<td bgcolor="#f0f0f0"><input id="radio14" type="radio" name="marriage" value="0" <%if rs("marriage")=false then%>checked<%end if%>>
未婚
<input id="radio15" type="radio" name="marriage" value="1" <%if rs("marriage")=true then%>checked<%end if%>>
已婚</td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">身份证号码</td>
<td bgcolor="#f0f0f0"> <input name="id_no" type="text" class="input" value="<%=rs("idcard")%>" maxlength="18"></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">工作行业</td>
<td bgcolor="#f0f0f0"> <%set rsj=server.createobject("ADODB.Recordset")
rsj.open "select * from job order by jid",conn,1,3
%> <select name="job" class="input" id="job">
<% do while not rsj.eof %>
<option value="<%= rsj("jid") %>" <% if rs("job")=rsj("jid") then%>selected<% end if %>><%= rsj("job") %></option>
<% rsj.movenext
loop
set rsj=nothing %>
</select> </td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">学历</td>
<td bgcolor="#f0f0f0"> <%set rsj=server.createobject("ADODB.Recordset")
rsj.open "select * from education order by eid",conn,1,3
%> <select name="education" class="input">
<% do while not rsj.eof %>
<option value="<%= rsj("eid") %>" <% if rs("education")=rsj("eid") then%>selected<% end if %>><%= rsj("education") %></option>
<% rsj.movenext
loop
set rsj=nothing %>
</select></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">电子邮箱</td>
<td bgcolor="#f0f0f0"><input name="email" type="text" class="input" id="email" title="例如：abc@domain.com" value="<%=rs("email")%>" maxlength="50">
<font face="宋体"><font color="#FF0000">* </font></font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">即时网络通信</td>
<td bgcolor="#f0f0f0"> <%set rsj=server.createobject("ADODB.Recordset")
rsj.open "select * from net_msg_name order by nid",conn,1,3
%> <select name="net_msg_name" class="input">
<% do while not rsj.eof %>
<option value="<%= rsj("nid") %>" <% if rs("net_msg_name")=rsj("nid") then%>selected<% end if %>><%= rsj("net_msg_name") %></option>
<% rsj.movenext
loop
set rsj=nothing %>
</select>
：
<input name="net_msg_no" type="text" class="input" id="net_msg_no" value="<%=rs("net_msg_no")%>" maxlength="50"></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">网址</td>
<td bgcolor="#f0f0f0"><input name="url" type="text" class="input" id="url" value="<%=rs("url")%>" size="40" maxlength="50"></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">电话</td>
<td bgcolor="#f0f0f0"> <input name="tel" type="text" class="input" id="tel" value="<%=rs("tel")%>" maxlength="20"></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">传真</td>
<td bgcolor="#f0f0f0"><input name="fax" type="text" class="input" id="fax" value="<%=rs("fax")%>" maxlength="20"></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">手机</td>
<td bgcolor="#f0f0f0"><input name="mobile" type="text" class="input" value="<%=rs("mobile")%>" maxlength="20"></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">所在省/市</td>
<td bgcolor="#f0f0f0"> <input name="area" type="text" class="input" id="area" value="<%=rs("area")%>" maxlength="20">
市/地区 <font color="#FF0000">* </font></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">通信地址</td>
<td bgcolor="#f0f0f0"><input name="address" type="text" class="input" id="addr2" style="width:350px;" title="例如：朝阳区东三环招商局大厦" value="<%=rs("address")%>" maxlength="100" /></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">邮政编码</td>
<td bgcolor="#f0f0f0"><input name="zipcode" type="text" class="input" id="zip2" style="width:90px;" title="例如：100022" value="<%=rs("zipcode")%>" maxlength="6" /></td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">签 名 档</td>
<td bgcolor="#f0f0f0"><INPUT name="button" type=button class=input title="背景色和颜色" onclick=ytext() value=" A ">
<INPUT name="button" type=button class=input title="加粗" onclick=ybold() value=" B ">
<INPUT name="button" type=button class=input title="倾斜" onclick=italicize() value=" I ">
<INPUT name="button" type=button class=input title="下划线" onclick=underline() value=" U ">
<INPUT name="button" type=button class=input title="超链接" onclick=hyperlink() value="链接">
<INPUT name="button" type=button class=input title="EMAIL" onclick=yemail() value="邮箱">
<INPUT name="button" type=button class=input title="插入图片" onclick=image() value="贴图">
<INPUT name="button" type=button class=input title="飞翔文字" onclick=setfly() value="左右飞">
<INPUT name="button" type=button class=input title="移动文字" onclick=move() value="向左飞">
<INPUT name="button" type=button class=input title="光晕文字" onclick=yglow() value="光晕">
<textarea name="usign" cols="70" rows="6" class="input" id="usign"><%=rs("usign")%></textarea>
</td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">经验值</td>
<td bgcolor="#f0f0f0"><input name="fenshu" type="text" class="input" style="width:90px;" title="例如：1000" value="<%=rs("fenshu")%>" maxlength="10" />
注意,只填数字,不能留空或填其他字符</td>
</tr>
<tr>
<td align="right" bgcolor="#BBDDFF">级别：</td>
<td bgcolor="#f0f0f0"><input type="radio" name="level" value="0" <%if rs("level")=0 then%>checked<%end if%>>
会员
<input type="radio" name="level" value="1" <%if rs("level")=1 then%>checked<%end if%>>
产品用户
<input type="radio" name="level" value="2" <%if rs("level")=2 then%>checked<%end if%>>
经销商
<input type="radio" name="level" value="3" <%if rs("level")=3 then%>checked<%end if%>>
管理员</td>
</tr>
</table>
<input name="userid" type="hidden" value="<%=Request.QueryString("userid")%>">
<input name="page_code" type="hidden" value="<%= request("page_code") %>">
<input name="right" type="hidden" value="<%= request("right") %>">
<input type="submit" name="Submit" value="OK,更新吧">
<input type="reset" name="Submit2" value="恢复">
</form>
<%end if
rs.close
set rs=nothing%>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -