<%Response.Buffer=True
Response.CacheControl="no-cache"   
Response.Expires=0 %>
<!--#include file="../../manage/checkuserflag.asp"-->
<%call CheckUserFlag("02")%>
<!--#include file="../../config.asp"-->
<!--#include file="../../ad-manage/fckeditor.asp"-->
<html>
<head>
<title>盛维在线调查系统v9.0免费版-&gt问卷调查系统后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="盛维在线调查系统v9.0免费版" name=description>
<link rel="stylesheet" href="../../inc/manage.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<script language="javascript">
function iframeAutoFit()//自适应其加载的网页(多浏览器兼容)
{
 try
 {
	 if(window!=parent)
	 {
		 var a = parent.document.getElementsByTagName("IFRAME");
		 for(var i=0; i<a.length; i++) //author:meizz
		 {
			 if(a[i].contentWindow==window)
			 {
				 var h1=0, h2=0;
				 a[i].parentNode.style.height = a[i].offsetHeight +"px";
				 a[i].style.height = "10px";
				 if(document.documentElement&&document.documentElement.scrollHeight)
				 {
					 h1=document.documentElement.scrollHeight;
				 }
				 if(document.body) h2=document.body.scrollHeight;

				 var h=Math.max(h1, h2);
				 if(document.all) {h += 4;}
				 if(window.opera) {h += 1;}
				 a[i].style.height = a[i].parentNode.style.height = h +"px";
			 }
		 }
	 }
 }
 catch (ex){}
}
if(window.attachEvent)
{
 window.attachEvent("onload",   iframeAutoFit);
 //window.attachEvent("onresize",   iframeAutoFit);
}
else if(window.addEventListener)
{
 window.addEventListener('load',   iframeAutoFit,   false);
 //window.addEventListener('resize',   iframeAutoFit,   false);
}
</script>
<%
dim ObjTC_DB
Set ObjTC_DB = Server.CreateObject("dc_data100_v1_0.C_A_Config")
Function OpenDB(DBfile)
    Set DbConn = Server.CreateObject("ADODB.Connection")
    DbConn.open ObjTC_DB.dbPath(DBfile)
End Function
dim DBConn
openDb DataPathFile

survey_id = CINT(Request("s_id"))
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
	survey_id=Update_survey_title_b(survey_id)
end if
'response.write "survey_id=" & survey_id
'response.end

Set myrs = DbConn.Execute("SELECT Survey_title,Survey_title_exp,is_big_title FROM DC_Title_survey WHERE D_T_S_ID = " & survey_id )
If myrs.EOF Then
	'response.write "出错!"
	Survey_title_b=""
	is_big_title="True"
else
	Survey_title_b=myrs("Survey_title")
	Survey_title_b_exp=myrs("Survey_title_exp")
	is_big_title=myrs("is_big_title")
	myrs.Close
	Set myrs = Nothing
end if
'call CloseDB()
%>
<form action="" method="post" name="S_title_b">
  	<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#5C99DC">
    <!--<tr bgcolor="#EEEEEE"> 
      <td colspan="2"><font color="#FF0000">修改问卷标题</font></td>
    </tr>-->
    <tr bgcolor="#FFFFFF"> 
      <td align="right" width="10%">问卷标题：</td>
      <td width="90%"> 
        <input id="Survey_title_b_id" name="Survey_title_b_id" type="text" value="<%=Survey_title_b%>" size="90">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right" width="12%">补充说明：</td>
      <td> 
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "/fckeditor_2.6.2/"
oFCKeditor.ToolbarSet = "Basic"
'oFCKeditor.ToolbarSet = "Default"
oFCKeditor.Width = "100%"
oFCKeditor.Height = "300"

oFCKeditor.Value = Survey_title_b_exp
oFCKeditor.Create "Survey_title_b_exp_id"
%> 
        <!--<textarea name="Survey_title_b_exp_id" id="Survey_title_b_exp_id" cols="45" rows="5"><%=Survey_title_b_exp%></textarea>
        <input id="Survey_title_b_exp_id" name="Survey_title_b_exp_id" type="text" value="<%=Survey_title_b_exp%>" size="90">-->
      </td>
    </tr>
   <!-- <tr bgcolor="#FFFFFF"> 
      <td align="right">是否显示？</td>
      <td> 
        <input type="radio" name="survey_title_active" value="1" <%if is_big_title="True" Then response.write "checked"%>>
        是 
        <input name="survey_title_active" type="radio" value="0"  <%if is_big_title="False" Then response.write "checked"%>>
        否 </td>
    </tr>-->
    <tr bgcolor="#FFFFFF"> 
      <td align="center" colspan="2"> 
        <input type="hidden" name="s_id" value="<%=survey_id%>">
       <input type="submit" name="Submit" value="更 新">
        <!--<input type="button" value="更 新" onClick="startRequest(<%=survey_id%>);"/>-->
      </td>
    </tr>
  </table>
</form>

<%
function Update_survey_title_b(s_id)
	title = ObjTC_DB.RequestText(Request.Form("Survey_title_b_id"))
	title_exp = ObjTC_DB.RequestText(Request.Form("Survey_title_b_exp_id"))
	'active = ObjTC_DB.RequestText(Request.Form("survey_title_active"))
	DbConn.Execute("UPDATE DC_Title_survey SET Survey_title = '" & title & "',Survey_title_exp='" & title_exp & "' WHERE D_T_S_ID = " & s_id )
	'response.write "<Script Language=""javaScript"">alert('更新完成！');"
	'response.write "<Script>"
	Update_survey_title_b=s_id
End function
%>