<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->

<% strHeader=replace(strHeader,"</HEAD>","</HEAD>"&Copyright&"")
strTitle=System_info(0)&" → 用户操作"
strHeader=replace(strHeader,"$Title$",""&strTitle&"")
Response.Write(replace(strHeader,"../","./")) %>

<SCRIPT language=javascript id=clientEventHandlersJS>
//函数名：chksafe
//功能介绍：检查是否含有"'",'\\',"/"
//参数说明：要检查的字符串
//返回值：0：是  1：不是
function chksafe(a)
{	
	return 1;
/*	fibdn = new Array ("@","'" ,"\\", "、", ",", ";", "/");
	i=fibdn.length;
	j=a.length;
	for (ii=0;ii<i;ii++)
	{	for (jj=0;jj<j;jj++)
		{	temp1=a.charAt(jj);
			temp2=fibdn[ii];
			if (tem';p1==temp2)
			{	return 0; }
		}
	}
	return 1;
*/
}

//函数名：chkspc
//功能介绍：检查是否含有空格
//参数说明：要检查的字符串
//返回值：0：是  1：不是
function chkspc(a)
{
	var i=a.length;
	var j = 0;
	var k = 0;
	while (k<i)
	{
		if (a.charAt(k) != " ")
			j = j+1;
		k = k+1;
	}
	if (j==0)
	{
		return 0;
	}
	
	if (i!=j)
	{ return 2; }
	else
	{
		return 1;
	}
}


//函数名：chkemail
//功能介绍：检查是否为Email Address
//参数说明：要检查的字符串
//返回值：0：不是  1：是
function chkemail(a)
{	var i=a.length;
	var temp = a.indexOf('@');
	var tempd = a.indexOf('.');
	if (temp > 1) {
		if ((i-temp) > 3){
			
				if ((i-tempd)>0){
					return 1;
				}
			
		}
	}
	return 0;
}

//opt1 小数     opt2   负数
//当opt2为1时检查num是否是负数
//当opt1为1时检查num是否是小数
//返回1是正确的，0是错误的
function chknbr(num,opt1,opt2)
{
	var i=num.length;
	var staus;
//staus用于记录.的个数
	status=0;
	if ((opt2!=1) && (num.charAt(0)=='-'))
	{
		//alert("You have enter a invalid number.");
		return 0;
	
	}
//当最后一位为.时出错
	if (num.charAt(i-1)=='.')
	{
		//alert("You have enter a invalid number.");
		return 0;
	}

	for (j=0;j<i;j++)
	{
		if (num.charAt(j)=='.')
		{
			status++;
		}
		if (status>1) 
		{
		//alert("You have enter a invalid number.");
		return 0;		
		}
		if (num.charAt(j)<'0' || num.charAt(j)>'9' )
		{
			if (((opt1==0) || (num.charAt(j)!='.')) && (j!=0)) 
			{
				//alert("You have enter a invalid number.");
				return 0;
			}
		}
	}
	return 1;
}

//函数名：chkdate
//功能介绍：检查是否为日期
//参数说明：要检查的字符串
//返回值：0：不是日期  1：是日期
function chkdate(datestr)
{
	var lthdatestr
	if (datestr != "")
		lthdatestr= datestr.length ;
	else
		lthdatestr=0;
		
	var tmpy="";
	var tmpm="";
	var tmpd="";
	//var datestr;
	var status;
	status=0;
	if ( lthdatestr== 0)
		return 0

	
	for (i=0;i<lthdatestr;i++)
	{	if (datestr.charAt(i)== '-')
		{
			status++;
		}
		if (status>2)
		{
			//alert("Invalid format of date!");
			return 0;
		}
		if ((status==0) && (datestr.charAt(i)!='-'))
		{
			tmpy=tmpy+datestr.charAt(i)
		}
		if ((status==1) && (datestr.charAt(i)!='-'))
		{
			tmpm=tmpm+datestr.charAt(i)
		}
		if ((status==2) && (datestr.charAt(i)!='-'))
		{
			tmpd=tmpd+datestr.charAt(i)
		}

	}
	year=new String (tmpy);
	month=new String (tmpm);
	day=new String (tmpd)
	//tempdate= new String (year+month+day);
	//alert(tempdate);
	if ((tmpy.length!=4) || (tmpm.length>2) || (tmpd.length>2))
	{
		//alert("Invalid format of date!");
		return 0;
	}
	if (!((1<=month) && (12>=month) && (31>=day) && (1<=day)) )
	{
		//alert ("Invalid month or day!");
		return 0;
	}
	if (!((year % 4)==0) && (month==2) && (day==29))
	{
		//alert ("This is not a leap year!");
		return 0;
	}
	if ((month<=7) && ((month % 2)==0) && (day>=31))
	{
		//alert ("This month is a small month!");
		return 0;
	
	}
	if ((month>=8) && ((month % 2)==1) && (day>=31))
	{
		//alert ("This month is a small month!");
		return 0;
	}
	if ((month==2) && (day==30))
	{
		//alert("The Febryary never has this day!");
		return 0;
	}
	
	return 1;
}

//函数名：fucPUserNamechk
//功能介绍：检查是否含有非数字或字母
//参数说明：要检查的字符串
//返回值：0：含有 1：全部为数字或字母
function fucUserNamechk(str)
{
  var strSource ="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-";
  var ch;
  var i;
  var temp;
  
  for (i=0;i<=(str.length-1);i++)
  {
  
    ch = str.charAt(i);
    temp = strSource.indexOf(ch);
    if (temp==-1) 
    {
     return 0;
    }
  }
  if (strSource.indexOf(ch)==-1)
  {
    return 0;
  }
  else
  {
    return 1;
  } 
}


//函数名：fucPWDchk
//功能介绍：检查是否含有非数字或字母
//参数说明：要检查的字符串
//返回值：0：含有 1：全部为数字或字母
function fucPWDchk(str)
{
  var strSource ="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
  var ch;
  var i;
  var temp;
  
  for (i=0;i<=(str.length-1);i++)
  {
  
    ch = str.charAt(i);
    temp = strSource.indexOf(ch);
    if (temp==-1) 
    {
     return 0;
    }
  }
  if (strSource.indexOf(ch)==-1)
  {
    return 0;
  }
  else
  {
    return 1;
  } 
}

function jtrim(str)
{     while (str.charAt(0)==" ")
          {str=str.substr(1);}      
     while (str.charAt(str.length-1)==" ")
         {str=str.substr(0,str.length-1);}
     return(str);
}


//函数名：fucCheckNUM
//功能介绍：检查是否为数字
//参数说明：要检查的数字
//返回值：1为是数字，0为不是数字
function fucCheckNUM(NUM)
{
	var i,j,strTemp;
	strTemp="0123456789";
	if ( NUM.length== 0)
		return 0
	for (i=0;i<NUM.length;i++)
	{
		j=strTemp.indexOf(NUM.charAt(i));	
		if (j==-1)
		{
		//说明有字符不是数字
			return 0;
		}
	}
	//说明是数字
	return 1;
}

//函数名：fucCheckTEL
//功能介绍：检查是否为电话号码
//参数说明：要检查的字符串
//返回值：1为是合法，0为不合法
function fucCheckTEL(TEL)
{
	var i,j,strTemp;
	strTemp="0123456789-()# ";
	for (i=0;i<TEL.length;i++)
	{
		j=strTemp.indexOf(TEL.charAt(i));	
		if (j==-1)
		{
		//说明有字符不合法
			return 0;
		}
	}
	//说明合法
	return 1;
}

//函数名：fucCheckLength
//功能介绍：检查字符串的长度
//参数说明：要检查的字符串
//返回值：长度值
function fucCheckLength(strTemp)
{
	var i,sum;
	sum=0;
	for(i=0;i<strTemp.length;i++)
	{
		if ((strTemp.charCodeAt(i)>=0) && (strTemp.charCodeAt(i)<=255))
			sum=sum+1;
		else
			sum=sum+2;
	}
	return sum;
}


</SCRIPT>
<SCRIPT language=javascript>

function chkitem(str)
{	
	var strSource ="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_";
  var ch;
  var i;
  var temp;
  
  for (i=0;i<=(str.length-1);i++)
  {
  
    ch = str.charAt(i);
    temp = strSource.indexOf(ch);
    if (temp==-1) 
    {
     return 0;
    }
  }
  if (strSource.indexOf(ch)==-1)
  {
    return 0;
  }
  else
  {
    return 1;
  } 


}
function formreg_onsubmit()
{
/*	if ( fucCheckLength(document.formreg.UserName.value) != document.formreg.UserName.value.length )
	{
		alert("会员帐号请不要使用中文！");
		document.formreg.UserName.focus();
		return false;
	}	
*/
	if (fucUserNamechk(document.formreg.UserName.value) ==0 )
	{
		alert("会员帐号只能为英文字母或数字");
		document.formreg.UserName.focus();
		return false;
	}
	
	if (chkitem(document.formreg.UserName.value)==0)
	{
		alert("请输入要注册的会员帐号。");
		document.formreg.UserName.focus();
		return false;
	}
	if ((document.formreg.UserName.vlaue=='') || (chkspc(document.formreg.UserName.value)==0)|| (chkspc(document.formreg.UserName.value)==2))
	{
		alert("请将会员帐号填写完整,且不能使用空格！");
		document.formreg.UserName.focus();
		return false;
	}
	

	if (fucCheckLength(document.formreg.UserName.value) <4 )
	{
		alert("会员帐号必须至少4位");
		document.formreg.UserName.focus();
		return false;
	}
	if (fucCheckLength(document.formreg.UserName.value) >12 )
	{
		alert("会员帐号不能大于12位");
		document.formreg.UserName.focus();
		return false;
	}
	if (fucCheckLength(document.formreg.PassWord.value) <4 )
	{
		alert("会员密码必须至少4位");
		document.formreg.PassWord.focus();
		return false;
	}
	if (fucPWDchk(document.formreg.PassWord.value) ==0 )
	{
		alert("会员密码只能为英文字母或数字");
		document.formreg.PassWord.focus();
		return false;
	}
	if (fucCheckLength(document.formreg.Quesion.value) <1 )
	{
		alert("请输入密码提示问题!");
		document.formreg.Quesion.focus();
		return false;
	}
	if (fucCheckLength(document.formreg.Answer.value) <1 )
	{
		alert("请输入密码提示答案!");
		document.formreg.Answer.focus();
		return false;
	}
 if(document.formreg.CustomerName.value.length<1)
 {
   alert("请输入您的真实姓名!");
   document.formreg.CustomerName.focus();
   return false;
 }
 // if(document.formreg.sex.value.length<1)
 //{
 //  alert("请选择您的性别!");
 //  document.formreg.sex.focus();
 //  return false;
 //}
  if(document.formreg.Email1.value.length<1)
 {
   alert("请输入您的EMAIL!");
   document.formreg.Email1.focus();
   return false;
 }
 
 if (chkemail(document.formreg.Email1.value) ==0 )
	{
		alert("请输入正确的EMAIL!");
		document.formreg.Email1.focus();
		return false;
	}
 if(document.formreg.Address.value.length<1)
 {
   alert("请输入您的通讯地址!");
   document.formreg.Address.focus();
   return false;
 }
 if(document.formreg.PostCode.value.length<6)
 {
   alert("请输入您的邮编，且必须为6位!");
   document.formreg.PostCode.focus();
   return false;
 } 
 if(document.formreg.LinkTel.value.length<7)
 {
   alert("请输入您的联系电话，且最少为7位!，最好加上区号。");
   document.formreg.LinkTel.focus();
   return false;
 } 
	}
</script>
<%
CategoryName="SoftDown"

select case request("action")
case "login"  '登录
	'if chkpost=false then
		'CloseDatabase			
		'response.redirect "./"
	'end if
	call login()
case "logout"  '退出
	'if chkpost=false then
	'	CloseDatabase			
	'	response.redirect "./"
	'end if
	call logout()
case "UserEdit" '编辑页面
	'if chkpost=false then
	'	CloseDatabase			
	'	response.redirect "./"
	'end if
	if System_Setting(13) then
		call UserEdit()
	else
		call Sysmsg("资料修改","Sorry！系统不允许修改用户资料，请过一段时间再试。")
	end if
case "UserReg" '注册页面
	'if chkpost=false then
	'	CloseDatabase			
	'	response.redirect "./"
	'end if
	if System_Setting(11) then
		call UserReg()
	else
		call Sysmsg("用户注册","Sorry！系统已经停止注册，请过一段时间再来。")
	end if
case "addUser"  '注册
	'if chkpost=false then
	'	CloseDatabase			
	'	response.redirect "./"
	'end if
	if System_Setting(11) then call addUser()
case "UserKill" '自杀
	'if chkpost=false then
	'	CloseDatabase			
	'	response.redirect "./"
	'end if
	call UserKill()
case "modfiy"  '修改
	'if chkpost=false then
		'CloseDatabase			
		'response.redirect "./"
	'end if
	if System_Setting(13) then call modfiy()
case else
	dim num1
	dim rndnum
	Randomize
	Do While Len(rndnum)<4
		num1=CStr(Chr((57-48)*rnd+48))
		rndnum=rndnum&num1
	loop
	session("verifycode")=rndnum
	call loginPage() '登录
end select 

sub login()  ' ==========================登录================================
msgtitle="用户登录"
	Response.Cookies("mesky").path=cookies_path
	Response.Cookies("mesky")("UserName")=""
	Response.Cookies("mesky")("password")=""
	Response.Cookies("mesky")("userclass")=""
	Response.Cookies("mesky")("userid")=""
	Response.Cookies("mesky")("usercookies")=""	
usercookies=request("CookieDate")
UserName=Checkstr(request.form("UserName"))
PassWord=Checkstr(Trim(Request.Form("PassWord")))
if session("verifycode")<>trim(request("verifycode")) then
	msginfo="<li>您输入的确认码和系统产生的不一致，请重新输入。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
else
	set rs=server.createobject("adodb.recordset")
	sql="select UserID,CustomerCode,PassWord,UserClass,Points,UserLastIP from "& Admin_UserInfo& " where  CustomerCode='" & UserName & "' and PassWord='" & PassWord & "' and isActive=1 and CategoryName='"&CategoryName&"'"
'	response.Write(sql)
	rs.open sql,conn_user,1,3
	if not(rs.eof and rs.bof) then	
		if isnull(usercookies) or usercookies="" then usercookies="0"
		select case usercookies
		case "0"
			Response.Cookies("mesky")("usercookies") = usercookies
		case 1
  		 	Response.Cookies("mesky").Expires=Date+1
			Response.Cookies("mesky")("usercookies") = usercookies
		case 2
			Response.Cookies("mesky").Expires=Date+31
			Response.Cookies("mesky")("usercookies") = usercookies
		case 3
			Response.Cookies("mesky").Expires=Date+365
			Response.Cookies("mesky")("usercookies") = usercookies
		end select
		Response.Cookies("mesky")("account") = rs("CustomerCode")
		Response.Cookies("mesky")("UserName") = rs("CustomerCode")
		Response.Cookies("mesky")("userid") = rs("UserID")
		Response.Cookies("mesky")("password") = rs("PassWord")
		Response.Cookies("mesky")("userclass") = rs("userclass")
		msginfo="<li>世纪开元网上冲印用户登录成功！您是:"&UserClass(rs("userclass"))&"，帐号里有 "&rs("Points")&"个软件下载点数，用来下载部分需要点数的软件，您的下载点数只能通过在世纪开元数码冲印网上冲印数码照片获得。注册用户登陆后可以任意下载本站的所有软件。如果您是网上冲印数码照片的话，请<a href=""http://www.36588.com.cn/netprint/netprint.exe"">点击下载网上冲印客户端</a>，并用您注册的用户名和密码登陆客户端，并按照提示上传数码照片。</li><li><a href=""vipuser_info.asp"">个 人 资 料</a></li><li><a href=""VipUser_modify.Asp?action=UserEdit"">修 改 信 息</a></li><li><a href=""vipuser_orderlist.asp"">订 单 查 询</a></li><li><a href=""vipuser_sendmoney.asp"">在 线 支 付</a></li><li><a href=""./"">返 回 首 页</a></li><li><a href=""VipUser.Asp?action=logout"">退 出 系 统</a></li>"
		rs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")
		rs.update
	else
		msginfo="<li>提示：密码错误、帐号可能被锁定或者用户不存在！</li>"		   	   
	end if
	rs.close
	set rs=nothing
end if
session("verifycode")=""
call Sysmsg(msgtitle,msginfo)
end sub

sub logout()  ' ==========================退出================================
	Response.Cookies("mesky").path=cookies_path
	'Response.Cookies("mesky").Expires=Date-1
	Response.Cookies("mesky")("account")=""
	Response.Cookies("mesky")("UserName")=""
	Response.Cookies("mesky")("password")=""
	Response.Cookies("mesky")("userclass")=""
	Response.Cookies("mesky")("userid")=""
	Response.Cookies("mesky")("usercookies")=""
    msgtitle="用户退出"			
	msginfo="<li>用户退出成功！</li><li><a href=""VipUser.Asp"">重新登录</a></li><br><li><a href=""http://www.36588.com.cn"">返回首页</a></li>"
	call Sysmsg(msgtitle,msginfo)	
end sub

sub UserEdit()  ' ==========================编辑================================
	if cUserName="" or cPassWord="" then
    msgtitle="修改信息"			
	msginfo="<li>非法操作！你没有登录系统，或者登录超时。</li><li><a href=""VipUser.Asp"">重新登录</a></li><br><li><a href=""./"">返回首页</a></li>"
	call Sysmsg(msgtitle,msginfo)
    else
      isedit=true
	  call myform(isedit)
	end if
end sub

sub addUser()  ' ==========================新用户注册================================
	set rs=server.createobject("adodb.recordset")
	sql="select * from "& Admin_UserInfo& " where  CustomerCode='"&request.form("UserName")&"' and CategoryName='"&CategoryName&"'"
	rs.open sql,conn_user,1,3
	msgtitle="用户注册"
	if not (rs.eof and rs.bof) then		
		msginfo="<br><li>对不起，您输入的用户名已经被注册，请重新输入。</li>"
		call Sysmsg(msgtitle,msginfo)
	else
		rs.addnew	  
		rs("CustomerCode")=Checkstr(Request.form("UserName"))
		rs("PassWord")=Checkstr(Trim(Request.Form("PassWord")))
		rs("sex")=Checkstr(Trim(Request.Form("sex")))
		rs("Email1")=Trim(Request.Form("Email1"))
		rs("Email2")=Trim(Request.Form("Email2"))
		rs("CustomerName")=Trim(Request.Form("CustomerName"))
		rs("Address")=Trim(Request.Form("Address"))
		rs("PostCode")=Trim(Request.Form("PostCode"))
		rs("LinkTel")=Trim(Request.Form("LinkTel"))
		rs("MoveTel")=Trim(Request.Form("MoveTel"))
		rs("Quesion")=Trim(Request.Form("Quesion"))
		rs("Answer")=Trim(Request.Form("Answer"))
		rs("QQ")=Trim(Request.Form("QQ"))
		rs("CategoryName")=CategoryName
		rs("RegDate")=Now()
		rs("SoftDown_Addflag")=""
		rs("SoftDown_Adminflag")=""
		rs("Article_Addflag")=""
		rs("Article_Adminflag")=""
		if System_Setting(12) then rs("isActive")=0 else rs("isActive")=1 end if
		rs("isAdmin")=0
		rs("UserClass")=1
		rs("Points")=10
		rs("isVipUser")=1
		rs("CutomerType")=1
		rs("State")=1
		rs.update
		call regfinish()
	end if
	rs.close
	set rs=nothing	  
end sub

sub modfiy()  ' ==========================保存修改================================
	set rs=server.createobject("adodb.recordset")
	sql="select * from "& Admin_UserInfo& " where  CustomerCode='"&cUserName&"' and UserID="&request.form("UserID")&" and CategoryName='"&CategoryName&"'"
	rs.open sql,conn_user,1,3
	msgtitle="修改信息"
	if not(rs.eof and rs.bof) then		
		rs("PassWord")=Checkstr(Trim(Request.Form("PassWord")))
		rs("sex")=Checkstr(Trim(Request.Form("sex")))
		rs("Email1")=Trim(Request.Form("Email1"))
		rs("Email2")=Trim(Request.Form("Email2"))
		rs("CustomerName")=Trim(Request.Form("CustomerName"))
		rs("Address")=Trim(Request.Form("Address"))
		rs("PostCode")=Trim(Request.Form("PostCode"))
		rs("LinkTel")=Trim(Request.Form("LinkTel"))
		rs("MoveTel")=Trim(Request.Form("MoveTel"))
		rs("Quesion")=Trim(Request.Form("Quesion"))
		rs("Answer")=Trim(Request.Form("Answer"))
		'if Trim(Request.Form("Answer"))<>rs("Answer") then  rs("Answer")=Trim(Request.Form("Answer"))		
		rs("QQ")=Trim(Request.Form("QQ"))
		rs.update
		msginfo="<li>修改成功！</li><li><a href=""VipUser.asp"">登录系统</a></li><br><li><a href=""./"">返回首页</a></li>"
	else
		msginfo="<li>修改失败！</li>"
	end if
	rs.close
	set rs=nothing
	call Sysmsg(msgtitle,msginfo)
end sub

sub UserReg() ' ==========================注册页面================================
  isedit=false
  UserID=""
  call myform(isedit) 
end sub 
	  
sub myform(isEdit)
if isedit then
       set rs=server.createobject("adodb.recordset")
       sql="select * from "& Admin_UserInfo& " where  CustomerCode='"& cUserName &"' and CategoryName='"&CategoryName&"'"
       rs.open sql,conn_user,1,1
       myformTitle="修改信息"
else
       myformTitle="用户注册"    
end if
%>
      <form action="VipUser.asp" method="post" name="formreg" target="_top" id="formreg" onsubmit="return formreg_onsubmit()" >
        <input type="Hidden" name="action" value='<% If isedit then%>modfiy<% Else  %>addUser<% End If %>'>
        <%If isedit then%>
        <input type="Hidden" name="UserID" value='<%=rs("UserID")%>'>
        <%End If%>
        
  <table width="750" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#E6E6E6"> 
      <th colspan="2"><%=myformTitle%></th>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">用户名：</td>
      <td width="577"> 
        <input type="text" name="UserName"  size="30" maxlength="12" value=<% if isedit then
		                                                         response.write "'"&rs("CustomerCode")&"' disabled" 
															 end if %>> 
        <font color="#FF0000">* 
        <br>
        </font> (用户名和密码只能为：数字、大小字字母、“_”或者“-”，长度为4-12位 )</td>

    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td  align="right">密 码：</td>
      <td> 
        <input type="text" name="PassWord" value="<%if isedit then response.write rs("PassWord")%>" size="30" maxlength="15"> 
        <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">密码问题：</td>
      <td> 
        <input type="text" name="Quesion" value="<%if isedit then response.write rs("Quesion")%>" size="30" maxlength="50"> <font color="#FF0000">*</font><br>忘记密码的提示问题</td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">密码答案：</td>
      <td> 
        <input type="text" name="Answer" value="<%if isedit then response.write rs("Answer")%>" size="30" maxlength="50"> <font color="#FF0000">*</font><br>忘记密码的提示问题答案，用于取回用户密码</td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">真实姓名：</td>
      <td> 
        <input type="text" name="CustomerName" value="<% if isedit then  response.write rs("CustomerName")%>" size="30" maxlength="30"> 
        <font color="#FF0000">* </font> 请务必填写您的真实姓名，不然可能导致我们无法为您网上冲印</td>
    </tr>
  <tr bgcolor="#F7F7F7"> 
      <td align="right">性别：</td>
      <td> 
        <input name="sex" type="radio" value="男" <% if not(isedit)  then  response.write("checked") else if isedit  then  if  rs("sex")="男" then response.write("checked") %>>
        男
        <input type="radio" name="sex" value="女" <% if isedit  then  if  rs("sex")="女" then response.write("checked")%>>
        女		
        
        <font color="#FF0000">* </font> </td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">邮箱地址1：</td>
      <td> 
        <input type="text" name="Email1" value="<% if isedit then  response.write rs("Email1")%>" size="30" maxlength="50"> 
        <font color="#FF0000">* </font></td>
    </tr>
	    <tr bgcolor="#F7F7F7"> 
      <td  align="right">邮箱地址2：</td>
      <td> 
        <input type="text" name="Email2" value="<% if isedit then  response.write rs("Email2")%>" size="30" maxlength="50"> 
        </td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">联系 QQ：</td>
      <td><input type="text" name="QQ" value="<%if isedit then response.write rs("QQ")%>" size="30" maxlength="30"></td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">联系地址：</td>
      <td> 
        <input type="text" name="Address" value="<% if isedit then  response.write rs("Address")%>" size="30" maxlength="100"> 
        <font color="#FF0000">* </font>请务必填写您的真实联系地址，不然可能导致我们无法为您配送照片</td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">邮政编码：</td>
      <td> 
        <input type="text" name="PostCode" value="<% if isedit then  response.write rs("PostCode")%>" size="6" maxlength="6"> 
        <font color="#FF0000">* </font></td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">联系电话：</td>
      <td> 
        <input type="text" name="LinkTel" value="<% if isedit then  response.write rs("LinkTel")%>" size="30" maxlength="30"> 
        <font color="#FF0000">* </font>请务必填写您的真实联系电话，不然可能导致我们无法为您网上冲印</td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td align="right">移动电话：</td>
      <td> 
        <input type="text" name="MoveTel" value="<% if isedit then  response.write rs("MoveTel")%>" size="30" maxlength="30"> 
      </td>
    </tr>
    <tr bgcolor="#F7F7F7"> 
      <td width="158" align="right">&nbsp;</td>
      <td > 
        <input type="submit" name="Submit" value="提 交"> <input type="reset" name="Submit2" value="重 置"> 
        <% if isedit then 
					 rs.close 
					set rs=nothing				 
				  end if %>
      </td>
    </tr>
  </table>  
</form> 
 <%end sub 	   
sub loginPage() 
	     if (not isnull(request.Cookies("mesky")("UserName"))) and request.Cookies("mesky")("UserName")<>"" then  
		    msgtitle="用户操作"  
			msginfo="<li>用户已经处于登录状态！</li><li><a href=""vipuser_info.asp"">个 人 资 料</a></li><li><a href=""VipUser_modify.Asp?action=UserEdit"">修 改 信 息</a></li><li><a href=""vipuser_orderlist.asp"">订 单 查 询</a></li><li><a href=""vipuser_sendmoney.asp"">在 线 支 付</a></li><li><a href=""./"">返 回 首 页</a></li><li><a href=""VipUser.Asp?action=logout"">退 出 系 统</a></li>" 
		 call Sysmsg(msgtitle,msginfo) 
		else			 
		%> 
	<form name="form1" method="post" action="VipUser.asp?action=login"> 
         
  <table width="65%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC" class="tableBorder">
    <tr bgcolor="#D8D8D8"> 
      <th height="23" colspan="2">用户登录</th>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%">请输入您的用户名</td>
      <td bgcolor="#EFEFEF"> 
        <input name="UserName" type="text" size="18" maxlength="12">
        <a href="VipUser_reg.asp">没有注册？</a></td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%">请输入您的密码</td>
      <td> <input name="PassWord" type="password" size="18" maxlength="12"></td>
    </tr>
    <tr bgcolor="#EFEFEF">
      <td>请输入您的附加码</td>
      <td><INPUT name=verifycode type=text size="18" maxlength="6"> 请在附加码框输入  <b><span style="background-color: #FFFFFF"><font color=#000000><%=session("verifycode")%></font></span></b></td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%" valign="top"><strong>Cookie 选项</strong><br>
        请选择你的 Cookie 保存时间，下次访问可以方便输入。</td>
      <td> <input type=radio name=CookieDate value=0 checked>
        不保存，关闭浏览器就失效<br> <input type=radio name=CookieDate value=1>
        保存一天<br> <input type=radio name=CookieDate value=2>
        保存一月<br> <input type=radio name=CookieDate value=3>
        保存一年</td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width="35%">&nbsp;</td>
      <td bgcolor="#EFEFEF"> 
        <input type="submit" name="Submit3" value=" 登 录 "> <input type="reset" name="Submit22" value=" 重 设 ">
      </td>
    </tr>
  </table>  
</form> 
      <% end if 
	  end sub   
Response.Write(replace(strFooter,"../","./")) 
CloseDatabase 
%>
<% sub Sysmsg(msgtitle,msginfo) %>
<br>
<table width="65%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td bgcolor="#D8D8D8" class="tdbg1"><strong><%= msgtitle %></strong></td>
  </tr>
  <tr> 
    <td bgcolor="#EFEFEF" class="tdbg2"><%= msginfo %></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#EFEFEF" class="tdbg2"><a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><< 返回上一页</a></td>
  </tr>
</table>
<br>
<% end sub 
sub regfinish()
%>
<table width="65%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td align="center" bgcolor="#E6E6E6" class="tdbg1"><strong>注册完成</strong></td>
  </tr>
  <tr> 
    <td bgcolor="#F7F7F7" class="tdbg2"><strong><font color="#FF0000"><%=Checkstr(request.form("UserName"))%></font></strong>： <br>
    &nbsp;&nbsp;&nbsp;&nbsp;您好！恭喜您注册成为世纪开元网上冲印网站的会员。您可以：<br>
    &nbsp;&nbsp;&nbsp;&nbsp;<li>去<a href="http://www.36588.com.cn/netprint/netprint.htm" target="_self" >网上冲印</a>看看关于网上冲印其他的详细内容。</li><br>
    &nbsp;&nbsp;&nbsp;&nbsp;<li>去<a href="http://soft.36588.com.cn/" target="_self" >软件下载</a>下载软件。</li><br>
    &nbsp;&nbsp;&nbsp;&nbsp;<li>点击<a href="http://www.36588.com.cn/netprint/netprint.exe" target="_blank" >下载网上冲印客户端软件</a>，并双击您刚刚下载的客户端软件，并用您注册的用户名和密码登陆，进行网上冲印。</li><br>
    </td>
  </tr>
  <tr> 
    <td align="center" bgcolor="#F7F7F7" class="tdbg2"><a href="VipUser.Asp">重新登录</a></td>
  </tr>
</table>
<% 
end sub
%>
