<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../HSK_Cls/HSK.MemberCls.asp"-->
<!--#include file="../HSK_Cls/HSK.Label.CommonCls.asp"-->
<%
Dim KSCls
Set KSCls = New ComplainCls
KSCls.HSK_Run()
Set KSCls = Nothing

Class ComplainCls
        Private KS,KSUser
		Private Descript,OrderID
		Private ComeUrl
		Private totalPut,currentpage,MaxPerPage
		Private Sub Class_Initialize()
		  Set KS=New PublicCls
		  Set KSUser = New UserCls
		End Sub
        Private Sub Class_Terminate()
		 Set KS=Nothing
		 Set KSUser=Nothing
		End Sub
		%>
		<!--#include file="../HSK_Cls/UserFunction.asp"-->
		<%
       Public Sub loadMain()
		ComeUrl=Request.ServerVariables("HTTP_REFERER")
   
       If KS.S("Action")<>"View" Then
		Call KSUser.Head()
		%>
		<div class="tabs">	
			<ul>
	        <li<%if KS.S("status")="" then response.write " class='select'"%>><a href="?">我发起的申诉</a></li>
            <li<%if KS.S("status")="2" then response.write " class='select'"%>><a href="?status=2">我受到的申诉</a></li>
			</ul>
			<div style="padding-top:5px;">&nbsp; <img src="images/ico1.gif" align="absmiddle"><a href="?Action=Add&status=3"><span style="font-size:14px;color:#ff3300">我要申诉</span></a></div>
	    </div>
	 <%
	 End If
	 	Call KSUser.InnerLocation("申诉管理")
	 	KSUser.CheckPowerAndDie("s17")

	 
	 	Select Case KS.S("Action")
			  Case "Show" Call View()
			  case "del" call FeedBackDel()
			  case "Add" call Add()
			  case "DoSave" call Addsave()
			  case "DoAdded" call DoAdded()
		      Case Else  Call complainList()
		End Select					  
	End Sub
	
	Sub complainList()
      %>
	  <script language=javascript>
		function selectall(chkval) {
			with($('myform')) {
				for (var i=0;i<elements.length;i++) {
					if (elements[i].type=="checkbox") 
						elements[i].checked= chkval;
						
				}
			}
		}	
		function chkselect() {
			var selnum=0
			with($('myform')) {
				for (var i=0;i<elements.length;i++) {
					if (elements[i].type=="checkbox") 
						if(elements[i].checked==true)
							selnum++;
						
				}
				if(selnum==0) {
					alert("请选择要操作的投诉记录！");
					return false;
				}
			}
			
			return true;
		}
		function view(id)
		{
		var phx=window.open('../job/showtraining.asp?id='+id,'new','width=560,height=420,resizable=no,scrollbars=yes,left=280,top=150');
         phx.moveTo((screen.width-560)/2,(screen.height-420)/2);
		}
		</script>
		 
	   <table width="100%"  border="0" align="center" cellpadding="1" cellspacing="1" class="border">
        <tr align="center" class="titlename">
			 <td width="6%" height="28" align="center"><strong>编号</strong></td>
			 <td><strong>标题</strong></td>
			 <td align="center"><strong><%If KS.S("status") <> "2" Then KS.Echo "被"%>申诉人</strong></td>
			 <td width="12%" align="center"><strong>申诉时间</strong></td>
             <td width="12%" align="center"><strong>任务编号</strong></td>
             <td width="10%" align="center"><strong>是否辩解</strong></td>
			 <td width="12%" align="center"><strong>辩解时间</strong></td>
			 <td width="10%" align="center"><strong>官方意见</strong></td>
			 <td><strong>操作</strong></td>
         </tr>
		   <%
							MaxPerPage=10
							If KS.S("page") <> "" Then
							   CurrentPage = KS.ChkClng(KS.S("page"))
							Else
							  CurrentPage = 1
							End If
							  Dim Param
							  IF KS.ChkClng(KS.S("status"))=2 then 
							  	Param = "Where Object='" & KSUser.UserName & "'"
							  Else
							  	Param = "Where UserName='" & KSUser.UserName & "'"
							  End If
							  Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
							  RS.Open "Select * From KS_FeedBack " & Param & " Order By ID Desc",conn,1,1
								 If RS.EOF And RS.BOF Then
								  Response.Write "<tr><td colspan='9' class='splittd' align='center' height=30 valign=top>您没有发起任何申诉!</td></tr>"
								 Else
									totalPut = RS.RecordCount
									If CurrentPage < 1 Then	CurrentPage = 1
									If (CurrentPage - 1) * MaxPerPage > totalPut Then
										If (totalPut Mod MaxPerPage) = 0 Then
											CurrentPage = totalPut \ MaxPerPage
										Else
											CurrentPage = totalPut \ MaxPerPage + 1
										End If
									End If
			
								   If CurrentPage > 1  and (CurrentPage - 1) * MaxPerPage < totalPut Then
										RS.Move (CurrentPage - 1) * MaxPerPage
									Else
										CurrentPage = 1
									End If
							        Call showList(RS)
				End If
     %>                 
            </table>
        <div style="margin:8px">
        <strong>申诉说明</strong><br /><font color='#777777'>
虚拟任务请在12小时后联系客服处理，实物任务请在24小时后联系客服处理！向客服投诉时，请出具相应的截图，如：平台任务ID淘宝完成截图等！一般情况请直接联系在线投诉专服即时处理纠纷！任务过程中，请友好协商，彼此尊重体谅，切勿轻易使用此通道，对于严重违规行为请立即投诉，我们将按照平台规章制度严惩违规方！请大家为自己的任务负责！</font>
    </div>
	  <%
	End Sub
	
	Sub showList(RS)
	  Dim i
	  Do While Not RS.Eof
	      dim bh:bh=rs("id")
		  IF LEN(BH)=1 THEN 
			  BH="00"& bh
		  End If
		  bh="SS" & month(rs("adddate")) & bh
          response.write "<tr bgcolor=#ffffff>"
          Response.Write "<td height='30' class='splittd' align='center'><a href='?action=Show&id=" & rs("id") & "'>" & bh & "</a></td>"
          Response.Write "<td class='splittd' align='center'>" 
		  
		   response.write rs("title")
		  response.write "</td>"
          Response.Write "<td class='splittd' align='center'><a href='/Task/UserInfo.asp?UserName=" & rs("object") & "' target='_blank' title='查看对方的基本信息'>" & rs("object") & "</a></td>"
          Response.Write "<td class='splittd' align='center'>" & formatdatetime(rs("adddate"),2) & "</td>"
          Response.Write "<td class='splittd' align='center'>" & rs("TaskID") & "</td>"
          Response.Write "<td class='splittd' align='center'>"
		  Dim ReplyTime
		  if rs("ReplyContent")="" or isnull(rs("ReplyContent")) then
		   	response.write "<font color=red>未辩解</font>"
		   	ReplyTime="---"
		  else
		   	response.write "<font color=green>已辩解</font>"
		   	ReplyTime=formatdatetime(RS("ReplyDate"),2)
		  end if
		  response.write "</td>"
          Response.Write "<td class='splittd' align='center'>" & ReplyTime & "</td>"
          Response.Write "<td class='splittd' align='center'>"
		  if rs("Accepted")="" or isnull(rs("accepted")) then
		   response.write "未介入"
		  else
		   response.write "<font color=green>已回复</font>"
		  end if
		  response.write "</td>"
		  IF KS.S("status")<>"2" then
          Response.Write "<td class='splittd' align='center'><a href='?action=Show&id=" & rs("id") & "'>查看详情</a> "
		  Else
	      Response.Write "<td class='splittd' align='center'><a href='?action=Show&status=2&id=" & rs("id") & "'>查看详情</a> "
		  End IF
		  IF KS.S("status")<>"2" then
			  KS.Echo "<a onclick=""return(confirm('您确定要撤诉吗?'))"" href='?action=del&id=" & rs("id") & "'>撤诉</a>"
		  End If
		  Response.write "</td>"
          Response.Write "</tr>"
	   
	  	RS.MoveNext
		I = I + 1
		If I >= MaxPerPage Then Exit Do
	 Loop
	 %>
								 <tr>
								  <td align="right" colspan='9' height="35">
								  
								  <%=KS.ShowPagePara(totalPut, MaxPerPage, "", True, "条", CurrentPage, "")%>
								  </td>
								 </tr>
							    </table>
                              </td>
                            </tr>

	 <%
		
	End Sub
	
	Sub Add()       
	   Dim ID,RS,RealName,Tel,Sex
	   ID=KS.ChkClng(KS.S("ID"))
	   Call KSUser.InnerLocation("我要申诉")
	   
	%>
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
         <td align="left">
		         <script>
				  function checkform()
				  {	
				   if ($('#Title').val()==''){
				    alert('请输入申诉主题!');
					$('#Title').focus();
					return false;
				   }
				   if ($('#Object').val()==''){
				    alert('被申诉用户名不能为空!');
					$('#Object').focus();
					return false;
				   }
				   if ($('#TaskID').val()==''){
				    alert('请输入任务编号!');
					$('#TaskID').focus();
					return false;
				   }
				   if (CKEDITOR.instances.Content.getData()=="")
					{
					  alert("内容不能留空！");
					  CKEDITOR.instances.Content.focus();
					  return false;
					}
				   var msg="您确定要发起申诉吗？";
				   if ($('#IsLock').attr("checked")){
					   msg+="\n\n注：锁定任务，只有官方客服人员可解锁哦！";
					}
				   if (!confirm(msg)){
					return false;
				   }
				   return true;
				  }
				  
				  function CheckClassID(){ return true;}
				  function insertHTMLToEditor(codeStr){ CKEDITOR.instances.Content.insertHtml(codeStr);} 
				 </script>
                <br>
                <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="normaltext">
				 <form name="myform" action="?action=DoSave" method="post" onsubmit="return checkform()">
				  <input type="hidden" name="ID" value="<%=ID%>">
                  <tr>
                      <td width="14%" align="right" class='splittd' height="30"><strong>标题：</strong></td>
                      <td width="86%" rowspan="3" align="left" >
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="50%" height="30"><input type="text" name="Title" id="Title" class="textbox" size="30"></td>
                          <td width="50%" height="30" rowspan="3"><a href='tencent://message/?uin=799981805' title="平台申诉专员QQ"><img border='0' src='http://wpa.qq.com/pa?p=1:799981805:1' align="absmiddle" /></a><br> 
                            你也可以直接联系此QQ进行申诉，如果需要对方<br>协商处理的，请尽量提交申诉单。</td>
                        </tr>
                        <tr>
                        	<td height="30"><input type="text" name="Object" id="Object" class="textbox" size="30" value="<%=KS.S("UserName")%>"></td>
                        </tr>
                        <tr>
                        	<td><input type="text" name="TaskID" id="TaskID" class="textbox" size="30" value="<%=KS.S("TaskID")%>"></td>
                        </tr>
                    </table></td>
				  </tr>
				   <tr>
                      <td align="right" class='splittd' height="25"><strong>被申诉用户：</strong></td>
                  </tr>
				   <tr>
                      <td align="right" class='splittd' height="25"><strong>任务编号：</strong></td>
                  </tr>
				   <tr>
                      <td align="right" class='splittd' height="25"><strong>是否锁定任务：</strong></td>
                    <td><input type="checkbox" name="IsLock" id="IsLock" value="1" title="打勾表示锁定任务" />
                      <font color="red">违规任务或有违规行为可锁定便于客服处理；注：待发货、待审核、待好评申诉请别锁定，以免对方无法操作</font></td>
                  </tr>
				   <tr>
                      <td align="right" class='splittd' height="25"><strong>申诉内容：</strong></td>
                      <td  align="left"  height="25"> 
					  <textarea cols=50 rows=16 name="Content" id="Content" style="display:none"></textarea>
					 <script type="text/javascript" src="../editor/ckeditor.js" mce_src="../editor/ckeditor.js"></script>
					 <script type="text/javascript">
						CKEDITOR.replace('Content', {width:"98%",height:"250px",toolbar:"Basic",filebrowserBrowseUrl :"../editor/ksplus/SelectUpFiles.asp",filebrowserWindowWidth:670,filebrowserWindowHeight:290});
					 </script>
				     </td>
                  </tr>
				  <tr>
                      <td align="right" class='splittd' height="25"><strong>上传凭证图片：</strong></td>
                      <td align="left"  height="40"><table border='0' width='100%' cellspacing='0' cellpadding='0'>
			       <tr><td height='25' width=80><input name='PhotoUrl' type='text' id='PhotoUrl' value="" size='55'  class="textbox"/></td><td valign="middle">&nbsp; <iframe  id='UpPhotoFrame' name='UpPhotoFrame' src='User_UpFile.asp?ChannelID=1' frameborder="0" scrolling="No"  width='160' height='22'></iframe>
                   </td></tr>
			       </table>
				    </td>
                  </tr>
				  <tr>
                      <td align="right" class='splittd' height="25"><strong>期望解决方案：</strong></td>
                      <td align="left"  height="25"> 
					  <textarea name="Hopesolution" style="width:606px;height:80px"></textarea>
				    </td>
                  </tr>
                    
                   
           </table>
                <br><div style="text-align:center">
				
				&nbsp;<input type="Submit" class="button" value=" 确认提交 ">
				
				</div>
          <br>
		 <div style="margin:8px">
        <strong>申诉说明</strong><br /><font color='#777777'>
虚拟任务请在12小时后联系客服处理，实物任务请在24小时后联系客服处理！向客服投诉时，请出具相应的截图，如：平台任务ID淘宝完成截图等！一般情况请直接联系在线投诉专服即时处理纠纷！任务过程中，请友好协商，彼此尊重体谅，切勿轻易使用此通道，对于严重违规行为请立即投诉，我们将按照平台规章制度严惩违规方！请大家为自己的任务负责！</font>
    </div>
		 </td>
       </tr>
	    </form>

     </table>
	 <%'RS.Close:Set RS=Nothing
	End Sub
	
	Sub Addsave()
	    if ks.s("title")="" then
		 response.write "<script>alert('请输入申䜣标题!');history.back();</script>"
		 exit sub
		end if
	    if not ks.isnul(ks.s("taskid")) then
			if Conn.Execute("Select Top 1 ID from KS_U_sxyrw Where KS_TaskID='" & ks.s("taskid")  & "'").eof then
			KS.AlertHistory "你输入的任务编号有误，请先核对后再提交！","-1"
			end if
		end if
		if ks.s("object") = ksuser.username then  KS.AlertHistory "不能申诉自己！","-1"
	    if not ks.isnul(ks.s("object")) then
			if Conn.Execute("Select Top 1 ID from KS_U_sxyrw Where (Inputer='" & ks.s("object")  & "' Or KS_BuyUserName='" & ks.s("object")  & "') And KS_TaskID='" & ks.s("taskid")  & "'").eof then
			KS.AlertHistory "你输入的被申䜣人有误，请先核对后再提交！","-1"
			end if
		end if
	    if ks.isnul(ks.s("content")) then
		 response.write "<script>alert('请输入申䜣内容!');history.back();</script>"
		 exit sub
		end if
		
		 Dim ID:ID=KS.ChkClng(KS.S("ID"))
		 Dim RS:Set RS=Server.CreateObject("adodb.recordset")
		 RS.Open "select * from ks_feedback where username='" & KSUser.UserName & "' and id=" & ID,conn,1,3
		 If RS.EOf Then
		  rs.addnew
		  rs("adddate")=now
		 end if
		 rs("username")=ksuser.username
		 rs("title")=KS.CheckXSS(KS.R(ks.s("title")))
		 rs("object")=KS.CheckXSS(KS.R(ks.s("object")))
		 rs("taskid")=KS.CheckXSS(KS.R(ks.s("taskid")))
		 rs("content")=KS.CheckXSS(KS.ClearBadChr(KS.DelSql(Request("content"))))
		 rs("hopesolution")=KS.CheckXSS(KS.R(ks.s("hopesolution")))
		 rs("UserIP") = KS.GetIP()
		 rs.update
		 rs.close
		 set rs=nothing
		 If KS.ChkClng(KS.S("IsLock")) = 1 Then
			 Conn.Execute("Update KS_U_sxyrw Set KS_LockTF = 1 Where (Inputer='" & ks.s("object")  & "' Or KS_BuyUserName='" & ks.s("object")  & "') And KS_TaskID='" & ks.s("taskid")  & "'")
		 End If
		 response.write "<script>alert('你的申诉已提交成功！\n\n请先联系对方协商处理！过一定时间没结果后再联系官方申诉专人处理。');location.href='User_FeedBack.asp';</script>"
	End Sub
	
	Sub View()
	   Call KSUser.InnerLocation("查看申诉详情")
       Dim ID,RS
	   ID=KS.ChkClng(KS.S("ID"))
	   Set RS=Server.CreateOBject("ADODB.RECORDSET")
	   RS.Open "Select * from ks_feedback where id=" & ID,conn,1,1

	   IF RS.Eof Then
	     RS.CLOSE:Set RS=Nothing
		 Response.Write "<script>alert('出错了!');window.close();</script>"
	   End If
	%>
            <script>
				  function checkform()
				  {
					if (CKEDITOR.instances.AddedContent.getData()=="")
					{
					  alert("请输入补充内容！");
					  CKEDITOR.instances.AddedContent.focus();
					  return false;
					}
				  }
				  jQuery(document).ready(function(){
													  var img=document.getElementById("contenttd").getElementsByTagName("img")
													  for(var i=0;i<img.length;i++){
														if (img[i].width>580){img[i].width=580;}
													  }
												  });
				  function CheckClassID(){ return true;}
				  function insertHTMLToEditor(codeStr){ CKEDITOR.instances.AddedContent.insertHtml(codeStr);} 
			</script>
			<br>
		  <table cellspacing=0 cellpadding=0 width=100% align=center  border=0>
                    <tr>
                      <td class=title height=30 align="center"><strong>查看申诉详情</strong></td>
                    </tr>
          </table>
            <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" id="contenttd">
                  <tr class="tdbg">
                    <td width="17%" height="25" align="right" class='splittd'></strong>标题：</td>
                    <td class='splittd'><%=rs("title")%></td>
                    <td width="25%" height="25" align="left" class='splittd'>发起申诉人：<%=rs("username")%></td>
                    <td width="28%" height="25" class='splittd'>申诉日期：<%=rs("adddate")%></td>
                  </tr>
                  <tr class="tdbg">
                    <td height="25" align="right" class='splittd'>任务编号：</td>
                    <td height="25" class='splittd'><%=rs("TaskID")%></td>
                    <td height="25" align="left" class='splittd'>被申诉用户：<%=rs("object")%></td>
                    <td height="25" class='splittd'>辩解日期：<%=rs("replydate")%></td>
                  </tr>
                  <tr class="tdbg">
                    <td width="17%" height="25" align="right" class='splittd'>申诉内容：</td>
                    <td height="25" colspan="3" class='splittd'><%=rs("content")%></td>
                  </tr>
				  <%if rs("hopesolution")<>"" and not isnull(rs("hopesolution")) then%>
                  <tr class="tdbg">
                    <td width="17%" height="25" align="right" class='splittd'><font color="blue">希望处理方案：</font></td>
                    <td height="25" class='splittd' colspan=3><font color="blue"><%=rs("hopesolution")%></font></td>
                  </tr>
				  <%end if%>
                  <tr class="tdbg">
                    <td height="25" align="right" class='splittd red'>被申诉方辩解内容：</td>
                    <td height="25" class='splittd red' colspan=3><%=rs("ReplyContent")%>&nbsp;</td>
                  </tr>
                  <tr class="tdbg">
                    <td height="25" align="right" class='splittd'><font color="green">官方处理回复：</font></td>
                    <td height="25" class='splittd' colspan=3><%if Not KS.IsNul(rs("AcceptResult")) Then %><font color="green"><%=rs("AcceptResult")%>&nbsp;</font><br>受理人：<%=rs("Accepted")%> &nbsp; &nbsp; &nbsp; 受理时间：<%=rs("AcceptTime")%><% End IF %>&nbsp; </td>
                  </tr>
               </table>		  
		  

           <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
			  <form name="myform" action="?action=DoAdded" method="post" onSubmit="return checkform()">
			  <input type="hidden" value="<%=id%>" name="id"><input type="hidden" value="<%=KS.S("status")%>" name="status"><textarea name="ReplyContent" style="display:none;"><%=rs("ReplyContent")%></textarea><textarea name="Content" style="display:none;"><%=rs("content")%></textarea>
                  <tr class="tdbg">
                    <td width="17%" height="25" align="right" class="splittd">我要<%if ks.s("status")<>"2" then KS.Echo "补充" Else KS.Echo "辩解" %>：</td>
                    <td width="83%" height="25" class="tdbg">
					<textarea cols=50 rows=16 name="AddedContent" id="AddedContent" style="display:none"></textarea>
					 <script type="text/javascript" src="../editor/ckeditor.js" mce_src="../editor/ckeditor.js"></script>
					 <script type="text/javascript">
						CKEDITOR.replace('AddedContent', {width:"90%",height:"100px",toolbar:"Basic",filebrowserBrowseUrl :"../editor/ksplus/SelectUpFiles.asp",filebrowserWindowWidth:650,filebrowserWindowHeight:290});
					 </script>
					</td>
                  </tr>
				  <tr>
                      <td align="right" class='splittd' height="25"><strong>上传凭证图片：</strong></td>
                      <td align="left"  height="40"><table border='0' width='100%' cellspacing='0' cellpadding='0'>
			       <tr><td height='25' width=80><input name='PhotoUrl' type='text' id='PhotoUrl' value="" size='55'  class="textbox"/></td><td valign="middle">&nbsp; <iframe  id='UpPhotoFrame' name='UpPhotoFrame' src='User_UpFile.asp?ChannelID=1' frameborder="0" scrolling="No"  width='160' height='22'></iframe>
                   </td></tr>
			       </table>
				    </td>
                  </tr>
				  <tr class="tdbg">
                    <td width="17%" height="35" colspan=2 style="text-align:center">
					<input type="submit" value="提交<%if ks.s("status")<>"2" then KS.Echo "补充" Else KS.Echo "辩解" %>内容" class="button">
					<input type="button" value=" 返 回 " onClick="history.back()" class="button">
					</td>
                  </tr>
			  </form>
        </table>
                
		 
		 </td>
       </tr>

     </table>
	 <%RS.Close:Set RS=Nothing

	 End Sub
	
	Sub FeedBackDel()
	  Dim ID: ID = KS.ChkClng(KS.S("ID"))
	  IF ID>0 then
		Conn.Execute("Delete from ks_FeedBack where username='" & KSUser.UserName &"' and id=" & ID)
		Response.Write("<script>alert('删除成功！');location.href='" & Request.ServerVariables("HTTP_REFERER") & "';</script>")
	  End IF
	End Sub
	
	Sub DoAdded()
	dim Content,AddedContent,ReplyContent,SqlStr
	Content		 = KS.CheckXSS(KS.ClearBadChr(KS.DelSql(Request("content"))))
	AddedContent = KS.CheckXSS(KS.ClearBadChr(KS.DelSql(Request("AddedContent"))))
	ReplyContent = KS.CheckXSS(KS.ClearBadChr(KS.DelSql(Request("ReplyContent"))))

	IF ks.chkclng(KS.S("ID"))>0 then
		if ks.isnul(AddedContent) then
		 response.write "<script>alert('请输入内容!');history.back();</script>"
		 exit sub
		end if
		
		If KS.S("status")="2" Then
			IF ReplyContent<>"" Then
			ReplyContent = ReplyContent & "<br><font color=""orange"">================== 补充时间：" & now & " ====================</font><br>" & AddedContent
			Else
			ReplyContent = AddedContent
			End IF		
			SqlStr="Update ks_FeedBack Set ReplyContent= '"& ReplyContent &"',ReplyDate=" & SqlNowString & ",ReplyUserIP='" & KS.GetIP() & "' where Object='"& KSUser.UserName &"' And id="& ks.chkclng(KS.S("ID"))
		Else
			IF Content<>"" Then
			Content = Content & "<br><font color=""orange"">================== 补充时间：" & now & " ====================</font><br>" & AddedContent
			Else
			Content = AddedContent
			End IF	
			SqlStr="Update ks_FeedBack Set Content='"& Content &"',UserIP='" & KS.GetIP() & "' where UserName='"& KSUser.UserName &"' And id="& ks.chkclng(KS.S("ID"))
		End If
		Conn.Execute(SqlStr)
		Response.Write("<script>alert('提交成功！');location.href='" & Request.ServerVariables("HTTP_REFERER") & "';</script>")
	End IF
	End Sub
End Class
%> 
