📄 updateinfo_tiao.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim Rs,SQL
dim CategoryId,username,userid
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改个人资料</title>
</head>
<%
If DownsysClass.memberName = Empty Then
%>
<br>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><SPAN class=M><IMG
height=13 src="images/My_login/147.gif" width=16><SPAN
class=fo> 你目前进行的操作，需要“登录”后才能继续……</SPAN></SPAN></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="75%"><TABLE cellSpacing=0 cellPadding=0 width=570
align=center border=0>
<TBODY>
<TR>
<TD width=196><IMG
src="images/My_login/login_left.gif"></TD>
<TD
style="BORDER-RIGHT: #e2e3e4 0px solid; PADDING-RIGHT: 21px; BORDER-TOP: #e2e3e4 1px solid; PADDING-LEFT: 31px; BORDER-LEFT: #e2e3e4 0px solid; BORDER-BOTTOM: #e2e3e4 1px solid"
width=481><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD><IMG height=33
src="images/My_login/login_txt.gif"
width=138></TD>
</TR>
<TR>
<TD style="PADDING-TOP: 15px"><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<form method="post" action="login.asp?action=login" target="_top">
<TBODY>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD>登 录
<INPUT class=form_login style="WIDTH: 136px" maxLength=20 name="username"></TD>
</TR>
<TR>
<TD style="PADDING-TOP: 7px">密 码
<INPUT class=form_login style="WIDTH: 136px" type=password maxLength=20 name="password"></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD><INPUT type=image src="images/My_login/b_login.gif" name="Submit" border=0 align=absMiddle title='用户登陆'></TD>
</TR>
</FORM>
</TABLE></TD>
</TR>
</TABLE></TD>
<TD width=21><IMG
src="images/My_login/login_right.gif"
border=0></TD>
</TR>
</TABLE>
<TABLE style="MARGIN-TOP: 4px" cellSpacing=0
cellPadding=0 align=center bgColor=#f3f3f3 border=0>
<TBODY>
<TR>
<TD width=150><IMG height=40
src="images/My_login/login_011.gif" width=143></TD>
<TD width=200><A href=reg.asp?action=hangye&depth=0 target=_top><IMG height=33 src="images/My_login/te-long.gif" width=100 alt='用户注册' border=0></a></TD>
<TD width=210><A href=sendpass.asp target=_top><IMG src="images/My_login/b_id_pw.gif" border=0></a></TD>
<TD><IMG
src="images/My_login/login_d_right.gif"></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top width="25%"><TABLE cellSpacing=0 cellPadding=0 width=187
align=center border=0>
<TBODY>
<TR>
<TD width=194><IMG height=44
src="images/My_login/t.gif" width=187></TD>
</TR>
<TR>
<TD background=images/My_login/t2.gif height=80><DIV class=fo align=center>贴出你的求购广告，<BR>
好贷源低成本随你挑 </DIV></TD>
</TR>
<TR>
<TD><IMG height=8 src="images/My_login/t3.gif"
width=187></TD>
</TR>
<TR>
<TD vAlign=bottom height=35> <SPAN
class=fo>·哪些信息可以发</SPAN></TD>
</TR>
<TR>
<TD height=25> <SPAN
class=fo>·如何发送信息</SPAN></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TABLE></td>
</tr>
</table></td>
</tr>
</table>
<%
Else
username = DownsysClass.memberName
userid = CLng(DownsysClass.memberid)
SQL = "select NC_User.money,NC_User.CategoryId,NC_User.DayDownNum,NC_UserGroup.GroupName,NC_UserGroup.GroupSet from NC_User,NC_UserGroup where NC_User.grade = NC_UserGroup.grades And NC_User.userid = " & userid & " And NC_User.username='" & username & "'"
Rs.Open SQL, conn, 1, 1
CategoryId = Rs("CategoryId")
Rs.Close
%>
<meta http-equiv=refresh content="0; url=updateinfo.asp?sortid=<%= CategoryId %>">
<% End If %>
<body>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -