<%@ LANGUAGE=VBScript CodePage=65001%>
<% response.charset="utf-8" %>
<% session.codepage=65001 %>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="../LyricInc/access.asp"  -->
<!-- #include file="LyricInc/functions.asp" -->
<!-- #include file="../LyricInc/x_to_html/chat_to_js.asp" -->
<%
act=Request("act")
If act="save" Then 
web_name=trim(request.form("web_name"))
web_wangwang=trim(request.form("web_image"))
web_top=trim(request.form("web_top"))
web_Skype=trim(request.form("web_image2"))
web_MSN=trim(request.form("web_MSN"))
web_stype=trim(request.form("web_stype"))
web_view_yes=trim(request.form("web_view_yes"))

set rs=server.createobject("adodb.recordset")
sql="select * from web_service"
rs.open(sql),cn,1,3
rs("name")=web_name
rs("wangwang")=web_wangwang
rs("Skype")=web_Skype
'rs("MSN")=web_MSN
rs("view_yes")=web_view_yes
'rs("top")=web_top
'rs("stype")=web_stype
rs.update
rs.close
set rs=nothing

call chat_to_js()
response.Write "<script language='javascript' >alert('OK');location.href='chat_Settings.asp';</script>"
end if
 %>
 
	<%
Call header()

%>
<%set rs=server.createobject("adodb.recordset")
sql="select * from web_service"
rs.open(sql),cn,1,1
if not rs.eof and not rs.bof then
%>
  <form id="form1" name="form1" method="post" action="?act=save">
         <script language='javascript'>
function checksignup1() {
if ( document.form1.web_name.value == '' ) {
window.alert('请输入qq号^_^');
document.form1.web_name.focus();
return false;}

return true;}
</script>

	<table cellpadding='3' cellspacing='0' border='0' class='tableBorder' align=center>
	<tr>
	  <th class='tableHeaderText' colspan=2 height=31>浮动条设置</th>
	</tr>
	<tr>
	  <td height=23 colspan="2" class='forumRow'><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="20" class='TipTitle'>&nbsp;√ 操作提示</td>
        </tr>
        <tr>
          <td height="30" valign="top" class="TipWords"><p>1、前台如果未更新，建议清除浏览器的历史记录，页面刷新后查看。</p>
          <p>2、侧边栏浮动条如果不显示，请检查下浏览器或其它电脑软件的广告拦截设置，关闭掉后再查看。</p>
</td>
        </tr>
        <tr>
          <td height="10">&nbsp;</td>
        </tr>
      </table></td>
	  </tr>	<tr>
	  <td class='forumRowHighLight' height=23>是否显示</td>
	  <td class='forumRowHighLight'><label>
	       <input type="radio" name="web_view_yes" value="1"<%
		if rs("view_yes")=1 then
		response.write "checked"
		end if%>>
      显示
      &nbsp;
      <input name="web_view_yes" type="radio" value="0" <%if rs("view_yes")=0 then
		response.write "checked"
		end if%>>
      不显示</label></td>
	  </tr>
  	<tr>
	<td width="15%" height=23 class='forumRow'>微博 网址</td>
	<td class='forumRow'><input name='web_name' type='text' id='web_name' value="<%=rs("name")%>" size='80'> </td>
	</tr>
  	<tr>
	<td width="15%" height=23 class='forumRowHighLight'>微信 二维码图片</td>
	<td class='forumRowHighLight'><table width="100%" border="0" cellspacing="0" cellpadding="0">
         <tr>
           <td width="22%"  class=''><input name="web_image" type="text" id="web_image"  value="<%=rs("wangwang")%>"  size="30"></td>
           <td width="78%"  class=''><iframe width="500" name="ad" frameborder="0" height="30" scrolling="no" src="PetUpload.asp"></iframe></td>
         </tr>
       </table> </td>
	</tr>
  	<tr>
	<td width="15%" height=23 class='forumRow'>手机网站 二维码图片</td>
	<td class='forumRow'><table width="100%" border="0" cellspacing="0" cellpadding="0">
         <tr>
           <td width="22%"  class=''><input name="web_image2" type="text" id="web_image2"  value="<%=rs("skype")%>"  size="30"></td>
           <td width="78%"  class=''><iframe width="500" name="ad" frameborder="0" height="30" scrolling="no" src="PetUpLoad2.asp"></iframe></td>
         </tr>
       </table> </td>
	</tr>    
	<tr><td height="100" colspan=2  class='forumRow2'><div class='ButtonFix' align="center">
	  <INPUT class='GPetSubmit' type=submit value='提 交'  onClick='javascript:return checksignup1()' name=Submit>
	  </div></td></tr>
	</table>
</form>

<%
Call DbconnEnd()
else
response.write "暂时无数据"
end if %>