<!--#include file="../conn.asp"-->
<!--#include file="../inc/class_upload.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>修改 - 个人中心</title>
<link href="Images/U1/style.css" rel="stylesheet" type="text/css" />
<script language="javascript" src="../JS/MyErr.js"></script>
</head>
<body>
<div class="shortbox">
<%
Dim act,ID,Role,rst

Dim AskD
Set AskD = Server.CreateObject("KwAsk.FunAsk")
	opendb
    AskD.CheckComeUrl
	set AskD.myConn =conn
	AskD.myPredb =predb
	AskD.Getsetting()
	AskD.GetUserRole()
	siteinfo=AskD.siteinfo
	setting=AskD.setting
    UserRole=AskD.UserRole
	regForm=AskD.regForm

act=Trim(Request.QueryString("act"))
id=Trim(Request.QueryString("id"))

set rst=conn.execute("Select * from "&predb&"User where Userid='"&replace(Request.Cookies("Musername"),"'","''")&"' And Userpass='"&replace(Request.Cookies("MuserPass"),"'","''")&"'")
if rst.bof and rst.eof then
		Response.Write("<div class=""u-s""><p>您没有访问权限，谢谢！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
		closedb
		Response.End()
end if
set rst=nothing

IF act<>"4" and act<>"sendmessage" Then
	IF id<>Request.Cookies("Muser") Then
		Response.Write("<div class=""u-s""><p>您没有修改权限，谢谢！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
		closedb
		Response.End()
	End IF
End IF

IF isnumeric(Request.Cookies("Grade")) Then Role=UserRole(Request.Cookies("Grade"))

Select case act
    Case "1"
	   Call UC1()
    Case "2"
	   Call UC2()
    Case "3"
	   Call UC3()
    Case "4","44"
	   Call UC4()
    Case "5"
	   Call UC5()
    Case "modiupfileF"
	   Call Modi()
	Case "modiinfo"
	   Call modiinfo()
	Case "selectskin"
	   Call selectskin()
	Case "modipass"
	   Call modipass()
	Case "del"
	   Call del()
	Case "sendmessage"
	   Call sendmessage()
	Case "showmessage"
	   Call showmessage()
	Case "delmessage"
	   Call delmessage()
	Case "zhuancn"
	   Call zhuancn()
	case "zhuancn2"
	   Call zhuancn2()
	Case "zhuansh"
	   Call zhuansh()
	case "zhuansc"
	   Call zhuansc()
	case "zhuanscans"
	   Call zhuanscans()
	case "zhuanpl"
	   Call zhuanpl()
	case "zhuanscpl"
	   Call zhuanscpl()
End Select
set AskD.myConn =Nothing
closedb
Set AskD = Nothing

sub zhuancn2()
   dim askid,ansid,ansuser,xShang,rs
   askid=Trim(Request.QueryString("askid"))
   ansid=Trim(Request.QueryString("ansid"))
   ansuser=Trim(Request.QueryString("ansuser"))
   set rs=conn.execute("select xShang from "&predb&"ask where askid="&askid)
       xShang=rs("xshang")
   set rs=nothing
   conn.execute("update "&predb&"ans set iscn=1,star=3 where ansid="&ansid)
   conn.execute("update "&predb&"ask set state=7,bcnUser="&ansUser&",bcnAns="&ansid&" where askid="&askid)
   conn.execute("update "&predb&"user set Bcn=Bcn+1 where id="&ansUser)
   Call AskD.Score(ansUser,setting(15)+xShang,"回答被专家采纳")
   Call AskD.Score(id,setting(47),"专家采纳回答")
   Call Workload(id,2,"专家采纳回答")

		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>您已经成功采纳该提问！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
        Response.Write("<script>setTimeout('window.parent.location.reload()',600)</script>")
		
end sub

sub zhuansh()
    IF Instr(Role,",16,")=0 Then
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>您当前的等级不允许审核提问！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
	Else
	Dim askid,rs,sql
	askid=Trim(Request.QueryString("askid"))
	set rs = Server.CreateObject("adodb.recordset")
	sql="select ispass from "&predb&"ask where askid="&askid
	rs.open sql,conn,1,3
	   if rs("ispass")=0 then
	      rs("ispass")=1
		  Call AskD.Score(id,setting(51),"专家审核提问")
		  Call Workload(id,2,"专家审核提问")
	   else
	      rs("ispass")=0
	   end if
	rs.update
	rs.close
	set rs=nothing
	
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>审核提问成功！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
        Response.Write("<script>setTimeout('window.parent.location.reload()',600)</script>")
    End IF
end sub

sub zhuancn()
dim askid,rs,i,states
askid=Trim(Request.QueryString("askid"))
set rs=conn.execute("select * from "&predb&"ask where askid="&askid)
states=rs("state")
%>
<div><strong>标题：</strong><u><%= rs("title") %></u></div>
<div><strong>内容：</strong><%= rs("content") %></div>
<div><input name="d1" type="button" value=" 删 除 " onclick="<%if states=0 or states=2 or states=3 then%>location.href='?act=zhuansc&id=<%= id %>&askid=<%= askid %>'<% Else %>alert('已采纳问题不可删除')<% End If %>"/> 
<% If rs("comNum")>0 Then %>
&nbsp;
  <input name="d3" type="button" value="删除评论 <%= rs("comNum") %>" onclick="location.href='?act=zhuanpl&id=<%= id %>&sid=<%= askid %>&type=1'"/>
<% End If %>
</div>
<div>&nbsp;</div>
<%
set rs=nothing

set rs=conn.execute("select * from "&predb&"ans where askid="&askid&" order by ansid desc")
do while not rs.eof
i=i+1
%>
<div>回答<b><font color="#FF0000"><%= i %></font></b><br/><%= rs("ansContent") %></div>
<div>

<input name="d1" type="button" value=" 采 纳 " onclick="<%if states=0 or states=2 or states=3 then%>location.href='?act=zhuancn2&id=<%= id %>&askid=<%= askid %>&ansid=<%= rs("ansid") %>&ansuser=<%=rs("ansuser")%>'<% Else %>alert('已经采纳结束')<% End If %>"/> 
&nbsp;
<input name="d2" type="button" value=" 删 除 " onclick="<%if rs("iscn")=0 then%>location.href='?act=zhuanscans&id=<%= id %>&ansid=<%= rs("ansid") %>'<% Else %>alert('被采纳回答不可删除')<% End If %>"/> 

<% If rs("comNum")>0 Then %>
&nbsp;
  <input name="d3" type="button" value="删除评论 <%= rs("comNum") %>" onclick="location.href='?act=zhuanpl&id=<%= id %>&sid=<%= rs("ansid") %>&type=2'"/>
<% End If %>
  </div>
<div class="zhuncn"></div>
<%
rs.movenext
loop
set rs=nothing
end sub

sub zhuanpl()
dim sid,rs,i,types
sid=Trim(Request.QueryString("sid"))
types=Trim(Request.QueryString("type"))
set rs=conn.execute("select * from "&predb&"comments where toid="&sid&" and type="&types&" order by id desc")
do while not rs.eof
i=i+1
%>
<div>评论<b><font color="#FF0000"><%= i %></font></b><br/><%= rs("comments") %></div>
<div><input name="d2" type="button" value=" 删 除 " onclick="location.href='?act=zhuanscpl&id=<%= id %>&cid=<%= rs("id") %>&sid=<%= sid %>&type=<%= types %>'"/></div>
<div class="zhuncn"></div>
<%
rs.movenext
loop
set rs=nothing
end sub

sub zhuanscpl()
dim cid,sid,types,dl
cid=Trim(Request.QueryString("cid"))
sid=Trim(Request.QueryString("sid"))
types=Trim(Request.QueryString("type"))
dl=Trim(Request.QueryString("dl"))

IF Instr(Role,",15,")=0 Then
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>您的当前专家等级没有删除评论的权限！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 返 回 "" onClick=""location.href='?act=zhuanpl&id="&id&"&sid="&sid&"&type="&types&"'""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
	Response.Write("</div>")
	Exit Sub
End IF

%>
<font color="#FF0000">警告：</font>请确认删除此评论！<br />
<input name="d3" type="button" value=" 确认删除" onclick="location.href='?act=zhuanscpl&id=<%= id %>&cid=<%= cid %>&sid=<%= sid %>&type=<%= types %>&dl=yes'"/></div>
<%

IF dl="yes" then

	if types="1" then
	   conn.execute("update "&predb&"ask set comNum=comNum-1 where askid="&sid)
	else
	   conn.execute("update "&predb&"ans set comNum=comNum-1 where ansid="&sid)
	end if

	conn.execute("delete from "&predb&"comments where id="&cid)
	Call Workload(id,2,"专家删除评论")
	Call AskD.Score(id,setting(50),"专家删除评论")
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>删除评论成功！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 返 回 "" onClick=""location.href='?act=zhuanpl&id="&id&"&sid="&sid&"&type="&types&"'""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
	Response.Write("</div>")
end if
end sub

sub zhuansc()

IF Instr(Role,",13,")=0 Then
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>您的当前专家等级没有删除提问的权限！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 返 回 "" onClick=""history.go(-1)""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
	Response.Write("</div>")
	Exit Sub
End IF

dim askid,dl,rs,sql
askid=Trim(Request.QueryString("askid"))
dl=Trim(Request.QueryString("dl"))
%>
<font color="#FF0000">警告：</font>将删除提问、所有回答、所有的评论和上传文件！<br />
<input name="d3" type="button" value=" 确认删除" onclick="location.href='?act=zhuansc&id=<%= id %>&askid=<%= askid %>&dl=yes'"/></div>
<%
 
  Dim upfile,askuser
  IF askid<>"" and dl="yes" Then
	  set rs= Server.CreateObject("adodb.recordset")
	  sql="select * from "&predb&"ask where askid="&askid
	  rs.open sql,conn,1,1
	  IF rs.bof and rs.eof Then
			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>问题已经被删除！</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
			rs.close
			set rs=nothing
	     Exit Sub
	  End if
		  upfile=rs("upfile")
		  askuser=rs("askuser")
	  rs.close
	  set rs=nothing
	  
			  Dim Fso
			  Set FSO = server.CreateObject("Scripting.FileSystemObject")
				IF FSO.FileExists(Server.mappath("../UploadFile/"&upfile)) Then
				   FSO.DeleteFile server.MapPath("../UploadFile/"&upfile),True
				End IF
			  Set FSO = Nothing
			  
		  conn.execute("delete from "&predb&"Comments where ToID="&askid&" and type=1")
		  conn.execute("update "&predb&"user set asknum=asknum-1 where id="&askuser)
		  
		  set rs=conn.execute("select ansid from "&predb&"ans where askid="&askid)
		  do while not rs.eof
			 Call delans(rs("ansid"))
		  rs.movenext
		  loop
		  set rs=nothing
		  
		  conn.execute("delete from "&predb&"ask where askid="&askid)
		  Call Workload(id,2,"专家删除提问")
		  Call AskD.Score(id,setting(48),"专家删除提问")
			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>删除提问成功</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
			Response.Write("<script>setTimeout('window.parent.location.reload()',600)</script>")
  End IF
end sub

sub zhuanscans()
IF Instr(Role,",14,")=0 Then
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>您的当前专家等级没有删除回答的权限！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 返 回 "" onClick=""history.go(-1)""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
	Response.Write("</div>")
	Exit Sub
End IF

dim ansid,dl,rs
ansid=Trim(Request.QueryString("ansid"))
dl=Trim(Request.QueryString("dl"))
%>
<font color="#FF0000">警告：</font>将删除回答、所有的评论和上传文件！<br />
<input name="d3" type="button" value=" 确认删除" onclick="location.href='?act=zhuanscans&id=<%= id %>&ansid=<%= ansid %>&dl=yes'"/></div>
<%
IF dl="yes" then
	 set rs=conn.execute("select ansid from "&predb&"ans where ansid="&ansid)
        IF not(rs.bof and rs.eof) Then
		   Call delans(rs("ansid"))
		   Call Workload(id,2,"专家删除回答")
		   Call AskD.Score(id,setting(49),"专家删除回答")
		Else
			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>回答已经被删除！</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
		End IF
	 set rs=nothing
End IF
end sub

sub delmessage()
    dim mids,rs,sql
	mids=Trim(Request.QueryString("mid"))
	set rs = Server.CreateObject("adodb.recordset")
	sql="select * from "&predb&"message where id="&mids
    rs.open sql,conn,1,3
	IF rs("touser")=Request.Cookies("Muser") Then
	   conn.execute("delete from  "&predb&"message where id="&mids)
	Else
	   rs("delU")=rs("delU")&Request.Cookies("Muser")&","
	   rs.update
	End IF
	rs.close
	set rs=nothing
	
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>删除站内信成功！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 返 回 "" onClick=""location.href='?act=3&id="&id&"';""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
end sub

Sub sendmessage()
   Dim title,touser,content,adduser,rs
   title=Trim(Request.Form("title"))
   touser=Trim(Request.Form("touser"))
   content=Trim(Request.Form("content"))
   adduser=Trim(Request.Form("adduser"))
   
   set rs=conn.execute("select id from "&predb&"user where userid='"&touser&"'")
   if rs.eof and rs.bof then
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>您所要发送的用户不存在！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 返 回 "" onClick=""history.go(-1);""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
		Exit Sub
   else
       touser=rs("id")
		IF id=cstr(touser) Then
			Response.Write("<div class=""u-s""><p>您给自己发信息干嘛呢！^_^</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 返 回 "" onClick=""history.go(-1);""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
            Exit Sub
		End IF
   end if
   set rs=nothing
   
	 IF title="" or content="" Then
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>请填写标题和内容！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
		Exit Sub
     End IF

   Conn.execute("insert into "&predb&"Message(Title,Mcont,AddUser,AddTime,ToUser,State) values('"&title&"','"&content&"',"&adduser&",'"&now()&"','"&touser&"','0')")
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>短信发送成功！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
End Sub

Sub DEl()
 Dim nc,askid,rs,sql
 nc=Trim(Request.QueryString("nc"))
 askid=Trim(Request.QueryString("askid"))
 
 Select Case nc
 Case "0"
	 IF Instr(Role,",4,")=0 Then
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>您的当前等级没有删除提问的权限！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
		Exit Sub
     End IF
	 
  Dim upfile,askuser
  IF askid<>"" Then
	  set rs= Server.CreateObject("adodb.recordset")
	  sql="select * from "&predb&"ask where askid="&askid
	  rs.open sql,conn,1,1
	  IF rs.bof and rs.eof Then
			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>问题已经被删除！</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
			rs.close
			set rs=nothing
	     Exit Sub
	  End if
		  upfile=rs("upfile")
		  askuser=rs("askuser")
	  rs.close
	  set rs=nothing
	  
			  Dim Fso
			  Set FSO = server.CreateObject("Scripting.FileSystemObject")
				IF FSO.FileExists(Server.mappath("../UploadFile/"&upfile)) Then
				   FSO.DeleteFile server.MapPath("../UploadFile/"&upfile),True
				End IF
			  Set FSO = Nothing
			  
		  conn.execute("delete from "&predb&"Comments where ToID="&askid&" and type=1")
		  conn.execute("update "&predb&"user set asknum=asknum-1 where id="&askuser)
		  
		  set rs=conn.execute("select ansid from "&predb&"ans where askid="&askid)
		  do while not rs.eof
			 Call delans(rs("ansid"))
		  rs.movenext
		  loop
		  set rs=nothing
		  
		  conn.execute("delete from "&predb&"ask where askid="&askid)
			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>删除提问成功</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
  End IF
 Case "1"
	 IF Instr(Role,",5,")=0 Then
		Response.Write("<div class=""u-s"">")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p>您的当前等级没有删除回答的权限！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
		Response.Write("</div>")
		Exit Sub
     End IF
	 set rs=conn.execute("select ansid from "&predb&"ans where askid="&askid&" and AnsUser="&Request.Cookies("Muser"))
        IF not(rs.bof and rs.eof) Then
		   Call delans(rs("ansid"))
		Else
			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>回答已经被删除！</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
		End IF
	 set rs=nothing
 Case "2"
 			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>投票提问不允许删除！</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
 Case "3"
           Dim mynote
           set rs = Server.CreateObject("adodb.recordset")
		   sql="select mynote from "&predb&"user where id="&Request.Cookies("Muser")
		   rs.open sql,conn,1,3
			   mynote=replace(rs("mynote")&",",","&askid&",",",")
			   mynote=left(mynote,len(mynote)-1)
			   rs("mynote")=mynote
		   rs.update
		   rs.close
		   set rs=nothing
			Response.Write("<div class=""u-s"">")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p>删除关注的问题成功！</p>")
			Response.Write("<p> &nbsp;</p>")
			Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
			Response.Write("</div>")
 End Select
End Sub

sub delans(ansid)
  ansid=clng(ansid)
  dim rs,sql,askid,ansuser,San,upfile,iscn,bcn
  set rs= Server.CreateObject("adodb.recordset")
  sql="select * from "&predb&"ans where ansid="&ansid
  rs.open sql,conn,1,1
  askid=rs("askid")
  ansuser=rs("ansuser")
  upfile=rs("upfile")
  iscn=rs("iscn")
  rs.close
  set rs=nothing
  
      Dim Fso
      Set FSO = server.CreateObject("Scripting.FileSystemObject")
	    IF FSO.FileExists(Server.mappath("../UploadFile/"&upfile)) Then
           FSO.DeleteFile server.MapPath("../UploadFile/"&upfile),True
	    End IF
      Set FSO = Nothing
	  
  set rs= Server.CreateObject("adodb.recordset")
  sql="select * from "&predb&"ask where askid="&askid
  rs.open sql,conn,1,3
  rs("ansnum")=rs("ansnum")-1
  san=replace(rs("ansuser")&",",","&ansuser&",",",")
  san=left(san,len(san)-1)
  rs("ansuser")=san
  if iscn=1 then
     rs("state")=0
  end if
  rs.update
  rs.close
  set rs=nothing
  
  if iscn=1 then
     bcn=",bcn=bcn-1"
  end if
  conn.execute("update "&predb&"user set ansnum=ansnum-1"&bcn&" where id="&ansuser)
  conn.execute("delete from "&predb&"ans where ansid="&ansid)
  conn.execute("delete from "&predb&"Comments where ToID="&ansid&" and type=2")
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>回答删除成功！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
	Response.Write("</div>")
end sub

Sub selectskin()
IF Instr(Role,",9,")=0 Then
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>您的当前等级没有修改页面的权限！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
	Response.Write("</div>")
	Exit Sub
End IF

    Dim skinpath
	skinpath=Trim(Request.QueryString("skinpath"))
	Conn.execute("update "&predb&"user set skinpath='"&skinpath&"' where id="&id)
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>选择个人页面模板成功！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><script>setTimeout(""top.location.href='userinfo.asp?id="&id&"'"",800)</script></p>")
    Response.Write("<p><input name=""submit"" type=""button"" id=""submit"" value="" 返 回 "" onclick=""history.go(-1)""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
    Response.Write("</div>")
End Sub

sub modipass()
    dim oldpass,Userpass,Userpass2,rs,sql
	oldpass=Trim(Request.Form("oldpass"))
	Userpass=Trim(Request.Form("Userpass"))
	Userpass2=Trim(Request.Form("Userpass2"))
	IF Userpass<>Userpass2 Then
		Response.Write("<div class=""u-s""><p>两次密码不相同！</p>")
		Response.Write("<p> &nbsp;</p>")
		Response.Write("<p><input name=""submit"" type=""button"" id=""submit"" value="" 返 回 "" onclick=""history.go(-1)""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
		closedb
		Response.End()
    End IF
	set rs = Server.CreateObject("adodb.recordset")
	sql="select Userpass from "&predb&"user  where id="&id
    rs.open sql,conn,1,3
	IF MD5(oldpass,16)=rs("Userpass") Then
	   rs("Userpass")=MD5(Userpass,16)
	   rs.update
	   Response.Write("<div class=""u-s""><p>修改用户密码成功！</p>")
	else
	   Response.Write("<div class=""u-s""><p>旧密码不正确！</p>")
	end if
	rs.close
	set rs=nothing
	Response.Write("<p> &nbsp;</p>")
    Response.Write("<p><input name=""submit"" type=""button"" id=""submit"" value="" 返 回 "" onclick=""history.go(-1)""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
    
end sub

sub modiinfo()
    dim info
	info=Trim(Request.Form("info"))
	conn.execute("update "&predb&"user set info='"&info&"' where id="&id)
    Response.Write("<div class=""u-s""><p>修改个人简介成功！</p>")
	Response.Write("<p> &nbsp;</p>")
    Response.Write("<p><input name=""submit"" type=""button"" id=""submit"" value="" 返 回 "" onclick=""history.go(-1)""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
end sub

Sub Modi()
  dim rs,sql,Nicheng,sex,Usermail,regQuestion,regAns,Truename,QQ,Msn,TEL,Signed,isopen,face,oldmail
  Dim UpFile,sSavePath,UstrFtyp
	sSavePath ="../UploadFile/Face/"
	set UpFile = New UpLoadClass
	UpFile.AutoSave = 2
	UpFile.MaxSize =  Int(200 * 1024) '# (1024*1024=1M) SESSION里的单位为KB
	UpFile.FileType = "gif/jpg/png/bmp/jpeg"
	UpFile.SavePath = sSavePath
	UpFile.Open()
	If UpFile.Save("upfile",0) Then
	    UstrFtyp=Ucase(UpFile.strFtyp)
		IF UstrFtyp="TEXT/PLAIN" Then
		Response.Write "<div style=""padding:6px"">注意：请上传正确文件！</div>"
		Response.End()
		End IF
		'Response.Write "上传成功"
	Else
		Select Case UpFile.Form("upfile_Err")
		Case -1 : Response.Write ""  '允许不上传文件
		Case 1 : Response.Write "文件大小超出限制，请返回重新上传":Response.End()
		Case 2 : Response.Write "不允许上传的文件类型，请返回重新上传":Response.End()
		Case 3 : Response.Write "文件大小超出限制并且是不允许上传的文件类型，请返回重新上传":Response.End()
		Case Else : Response.Write "未知错误，请返回重新上传":Response.End()
		End Select
	End If
	
  Nicheng=UpFile.Form("Nicheng")
  sex=UpFile.Form("sex")
  Usermail=UpFile.Form("Usermail")
  regQuestion=UpFile.Form("regQuestion")
  regAns=UpFile.Form("regAns")
  Truename=UpFile.Form("Truename")
  QQ=UpFile.Form("QQ")
  Msn=UpFile.Form("Msn")
  TEL=UpFile.Form("TEL")
  Signed=UpFile.Form("Signed")
  isopen=UpFile.Form("isopen")
  face=UpFile.Form("upfile")
  
  set rs= Server.CreateObject("adodb.recordset")
  sql="select * from "&predb&"user where id="&id
  rs.open sql,conn,1,3
  oldmail=rs("Usermail")

  rs("Nicheng")=Nicheng
  rs("sex")=sex
  rs("Usermail")=Usermail
  rs("regQuestion")=regQuestion
  IF regAns<>"" Then
  rs("regAns")=md5(regans,16)
  End IF
  rs("Truename")=Truename
  rs("QQ")=QQ
  rs("Msn")=Msn
  rs("TEL")=TEL
  rs("Signed")=Signed
  rs("isopen")=isopen
  
  IF oldmail<>Usermail Then rs("isActivated")=0

  if face<>"" then
      Dim Fso
      Set FSO = server.CreateObject("Scripting.FileSystemObject")
	    IF FSO.FileExists(Server.mappath("../UploadFile/"&rs("face"))) Then
           FSO.DeleteFile server.MapPath("../UploadFile/"&rs("face")),True
	    End IF
      Set FSO = Nothing
  rs("face")="Face/"&face
  end if

  rs.update
  rs.close
  set rs=nothing
Set UpFile = Nothing
    Response.Write("<div class=""u-s""><p>修改基本信息成功！</p>")
	Response.Write("<p> &nbsp;</p>")
    Response.Write("<p><input name=""submit"" type=""button"" id=""submit"" value="" 返 回 "" onclick=""history.go(-1)""/>&nbsp;&nbsp;&nbsp;<input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
end sub

Sub UC1()
%>
<script language="javascript" src="../Inc/AjaxAans.js"></script>
<script language="javascript">
function showuc(n)
{
	for (i=0;i<2;i++)
	{
	document.getElementById('uct'+i).className='uct-2';
	document.getElementById('ucd'+i).style.display='none';
	}
	document.getElementById('uct'+n).className='uct-1';
	document.getElementById('ucd'+n).style.display='block';
}

function showucu(n)
{
	for (i=0;i<2;i++)
	{
	document.getElementById('ucu'+i).style.display='block';
	}
	document.getElementById('ucu'+n).style.display='none';
	document.getElementById('upfile').value='';
}

function chkfrm()
{
   if(document.getElementById('Nicheng').value=='')
   {
	var a = new xWin("1",240,100,"<%= siteInfo(4) %>","请输入用户昵称！");
	return false;
   }
   if(document.getElementById('Usermail').value=='')
   {
	var a = new xWin("1",240,100,"<%= siteInfo(4) %>","请输入邮箱地址！");
	return false;
   }
	var pattern = /^[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+)*@[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+){1,4}$/;
    fmail=pattern.test(document.getElementById('Usermail').value);
   if (fmail==false)
   {
    var a = new xWin("1",240,100,"<%= siteInfo(4) %>","邮箱格式不对！");
	return false;
   }  
}

function ChkPut(put,num)
{
	if(put.value.length >num)
	{
		put.value = put.value.substring(0,num);
	}
}
</script>
<div class="uctop">
    <div id="uct0" class="uct-1" onclick="showuc(0)">基本资料</div>
    <div id="uct1" class="uct-2" onclick="showuc(1)">个人简介</div>
</div>
<%
dim rs,Nicheng,sex,Usermail,regQuestion,regAns,Truename,QQ,Msn,TEL,Signed,isopen,face,info
set rs=conn.execute("select * from "&predb&"user where id="&id)
    Nicheng=rs("Nicheng")
	sex=rs("sex")
	Usermail=rs("Usermail")
	regQuestion=rs("regQuestion")
	regAns=rs("regAns")
	Truename=rs("Truename")
	QQ=rs("QQ")
	Msn=rs("Msn")
	TEL=rs("TEL")
	Signed=rs("Signed")
	isopen=rs("isopen")
	face=rs("face")
	info=rs("info")&""
	if face&""="" then face="face/info.gif"
set rs=nothing
%>
 <div id="ucd1" style="display:none">
    <form action="?act=modiinfo&id=<%= id %>" method="post">
    <div id="input0"><textarea name="info" cols="42" rows="20" id="info" onFocus="getAjaxU('U',this.value)"><%= server.HTMLEncode(info) %></textarea></div>
    <div class="uc-line"></div>
    <div class="u-s"><input name="submit" type="submit" id="submit" value=" 保 存 " />
      &nbsp;&nbsp;&nbsp;    
    <input name="reset" type="reset" id="reset" value=" 取 消 " onClick="new parent.dialog().reset();"/>
    </div>
    </form>
 </div>
<div id="ucd0">
 <form action="?act=modiupfileF&id=<%= id %>" method="post" enctype="multipart/form-data" onsubmit="return chkfrm()">
    <div class="uc-d">
    <div class="uc-l">昵称：</div>
    <div class="uc-r">
      <input name="Nicheng" type="text" id="Nicheng" size="28" value="<%= Nicheng %>"/>
      <span class="xing">*</span>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">性别：</div>
    <div class="uc-r">
      <input type="radio" name="sex" value="男" <% If sex="男" Then %>checked="checked"<% End If %>/>
      男
      &nbsp; 
      <input type="radio" name="sex" value="女" <% If sex="女" Then %>checked="checked"<% End If %>/>
女    </div>
  </div>
    <div class="uc-d">
    <div class="uc-l">头像：</div>
    <div class="uc-r">
      <div class="uc-p"><img src="../UploadFile/<%= face %>" width="96" height="100"/></div>
      <div class="uc-u" id="ucu0"><a href="javascript:showucu(0)">点击更改头像</a></div>
      <div class="uc-up" id="ucu1" style="display:none">
	  <% IF Instr(Role,",11,")=0 Then %>
	  <input name="upfile" type="file" id="upfile" size="9" disabled="disabled"/><br />
	  您的当前等级没有上传头像的权限！<br />
	  <% Else %>
      请选择头像：<br />
      <input name="upfile" type="file" id="upfile" size="9" /><br />
      上传头像不得超过200K，格式：JPG、GIF<br />
	  <% End If %>
      <input name="reset" type="reset" id="reset" value=" 取 消 " onclick="javascript:showucu(1)" style="height:20px"/>
      </div>
    </div>
    </div>
    <div class="uc-line"></div>
  <div class="uc-d">
    <div class="uc-l">电子邮件：</div>
    <div class="uc-r"><input name="Usermail" type="text" id="Usermail" size="22" value="<%= Usermail %>"/>
    <span class="xing">*</span></div>
    </div>
    <div class="uc-d">
    <div class="uc-l">密码问题：</div>
    <div class="uc-r"><input name="regQuestion" type="text" id="regQuestion" size="22" value="<%= regQuestion %>"/>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">密码答案：</div>
    <div class="uc-r"><input name="regAns" type="text" id="regAns" size="22" value=""/>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">真实姓名：</div>
    <div class="uc-r"><input name="Truename" type="text" id="Truename" size="22" value="<%= Truename %>"/>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">QQ：</div>
    <div class="uc-r"><input name="QQ" type="text" id="QQ" size="22" value="<%= QQ %>"/>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">MSN：</div>
    <div class="uc-r"><input name="Msn" type="text" id="Msn" size="22" value="<%= Msn %>"/>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">电话：</div>
    <div class="uc-r"><input name="TEL" type="text" id="TEL" size="22" value="<%= TEL %>"/>
    </div>
    <div class="uc-d">
    <div class="uc-l">签名：</div>
    <div class="uc-r">
      <textarea name="Signed" cols="28" rows="2" id="Signed" onKeyDown="ChkPut(this,100)" onKeyUp="ChkPut(this,100)" <% If instr(role,",10,")=0 Then %>disabled="disabled"<% End If %>><% If instr(role,",10,")=0 Then %>您的当前等级不允许修改签名<% Else %><%= Signed %><% End If %></textarea>100字
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">资料公开：</div>
    <div class="uc-r">
      <input type="radio" name="isopen" id="radio" value="0" <% If isopen=0 Then %>checked="checked"<% End If %>/>
      公开
      &nbsp; 
      <input type="radio" name="isopen" id="radio2" value="1" <% If isopen=1 Then %>checked="checked"<% End If %>/>
      不公开    
    </div>
    </div>
    
    <div class="uc-line"></div>
    <div class="u-s">
    <input name="submit" type="submit" id="submit" value=" 保 存 " />
      &nbsp;&nbsp;&nbsp;    
    <input name="reset" type="reset" id="reset" value=" 取 消 " onClick="new parent.dialog().reset();"/>
  </div>
 </form>
 </div>
<%
End Sub

Sub UC2()
Dim Objxml,nodeLis,i,node
Set Objxml = CreateObject("Microsoft.XMLDOM") 
	Objxml.async = false 
	Objxml.load(Server.MapPath("Images/skin.xml")) 
    Set nodeLis = Objxml.documentElement.childNodes
	For i=1 to nodeLis.length 
	    set node = nodeLis.nextNode() 
%>
<div class="u-prev">
   <div class="prev1" onmouseover="this.className='prev2'" onmouseout="this.className='prev1'"><a href="?act=selectskin&skinpath=<%= node.selectSingleNode("SkinPath").text %>&id=<%= id %>"><img border="0" src="images/<%= node.selectSingleNode("SkinPath").text %>/Preview.jpg" width="120" height="135"/></a></div>
   <div><img src="images/<%= node.selectSingleNode("SkinPath").text %>/prev.gif" align="absmiddle"/><%= node.selectSingleNode("SkinName").text %></div>
</div>
<%
		Set node = Nothing 
	Next
	Set nodeLis = Nothing
Set Objxml = Nothing
End Sub

Sub UC3()
%>
<div class="uctop">
    <div id="uct0" class="uct-1">我的收件箱</div>
</div>
<%
    Dim rs,rs1,sql
    set rs= Server.CreateObject("adodb.recordset")
	sql="select top 20 * from "&predb&"message where (touser='"&id&"' or touser='0' or ','+touser like '%,"&id&",%') and id not in(select id from "&predb&"message where ','+delu like '%,"&id&",%') order by id desc"
    rs.open sql,conn,1,1
	if rs.bof and rs.eof then
	   Response.Write("<div class=""uc-d0"">您暂无邮件</div>")
	else
do while not rs.eof
%>
<div class="uc-d0">
  <div class="ms1"><% If rs("touser")="0" Then %><img src="Images/U1/share.gif" alt="公共信息"/><% End If %>
  </div>
  <div class="ms2"><a href="?act=showmessage&mid=<%= rs("id") %>&id=<%= id %>">
  <% If rs("state")="1" or instr(","&rs("state"),","&id&",")>0 Then %>
  <font color="#999999"><%= AskD.Leftstr(rs("title"),34) %></font>
  <% Else %>
  <%= AskD.Leftstr(rs("title"),34) %>
  <% End If %>
  </a></div>
  <div class="ms3"><%= formatdatetime(rs("addtime"),vbshortdate) %></div>
  <%
  If rs("isadmin")=0 Then
    set rs1=conn.execute("select userid from "&predb&"user where id="&rs("adduser"))
  %>
    <div class="ms4"><a target="_blank" href="userinfo.asp?id=<%= rs("adduser") %>"><%= rs1(0) %></a></div>
  <%  
    set rs1=nothing
  Else
    set rs1=conn.execute("select adminname from "&predb&"admin where id="&rs("adduser"))
  %>
    <div class="ms4"><%= rs1(0) %> <sup title="管理员">*</sup></div>
  <%
    set rs1=nothing
  End If
  %>
  <div class="ms5"><a href="?act=delmessage&mid=<%= rs("id") %>&id=<%= id %>" onclick="return confirm('确认删除？')">删除</a></div>
</div>
<%
rs.movenext
loop
    end if
    rs.close
	set rs=nothing
	
set rs=conn.execute("select count(id) from "&predb&"message where (touser='"&id&"' or touser='0' or ','+touser like '%,"&id&",%') and id not in(select id from "&predb&"message where ','+delu like '%,"&id&",%')")
if rs(0)>20 then
%>
<div class="uctop">
    <div><font color="#FF0000">*</font> 请删除前面的信息以查看其它信息！</div>
</div>
<%
end if
set rs=nothing

End Sub

Sub showmessage()
dim mids,rs,sql,rs1
mids=Trim(Request.QueryString("mid"))
set rs= Server.CreateObject("adodb.recordset")
sql="select * from "&predb&"message where id="&mids
rs.open sql,conn,1,3
%>
<div class="uctop">
    <div id="uct0" class="uct-1">查看站内信</div>
</div>
<div class="uc-d">
  <div class="uc-l">信息标题：</div>
  <div class="uc-r"><%= rs("title") %></div>
</div>
<div class="uc-line"></div>
<div class="uc-d">
  <div class="uc-l">信息内容：</div>
  <div class="uc-r"><%= rs("mcont") %></div>
</div>
<div class="uc-line"></div>
<div class="u-s">
    <input name="submit" type="submit" id="submit"  onclick="location.href='?act=3&id=<%= id %>'" value=" 返 回 " />
      &nbsp;&nbsp;&nbsp;    
    <input name="reset" type="reset" id="reset" value=" 关 闭 " onClick="new parent.dialog().reset();"/>
   <%
   If rs("touser")=id Then
   set rs1=conn.execute("select userid from "&predb&"user where id="&rs("adduser"))
   if not (rs1.bof and rs1.eof) then
   %>
	  &nbsp;&nbsp;&nbsp;    
    <input name="reset" type="button" onclick="location.href='?act=44&id=<%= id %>&to=<%= rs1(0) %>';" value=" 回 复 "/>
   <%
   end if
   set rs1=nothing
   End If
   %>
</div>
<%
IF instr(","&rs("state"),","&Request.Cookies("Muser")&",")=0 Then
	IF rs("touser")=Request.Cookies("Muser") Then
	   rs("state")="1"
	Else
	   IF rs("state")="0" Then rs("state")=Request.Cookies("Muser")&"," Else rs("state")=rs("state")&Request.Cookies("Muser")&","
	End IF
	   rs.update
End IF
rs.close
set rs=nothing
End Sub

Sub UC4()
IF Instr(Role,",6,")=0 Then
	Response.Write("<div class=""u-s"">")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p>您的当前等级没有发送短信的权限！</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p>")
	Response.Write("</div>")
	Exit Sub
End IF

IF act<>"44" Then
IF id=Request.Cookies("Muser") Then
	Response.Write("<div class=""u-s""><p>您给自己发信息干嘛呢！^_^</p>")
	Response.Write("<p> &nbsp;</p>")
	Response.Write("<p><input name=""reset"" type=""reset"" id=""reset"" value="" 关 闭 "" onClick=""new parent.dialog().reset();""/></p></div>")
	closedb
	Response.End()
End IF
End IF

Dim rs,userid,touser,sizeinput,sizetext
touser=Trim(Request.QueryString("to"))
set rs=conn.execute("select userid from "&predb&"user where id="&id)
    userid=rs("userid")
set rs=nothing

If touser="" Then sizeinput=50:sizetext=47 else sizeinput=38:sizetext=38
%>
<script language="javascript" src="../inc/AjaxAans.js"></script>
<div class="uctop">
    <div id="uct0" class="uct-1">发送站内信</div>
</div>
<form action="?act=sendmessage&id=<%= id %>" method="post">
<div class="uc-d" id="tblKsList">
  <div class="uc-l">信息标题：</div>
  <div class="uc-r"><input name="title" type="text" id="title" size="<%= sizeinput %>" maxlength="50"><span class="xing">*</span>50字符以内</div>
</div>
<div class="uc-d">
  <div class="uc-l">接收对象：</div>
  <div class="uc-r">
  <% If act="44" Then %>
  <input name="touser" type="text" size="<%= sizeinput %>" value="<%= touser %>"><br><span class="xing">*</span> 一次只能给一位用户发送短信
  <% Else %>
  <input name="touser" type="text" size="<%= sizeinput %>" value="<%= userid %>" readonly="readonly"><span class="xing">*</span>
  <% End If %>
  </div>
</div>
<div class="uc-d">
  <div class="uc-l">信息内容：</div>
  <div class="uc-r" id="input0"><textarea name="content" onFocus="getmmAjax('E',this.value)" id="content" cols="<%= sizetext %>" rows="12"></textarea>
  <span class="xing">*</span></div>
</div>
<div class="uc-line"></div>
<div class="u-s">
    <input name="adduser" type="hidden" value="<%=Request.Cookies("Muser")%>"/><input name="submit" type="submit" id="submit" value=" 发 送 " />
      &nbsp;&nbsp;&nbsp;    
    <input name="reset" type="reset" id="reset" value=" 取 消 " onClick="new parent.dialog().reset();"/>
</div>
</form>
<%
End Sub

Sub UC5()
%>
 <form action="?act=modipass&id=<%= id %>" method="post" onsubmit="return chkfrm()">
    <div class="uc-d">
    <div class="uc-l">旧 密 码：</div>
    <div class="uc-r">
      <input name="oldpass" type="password" id="oldpass" size="22" value=""/>
      <span class="xing">*</span>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">新 密 码：</div>
    <div class="uc-r">
      <input name="Userpass" type="password" id="Userpass" size="22" value=""/>
      <span class="xing">*</span>
    </div>
    </div>
    <div class="uc-d">
    <div class="uc-l">确认密码：</div>
    <div class="uc-r">
      <input name="Userpass2" type="password" id="Userpass2" size="22" value=""/>
      <span class="xing">*</span>
    </div>
    </div>
    <div class="uc-line"></div>
    <div class="u-s">
    <input name="submit" type="submit" id="submit" value=" 保 存 " />
      &nbsp;&nbsp;&nbsp;    
    <input name="reset" type="reset" id="reset" value=" 取 消 " onClick="new parent.dialog().reset();"/>
  </div>
 </form>
<%
end sub
%>
</div>
</body>
</html>