<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<!--#include file="md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<LINK href="css.css" type=text/css rel=stylesheet>
<%
if session("S_username")="" or session("S_userid")="" then
	Errmsg = Errmsg+"<li>您没有登录,或登录超时。"
	Call ErrList(Errmsg)
	response.end
end if
%>

<%
dim SiteName
dim SiteURL
dim MasterName

dim Email

dim PR
dim Alexa
dim GOOGLE
dim BaiDu

dim IsConfirm
dim IsVerify
dim IsActivation
dim IsCheckMaster
dim IsUploadLogo

dim SpecialNote
dim WordsCount
dim AltCount
dim StatCount
dim StatCountDis
dim LogoWidth
dim LogoHeight
dim OrderBy
dim MaxPerPage
dim PageWidth
dim Unit
dim alternation
dim IsSort

dim L_SiteName
dim L_SiteURL
dim L_Logo
dim L_Alt

sql="select * from setting"
set rs=conn.execute (sql)
if not rs.eof then
	SiteName=rs("SiteName")
	SiteURL=rs("SiteURL")
	MasterName=rs("MasterName")
	
	Email=rs("Email")
	
	PR=rs("PR")
	Alexa=rs("Alexa")
	GOOGLE=rs("GOOGLE")
	BaiDu=rs("BaiDu")

	IsConfirm=rs("IsConfirm")
	IsVerify=rs("IsVerify")
	IsActivation=rs("IsActivation")
	IsCheckMaster=rs("IsCheckMaster")
	IsUploadLogo=rs("IsUploadLogo")
	
	SpecialNote=rs("SpecialNote")
	WordsCount=rs("WordsCount")
	AltCount=rs("AltCount")
	StatCount=rs("StatCount")
	StatCountDis=rs("StatCountDis")
	LogoWidth=rs("LogoWidth")
	LogoHeight=rs("LogoHeight")
	OrderBy=rs("OrderBy")
	MaxPerPage=rs("MaxPerPage")
	PageWidth=rs("PageWidth")
	Unit=rs("Unit")
	alternation=rs("alternation")
	IsSort=rs("IsSort")
	
	L_SiteName=rs("L_SiteName")
	L_SiteURL=rs("L_SiteURL")
	L_Logo=rs("L_Logo")
	L_Alt=rs("L_Alt")

	rs.close
	
	session("IsCheckMaster")=IsCheckMaster   ' 站长手动添加站点时,是否需要按系统设置的检查项目进行检查
	if session("IsCheckMaster")=false then
		MasWordsCount=255
		MasAltCount=255255
	else
		MasWordsCount=WordsCount
		MasAltCount=AltCount
	end if
end if
%>

<%
if request("Operate")<>"" then
	ID=cint(request("ID"))
	Select case Request("Operate")
		case "1"   ' "修改"
			Y_SiteName=trim(replace(request("Y_SiteName"),"'",""))
			Y_Logo=trim(replace(request("Y_Logo"),"'",""))
			Y_Alt=trim(replace(request("Y_Alt"),"'",""))
			Y_SiteURL=trim(replace(request("Y_SiteURL"),"'",""))
			Y_MyLink=trim(replace(request("Y_MyLink"),"'",""))
			username=trim(replace(request("username"),"'",""))
			
			oldusername=trim(replace(request("oldusername"),"'",""))
			useremail=trim(replace(request("email"),"'",""))
			QQ=trim(replace(request("QQ"),"'",""))
			MSN=trim(replace(request("MSN"),"'",""))
			Tel=trim(replace(request("Tel"),"'",""))
			Fax=trim(replace(request("Fax"),"'",""))
			MobileTel=trim(replace(request("MobileTel"),"'",""))

			passsword=trim(replace(request("passsword"),"'",""))
			repasssword=trim(replace(request("repasssword"),"'",""))
			
			if request("OwnerClass")<>"" then
				OwnerClass=request("OwnerClass")
			else
				OwnerClass=0
			end if
			
			if lcase(Y_Logo)="http://" then
				Y_Logo=""
			end if

			if username<>oldusername then
				sql="select * from link where username='"&username&"'"
				rs.open sql,conn,1,3
				if not rs.eof then
					response.write "<script>alert(""这个用户名已经有人用了,请更换一个。"");document.URL=""admin2.asp?ID="&ID&""";</script>"
					response.end
				else
					rs.close	
				end if
			end if
			'添加联系方式更新SQL语句
			ContactStr=",QQ='"&QQ&"',MSN='"&MSN&"',Tel='"&Tel&"',Fax='"&Fax&"',MobileTel='"&MobileTel&"'"
			
			if passsword<>"" then
				if passsword <> repasssword then
					response.write "<script>alert('密码与确认密码不符。');document.URL=""admin2.asp?ID="&ID&""";</script>"
					response.end
				else
					sql="update link set Y_SiteName='"&Y_SiteName&"', Y_Logo='"&Y_Logo&"', Y_Alt='"&Y_Alt&"', Y_SiteURL='"&Y_SiteURL&"', Y_MyLink='"&Y_MyLink&"', username='"&username&"',passsword='"&md5(passsword)&"',email='"&useremail&"',OwnerClass="&OwnerClass&ContactStr&" where ID="&ID
				end if
			else
				sql="update link set Y_SiteName='"&Y_SiteName&"', Y_Logo='"&Y_Logo&"', Y_Alt='"&Y_Alt&"', Y_SiteURL='"&Y_SiteURL&"', Y_MyLink='"&Y_MyLink&"', username='"&username&"', email='"&useremail&"',OwnerClass="&OwnerClass&ContactStr&" where ID="&ID
			end if
			
			'如果站长操作也要检查
			if session("IsCheckMaster")=true then
				'第一步,判断我站链接和申请的URL是否为同一个域
				
				'第二步,判断是否加了我站代码
				if IsConfirm=true then
					url=Y_MyLink
					wstr=getHTTPPage(Y_SiteURL) 
			
					if not Instr(lcase(wstr),lcase("<a href=""http://"&request.ServerVariables("HTTP_HOST")&replace(request.ServerVariables("URL"),"admin.asp","linkforward.asp")))>0 then
						response.write "<script>alert(""对不起,没有在此站点指定的位置发现我站的链接,请首先在此站点为我站添加链接,谢谢!"");window.history.back();</script>"
						response.end		
					end if
				end if
				'第三步,判断我站代码所在页面的PR值
				Y_MyLink_PR=getPR(Y_SiteURL)
				if PR>0 then
					if not Y_MyLink_PR>= PR then
						response.write "<script>alert(""对不起,我站的链接代码所在页面PR值<"&Y_MyLink_PR&">不符合我站的要求<"&PR&">"");window.history.back();</script>"
						response.end		
					end if
				end if
				'第四步,判断我站链接所在网页的所属域名的Alexa排名
				Y_MyLink_Alexa=getAlexa(Y_SiteURL)
				if Alexa>0 then
					if CDbl(Alexa)<CDbl(Y_MyLink_Alexa) then
						response.write "<script>alert(""对不起,的Alexa世界排名值<"&RW(Y_MyLink_Alexa)&">不符合我站的要求<"&Alexa&">"");window.history.back();</script>"
						response.end
					end if
				end if
				'第五步,判断我站链接所在网页的所属域名的Google收录
				Y_MyLink_Google=getGoogle(Y_SiteURL)
				if Google>0 then
					if CDbl(Google)>CDbl(Y_MyLink_Google) then
						response.write "<script>alert(""对不起,此站点的Google收录值<"&Y_MyLink_Google&">不符合我站的要求<"&Google&">"");window.history.back();</script>"
						response.end
					end if
				end if
				'第六步,判断我站链接所在网页的所属域名的Baidu收录
				Y_MyLink_Baidu=getBaidu(Y_SiteURL)
				if Baidu>0 then
					if CDbl(Baidu)>CDbl(Y_MyLink_Baidu) then
						response.write "<script>alert(""对不起,此站点的Baidu收录值<"&Y_MyLink_Baidu&">不符合我站的要求<"&Baidu&">"");window.history.back();</script>"
						response.end
					end if
				end if
			end if
			'如果一切合格,添加到友情链接数据库中
			
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "2"   ' "审核"
			sql="update link set IsVerify=true where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "3"   ' "禁止"
			sql="update link set Status=1 where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "4"   ' "删除"
			sql="delete from link where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";window.close();</script>"
			response.end
		case "5"   ' "置顶"
			sql="update link set Isfixed=true where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "6"   ' "更新PR值"
			sql="select Y_SiteURL from link where ID="&ID
			set rs=conn.execute (sql)
			if not rs.eof then
				Y_MyLink=rs(0)
			end if
			sql="update link set PR="&getPR(Y_MyLink)&",PRDate='"&now()&"' where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "7"   ' "更新Alex排名"
			sql="select Y_SiteURL from link where ID="&ID
			set rs=conn.execute (sql)
			if not rs.eof then
				Y_MyLink=rs(0)
			end if
			sql="update link set Alexa='"&getAlexa(Y_MyLink)&"',AlexaDate='"&now()&"' where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "8"   ' "取消审核"
			sql="update link set IsVerify=false where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "9"   ' "取消禁止"
			sql="update link set Status=0 where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "10"   ' "取消置顶"
			sql="update link set Isfixed=false where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "11"   ' " 修改点入点出统计"
			goin=int(request("goin"))
			goinToday=int(request("goinToday"))
			goout=int(request("goout"))
			gooutToday=int(request("gooutToday"))
			if goinToday>goin or gooutToday>goout then
				response.write "<script>alert('请注意信息逻辑性,今日次数不应该大于总计次数。');document.URL=""admin2.asp?ID="&ID&""";</script>"
				response.end
			end if
			sql="update link set goin="&goin&",goinToday="&goinToday&",goout="&goout&",gooutToday="&gooutToday&",inToday='"&now()&"',outToday='"&now()&"' where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "20"   ' "更新GOOGLE收录"
			sql="select Y_SiteURL from link where ID="&ID
			set rs=conn.execute (sql)
			if not rs.eof then
				Y_MyLink=rs(0)
			end if
			Y_MyLinkArr=split(Y_MyLink,"/")
			Y_MyLink_Get=Y_MyLinkArr(2)
			sql="update link set GOOGLE='"&getGOOGLE(Y_MyLink_Get)&"',GOOGLEDate='"&now()&"' where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
		case "21"   ' "更新BaiDu收录"
			sql="select Y_SiteURL from link where ID="&ID
			set rs=conn.execute (sql)
			if not rs.eof then
				Y_MyLink=rs(0)
			end if
			Y_MyLinkArr=split(Y_MyLink,"/")
			Y_MyLink_Get=Y_MyLinkArr(2)
			sql="update link set BaiDu='"&getBaiDu(Y_MyLink_Get)&"',BaiDuDate='"&now()&"' where ID="&ID
			conn.execute (sql)
			response.write "<script>alert('操作成功!');opener.document.URL=""admin.asp?page="&session("currentPage")&""";</script>"
	end Select
end if

%>

<%
ID=cint(request("ID"))
dim username

dim useremail
dim QQ
dim MSN
dim Tel
dim Fax
dim MobileTel

dim Y_SiteName
dim Y_SiteURL
dim Y_Logo
dim Y_Alt
dim Y_MyLink
dim PRDate
dim AlexaDate
dim GOOGLEDate
dim BaiDuDate

dim goin
dim goinToday
dim goout
dim gooutToday
dim inToday
dim outToday
dim Isfixed
dim Status
dim jointime
dim OwnerClass

sql="select * from link where ID="&ID
set rs=conn.execute (sql)
if not rs.eof then
	username=rs("username")
	
	useremail=rs("email")
	QQ=rs("QQ")
	MSN=rs("MSN")
	Tel=rs("Tel")
	Fax=rs("Fax")
	MobileTel=rs("MobileTel")
	
	Y_SiteName=rs("Y_SiteName")
	Y_SiteURL=rs("Y_SiteURL")
	Y_Logo=rs("Y_Logo")
	Y_Alt=rs("Y_Alt")
	Y_MyLink=rs("Y_MyLink")
	PR=rs("PR")
	PRDate=rs("PRDate")
	Alexa=rs("Alexa")
	AlexaDate=rs("AlexaDate")
	GOOGLE=rs("GOOGLE")
	GOOGLEDate=rs("GOOGLEDate")
	BaiDu=rs("BaiDu")
	BaiDuDate=rs("BaiDuDate")

	
	goin=rs("goin")
	goinToday=rs("goinToday")
	goout=rs("goout")
	gooutToday=rs("gooutToday")
	inToday=rs("inToday")
	outToday=rs("outToday")
	IsVerify=rs("IsVerify")
	Isfixed=rs("Isfixed")
	
	Status=rs("Status")
	jointime=rs("jointime")
	OwnerClass=rs("OwnerClass")
	rs.close
end if

if Y_Logo="" then
	Y_Logo="http://"
end if

if DateDiff("d",inToday,now)<>0 then
	goinToday=0
end if

if DateDiff("d",outToday,now)<>0 then
	gooutToday=0
end if

%>
<script>
function submitform(Num){
	var CurrForm=document.forms[0];
	CurrForm.action="admin2.asp";
	CurrForm.Operate.value=Num;
	CurrForm.method="post";
	CurrForm.submit();
}
function admin_uplogo(){
	var width,height,left,top;
	width=450;
	height=200;
	left=screen.Width/2-width/2;
	top=(screen.Height-25)/2-height/2;
	window.open ('data100_net_uplogo.asp', '上传LOGO', 'height='+height+', width='+width+', top='+top+',left='+left+', toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=yes')
}

</script>
<title><%response.write SiteName&"-自助友情链接系统 V1.7 - Power By DATA100.NET"%></title>
</head>
<body>
<table  border="0" align="center" cellpadding="0" cellspacing="0" width="<%=PageWidth&Unit%>">
  <tr>
    <td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
  <form id="form5" name="form5" method="post">
    <tr>
      <td bgcolor="#FFFFFF"><table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
        </table>
          <table width="99%" height="30"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
            <tr>
              <td><%response.write "&nbsp;<a class=""atitle"" href="""&SiteURL&""" target=_blank>"&SiteName&"</a>-自助友情链接系统 V1.7-详细设置"%></td>
              <td align="right">　</td>
            </tr>
          </table>
          <table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td></td>
            </tr>
          </table>
          <!--显示与隐藏的表格-->
          <table width="99%"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab3">
            <tr bgcolor="#FFFFFF">
              <td width="18%" height="20">站点名称:</td>
              <td colspan="4"><input name="Y_SiteName" type="text" id="Y_SiteName" value="<%=Y_SiteName%>" size="60" maxlength="<%=MasWordsCount%>"><font color=cc0000>(少于<%=MasWordsCount%>字)</font></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">站长大名:</td>
              <td colspan="4">
			  <input name="username" type="text" id="username" value="<%=username%>" size="60" maxlength="50">
			  <input name="oldusername" type="hidden" id="oldusername" value="<%=username%>">
			  </td>
            </tr>
			  <tr bgcolor="#FFFFFF">
				<td height="20">密码:</td>
				<td colspan="4">新密码:
				  <input name="passsword" type="password" id="passsword" size="10" maxlength="20">				  
				  &nbsp; 确认密码:
				  <input name="repasssword" type="password" id="repasssword" size="10" maxlength="20">
(用于更改密码,不更改请<font color="#cc0000">留空</font>)</td>
			  </tr>
			  <tr bgcolor="#FFFFFF">
				<td height="20">联系方式1:</td>
				<td colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="30%">邮箱:
                        <input name="email" type="text" id="email" value="<%=useremail%>" size="15" maxlength="80"></td>
                      <td width="33%" align="right">&nbsp; QQ:
                        <input name="QQ" type="text" id="QQ" value="<%=QQ%>" size="15" maxlength="80"></td>
                      <td width="36%" align="right">MSN:
                        <input name="MSN" type="text" id="MSN" value="<%=MSN%>" size="15" maxlength="80"></td>
                    </tr>
                  </table></td>
			  </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">联系方式2:</td>
              <td colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="30%">电话:
                    <input name="Tel" type="text" id="Tel" value="<%=Tel%>" size="15" maxlength="80"></td>
                  <td width="33%" align="right">&nbsp;传真:
                    <input name="Fax" type="text" id="Fax" value="<%=Fax%>" size="15" maxlength="80"></td>
                  <td width="36%" align="right">手机:
                    <input name="MobileTel" type="text" id="MobileTel" value="<%=MobileTel%>" size="15" maxlength="80"></td>
                </tr>
              </table></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">申请日期:</td>
              <td colspan="4"><%=jointime%></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">站点简介:</td>
              <td colspan="4"><textarea cols="38" name="Y_Alt" rows="3" id="Y_Alt"><%=Y_Alt%></textarea><font color=cc0000>(少于<%=MasAltCount%>字)</font></td>
            </tr>
<%if IsSort=true then%>
  <tr bgcolor=#FFFFFF>
	<td height="20">站点所属类别:</td>
	<td colspan="4"><select name="OwnerClass" id="OwnerClass" style="height:12px;width:325px;">
	<option value=0  <%if int(OwnerClass)=0 then response.write " selected" end if%>> </option>
	<%
	sql="select * from linkclass "
	set rs=conn.execute (sql)
	if not rs.eof then
		while not rs.eof
	%>	
		<option value=<%=rs("ID")%> <%if int(OwnerClass)=int(rs("ID")) then response.write " selected" end if%>><%=rs("ClassName")%></option>
	<%
		rs.movenext
		wend
		rs.close
	end if
	%></select>
	</td>
  </tr>	
<%end if%>
            <tr bgcolor="#FFFFFF">
              <td height="20">站点LOGO:</td>
              <td colspan="4"><input name="Y_Logo" type="text" id="Y_Logo" value="<%=Y_Logo%>" size="60" maxlength="200">
				  <%if IsUploadLogo then%>
				  <input type="button" name="Submit2" value="上传LOGO" onClick="admin_uplogo()">
				  <%end if%>
			  </td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">链接至:</td>
              <td colspan="4"><input name="Y_SiteURL" type="text" id="Y_SiteURL" value="<%=Y_SiteURL%>" size="60" maxlength="200"></td>
            </tr>			
            <tr bgcolor="#FFFFFF">
              <td height="20">我站代码位置:</td>
              <td colspan="4"><input name="Y_MyLink" type="text" id="Y_MyLink" value="<%=Y_MyLink%>" size="60" maxlength="200"></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">PR值:</td>
              <td width="30%">&nbsp;<%=PR%></td>
              <td width="20%">上次更新时间:</td>
              <td width="30%">&nbsp;<%=PRDate%></td>
              <td align="right"><input type="button" name="Submit" style="height:20px;" value=" 更新 " onClick="submitform(6)">&nbsp;</td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">Alexa排名:</td>
              <td>&nbsp;<%=RW(Alexa)%></td>
              <td>上次更新时间:</td>
              <td>&nbsp;<%=AlexaDate%></td>
              <td align="right"><input type="button" name="Submit" style="height:20px;" value=" 更新 " onClick="submitform(7)">&nbsp;</td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">GOOGLE收录:</td>
              <td width="30%">&nbsp;<%=GOOGLE%></td>
              <td width="20%">上次更新时间:</td>
              <td width="30%">&nbsp;<%=GOOGLEDate%></td>
              <td align="right"><input type="button" name="Submit" style="height:20px;" value=" 更新 " onClick="submitform(20)">&nbsp;</td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">BaiDu收录:</td>
              <td>&nbsp;<%=BaiDu%></td>
              <td>上次更新时间:</td>
              <td>&nbsp;<%=BaiDuDate%></td>
              <td align="right"><input type="button" name="Submit" style="height:20px;" value=" 更新 " onClick="submitform(21)">&nbsp;</td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">点入次数:</td>
              <td>&nbsp;总计
                <input name="goin" type="text" id="goin" value="<%=goin%>" size="1" maxlength="10">今日<input name="goinToday" type="text" id="goinToday" value="<%=goinToday%>" size="1" maxlength="10"></td>
              <td>点出次数:</td>
              <td>&nbsp;总计
                <input name="goout" type="text" id="goout" value="<%=goout%>" size="1" maxlength="10">今日<input name="gooutToday" type="text" id="gooutToday" value="<%=gooutToday%>" size="1" maxlength="10"></td>
              <td align="right"><input type="button" name="Submit" style="height:20px;" value=" 修改 " onClick="submitform(11)">&nbsp;</td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="20">管理状态:
                <input name="ID" type="hidden" id="ID" value="<%=ID%>">
                <input name="Operate" type="hidden" id="Operate"></td>
              <td colspan="4">
			  是否激活&lt;<%if goin>0 then response.write "是" else response.write "未" end if%>&gt;&nbsp;&nbsp; 
			  是否审核&lt;<%if IsVerify=true then response.write "是" else response.write "未" end if%>&gt;&nbsp;&nbsp; 
			  是否禁止&lt;
			  <%if Status=1 then response.write "是" else response.write "未" end if%>&gt;&nbsp;&nbsp; 是否置顶&lt;
			  <%if Isfixed=true then response.write "是" else response.write "未" end if%>&gt;&nbsp;&nbsp; 
			  </td>
            </tr>		    <tr align="right" bgcolor="#FFFFFF">
              <td height="20" colspan="5">			  &nbsp;
			  <input type="button" name="Submit" value=" 修 改 " onClick="submitform(1)">&nbsp;
			  <%if IsVerify=true then %>
			  <input type="button" name="Submit" value="  取消审核 " onClick="submitform(8)">&nbsp;
			  <%else%>
			  <input type="button" name="Submit" value=" 审 核 " onClick="submitform(2)">&nbsp;
              <%end if%>
			  <%if Status=1 then %>
			  <input type="button" name="Submit" value=" 取消禁止 " onClick="submitform(9)">&nbsp; 
			  <%else%>
			  <input type="button" name="Submit" value=" 禁 止 " onClick="submitform(3)">&nbsp; 
              <%end if%>
              <input type="button" name="Submit" value=" 删 除 " onClick="submitform(4)">&nbsp; 
			  <%if Isfixed=true then %>
              <input type="button" name="Submit" value=" 取消置顶 " onClick="submitform(10)">&nbsp;
			  <%else%>
              <input type="button" name="Submit" value=" 置 顶 " onClick="submitform(5)">&nbsp;
              <%end if%>
	          <input type="button" name="Submit" value=" 关闭窗口 " onClick="window.close()">&nbsp;</td>
            </tr>
          </table>
          
		  <!--显示与隐藏的表格-->
          <table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td></td>
            </tr>
        </table></td>
    </tr>
  </form>
</table>
</td></tr></table>
</body>
</html>
