myuser.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

</tr>
</table>
<%case "modi"%>
<table width="96%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#EDEFE1">
<tr>
<td colspan="2" height="25" >&nbsp; </td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="#333333" ></td>
</tr>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from 56770_user where user_id='"&session("user_id")&"'"
rs.open sql, conn, 1, 1
user_id=rs("user_id")
user_name=rs("user_name")
user_password=rs("user_password")
user_postalcode=rs("user_postalcode")
user_tel=rs("user_tel")
user_mail=rs("user_mail")
user_adds=rs("user_adds")
oicq=rs("oicq")
fax=rs("fax")
city=rs("city")
rs.close
set rs=nothing
%>

<%if request("xgcg")="ok" then%>
<tr>
<td height="24" colspan="4" bgcolor="#f0f0f0" style="line-height: 210%">
<p>·您已经修改了您的资料 <br>
·如果您修改了密码，下次请用新密码登陆</p>
</td>
</tr>
<%else%>
<form name="modiinfo" action="changemyinfo.asp?action=xgpass" method=post>
<td width="134" align="center" bgcolor="#f0f0f0">帐号密码：</td>
<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input name="ps" size="20" class="form">
</td>
</tr>
<tr>
<tr>

<td width="134" align="center" bgcolor="#f0f0f0">确认密码：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input name="ps1" size="20" class="form">
</td>
</tr>
<td colspan="2" height="56" align="center" bgcolor="#FFFFFF">
<input type="submit" name="Submit" value="修改密码">
</td>
</tr>
</form>
<form name="modiinfo" action="changemyinfo.asp?action=xg" method=post>
<tr>
<td width="134" align="center" bgcolor="#f0f0f0">用户帐号：</td>

<td width="416" height="30" bgcolor="#FFFFFF"> <font color="#FF0000"><%=user_id%>
*</font> 此项不可修改</td>
</tr>
<tr>

<td width="134" align="center" bgcolor="#f0f0f0">真实姓名：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="user_name" size="20" class="form" value="<%=user_name%>">
</td>
</tr>
<tr>
<td height="6" width="134" align="center" bgcolor="#f0f0f0">邮政编码：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="user_postalcode" size="20" class="form" value="<%=user_postalcode%>">
</td>
</tr>
<tr>

<td height="6" width="134" align="center" bgcolor="#f0f0f0">联系电话：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="user_tel" size="20" class="form" value="<%=user_tel%>">
</td>
</tr>
<tr>

<td height="6" width="134" align="center" bgcolor="#f0f0f0">手机号码：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="fax" size="20" class="form" value="<%=fax%>">
</td>
</tr>
<tr>

<td height="6" width="134" align="center" bgcolor="#f0f0f0">QQ号码：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="oicq" size="20" class="form" value="<%=oicq%>">
</td>
</tr>
<tr>

<td height="6" width="134" align="center" bgcolor="#f0f0f0">省市：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="city" size="20" class="form" value="<%=city%>">如黑龙江省哈尔滨市
</td>
</tr>
<tr>

<td height="25" width="134" align="center" bgcolor="#f0f0f0">电子邮件：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="user_mail" size="22" class="form" value="<%=user_mail%>">
</td>
</tr>
<tr>

<td height="25" width="134" align="center" bgcolor="#f0f0f0"> 联系地址：</td>

<td width="416" height="30" bgcolor="#FFFFFF">&nbsp;
<input type="text" name="user_adds" size="56" class="form" value="<%=user_adds%>">
</td>
</tr>
<%end if%>
<%if request("xgcg")<>"ok" then%>
<tr>
<td colspan="2" height="56" align="center" bgcolor="#FFFFFF">
<input type="submit" name="Submit" value="修改">
　　
<input type="reset" name="Reset" value="清除">
</td>
</tr>
<%end if%>
</form>
</table>
<%case "msg"%>
<table width="96%" cellspacing="" cellpadding="" align="center">
<tr >
<td height="25" >&nbsp; &nbsp; <a href="myuser.asp?action=msg&action2=inbox"><img src="images/m_inbox.gif" border="0" ></a>&nbsp; &nbsp; <a href="myuser.asp?action=msg&action2=outbox"><img src="images/M_outbox.gif" width="40" height="40" border="0"></a>&nbsp; &nbsp; <a href="myuser.asp?action=writemsg"><img src="images/m_write.gif" width="40" height="40" border="0"></a></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#EDEFE1">
<form method=POST action="myuser.asp">
<tr>
<td width="8%" height="25">已读</td>
<td width="58%" height="25">标题</td>
<td width="25%">时间</td>
<td width="9%" align="center">操作</td>
</tr>
<tr>
<td colspan="4" height="1" bgcolor="#000000"></td>
</tr>
<%
sql="select * from 56770_message where to_user='"&session("user_id")&"' order by id desc"
if request("action2")="inbox" then
        sql="select * from 56770_message where to_user='"&session("user_id")&"' order by id desc"
elseif request("action2")="outbox" then
        sql="select * from 56770_message where user_id='"&session("user_id")&"' order by id desc"
end if
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof then
        response.write"<tr><td height=25  colspan='4' bgcolor=#f0f0f0 align=center>您没有短信</td></tr>"
else
        do while not rs.eof
if rs("ifre")=0 then
        re=" <img src='images/m_news.gif'>"
else
        re="<img src='images/m_olds.gif'>"
end if
%>
<tr>
<td bgcolor="#f0f0f0" width="8%" height="25"><%=re%></td>
<td bgcolor="#f0f0f0" width="64%" height="25"><a href="myuser.asp?action=writemsg&action1=read&msgid=<%=rs("id")%>"><%=rs("subject")%></a></td>
<td bgcolor="#f0f0f0" width="19%"><%=rs("idate")%></td>
<td bgcolor="#f0f0f0" width="9%" align="center">
<input type=checkbox name=msgid value=<%=rs("id")%>>
</td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
end if%>
<tr bgcolor="#EDEFE1">
<td colspan="4" height="25" align="right">
<input type='submit' class=buttonface value='删 除' name="submit">
<input type="hidden" name="action1" value="del"><input type="hidden" name="action2" value="<%=request("action2")%>">
</td>
</tr>
</form>
</table>
<%case "writemsg"%>
<table width="96%" cellspacing="" cellpadding="" align="center">
<tr >
<td height="25" >&nbsp; &nbsp; <a href="myuser.asp?action=writemsg&action1=del&msgid=<%=request("msgid")%>"><img src="images/m_delete.gif" width="40" height="40" border="0"></a>&nbsp; &nbsp; <a href="myuser.asp?action=writemsg"><img src="images/m_write.gif" width="40" height="40" border="0"></a>&nbsp; &nbsp; <a href="myuser.asp?action=writemsg&action1=re&msgid=<%=request("msgid")%>"><img src="images/m_reply.gif" width="40" height="40" border="0"></a>&nbsp; &nbsp; <img src="images/m_fw.gif" width="40" height="40">&nbsp; &nbsp; <a href="myuser.asp?action=msg&action2=inbox"><img src="images/m_inbox.gif" border="0" ></a>&nbsp; <a href="myuser.asp?action=msg&action2=outbox"><img src="images/M_outbox.gif" width="40" height="40" border="0"></a>&nbsp; </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="3" bgcolor="#EDEFE1">
<form name="form1" method="post" action="myuser.asp?action=writemsg">
<% id=request("msgid")
if id<>"" then
        set rs=server.createobject("ADODB.Recordset")
sql="select msg,subject, idate, to_user, user_id, ifre from 56770_message where id=" & id
rs.open sql, conn, 3, 3
rs("ifre")=1
rs.update
subject=rs("subject")
reuser="回复人："&rs("to_user")
user=rs("user_id")
msg=rs("msg")
idate=rs("idate")
rs.close
set rs=nothing
end if%>
<tr>
<td height="25" colspan="2"><%if request("msgid")<>"" then%><%=idate%>，<%=user%>给您发送的消息！<%end if%> </td>
</tr>
<tr>
<td bgcolor="#000000" height="1" width="20%"></td>
<td bgcolor="#000000" height="1" width="80%"></td>
</tr>
<tr>
<td bgcolor="#f0f0f0" width="20%">标题：</td>
<td bgcolor="#f0f0f0" width="80%">
<input type="text" name="subject" class="form" value="<%if request("action1")="re" then response.write"Re "&subject else response.write subject   end if%>" >
</td>
</tr>
<tr>
<td bgcolor="#f0f0f0" width="20%">内容：</td>
<td bgcolor="#f0f0f0" width="80%">
<textarea name="msg" cols="46" rows="6" class="form" ><%if request("msgid")<>""and request("action1")="re" then%>
== = 在 <%=idate%> 您来信中写道： == =
<%=server.htmlencode(msg)%>
==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==
Re:<%end if%><%if request("msgid")<>""and request("action1")="read" then%><%=server.htmlencode(msg)%><%end if%></textarea>
</td>
</tr>
<%if request("action1")="re" or id="" then%>
<tr align="center">
<td bgcolor="#f0f0f0" colspan="2">
<input type="submit" name="Submit2" value="发送">
<input type="hidden" name="action1" value="wmsg">　　
<input type="submit" name="Submit22" value="重置">
<input type="hidden" name="user_id" value="<%=session("user_id")%>">
</td>
</tr>
<%end if%>
</form>
</table>
<%end select%> </td>
</tr>
</table>
<!--#include file="footer.asp" -->