asp建站,遇到登录注册问题。登录界面的源码如下,求高手指点!!
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>YYT-Fashion & Life Style</title>
<link href="images/ricky.css" rel="stylesheet" type="text/css">
<script language="VBScript" type="text/VBScript">
<!--
function form1_OnSubmit()
If trim(form1.UserName.value)="" Then
MsgBox "请输入用户名!",0+64,"系统提示"
form1_OnSubmit=false
Exit function
End If
If trim(form1.UserPassword.value)="" Then
MsgBox "请输入登陆密码!",0+64,"系统提示"
form1_OnSubmit=false
Exit function
End If
form1_OnSubmit=true
End function
//-->
</script>
</head>
<body>
<!--#include file = "top.asp" -->
<TABLE width="1003" cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD height="550" background="images/midddi.jpg" valign="MIDDLE"><table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="400"><%if session("username")="" then%>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><table width="650" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#666666">
<tr>
<td height="30" valign="bottom" class="huiText1" style="padding-left:10px">会员须知</td>
<td width="216" rowspan="3"><table width="200" border="0" align="right" cellpadding="0" cellspacing="0" bgcolor="#808080">
<form name="form1" method="post" action="login.asp">
<tr>
<td height="50" align="center"><font color="#FFFFFF">请输入您的用户名和密码</font></td>
</tr>
<tr>
<td><table width="209" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="79" height="30" align="center"><font color="#FFFFFF">用户名:</font></td>
<td width="130" valign="middle"><input name="UserName" type="text" id="UserName" size="16"></td>
</tr>
<tr>
<td height="30" align="center"><font color="#FFFFFF">密 码:</font></td>
<td valign="middle"><input name="UserPassword" type="password" id="UserPassword" size="16"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="40" align="right" style="padding-right:5px"><table width="97" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="submit" value="确定" onClick="form1_OnSubmit()"><a href="reg.asp"><img src="images/login.gif" alt="" width="36" height="17" border="0" /></a></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="2" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td width="434"><table width="96%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td class="huiText" >1您可以通过办理VIP时的手机号码及密码来登录本系统。<br>
2您可以在本系统中查询到你的VIP消费积分及积分兑换信息。<br>
3您可以通过登录本系统查询到积分排行榜<br>
4VIP积分系统更新为一周一次,新申请的VIP会员需要一周后才能在本系统查询。不便之处,敬请谅解!<br>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%else%>
<!--#include file="userConn.asp" -->
<%
Dim rssql,rsuser
rssql="select *from xruser where username='"&session("username")&"'"
set rsuser=xruser.execute(rssql)
Dim rsgsql,rsg
rsgsql="select *from xruser_group where czqx="&rsuser("czqx")
set rsg=xruser.execute(rsgsql)
%>
<table width="650" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><table width="650" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#666666">
<tr>
<td height="30" valign="bottom" class="huiText4"> Y交流中心</td>
<td width="220" rowspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#333333">
<tr>
<td height="60" align="center"><font color="#FFFFFF">已经登陆会员区</font></td>
</tr>
<tr>
<td align="center"><TABLE cellSpacing=0 cellPadding=0 width=178
border=0>
<TBODY>
<TR>
<TD bgColor=#434343 height=1></TD>
</TR>
<TR>
<TD bgColor=#a5c373
height=1></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td height="150" align="center"><table width="75%" border="0" cellpadding="0">
<tr>
<td height="30" colspan="2"><font color="#FFFFFF">用 户 名:<%=session("username")%></font></td>
</tr>
<tr>
<td height="30" colspan="2"><font color="#FFFFFF">身份权限:【<%=rsg("sfname")%>】</font></td>
</tr>
<tr>
<td width="50%" height="30"><a href="user_edit.asp"><font color="#FFFFFF">修改资料</font></a></td>
<td width="50%"><a href="user_ixm.asp"><font color="#FFFFFF">升级身份</font></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="50"> <a href="login.asp?zx=1"><font color="#FFFFFF">退出登陆→</font></a></td>
</tr>
</table></td>
</tr>
<tr>
<td><hr color="#CCCCCC" noshade="noshade" size="8"></td>
</tr>
<tr>
<td height="200" align="center"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"><b><font color="#000000">品牌新闻</font></b></td>
</tr>
<tr>
<td><%
Dim newssql,news
newssql="select *from zhuanti Order by updatetime DESC"
set news=conn.execute(newssql)
%>
<%For i=1 to 6 %>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="middle">
<td width="4%" height="24"><font color="#000000">■</font></td>
<td width="72%"><a href="newslist.asp?id=<%=news("newsid")%>" target="_blank"><%=news("title")%></a></td>
<td width="24%" align="LEFT" class="huiText3"><%=year(news("UpdateTime"))&" / "&month(news("UpdateTime"))&" / "&day(news("UpdateTime"))&""%></td>
</tr>
</table>
<%news.MoveNext
If news.eof Or news.bof Then Exit For
Next%></td>
</tr>
<tr>
<td height="30" align="right"><a href="news.asp"><font color="#000000">更多新闻……</font></a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%end if%></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file = "down.asp" -->
</body>
</html>