userinfo.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<%
FunCode="F201"
session("title")="会员信息"
session("headline")="首页 -> 注册系统 -> 会员信息"
%>
<!--#include file="../inc/head2.asp"-->

<%
username=request("username")
if username=""  then
			session("mesg")="用户名不能为空"
			Response.Redirect "../result.asp"
end if
	
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&username&"'"
	rs.open sql,conn,1,1
	if rs.eof then
			session("mesg")="该用户不存在"
			Response.Redirect "../result.asp"
	end if
%>


<br><br>

    <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=100% class='size09' align='center'>
<tr>
<td width='%25' bgcolor='#efefef'>会员登录名</td>
<td width='%25'><%=rs("username")%></td>
<td width='%25' bgcolor='#efefef'>会员密码</td>
<td width='%25'><%=rs("userpass")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>管理用户名</td>
<td width='%25'><%=rs("manageuser")%>&nbsp;</td>
<td width='%25' bgcolor='#efefef'>联系人中文名</td>
<td width='%25'><%=rs("rchname")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>中文名</td>
<td width='%25'><%=rs("chname")%></td>
<td width='%25' bgcolor='#efefef'>英文全名</td>
<td width='%25'><%=rs("enname")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>国家、地区（中文）</td>
<td width='%25'><%=rs("chcountry")%></td>
<td width='%25' bgcolor='#efefef'>国家、地区（英文）</td>
<td width='%25'><%=rs("encountry")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>省份（中文）</td>
<td width='%25'><%=rs("chprovince")%></td>
<td width='%25' bgcolor='#efefef'>省份（英文）</td>
<td width='%25'><%=rs("enprovince")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>城市（中文）</td>
<td width='%25'><%=rs("chcity")%></td>
<td width='%25' bgcolor='#efefef'>城市（英文）</td>
<td width='%25'><%=rs("encity")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>联系地址（中文）</td>
<td width='%25'><%=rs("chaddress")%></td>
<td width='%25' bgcolor='#efefef'>联系地址（英文）</td>
<td width='%25'><%=rs("enaddress")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>邮政编码</td>
<td width='%25'><%=rs("postcode")%></td>
<td width='%25' bgcolor='#efefef'>联系电话</td>
<td width='%25'><%=rs("telephoneno")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>联系E-mail</td>
<td width='%25'><%=rs("email")%></td>
<td width='%25' bgcolor='#efefef'>传真</td>
<td width='%25'><%=rs("faxno")%></td>
</tr>
<tr>
<td width='%25' bgcolor='#efefef'>用户级别</td>

<td width='%25'>
<%
 set rsl = conn.execute("select * from userlevel where levelcode='"&rs("level")&"'")
 if rsl.eof then
 	response.write "未知"
else
	response.write rsl("levelname")
end if
%>
</td>
<td width='%25' bgcolor='#efefef'>借款上限</td>
<td width='%25'> <%=rs("updebit")%></td>
</tr>
<%if request("action")="del" then%>
<tr>
<td  colspan="4" align="center"><form action="muser.asp"><input type="Hidden" value="<%=rs("username")%>" name=username><input type="Submit" value="删  除"></form></td>
</tr>
<%end if%>
</table>

<%
	    set rs=nothing                                                                                                
          conn.close                                                                                                
          set conn=nothing
%>
<!--#include file="../inc/bottom2.asp"-->