📄 user_inc.asp
字号:
<input class="go-wenbenkuang" onFocus="this.blur()" type=submit name="submit" value=" 加入购物车 ">
</td>
</tr>
</form>
</table><br>
<%
end sub
sub savepass()
if request.cookies("Cnhww")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function passcheck()
{
if(document.userpass.userpassword.value.length < 6 || document.userpass.userpassword.value.length >20) {
document.userpass.userpassword.focus();
alert("密码长度不能不能这空，在6位到20位之间，请重新输入！");
return false;
}
if(document.userpass.userpassword.value!==document.userpass.userpassword2.value) {
document.userpass.userpassword.focus();
alert("对不起，两次密码输入不一样！");
return false;
}
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("Cnhww")("username")&"' ",conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#F1F1F1">
<form name="userpass" method="post" action="saveuserinfo.asp?action=savepass">
<tr>
<td colspan=2 align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> </td>
<td>亲爱的客户，我们保证：以下信息将被严格保密，绝对不提供给第三方或用作它用!</td>
</tr>
</table></td>
</tr>
<tr>
<td width="30%" bgcolor=#ffffff align="right">用 户 名：</td>
<td width="70%" bgcolor=#ffffff><font color=#FF0000><%=request.cookies("Cnhww")("username")%></font></td>
</tr>
<tr>
<td bgcolor=#ffffff align="right">新 密 码：</td>
<td bgcolor=#ffffff><input name="userpassword" class="wenbenkuang"; type="password" value="" size="18">
<font color="#FF0000">**</font> 不修改请为空</td>
</tr>
<tr>
<td bgcolor=#ffffff align="right">密码确认：</td>
<td bgcolor=#ffffff><input name="userpassword2" class="wenbenkuang" type="password" value="" size="18">
<font color="#FF0000">**</font></td>
</tr>
<tr align="center">
<td height=25 bgcolor=#ffffff colspan="2">
<input class="go-wenbenkuang" onclick="return passcheck();" type="submit" name="submit" value=" 提交保存 ">
<input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">
</td>
</tr>
</form>
</table><br>
<%rs.close
set rs=nothing
end sub
sub userziliao()
if request.cookies("Cnhww")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<script language=JavaScript>
<%dim sql,i,j
set rs_s=server.createobject("adodb.recordset")
sql="select * from province order by shengorder"
rs_s.open sql,conn,1,1
%>
var selects=[];
selects['xxx']=new Array(new Option('请选择城市……','xxx'));
<%
for i=1 to rs_s.recordcount
%>
selects['<%=rs_s("ShengNo")%>']=new Array(
<%
set rs_s1=server.createobject("adodb.recordset")
sql="select * from city where shengid="&rs_s("id")&" order by shiorder"
rs_s1.open sql,conn,1,1
if rs_s1.recordcount>0 then
for j=1 to rs_s1.recordcount
if j=rs_s1.recordcount then
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'));
<% else
%>
new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'),
<%
end if
rs_s1.movenext
next
else
%>
new Option('','0'));
<%
end if
rs_s1.close
set rs_s1=nothing
rs_s.movenext
next
rs_s.close
set rs_s=nothing
%>
function chsel(){
with (document.userinfo){
if(szSheng.value) {
szShi.options.length=0;
for(var i=0;i<selects[szSheng.value].length;i++){
szShi.add(selects[szSheng.value][i]);
}
}
}
}
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function checkuserinfo()
{
if(document.userinfo.useremail.value.length!=0)
{
if (document.userinfo.useremail.value.charAt(0)=="." ||
document.userinfo.useremail.value.charAt(0)=="@"||
document.userinfo.useremail.value.indexOf('@', 0) == -1 ||
document.userinfo.useremail.value.indexOf('.', 0) == -1 ||
document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 ||
document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
{
alert("Email地址格式不正确！");
document.userinfo.useremail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.userinfo.useremail.focus();
return false;
}
if(checkspace(document.userinfo.userzhenshiname.value)) {
document.userinfo.userzhenshiname.focus();
alert("对不起，请填写您的真实姓名！");
return false;
}
if(checkspace(document.userinfo.sfz.value)) {
document.userinfo.sfz.focus();
alert("对不起，请填写您的身份证号码！");
return false;
}
if((document.userinfo.sfz.value.length!=15)&&(document.userinfo.sfz.value.length!=18)) {
document.userinfo.sfz.focus();
alert("对不起，请正确填写身份证号码！");
return false;
}
if(checkspace(document.userinfo.shouhuodizhi.value)) {
document.userinfo.shouhuodizhi.focus();
alert("对不起，请填写您的详细地址！");
return false;
}
if(checkspace(document.userinfo.youbian.value)) {
document.userinfo.youbian.focus();
alert("对不起，请填写邮编！");
return false;
}
if(document.userinfo.youbian.value.length!=6) {
document.userinfo.youbian.focus();
alert("对不起，请正确填写邮编！");
return false;
}
if(checkspace(document.userinfo.usertel.value)) {
document.userinfo.usertel.focus();
alert("对不起，请留下您的联系电话！");
return false;
}
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("Cnhww")("username")&"' ",conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#F1F1F1">
<form name="userinfo" method="post" action="saveuserinfo.asp?action=userziliao">
<tr>
<td colspan=2 align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"></td>
<td>亲爱的客户，我们保证：以下信息将被严格保密，绝不提供给第三方或用作它用!</td>
</tr>
</table></td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" align="right">用 户 名：</td>
<td width="70%"><font color=#FF0000>
<%=request.cookies("Cnhww")("username")%></font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">电子邮件：</td>
<td>
<input name=useremail class="wenbenkuang" type=text value="<%=trim(rs("useremail"))%>">
<font color="#FF0000">**</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">是否公开邮箱地址：</td>
<td>
<input type="radio" name="ifgongkai" value="1" <%if rs("ifgongkai")=1 then%>checked<%end if%>>
公开
<input type="radio" name="ifgongkai" value="0" <%if rs("ifgongkai")=0 then%>checked<%end if%>>
不公开</td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">真实姓名：</td>
<td>
<input name=userzhenshiname class="wenbenkuang" type=text value="<%=trim(rs("userzhenshiname"))%>" size="10">
<font color="#FF0000">**</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">性别： </td>
<td>
<input type="radio" name="shousex" value="1" <%if rs("sex")=1 then%>checked<%end if%>>
男
<input type="radio" name="shousex" value="0" <%if rs("sex")=0 then%>checked<%end if%>>
女
<input type="radio" name="shousex" value="2" <%if rs("sex")=2 then%>checked<%end if%>>
保密</td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">所在城市：</td>
<td>
<select size="1" class="wenbenkuang" name="szSheng" onChange=chsel()>
<option value="xxx" selected>请选择省份……</option>
<%dim tmpShengid
tmpShengid=0
set rs_s=server.createobject("adodb.recordset")
sql="select * from province order by shengorder"
rs_s.open sql,conn,1,1
while not rs_s.eof
if rs("szSheng")=rs_s("ShengNo") then
tmpShengid=rs_s("id")
%>
<option value="<%=rs_s("ShengNo")%>" selected ><%=trim(rs_s("ShengName"))%></option>
<%
else
%>
<option value="<%=rs_s("ShengNo")%>" ><%=trim(rs_s("ShengName"))%></option>
<%
end if
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select>
<select size="1" class="wenbenkuang" name="szShi">
<%
set rs_s=server.createobject("adodb.recordset")
sql="select * from city where shengid="&tmpShengid&" order by shiorder"
rs_s.open sql,conn,1,1
while not rs_s.eof
%>
<option value="<%=rs_s("ShiNo")%>" <%if rs("szShi")=rs_s("ShiNo") then%>selected<%end if%>><%=trim(rs_s("ShiName"))%></option>
<%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select>
<font color="#FF0000">**</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">详细地址：</td>
<td>
<input name=shouhuodizhi type=text class="wenbenkuang" value="<%=trim(rs("shouhuodizhi"))%>" size="30">
<font color="#FF0000">**</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">联系电话：</td>
<td>
<input name=usertel type=text class="wenbenkuang" value="<%=trim(rs("usertel"))%>" size="12">
<font color="#FF0000">**</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">邮编： </td>
<td>
<input name=youbian type=text class="wenbenkuang" value="<%=trim(rs("youbian"))%>" ONKEYPRESS="event.returnValue=IsDigit();" size="12">
<font color="#FF0000">**</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">QQ：</td>
<td>
<input name=QQ type=text class="wenbenkuang" value="<%=trim(rs("oicq"))%>" size="12" maxlength="12"> </td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">个人主页：</td>
<td>
<input name=homepage type=text class="wenbenkuang" value="<%=trim(rs("homepage"))%>" size="30"> </td>
</tr>
<tr bgcolor="#ffffff">
<td align="right">自我介绍：</td>
<td>
<textarea name="content" cols="30" rows="5" class="wenbenkuang"><%=trim(rs("content"))%></textarea> </td>
</tr>
<tr align="center">
<td height=25 bgcolor=#ffffff colspan="2">
<input class="go-wenbenkuang" onclick="return checkuserinfo();" type="submit" name="submit" value=" 提交保存 ">
<input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 "> </td>
</tr>
</form>
</table>
<br>
<%rs.close
set rs=nothing
end sub
sub famess()
if request.cookies("Cnhww")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align=center>
<td><strong><font color=#FFFFFF>发送短消息</font></strong></td>
</tr>
<tr>
<td bgcolor=#FFFFFF><form name="add" method="post" action="mymsg_hand1.asp">
<table width="90%" border="0" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" align=center bordercolordark="#FFFFFF">
<tr><td>给管理员发送站内消息：</tr>
<tr>
<td> <textarea rows="15" name="neirong" cols="75" style="BORDER: darkgray 1px solid; FONT-SIZE: 8pt; FONT-FAMILY: verdana ; overflow:auto;"></textarea></td>
</tr>
<tr><td height=50 align=center><input type="submit" value="立即发送" name=""> <input type="reset" value="重新填写"><input name="send" type="hidden" value="ok"></td></tr>
</form></td>
</tr></table>
<% end sub
sub soumess()
sql="select * from sms where del='0' and (name='ALL' or name='"&request.cookies("cnhww")("username")&"') order by name asc, riqi desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<table width=90% border=0 align=center><tr><td><marquee width=100% height=10>暂时没有站内消息</marquee></td></tr></table>"
else
do while not rs.eof
neirong=rs("neirong")
riqi=rs("riqi")
isnew=rs("isnew")
fname=rs("fname")
id=rs("id")
%>
<form action=my_msg.asp method=post>
<table width="90%" border="1" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" align=center bordercolordark="#FFFFFF" style="word-break:break-all">
<tr>
<td onMouseOver="bgColor='#e7e7e7'" onMouseOut="bgColor='#FFFFFF'">
<table border=0 width=100%>
<tr>
<td width=150 rowspan=2> <a href='user.asp?action=famess'><img alt="回复此消息" src=images/small/m_replyp.gif border=0></a>
<span style="cursor:hand" onclick="{if(confirm('提示：消息删除后不可恢复，\n\n您确实删除这条消息吗？ ')){location.href='my_msg.asp?delid=<%=id%>';}}"><img ALT="删除此消息" src=images/small/m_delete.gif border=0></span>
</td>
<td> </td>
</tr>
<tr><td>发送人：<%=fname%> 发送时间：<%=riqi%></td></tr>
<tr><td colspan=2><hr color="#FFFFFF" WIDTH=100%>
<%=replace(neirong,vbCRLF,"<BR>")%>
</td></tr>
</table>
</td></tr>
</table>
</form>
<%
rs.movenext
if rs.eof then exit do
loop
conn.execute "UPDATE sms SET isnew ='1' WHERE name ='"&request.cookies("cnhww")("username")&"'"
response.write "<table width=90% border=0 align=center><tr><td height=50 valign=top>"
response.write "</td></tr></table>"
end if
rs.close
set rs=nothing
end sub %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -