<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = False   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = ""   '其他权限

Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private"
Response.CacheControl = "no-cache"
Response.Charset = "GB2312"
Response.ContentType = "text/html"

Response.Write "<select name='ContacterID'>" & vbCrLf
ClientID = PE_CLng(Trim(Request("ClientID")))
Dim rsContacter
Set rsContacter = Conn.Execute("select ContacterID,TrueName from PE_Contacter where ClientID=" & ClientID & "")
Do While Not rsContacter.EOF
    Response.Write "<option value='" & rsContacter(0) & "'>" & rsContacter(1) & "</option>" & vbCrLf
    rsContacter.movenext
Loop
rsContacter.Close
Set rsContacter = Nothing
Call CloseConn
Response.Write "</select>" & vbCrLf

%>
