⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user_inc.asp

📁 商业网站开发有源代码可以运行
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        <tr>
          <td height="22">
            <%
	set songxf1=server.CreateObject("adodb.recordset")
	songxf1.open "select * from shop_jiangpin where bookid="&songxf("bookid"),conn,1,1
	if songxf1.recordcount=1 then
	response.write "<a href='listjp.asp?id="&songxf("bookid")&"' target=_blank>"&songxf1("bookname")&"</a>"
	end if
	songxf1.close
	set songxf1=nothing%>
          </td>
          <td align="center" height="22"><%=songxf("jifen")%></td>
          <td align="center" height="22"><a href="jifen.asp?actionid=<%=songxf("actionid")%>&action=del">删除此项</a></td>
        </tr>
        <%
	songxf.movenext
	wend%>
      </table>
    </td>
  </tr>
  <%end if
	songxf.close
	set songxf=nothing%>
</table>
<%
end sub

sub sqvip()
if request.cookies("songxf")("username")="" or request.cookies("songxf")("reglx")=2 then
response.Redirect "user.asp"
response.End
end if
%>
<table width=370 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <tr> 
    <td height=22 bgcolor=#FFFFEE> 
      <%set rs=server.createobject("adodb.recordset")
                              rs.open "select vipsq from shop_config ",conn,1,1
                              response.write rs("vipsq")
                              rs.close
                              set rs=nothing
                              %>
    </td>
  </tr>
  <tr> 
    <td height=22 bgcolor=#FFFFEE>&nbsp;</td>
  </tr>
  <tr> 
    <td height=28 bgcolor=#FFFFFF align=center>&nbsp;</td>
  </tr>
</table>
<%
end sub

sub viphd()
if request.cookies("songxf")("username")="" or request.cookies("songxf")("reglx")=1 then
response.Redirect "user.asp"
response.End
end if
%>
<table width=370 border=1 align=center cellpadding=0 cellspacing=0 bordercolor="#FFCC00">
  <tr>
    <td bgcolor="#FFFFEE" bordercolor="#FFFFEE"> 
      <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>
            <%set rs=server.createobject("adodb.recordset")
                              rs.open "select viphd from shop_config ",conn,1,1
                              response.write rs("viphd")
                              rs.close
                              set rs=nothing
                              %>
          </td>
        </tr>
      </table>
    </td>
</tr>
</table>
<%
end sub

sub shoucang()
if request.cookies("songxf")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<script language="JavaScript">
<!--
var newWindow = null
function windowOpener(loadpos)
{	
  newWindow = window.open(loadpos,'newwindow','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');
	newWindow.focus();
}

//-->
</script>
<table width=370 border=0 align=center cellpadding=2 cellspacing=2><tr>
    <td width=7% > </td>
    <td width=93% valign=baseline> 
      <div align=right>您最多只能收藏十种商品</div></td></tr></table>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia,shop_books.dazhe from shop_books inner join  shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("songxf")("username")&"' and shop_action.zhuangtai=6",conn,1,1 
%>
<table width=370 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <form action="sctogw.asp" target="newwindow" method=post name=form1 onsubmit="windowOpener('')">
    <tr bgcolor="#FFECA2"> 
      <td width=8% height="22"> 
        <div align=center><font color="#666666">选择</font></div>
      </td>
      <td width=42% height="22"> 
        <div align=center><font color="#666666">商品名称</font></div>
      </td>
      <td width=14% height="22"> 
        <div align=center><font color="#666666">市场价</font></div>
      </td>
      <td width=14% height="22"> 
        <div align=center><font color="#666666">会员价</font></div>
      </td>
      <td width=14% height="22"> 
        <div align=center><font color="#666666">VIP 价</font></div>
      </td>
      <td width=8% height="22"> 
        <div align=center><font color="#666666">删除</font></div>
      </td>
    </tr>
    <%do while not rs.eof%>
    <tr bgcolor="#FFFFEE"> 
      <td height="22"> 
        <div align=center>
          <input name=bookid type=checkbox checked value="<%=rs("bookid")%>" >
        </div>
      </td>
      <td STYLE='PADDING-LEFT: 5px' height="22"> 
        <div align=left><a href=list.asp?id=<%=rs("bookid")%> target=_blank><%=rs("bookname")%></a></div>
      </td>
      <td height="22"> 
        <div align=center><s><%=rs("shichangjia")%></s>元</div>
      </td>
      <td height="22"> 
        <div align=center><font color=#dd6600><%=rs("huiyuanjia")%>元</font></div>
      </td>
      <td height="22"> 
        <div align=center><font color=#FF3300><%=rs("vipjia")%>元</font></div>
      </td>
      <td height="22"> 
        <div align=center><a href=shoucang.asp?action=del&actionid=<%=rs("actionid")%>&ll=1><img src=images/trash.gif width=15 height=17 border=0></a></div>
      </td>
    </tr>
    <%
rs.movenext
loop
rs.close
set rs=nothing
%>
    <tr bgcolor="#FFFFEE"> 
      <td height=25 colspan=6> 
        <div align="center">
          <input name="imageField" type="image" src="images/gwc.gif" width="70" height="19" border="0" onFocus="this.blur()">
        </div>
      </td>
    </tr>
  </form>
</table>
<%
end sub

sub savepass()
if request.cookies("songxf")("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;
  }
   if(checkspace(document.userpass.quesion.value)) {
	document.userpass.quesion.focus();
    alert("对不起，请填写密码提问！");
	return false;
  }
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("songxf")("username")&"' ",conn,1,1
%>
<table width=370 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>
  <form name="userpass" method="post" action="saveuserinfo.asp?action=savepass">
    <tr> 
      <td bgcolor=#ffffff colspan=2> <font color=#FF0000>尊敬的用户，我们向您承诺：<br>
        以下信息将被严格保密，绝对不提供给第三方或用作它用。</font></td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff> 
        <div align="right">用 户 名： </div>
      </td>
      <td height=22 bgcolor=#ffffff><font color=#FF6600><%=request.cookies("songxf")("username")%></font></td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff> 
        <div align="right">新 密 码： </div>
      </td>
      <td height=22 bgcolor=#ffffff> 
        <input name=userpassword style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; BORDER-LEFT: #ffffff 1px groove; COLOR: #333333; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #FFFFEE"; type=password value="" size="10">
        (不修改请为空) </td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff> 
        <div align="right">密码确认： </div>
      </td>
      <td height=22 bgcolor=#ffffff> 
        <input name=userpassword2 style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; BORDER-LEFT: #ffffff 1px groove; COLOR: #333333; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #FFFFEE"; type=password value="" size="10">
      </td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff> 
        <div align="right">密码提问： </div>
      </td>
      <td height=22 bgcolor=#ffffff> 
        <input name=quesion type=text style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; BORDER-LEFT: #ffffff 1px groove; COLOR: #333333; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR:#FFFFEE"; value="<%=trim(rs("quesion"))%>">
        <font color="#FF0000">*</font> </td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff> 
        <div align="right">密码答案： </div>
      </td>
      <td height=22 bgcolor=#ffffff> 
        <input name=answer style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; BORDER-LEFT: #ffffff 1px groove; COLOR: #333333; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #FFFFEE"; type=text value="" size="18">
        (不修改请为空) </td>
    </tr>
    <tr align="center"> 
      <td height=25 bgcolor=#ffffff colspan="2"> 
        <div align="center"> 
          <input  type=image border=0 name=submit2 src=images/bc.gif width=54 height=18 onclick='return passcheck();'>
        </div>
      </td>
    </tr>
  </form>
</table>
<%rs.close
set rs=nothing
end sub

sub userziliao()
if request.cookies("songxf")("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 szSheng 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 szShi 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 
%>
123

⌨️ 快捷键说明

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