?? userinform.asp
字號:
<!--#include file="../inc/conn.asp"-->
<%FunCode="F101"%>
<!--#include file="../inc/Check_Fun.asp"-->
<!--#include file="../inc/func.asp"-->
<%
userName=session("username")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&session("username")&"'"
rs.open sql,conn,1,1
if rs.eof then
session("mesg")="該用戶不存在"
Response.Redirect "result.asp"
end if
set rsc=server.createobject("adodb.recordset")
sql="select * from account where username='"&session("username")&"'"
rsc.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv='Content-Language' content='zh-cn'>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>用戶信息</title>
<% if session("MENUSTYLE") = "0" then %>
<link rel="stylesheet" href="../images/ad_style.css" type="text/css">
<%else%>
<link rel="stylesheet" href="../inc/css.css" type="text/css">
<%end if%>
</head>
<body bgcolor='#ffffff' text='#000000' leftmargin='0' topmargin='0'>
<br>
<h2><p align='center' ><font color="#043B9C"><%=rs("username")%>,歡迎來到注冊管理系統</font></p></h2><p class='color01' align='center'><font size='2' color='#000000'>您的身份是[<font color='#ff0000'><% set rsg = conn.execute ("select * from usergroup where groupcode='"&rs("Menu")&"'")
if not rsg.eof then response.write rsg("groupname") end if%></font>]</p><p class='color01' align='center'>您的當前余額為[<%=rsc("balance")%>]元,凍結金額為[<%=rsc("freeze")%>]元,欠款額為[<%=rsc("debit")%>]元</p>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=70% class='size09' align='center' >
<%
set rspc=server.createobject("adodb.recordset")
sql="select * from productClass order by listID"
rspc.open sql,conn,1,1
do while not rspc.eof
%>
<tr><td class='color01' colspan='4' align='center' bgcolor='#efefef'><%=rspc("class")%></td></tr>
<%
set rsp=server.createobject("adodb.recordset")
sql="select a.*,b.A as priceA from product a left join productprice b on a.ID=b.PID where a.status='1' and a.class='"&rspc("ID")&"' and b.levelCode='"&session("userlevel")&"' order by a.listid"
rsp.open sql,conn,1,1
do while not rsp.eof
%>
<tr><td class='color01' width='25%' align='center'><%=rsp("name")%></td><td width='25%' align='center'><%=rsp("priceA")%>元</td>
<%rsp.movenext
if rsp.eof then
response.write "<td> </td><td> </td><tr>"
exit do
end if
%>
<td class='color01' width='25%' align='center'><%=rsp("name")%></td><td width='25%' align='center'> <%=rsp("priceA")%>元</td></tr>
<%rsp.movenext
if rsp.eof then
exit do
end if
loop
rsp.close
rspc.movenext
loop
set rsp=nothing
set rspc=nothing
%>
</table>
<p align='center'><font color='#ff0000' size='2'>為了安全起見, 若您在本系統中空閑20分鐘以上, 系統會自動斷開與您的連接</font></p>
<br>
</body> </html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -