?? user_inc.asp
字號:
newWindow.focus();
}
//-->
</script>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr><td align=right><strong><font color=#FFFFFF>您最多只能收藏十種商品</font></strong></td></tr></table>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select bjx_action.actionid,bjx_action.bookid,BJX_goods.bookname,BJX_goods.shichangjia,BJX_goods.huiyuanjia,BJX_goods.vipjia,BJX_goods.dazhe from BJX_goods inner join bjx_action on BJX_goods.bookid=bjx_action.bookid where bjx_action.username='"&request.Cookies("bjx")("username")&"' and bjx_action.zhuangtai=6",conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<form action="sctogw.asp" target="newwindow" method=post name=form1 onsubmit="windowOpener('')">
<tr bgcolor="#FFFFFF" align="center">
<td width=8%>選擇</td>
<td width=42%>商品名稱</td>
<td width=14%>市場價</td>
<td width=14%>會員價</td>
<td width=14%>VIP 價</td>
<td width=8%>刪除</td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#ffffff" align=center>
<td><input name=bookid type=checkbox checked value="<%=rs("bookid")%>" ></td>
<td align=left><a href=goodsview.asp?bjxGid=<%=rs("bookid")%> ><%=rs("bookname")%></a></td>
<td><s><%=rs("shichangjia")%></s>元</td>
<td><%=rs("huiyuanjia")%>元</td>
<td><%=rs("vipjia")%>元</td>
<td><a href=shoucang.asp?action=del&actionid=<%=rs("actionid")%>&ll=1><img src=images/trash.gif width=15 height=17 border=0></a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr bgcolor="#ffffff" align=center>
<td height=25 colspan=6>
<input class="go-wenbenkuang" onFocus="this.blur()" type=submit name="submit" value=" 加入購物車 ">
</td>
</tr>
</form>
</table><br>
<%
end sub
sub savepass()
if request.Cookies("bjx")("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 Dv_User where username='"&request.Cookies("bjx")("username")&"' ",conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<form name="userpass" method="post" action="saveuserinfo.asp?action=savepass">
<tr>
<td colspan=2 align="center"><strong><font color=#FFFFFF>尊敬的用戶，我們向您承諾：以下信息將被嚴格保密，絕對不提供給第三方或用作它用!</font></strong></td>
</tr>
<tr>
<td width="30%" bgcolor=#ffffff align="right">用 戶 名：</td>
<td width="70%" bgcolor=#ffffff><font color=#FF6600><%=request.Cookies("bjx")("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("bjx")("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 BJX_Sheng 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 BJX_Shi 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("對不起，請?zhí)顚懩恼鎸嵭彰?quot;);
return false;
}
if(checkspace(document.userinfo.sfz.value)) {
document.userinfo.sfz.focus();
alert("對不起，請?zhí)顚懩纳矸葑C號碼！");
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("對不起，請?zhí)顚懩脑敿毜刂罚?quot;);
return false;
}
if(checkspace(document.userinfo.youbian.value)) {
document.userinfo.youbian.focus();
alert("對不起，請?zhí)顚戉]編！");
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("對不起，請留下您的聯(lián)系電話！");
return false;
}
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Dv_User where username='"&request.Cookies("bjx")("username")&"' ",conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<form name="userinfo" method="post" action="saveuserinfo.asp?action=userziliao">
<tr>
<td colspan=2 align="center"><strong><font color=#FFFFFF>尊敬的用戶，我們向您承諾：以下信息將被嚴格保密，絕對不提供給第三方或用作它用!</font></strong></td>
</tr>
<tr bgcolor="#ffffff">
<td width="30%" align="right">用 戶 名：</td>
<td width="70%"><font color=#FF6600>
<%=request.Cookies("bjx")("username")%> (
<%if rs("reglx")=2 then %>
VIP用戶 期限：<%=rs("vipdate")%>
<%else%>
普通會員
<%end if%>
)</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 name=sfz type=text class="wenbenkuang" value="<%=trim(rs("sfz"))%>" size="30" maxlength="18">
<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>
<input name=nianling type=text class="wenbenkuang" value="<%=trim(rs("nianling"))%>" size="4" maxlength="2">
</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 BJX_Sheng 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 BJX_Shi 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">聯(lián)系電話：</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
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -