<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--会员管理</title>
<LINK href="css/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<script language="JavaScript" src="YWNT_TMS_Inc/YWNT_TMS_Common.js"></script>
<!--#include file="../Conn.asp" -->
<!--#include file="YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<!--#include file="YWNT_TMS_inc/YWNT_TMS_Page.asp" -->
<!--#include file="../function/MD5.asp" -->
<!--#include File = "../API/API_Config.asp"-->
<!--#include File = "../API/API_Function.asp"-->
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Users")
sub EditSave()

		If API_Enable Then
        FoundErr = False
        ErrMsg = ""
        sPE_Items(conAction, 1) = "update"
		sPE_Items(conUsername, 1) = NoSqlHack(request.Form("UsersName"))
		if Replace(Request.Form("UsersPassword"), "'", "''")<>"" then
    	sPE_Items(conPassword, 1)=NoSqlHack(Request.Form("UsersPassword"))
   		end if
        sPE_Items(conQuestion, 1) = NoSqlHack(Request.Form("UsersProblems"))
		if Request.Form("UsersAnswer")<>"" then
        sPE_Items(conAnswer, 1) = NoSqlHack(Request.Form("UsersAnswer"))
		end if
        sPE_Items(conEmail, 1) = NoSqlHack(request.Form("UsersEmail"))
        sPE_Items(conTruename, 1) = NoSqlHack(Request.Form("UsersTrueName"))
        sPE_Items(conQQ, 1) = NoSqlHack(Request.Form("UsersQQ"))
        If createXmlDom Then
            prepareXML True
            SendPost
            If FoundErr Then
                ErrMsg = "<li>" & ErrMsg & "</li>"
            End If
        Else
            FoundErr = True
            ErrMsg = "<li>目前注册服务不可用! [APIError-XmlDom-Runtime]</li>"
        End If
    	End If
	
		Set Rs=Server.CreateObject(YWNT_TMS_RS)
		sql="select * from YWNT_TMS_Users where ID="&NoSqlHack(Request.Form("ID"))
		Rs.open sql,Conn,1,3
		RS("UsersName")=NoSqlHack(Request.Form("UsersName"))
		if Replace(Request.Form("UsersPassword"), "'", "''")<>"" then
    	RS("UsersPassword")=md5(NoSqlHack(Request.Form("UsersPassword")),16)
   		end if
		RS("UsersProblems")=NoSqlHack(Request.Form("UsersProblems"))
		if Request.Form("UsersAnswer")<>"" then
		RS("UsersAnswer")=NoSqlHack(Request.Form("UsersAnswer"))
		end if
		RS("UsersGroup")=NoSqlHack(Request.Form("UsersGroup"))
		RS("UsersType")=NoSqlHack(Request.Form("UsersType"))
		Select Case Request.Form("UsersType")
		Case 0
		RS("UsersCoin")=NoSqlHack(Request.Form("UsersCoin"))
		RS("UsersCoinDate")=Now()
		Case 1
		RS("UsersCoinDate")=NoSqlHack(Request.Form("UsersCoinDate"))
		RS("UsersCoin")=0
		End Select
		RS("UsersState")=NoSqlHack(Request.Form("UsersState"))
		RS("UsersTrueName")=NoSqlHack(Request.Form("UsersTrueName"))
		RS("UsersEmail")=NoSqlHack(Request.Form("UsersEmail"))
		RS("UsersQQ")=NoSqlHack(Request.Form("UsersQQ"))
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Call AddLog("修改用户资料"&Request.Form("UsersName"),7)
		call Admin_ShowErr("<li>用户资料修改成功</li>","Admin_Users.asp",1)
end sub
sub AddSave()
		if CheckCF("UsersName",request.Form("UsersName"),"'")>0 then 
		call Admin_ShowErr("<li>用户名已被占用，请重新输入！</li>","javascript:history.go(-1);",0)
		end if
		if CheckCF("UsersEmail",request.Form("UsersEmail"),"'")>0 then 
		call Admin_ShowErr("<li>Email已被占用，请重新输入！</li>","javascript:history.go(-1);",0)
		end if
		
		If API_Enable Then
        FoundErr = False
        ErrMsg = ""
        sPE_Items(conAction, 1) = "reguser"
        sPE_Items(conUsername, 1) = NoSqlHack(request.Form("UsersName"))
        sPE_Items(conPassword, 1) = NoSqlHack(Request.Form("UsersPassword"))
        sPE_Items(conQuestion, 1) = NoSqlHack(Request.Form("UsersProblems"))
        sPE_Items(conAnswer, 1) = NoSqlHack(Request.Form("UsersAnswer"))
        sPE_Items(conEmail, 1) = NoSqlHack(request.Form("UsersEmail"))
        sPE_Items(conUserstatus, 1) = 1
        sPE_Items(conJointime, 1) = Now()
        sPE_Items(conUserip, 1) = Request.ServerVariables("REMOTE_ADDR")
        sPE_Items(conTruename, 1) = NoSqlHack(Request.Form("UsersTrueName"))
        sPE_Items(conGender, 1) = ""
        sPE_Items(conBirthday, 1) = ""
        sPE_Items(conQQ, 1) = NoSqlHack(Request.Form("UsersQQ"))
        sPE_Items(conMsn, 1) = ""
        sPE_Items(conMobile, 1) = ""
        sPE_Items(conTelephone, 1) = ""
        sPE_Items(conProvince, 1) = ""
        sPE_Items(conCity, 1) = ""
        sPE_Items(conAddress, 1) = ""
        sPE_Items(conZipcode, 1) = ""
        sPE_Items(conHomepage, 1) = ""
        If createXmlDom Then
            prepareXML True
            SendPost
            If FoundErr Then
                ErrMsg = "<li>" & ErrMsg & "</li>"
            End If
        Else
            FoundErr = True
            ErrMsg = "<li>目前注册服务不可用! [APIError-XmlDom-Runtime]</li>"
        End If
    End If
		
		Set Rs=Server.CreateObject(YWNT_TMS_RS)
		sql="select * from YWNT_TMS_Users"
		Rs.open sql,Conn,1,3
		Rs.addnew
		RS("UsersName")=NoSqlHack(Request.Form("UsersName"))
		RS("UsersPassword")=md5(NoSqlHack(Request.Form("UsersPassword")),16)
		RS("UsersProblems")=NoSqlHack(Request.Form("UsersProblems"))
		RS("UsersAnswer")=NoSqlHack(Request.Form("UsersAnswer"))
		RS("UsersGroup")=NoSqlHack(Request.Form("UsersGroup"))
		RS("UsersType")=NoSqlHack(Request.Form("UsersType"))
		Select Case Request.Form("UsersType")
		Case 0
		RS("UsersCoin")=NoSqlHack(Request.Form("UsersCoin"))
		Case 1
		RS("UsersCoinDate")=Now()+NoSqlHack(Request.Form("UsersCoin"))
		End Select
		RS("UsersTrueName")=NoSqlHack(Request.Form("UsersTrueName"))
		RS("UsersEmail")=NoSqlHack(Request.Form("UsersEmail"))
		RS("UsersQQ")=NoSqlHack(Request.Form("UsersQQ"))
		RS("UsersRegDate")=date()
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		Call AddLog("添加用户"&Request.Form("UsersName"),7)
		call Admin_ShowErr("<li>添加用户成功</li>","Admin_Users.asp",1)
end sub
sub Del()
	Set Rs=Server.CreateObject(YWNT_TMS_RS)
	sql="select ID,UsersName from YWNT_TMS_Users where ID in ("&NoSqlHack(Request("ID"))&")"
	Rs.open sql,conn,1,1
	do while not Rs.eof
	conn.execute "delete from YWNT_TMS_UsersCollection WHERE CollectionUsers = '"&Rs("UsersName")&"'"
	conn.execute "delete from YWNT_TMS_Comments WHERE CommentsUsers = '"&Rs("UsersName")&"'"
	conn.execute "delete from YWNT_TMS_UsersLog WHERE UsersName = '"&Rs("UsersName")&"'"
	conn.execute "delete from YWNT_TMS_DemandMovie WHERE DemandUsers = '"&Rs("UsersName")&"'"
	
		If API_Enable Then
        FoundErr = False
        ErrMsg = ""
        sPE_Items(conAction, 1) = "delete"
        sPE_Items(conUsername, 1) = Rs("UsersName")
        If createXmlDom Then
            prepareXML True
            SendPost
            If FoundErr Then
                ErrMsg = "<li>" & ErrMsg & "</li>"
            End If
        Else
            FoundErr = True
            ErrMsg = "<li>目前注册服务不可用! [APIError-XmlDom-Runtime]</li>"
        End If
    	End If
		
	Rs.movenext
	loop
	Rs.close
	set Rs=nothing
	conn.execute "delete from YWNT_TMS_Users WHERE ID in ("&NoSqlHack(Request("ID"))&")"
	Call AddLog("删除用户",7)
	call Admin_ShowErr("<li>删除用户成功！</li>","Admin_Users.asp",1)
end sub 
sub DelLogin()
	conn.execute "delete from YWNT_TMS_Users WHERE UsersLogin<=1"
	Call AddLog("删除未登陆用户",7)
	call Admin_ShowErr("<li>未登陆用户删除成功！</li>","Admin_Users.asp",1)
end sub%>

<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td colspan="2" class=xingmu>会员管理</td>
    </tr>
    <tr>
      <td width="50%" class="hback"><a href="Admin_Users.asp">会员管理首页</a> | <a href="Admin_Users.asp?Action=Add">添加会员</a> | <a href="Admin_Users.asp?Action=DelLogin">删除未登陆过的会员</a></td>
      <td width="53%" class="hback"><a href="Admin_Users.asp?UsersTypeS=0">影币会员</a> | <a href="Admin_Users.asp?UsersTypeS=1">包月会员</a> | <a href="Admin_Users.asp?UsersStateS=1">锁定会员</a> </td>
    </tr>
    <tr>
      <td colspan="2" class="hback"><%Set Rs = server.CreateObject(YWNT_TMS_RS)
		sql="Select ID,GroupName from YWNT_TMS_UsersGroup Order by ID asc"
		Rs.open sql,Conn,1,1   
		do while not RS.eof
		Response.Write "<a href=Admin_Users.asp?UsersGroupS="&RS("ID")&">"&RS("GroupName")&"</a>"
		RS.movenext  
		if not RS.eof then
		Response.Write" | "
		end if   
    	loop
		RS.close     
		set RS=nothing%></td>
    </tr>
  </tbody>
</table>

<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td colspan="5" class=xingmu>会员查询</td>
    </tr>
  <form action="Admin_Users.asp" method="post">
    <tr>
      <td width="200" align="right" class="hback">会员名称查询：</td>
      <td width="334" class="hback"><input name="UsersName" type="text" id="UsersName" size="40"></td>
      <td width="401" class="hback"><input type="submit" name="Submit2" value="查 询"></td>
    </tr>
  </form>
  </tbody>
</table>
<% Action=Trim(request("Action"))
Select Case Action
Case "Add"
	call Add()
Case "AddSave"
	call AddSave()
Case "Edit"
		Set Rs=Server.CreateObject(YWNT_TMS_RS)
		sql="select * from YWNT_TMS_Users where ID="&NoSqlHack(Request.QueryString("ID"))
		Rs.open sql,Conn,1,1
		YWNT_TMS_ID=RS("ID")
		YWNT_TMS_UsersName=RS("UsersName")
		YWNT_TMS_UsersProblems=RS("UsersProblems")
		YWNT_TMS_UsersGroup=RS("UsersGroup")
		YWNT_TMS_UsersType=RS("UsersType")
		YWNT_TMS_UsersCoin=RS("UsersCoin")
		YWNT_TMS_UsersCoinDate=RS("UsersCoinDate")
		YWNT_TMS_UsersState=RS("UsersState")
		YWNT_TMS_UsersTrueName=RS("UsersTrueName")
		YWNT_TMS_UsersEmail=RS("UsersEmail")
		YWNT_TMS_UsersQQ=RS("UsersQQ")
		YWNT_TMS_UsersIP=RS("UsersIP")
		YWNT_TMS_UsersRegDate=RS("UsersRegDate")
		YWNT_TMS_UsersLogin=RS("UsersLogin")
		RS.close   
      	set RS=nothing
	call Edit()
Case "EditSave"
	call EditSave()
Case "Del"
	call Del()
Case "DelLogin"
    call DelLogin()
Case else
	call List()
End Select
sub List()
Dim int_RPP
	int_RPP=GetConfig("PageNumber") '设置每页显示数目%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td width="5%" align="center" class=xingmu>ID</td>
      <td align="center" class=xingmu>会员名称</td>
      <td width="10%" align="center" class=xingmu>消费模式</td>
      <td width="10%" align="center" class=xingmu>影币/天数</td>
      <td width="10%" align="center" class=xingmu>注册时间</td>
	  <td width="12%" align="center" class=xingmu>登陆IP</td>
      <td width="10%" align="center" class=xingmu>登陆次数</td>
      <td width="10%" align="center" class=xingmu>会员状态</td>
      <td colspan="2" align="center" class=xingmu>操作</td>
    </tr>
  <form name="forms" action="Admin_users.asp" method="post">
	<%  Set Rs = server.CreateObject(YWNT_TMS_RS)
		sql="Select ID,UsersName,UsersType,UsersCoin,UsersCoinDate,UsersRegDate,UsersIP,UsersLogin,UsersState from YWNT_TMS_Users "
		if Request.QueryString("UsersTypeS")<>"" then
			sql=sql&"where UsersType="&NoSqlHack(Request.QueryString("UsersTypeS"))&" Order by ID desc"
		elseif Request.QueryString("UsersGroupS")<>"" then 
			sql=sql&"where UsersGroup="&NoSqlHack(Request.QueryString("UsersGroupS"))&" Order by ID desc"
		elseif Request.QueryString("UsersStateS")<>"" then 
			sql=sql&"where UsersState="&NoSqlHack(Request.QueryString("UsersStateS"))&" Order by ID desc"
		elseif Request("UsersName")<>"" then 
			sql=sql&"where UsersName='"&replace(NoSqlHack(Request("UsersName"))," ","")&"' Order by ID desc"		
		else
		    sql=sql&"Order by ID desc"
		end if
		Rs.open sql,Conn,1,1
	if Rs.eof then
	   Response.Write"<TR  class=""hback""><TD colspan=""10"" class=""hback"" height=""40"">没有记录。</TD></TR>"
	else
		Rs.PageSize=int_RPP
		cPageNo=NoSqlHack(Request.QueryString("Page"))
		If cPageNo="" Then cPageNo = 1
		If not isnumeric(cPageNo) Then cPageNo = 1
		cPageNo = Clng(cPageNo)
		If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount 
		If cPageNo<=0 Then cPageNo=1
		Rs.AbsolutePage=cPageNo 
	for i=1 to int_RPP
	 if Rs.eof Then exit For 
	 	Select Case RS("UsersType")
		Case 0
		YWNT_TMS_UsersCoin=RS("UsersCoin")&"影币"
		Case 1
		YWNT_TMS_UsersCoin=RS("UsersCoinDate")-Now()
		YWNT_TMS_UsersCoin=formatnumber(YWNT_TMS_UsersCoin,1)&"天"
		End Select%> 
    <tr>
      <td height=32 align="center" class="hback"><%=RS("ID")%></td>
      <td height=32 class="hback"><%=RS("UsersName")%></td>
      <td height=32 align="center" class="hback"><%UsersTypeW(RS("UsersType"))%></td>
      <td height=32 align="center" class="hback"><%=YWNT_TMS_UsersCoin%></td>
      <td align="center" class="hback"><%=RS("UsersRegDate")%></td>
	  <td height=32 align="center" class="hback"><%=RS("UsersIP")%></td>
      <td align="center" class="hback"><%=RS("UsersLogin")%></td>
      <td align="center" class="hback"><%UsersStateW(RS("UsersState"))%></td>
      <td width="10%" align="center" class="hback"><A href="Admin_Users.asp?Action=Edit&ID=<%=RS("ID")%>">修改</A>｜<A href="Admin_Users.asp?Action=Del&ID=<%=RS("ID")%>">删除</A></td>
      <td width="4%" align="center" class="hback"> <input name="ID" type="checkbox" id="ID" value="<% = RS("ID")%>">
</td>
    </tr>
	<%Rs.MoveNext
	next 
	end if%>
		<tr align="right">
	<td height=32 colspan="10" class="hback">
	<input name="Action" type="hidden" id="Action">
	<input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.forms.chkall.checked);">
	选择所有
	<input type="button" name="Submit" value="删除"  onClick="document.forms.Action.value='Del';{if(confirm('确定清除您所选择的记录吗？')){this.document.forms.submit();return true;}return false;}">
</td>
	</tr>
  </form>
	<tr align="right">
	<td height=32 colspan="10" class="hback"><% response.Write fPageCount(Rs,cPageNo) %></td>
	</tr>
  </tbody>
</table>
<%end sub
sub Add()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td colspan="4" class=xingmu>会员添加</td>
    </tr>
 <form name="form" action="Admin_Users.asp?Action=AddSave" method="post" onSubmit="if (!Userscheck()) return false;">
    <tr>
      <td width="21%" height=32 align="right" class="hback">会员名称：</td>
      <td height=7 colspan="3" class="hback"><input name="UsersName" type="text" id="UsersName" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">会员密码：</td>
      <td height=7 colspan="3" class="hback"><input name="UsersPassword" type="password" id="UsersPassword" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">确认密码：</td>
      <td height=7 colspan="3" class="hback"><input name="UsersPassword2" type="password" id="UsersPassword2" size="40"></td>
    </tr>
	 <tr>
      <td height=32 align="right" class="hback">真实姓名：</td>
      <td height=7 colspan="3" class="hback"><input name="UsersTrueName" type="text" id="UsersTrueName" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">电子邮件：</td>
      <td height=7 colspan="3" class="hback"><input name="UsersEmail" type="text" id="UsersEmail" size="40"></td>
    </tr>
	<tr>
      <td height=32 align="right" class="hback">联系QQ：</td>
      <td height=7 colspan="3" class="hback"><input name="UsersQQ" type="text" id="UsersQQ" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">所属会员组：</td>
      <td height=16 colspan="3" class="hback"><%call UsersGroupselect("UsersGroup",1)%></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">消费模式：</td>
      <td width="9%" height=16 class="hback"><select name="UsersType" id="UsersType">
        <option value=0>影币</option>
        <option value=1>包月</option>
      </select></td>
      <td width="12%" align="right" class="hback">影币/天数：</td>
      <td width="58%" class="hback"><input name="UsersCoin" type="text" id="UsersCoin" value="0" size="15"></td>
    </tr>
    <tr>
      <td height=32 colspan="4" align="center" class="hback"><input type="submit" name="Submit" value="添 加"></td>
    </tr>
  </form>
  </tbody>
</table>
<%end sub
sub Edit()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
  <tbody>
    <tr>
      <td colspan="2" class=xingmu>会员修改</td>
    </tr>
 <form name="form" action="Admin_Users.asp?Action=EditSave" method="post">
    <tr>
      <td width="21%" height=32 align="right" class="hback">会员名称：</td>
      <td height=7 class="hback"><input name="UsersName" type="text" id="UsersName" value="<%=YWNT_TMS_UsersName%>" size="40" ReadOnly></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">会员密码：</td>
      <td height=7 class="hback"><input name="UsersPassword" type="text" style="width:292px;height:22px;font-size: 12px;" id="UsersPassword" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">密码问题：</td>
      <td height=7 class="hback"><input name="UsersProblems" type="text" id="UsersProblems" value="<%= YWNT_TMS_UsersProblems %>" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">密码答案：</td>
      <td height=7 class="hback"><input name="UsersAnswer" type="text" id="UsersAnswer" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">所属会员组：</td>
      <td height=16 class="hback"><%call UsersGroupEditselect("UsersGroup",YWNT_TMS_UsersGroup,1)%></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">消费模式：</td>
      <td height=16 class="hback"><select name="UsersType" id="UsersType" onChange="showThumbnail_RateOrSize(this.value)">
        <option value=0 <%if YWNT_TMS_UsersType=0 then Response.Write("selected")%>>影币</option>
        <option value=1 <%if YWNT_TMS_UsersType=1 then Response.Write("selected")%>>包月</option>
      </select></td>
    </tr>
    <tr id=UsersCoin>
      <td height=32 align="right" class="hback">剩余影币：</td>
      <td height=7 class="hback"><input name="UsersCoin" type="text" id="UsersCoin" value="<%= YWNT_TMS_UsersCoin %>" size="40"></td>
    </tr>
	    <tr id=UsersCoinDate style="display:none">
      <td height=32 align="right" class="hback">到期时间：</td>
      <td height=7 class="hback"><input name="UsersCoinDate" type="text" value="<%=YWNT_TMS_UsersCoinDate%>" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">注册时间：</td>
      <td height=7 class="hback"><%=YWNT_TMS_UsersRegDate%></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">登陆IP：</td>
      <td height=7 class="hback"><%=YWNT_TMS_UsersIP%></td>
    </tr>
	    <tr>
      <td height=32 align="right" class="hback">登陆次数：</td>
      <td height=7 class="hback"><%=YWNT_TMS_UsersLogin%></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">会员状态：</td>
      <td height=7 class="hback"><input type="radio" name="UsersState" value="0" <%if YWNT_TMS_UsersState=0 then Response.Write("checked")%>>
        正常
        <input type="radio" name="UsersState" value="1" <%if YWNT_TMS_UsersState=1 then Response.Write("checked")%>>
        锁定</td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">真实姓名：</td>
      <td height=7 class="hback"><input name="UsersTrueName" type="text" id="UsersTrueName" value="<%= YWNT_TMS_UsersTrueName %>" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">电子邮件：</td>
      <td height=7 class="hback"><input name="UsersEmail" type="text" id="UsersEmail" value="<%= YWNT_TMS_UsersEmail %>" size="40"></td>
    </tr>
    <tr>
      <td height=32 align="right" class="hback">联系QQ：</td>
      <td height=7 class="hback"><input name="UsersQQ" type="text" id="UsersQQ" value="<%= YWNT_TMS_UsersQQ %>" size="40"></td>
    </tr>
    <tr>
      <td height=32 colspan="2" align="center" class="hback"><input name="ID" type="hidden" value="<%= YWNT_TMS_ID %>"><input type="submit" name="Submit" value="修 改"></td>
    </tr>
  </form>
  </tbody>
</table>
<script language="javascript">
showThumbnail_RateOrSize(<%=YWNT_TMS_UsersType%>)
function showThumbnail_RateOrSize(param)
{
	if(param==1)
	{
		document.getElementById("UsersCoin").style.display="none"
		document.getElementById("UsersCoinDate").style.display="block"
	}else
	{
		document.getElementById("UsersCoin").style.display="block"
		document.getElementById("UsersCoinDate").style.display="none"
	}
}
  </script>
<%end sub
call connclose()%>
</BODY></HTML>
