<!-- #include file="conn.asp" -->
<!-- #include file="cls_main.asp" -->
<% Dim ishion,Rs
Set ishion = New cls_main
If ishion.MemberUserName = "" then
%>
document.write("<TABLE cellSpacing=1 cellPadding=1 border=0>");
document.write("<FORM name=LoginForm onsubmit=\"return checkLoginForm()\" action=\"UserLogin.asp\" method=post>");
document.write("<input type=\"hidden\" name=\"action\" value=\"login\">");
document.write("  <TR>");
document.write("    <TD height=130><table border=\"0\" cellpadding=\"1\" cellspacing=\"1\">");
document.write("        <tr>");
document.write("          <td>用户名：");
document.write("              <input name=\"UserName\" type=\"text\" id=\"UserName\" size=\"12\" maxlength=\"20\"></td>");
document.write("        </tr>");
document.write("        <tr>");
document.write("          <td>密　码：");
document.write("              <input name=\"Password\" type=\"Password\" id=\"Password\" size=\"12\" maxlength=\"20\"></td>");
document.write("        </tr>");
document.write("        <tr>");
document.write("          <td>验证码：");
document.write("            <input name=\"CodeStr\" type=\"text\" size=\"5\" maxlength=4>            <img src=\"GetCode.asp\"></td>");
document.write("        </tr>");
document.write("        <tr>");
document.write("          <td>Cookie： <select name=\"CookieDate\" id=\"CookieDate\">");
document.write("                  <option value=\"0\">不保存</option>");
document.write("                  <option value=\"1\">保存一天</option>");
document.write("                  <option value=\"2\">保存一月</option>");
document.write("                  <option value=\"3\">保存一年</option>				  ");
document.write("                </select></td>");
document.write("        </tr>");
document.write("        <tr>");
document.write("          <td><input type=\"submit\" name=\"Submit\" value=\" 登录 \">");
document.write("            <input type=\"button\" onclick=\"window.open('UserReg.asp')\" value=\"注册为会员\"></td>");
document.write("        </tr>");
document.write("    </table></TD>");
document.write("  </TR>");
document.write("  <TR>");
document.write("    <TD height=5></TD>");
document.write("  </TR>");
document.write("</form>");
document.write("</TABLE>");
<% else
	Set Rs = ishion.Execute("select Points,UserClass,VipType,VipEndDate from ishion_User where UserName='"&ishion.MemberUserName&"'")
	Response.Write "document.write('欢迎您！" & ishion.MemberUserName
	Response.Write "<br>点数："&Rs(0)&" ┊ 级别："&Rs(1)&""
	If Rs(2) = 0 then	
		Response.Write "<br>类型：普通用户"
	ElseIf Rs(2) = 1 then
		Response.Write "<br>类型：点数用户"
	ElseIf Rs(2) = 2 then
		Response.Write "<br>类型：限时用户"
		Response.Write "<br>有效期至 "&Rs(3)
	End If
	Response.Write "<br>·<a href=""User_Index.asp"">用户中心</a> ·<a href=""Userlogin.Asp?action=logout"">退出登录</a>');"
	Set Rs = Nothing
End if

Set ishion = Nothing
%>

