<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/System_Language.asp" -->
<!--#include file="../Include/Version.Asp" -->
<!--#include file=../ads/Html2Js.asp-->
<!--#include file="CheckAdmin.Asp"-->
<%
'*********************************************
'软件名称：电家企业网站内容管理系统
'软件开发：电脑家园工作室
'网   址：http://www.537600.cn
'服务QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：diannaojiayuan
'*********************************************
%>
<%
Action = request.QueryString("Action")
if Action = "SaveEdit" then
	if trim(request.form("flvconfig0"))="" or trim(request.form("flvconfig1"))=""  then
	response.write "<script language='javascript'>"
	response.write "alert('第一个视频广告一定要填写，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	if trim(request.form("flvconfig2"))<>"" and trim(request.form("flvconfig3"))=""  then
	response.write "<script language='javascript'>"
	response.write "alert('视频二标题必须与视频地址对应，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	if trim(request.form("flvconfig4"))<>"" and trim(request.form("flvconfig5"))=""  then
	response.write "<script language='javascript'>"
	response.write "alert('视频三标题必须与视频地址对应，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	if trim(request.form("flvconfig6"))<>"" and trim(request.form("flvconfig7"))=""  then
	response.write "<script language='javascript'>"
	response.write "alert('视频四标题必须与视频地址对应，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	if trim(request.form("flvconfig8"))<>"" and trim(request.form("flvconfig9"))=""  then
	response.write "<script language='javascript'>"
	response.write "alert('视频五标题必须与视频地址对应，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

flvconfig0=request.form("flvconfig0")
flvconfig1=request.form("flvconfig1")
flvconfig2=request.form("flvconfig2")
flvconfig3=request.form("flvconfig3")
flvconfig4=request.form("flvconfig4")
flvconfig5=request.form("flvconfig5")
flvconfig6=request.form("flvconfig6")
flvconfig7=request.form("flvconfig7")
flvconfig8=request.form("flvconfig8")
flvconfig9=request.form("flvconfig9")
flvconfig10=request.form("flvconfig10")
flvconfig11=request.form("flvconfig11")
flvconfig12=request.form("flvconfig12")
flvconfig13=request.form("flvconfig13")
flvconfig14=request.form("flvconfig14")
flvconfig15=request.form("flvconfig15")
flvconfig16=request.form("flvconfig16")
flvconfig17=Right(request.form("flvconfig17"),6)
flvconfig18=Right(request.form("flvconfig18"),6)
flvconfig19=Right(request.form("flvconfig19"),6)
flvconfig20=Right(request.form("flvconfig20"),6)
flvconfig21=request.form("flvconfig21")
flvconfig22=request.form("flvconfig22")
flvconfig23=request.form("flvconfig23")
flvconfig24=request.form("flvconfig24")
flvconfig25=request.form("flvconfig25")
flvconfig26=request.form("flvconfig26")
flvconfig27=request.form("flvconfig27")
flvconfig28=request.form("flvconfig28")

flvconfig=flvconfig0+"|"+flvconfig1+"|"+flvconfig2+"|"+flvconfig3+"|"+flvconfig4+"|"+flvconfig5+"|"+flvconfig6+"|"+flvconfig7+"|"+flvconfig8+"|"+flvconfig9+"|"+flvconfig10+"|"+flvconfig11+"|"+flvconfig12+"|"+flvconfig13+"|"+flvconfig14+"|"+flvconfig15+"|"+flvconfig16+"|"+flvconfig17+"|"+flvconfig18+"|"+flvconfig19+"|"+flvconfig20+"|"+flvconfig21+"|"+flvconfig22+"|"+flvconfig23+"|"+flvconfig24+"|"+flvconfig25+"|"+flvconfig26+"|"+flvconfig27+"|"+flvconfig28

     Set rs=Server.CreateObject("ADODB.Recordset")
	 sql="select * from DianJiaCMS_Web"
	 rs.open sql,conn,1,3
 	 rs("flv")=flvconfig 	 
	rs.update

'获取参数
flvconfig=rs("flv")
flvconfig=split(flvconfig,"|")

texts=flvconfig0
If flvconfig2<>"" Then texts=texts+"|"+flvconfig2
If flvconfig4<>"" Then texts=texts+"|"+flvconfig4
If flvconfig6<>"" Then texts=texts+"|"+flvconfig6
If flvconfig8<>"" Then texts=texts+"|"+flvconfig8
filesurl=flvconfig1
If flvconfig3<>"" Then filesurl=filesurl+"|"+flvconfig3
If flvconfig5<>"" Then filesurl=filesurl+"|"+flvconfig5
If flvconfig7<>"" Then filesurl=filesurl+"|"+flvconfig7
If flvconfig9<>"" Then filesurl=filesurl+"|"+flvconfig9

'生成js代码
JsCode="<SCRIPT type=text/javascript>" & vbCrLf & _
"var swf_width="""&flvconfig10 &"""//播放器宽度" & vbCrLf & _
"var swf_height="&flvconfig11 &"//播放器高度" & vbCrLf & _
"var texts='"&texts&"'//广告标题参数，多个使用|分开,个数与filesurl配合一致" & vbCrLf & _
"var filesurl='"&filesurl&"'//flv文件绝对地址参数，多个使用|分开,个数与texts配合一致" & vbCrLf & _
"var config='&IsAutoPlay="&flvconfig12&"&IsContinue="&flvconfig13&"&IsRandom="&flvconfig14&"&IsShowTime="&flvconfig15&"&IsShowBar="&flvconfig16&"&BarColor=0x"&flvconfig17&"&TextColor=0x"&flvconfig18&"&GlowColor=0x"&flvconfig19&"&IconColor=0x"&flvconfig20&"&BarPosition=1&BufferTime="&flvconfig21&"&DefaultVolume="&flvconfig22&"&LogoText="&flvconfig23 &"&LogoUrl="&flvconfig24&"&BeginSwf="&flvconfig25&"&EndSwf="&flvconfig26&"'" & vbCrLf & _
"document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width=""'+ swf_width +'"" height=""'+ swf_height +'"">');" & vbCrLf & _
"document.write('<param name=""movie"" value="""&SysRootDir&"images/flv.swf""><param name=""quality"" value=""high"">');" & vbCrLf & _
"document.write('<param name=""menu"" value=""false""><param name=""allowFullScreen"" value=""true"" />');" & vbCrLf & _
"document.write('<param name=""FlashVars"" value=""vcastr_file='+filesurl+'&vcastr_title='+texts+'&vcastr_config='+config+'"">');" & vbCrLf & _
"document.write('<embed src="""&SysRootDir&"images/flv.swf"" allowFullScreen=""true"" FlashVars=""vcastr_file='+filesurl+'&vcastr_title='+texts+'&vcastr_config='+config+'"" menu=""false"" quality=""high"" width=""'+ swf_width +'"" height=""'+ swf_height +'"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer""/>');" & vbCrLf & "document.write('</object>'); " & vbCrLf & _
"</SCRIPT>" & vbCrLf & _
""

JsCode=Html2Js(JsCode)
JsCode="document.write('"&JsCode&"')"
JsCode = "<!--" & vbCrLf & JsCode & vbCrLf &"//-->" 
JsFileName = Server.MapPath("..\UploadFile\js\flv.js")
Call WriteToFile(JsFileName,JsCode,"utf-8")'用函数方式
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
	response.write "<script language='javascript'>"
	response.write "alert('FLV广告设置成功并生成js代码！');"
	response.write "location.href='DianJiaCMS_Funct_flv.Asp';"
	response.write "</script>"
	response.end
end if%>
<!DOCTYPE html>
<html lang="zh-cn">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="<%=DianJiaCMS_Lang_Copyright(13)%>">
<meta name="author" content="<%=DianJiaCMS_Lang_Copyright(3)%>">
<title><%=DianJiaCMS_Lang_Copyright(1)%> <%=Soft_Version%></title>
<!--#Include file="DianJiaCMS_Css.Asp"-->
<script src="skin_a/js/iColorPicker.js"></script>
</head>
<body>
<!--#Include file="DianJiaCMS_Top.Asp"-->
<!--#Include file="DianJiaCMS_Meun.Asp"-->

<div id="wrap">
	<%
	If InStr(CompanyAdminPurview, "|19,") = 0 Then
		response.Write ("<br /><br /><div style='height:100%; text-align:center' class='main'><font style=""color:red; font-size:14px;"")>"&DianJiaCMS_Lang_System(26)&"</font></div>")
		response.End
	End If
dim rs,action,n,JsCode,texts,filesurl
Dim flvconfig,flvconfig0,flvconfig1,flvconfig2,flvconfig3,flvconfig4,flvconfig5,flvconfig6,flvconfig7,flvconfig8,flvconfig9,flvconfig10,flvconfig11,flvconfig12,flvconfig13,flvconfig14,flvconfig15,flvconfig16,flvconfig17,flvconfig18,flvconfig19,flvconfig20,flvconfig21,flvconfig22,flvconfig23,flvconfig24,flvconfig25,flvconfig26,flvconfig27,flvconfig28

Set rs = conn.Execute("select * from DianJiaCMS_Web") 
flvconfig=rs("flv")
flvconfig=split(flvconfig,"|")
flvconfig0=flvconfig(0)
flvconfig1=flvconfig(1)
flvconfig2=flvconfig(2)
flvconfig3=flvconfig(3)
flvconfig4=flvconfig(4)
flvconfig5=flvconfig(5)
flvconfig6=flvconfig(6)
flvconfig7=flvconfig(7)
flvconfig8=flvconfig(8)
flvconfig9=flvconfig(9)
flvconfig10=flvconfig(10)
flvconfig11=flvconfig(11)
flvconfig12=flvconfig(12)
flvconfig13=flvconfig(13)
flvconfig14=flvconfig(14)
flvconfig15=flvconfig(15)
flvconfig16=flvconfig(16)
flvconfig17=flvconfig(17)
flvconfig18=flvconfig(18)
flvconfig19=flvconfig(19)
flvconfig20=flvconfig(20)
flvconfig21=flvconfig(21)
flvconfig22=flvconfig(22)
flvconfig23=flvconfig(23)
flvconfig24=flvconfig(24)
flvconfig25=flvconfig(25)
flvconfig26=flvconfig(26)
flvconfig27=flvconfig(27)
flvconfig28=flvconfig(28)
%>
    <div class="main">
        <div class="row ">
            <ol class="breadcrumb">
                <li><i class="fa fa-home"></i> <%=DianJiaCMS_Lang_Copyright(14)%></li>
                <li><%=DianJiaCMS_Lang_Copyright(2)%></li>
                <li class="active">FLV视频管理</li>
            </ol>	
        </div>	

        <div class="row">
            <div class="col-md-12">
                <div class="panel panel-default">
                    <div class="panel-heading">
                        <h2><i class="fa fa-gears"></i><span class="break"></span><strong>修改FLV视频</strong></h2>
                    </div>
  <form name="editForm" method="post" action="?Action=SaveEdit"><p>
    <tr><td width=20% align=right height="18">视频一标题</td><td> <input type=text value="<%=flvconfig0%>" name=flvconfig0 size=40 maxlength=100></tr><p>		
	
	<tr><td width=20% align=right height="18">视频一文件地址</td><td> <input type=text value="<%=flvconfig1%>" name=flvconfig1 size=40 maxlength=100>
	 必须是绝对路径，如http://www.537600.cn/video/1.flv</td></tr><p>		
	
	<tr><td width=20% align=right height="18">视频二标题</td><td> <input type=text value="<%=flvconfig2%>" name=flvconfig2 size=40 maxlength=100></td></tr><p>
	<tr><td width=20% align=right height="18">视频二文件地址</td><td> <input type=text value="<%=flvconfig3%>" name=flvconfig3 size=40 maxlength=100>
	 必须是绝对路径，如http://www.537600.cn/video/2.flv</td></tr><p>
	
	<tr><td width=20% align=right height="18">视频三标题</td><td> <input type=text value="<%=flvconfig4%>" name=flvconfig4 size=40 maxlength=100></td></tr><p>
	<tr><td width=20% align=right height="18">视频三文件地址</td><td> <input type=text value="<%=flvconfig5%>" name=flvconfig5 size=40 maxlength=100>
	 必须是绝对路径，如http://www.537600.cn/video/3.flv</td></tr><p>

	<tr><td width=20% align=right height="18">视频四标题</td><td> <input type=text value="<%=flvconfig6%>" name=flvconfig6 size=40 maxlength=100></td></tr><p>
	<tr><td width=20% align=right height="18">视频四文件地址</td><td> <input type=text value="<%=flvconfig7%>" name=flvconfig7 size=40 maxlength=100>
	 必须是绝对路径，如http://www.537600.cn/video/4.flv</td></tr>	<p> 

	<tr><td width=20% align=right height="18">视频五标题</td><td> <input type=text value="<%=flvconfig8%>" name=flvconfig8 size=40 maxlength=100></td></tr><p>
	<tr><td width=20% align=right height="18">视频五文件地址</td><td> <input type=text value="<%=flvconfig9%>" name=flvconfig9 size=40 maxlength=100>
	 必须是绝对路径，如http://www.537600.cn/video/5.flv</td></tr><p>	

	<tr><td width=20% align=right height="18"></td></tr>	
	<tr><td width=20% align=right height="18">参数设置</td><td colspan=3>
播放器宽度 <input type=text value="<%=flvconfig10%>" name=flvconfig10 size=4 maxlength=3>像素<br>
播放器高度 <input type=text value="<%=flvconfig11%>" name=flvconfig11 size=4 maxlength=3>像素<br>
是否自动播放<input type="radio" value="1" <%if flvconfig12="1" then%>checked<%end if%> name="flvconfig12">自动
<input type="radio" value="0" <%if flvconfig12="0" then%>checked<%end if%> name="flvconfig12">不自动<br>
是否连续播放<input type="radio" value="1" <%if flvconfig13="1" then%>checked<%end if%> name="flvconfig13">连续
<input type="radio" value="0" <%if flvconfig13="0" then%>checked<%end if%> name="flvconfig13">不连续 <br>
是否随机播放<input type="radio" value="1" <%if flvconfig14="1" then%>checked<%end if%> name="flvconfig14">随机
<input type="radio" value="0" <%if flvconfig14="0" then%>checked<%end if%> name="flvconfig14">顺序<br>
是否显示时间<input type="radio" value="1" <%if flvconfig15="1" then%>checked<%end if%> name="flvconfig15">显示
<input type="radio" value="0" <%if flvconfig15="0" then%>checked<%end if%> name="flvconfig15">不显示<br>
控制栏显示&nbsp;&nbsp;<input type="radio" value="1" <%if flvconfig16="1" then%>checked<%end if%> name="flvconfig16">一直显示 <input type="radio" value="2" <%if flvconfig16="2" then%>checked<%end if%> name="flvconfig16">鼠标悬停时显示 <input type="radio" value="3" <%if flvconfig16="3" then%>checked<%end if%> name="flvconfig16">鼠标悬停后显示 <input type="radio" value="0" <%if flvconfig16="0" then%>checked<%end if%> name="flvconfig16">不显示<br>

播放控制栏颜色 <input id="flvconfig17" type=text value="<%=flvconfig17%>" name=flvconfig17 size=8 maxlength=6 style="background:#<%=flvconfig17%>"  class="iColorPicker input">(16进制数字表示 例：000033)<br>
播放器文字颜色 <input id="flvconfig18" type=text value="<%=flvconfig18%>" name=flvconfig18 size=8 maxlength=6 style="background:#<%=flvconfig18%>" class="iColorPicker input">(16进制数字表示 例：ffffff)<br>
按键图标的颜色 <input id="flvconfig19" type=text value="<%=flvconfig19%>" name=flvconfig19 size=8 maxlength=6 style="background:#<%=flvconfig19%>" class="iColorPicker input">(16进制数字表示 例：66ff00)<br>
鼠标悬停光晕色 <input id="flvconfig20" type=text value="<%=flvconfig20%>" name=flvconfig20 size=8 maxlength=6 style="background:#<%=flvconfig20%>" class="iColorPicker input">(16进制数字表示 例：FFFFFF)<br>
影片缓冲时间&nbsp;&nbsp; <input type=text value="<%=flvconfig21%>" name=flvconfig21 size=8 maxlength=6>(单位:秒)<br>
默认音量参数&nbsp;&nbsp; <input type=text value="<%=flvconfig22%>" name=flvconfig22 size=8 maxlength=6>(0-100 的数值)<br>

文字LOGO地址 &nbsp;&nbsp;<input type=text value="<%=flvconfig23%>" name=flvconfig23 size=40 maxlength=100>(英文)<br>
图片LOGO地址 &nbsp;&nbsp;<input type=text value="<%=flvconfig24%>" name=flvconfig24 size=40 maxlength=100>(填写LOGO地址,支持图片格式和swf格式)<br>
<!--播放前swf文件地址<input type=text value="<%=flvconfig25%>" name=flvconfig25 size=40 maxlength=100>(影片开始播放前从外部读取swf文件作广告等)<br>
播放后swf文件地址<input type=text value="<%=flvconfig26%>" name=flvconfig26 size=40 maxlength=100>(影片播放结束后从外部读取swf文件作影片信息等)-->
</td></tr>
                        </div>
                        <div class="form-group">
                            <div class="col-md-2 control-label"></div>
                            <div class="col-md-10">
                                <input name="submitSaveEdit" type="submit" id="submitSaveEdit" class="btn btn-danger btn-lg" value="保存参数">
                                <input type="button" class="btn btn-danger btn-lg" value="<%=DianJiaCMS_Lang_System(32)%>" onClick="history.back(-1)">
                            </div>	 
                        </div>	
                    </form>
                    </div>
                </div>		
            </div>
        </div>
    </div>
<TABLE align="center">
<TR>
	<TD><button onClick="document.location.reload()">刷新看效果</button>效果预览（服务器必须具备播放.flv视频条件才能播放）：<br>
<span class="f14b" >
<script src="../UploadFile/js/flv.js"></script>
</TD>
	<TD>调用方式：&lt;script src="UploadFile/js/flv.js">&lt;/script></TD>
</TR>
</TABLE><br>&nbsp;<p>
    <!-- end: Content -->
	<!--#Include file="DianJiaCMS_End.Asp"-->				
</div>
<!--#Include file="DianJiaCMS_Js.Asp"-->
<script>
var ColorHex=new Array('00','33','66','99','CC','FF')
var SpColorHex=new Array('FF0000','00FF00','0000FF','FFFF00','00FFFF','FF00FF')
var current=null
function intoColor(dddd,ssss,ffff)
{	
    var ColorTable=''
    for (i=0;i<2;i++)
    {
        for (j=0;j<6;j++)
        {
            ColorTable=ColorTable+'  <tr>'
            ColorTable=ColorTable+'    <td style="width:12px; height:12px; background-Color: #000000;">'
            if (i==0){
                ColorTable=ColorTable+'    <td style="width:12px; height:12px; background-Color: #'+ColorHex[j]+ColorHex[j]+ColorHex[j]+';">'
            }
            else{
                ColorTable=ColorTable+'    <td style="width:12px; height:12px; background-Color: #'+SpColorHex[j]+';">'
            }
            ColorTable=ColorTable+'    <td style="width:12px; height:12px; background-Color: #000000;">'
            for (k=0;k<3;k++)
            {
                for (l=0;l<6;l++)
                {
                    ColorTable=ColorTable+'    <td style="width:12px; height:12px; background-Color: #'+ColorHex[k+i*3]+ColorHex[l]+ColorHex[j]+';">'
                }
            }
        }
    }
    ColorTable='<table width="253" border="0" cellspacing="0" cellpadding="0" style="border: 1px #000000 solid; border-bottom: none; border-collapse: collapse;" borderColor="000000">'
    +'  <tr height="30">'
    +'    <td colspan="21" bgColor="#cccccc"><table width="100%" cellpadding="0" cellspacing="1" border="0" style="border-collapse: collapse;">'
    +'        <tr>'
    +'          <td width="3"></td>'
    +'          <td><input type="text" id="DisColor" name="DisColor" size="6" disabled style="border: solid 1px #000000; background-Color: #ffff00;"></td>'
    +'          <td width="3"></td>'
    +'          <td><input type="text" id="HexColor" name="HexColor" size="7" style="border: inset 1px; font-family: Arial;" value="#000000">&nbsp;&nbsp;&nbsp;&nbsp;系统选色版</td>'
    +'          <td width="20" style="cursor:pointer" onclick="document.getElementById(\'Colorpanel\').style.visibility=\'hidden\'" title=\' 关闭\'>╳</td>'
    +'        </tr>'
    +'      </table></td>'
    +'</table>'
    +'<table border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse; cursor: pointer;" borderColor="000000" onmouseover="doOver(event)" onmouseout="doOut()" onclick="doclick(\''+dddd+'\',\''+ssss+'\',\''+ffff+'\',event)">'
    +ColorTable+'</table>';
    Colorpanel.innerHTML=ColorTable
}
function doOver(e) {
	if( !e ) e = window.event;
	var Colorxs = e.target||e.srcElement; 
	
    if ((Colorxs.tagName=="TD") && (current!=Colorxs)) {
        if (current!=null){
            current.style.backgroundColor = current._BackGround
        }
        Colorxs._BackGround = Colorxs.style.backgroundColor
		
		document.getElementById("DisColor").style.backgroundColor= Colorxs.style.backgroundColor
		document.getElementById("HexColor").value= Colorxs.style.backgroundColor
		Colorxs.style.backgroundColor = "white"
        current = Colorxs
    }
}
function doOut() {
    if (current!=null) current.style.backgroundColor = current._BackGround
}

function doclick(dddd,ssss,ffff,e){
	if( !e ) e = window.event;
	var Colorxs = e.target||e.srcElement; 

    if (Colorxs.tagName=="TD"){
        document.getElementById(ssss).value=Colorxs._BackGround
		document.getElementById(ffff).style.color=Colorxs._BackGround
		
		Colorxs.style.backgroundColor=Colorxs._BackGround
		document.getElementById("Colorpanel").style.visibility="hidden"
        return Colorxs._BackGround
    }
}
var Colorxs

function Colorcd(dddd,ssss,ffff,e){
	var Colorpanel=document.getElementById("Colorpanel")
	
	if( !e ) e = window.event;
	var Colorxs = e.target||e.srcElement; 

	var x=e.clientX
    var y=e.clientY
	
    var rightedge = document.body.clientWidth-x;
    var bottomedge = document.body.clientHeight-y;
	if (rightedge < Colorpanel.offsetWidth){
    	var palLeft = document.body.scrollLeft + x - Colorpanel.offsetWidth;
		Colorpanel.style.left = palLeft+'px'
	}
    else{
    	var palLeft = document.body.scrollLeft + x;
		Colorpanel.style.left = palLeft+'px'
	}
    
	if (bottomedge < Colorpanel.offsetHeight){
    	var palTop = document.body.scrollTop + y - Colorpanel.offsetHeight;
		Colorpanel.style.top = palTop + 'px'
	}
    else{
		var ScrollTop = window.pageYOffset || document.documentElement.scrollTop || document.body.scrollTop || 0;   
		var palTop = ScrollTop + y;
		Colorpanel.style.top = palTop + 'px'
	}
	
	Colorpanel.style.visibility = "visible";
	
    e.cancelBubble=true
    intoColor(dddd,ssss,ffff)
    return false
}
function clear_color() {
	$('#Title').css('color','');
	$('#TitleFontColor').val('');
	$('#colorpanel_title').html(' ');
}
</script>

</body>
</html>

<%Function WriteToFile (FileUrl,Str,CharSet)
    Set stm = CreateObject("Adodb.Stream")
    stm.Type = 2
    stm.mode = 3
    stm.charset = CharSet
    stm.Open
    stm.WriteText Str
    stm.SaveToFile FileUrl, 2
    stm.flush
    stm.Close
    Set stm = Nothing
End Function	%>