<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>会展招投标管理中心</title>
<link href="user.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" language="javascript" src="js/jquery.js"></script>
<script type="text/javascript" language="javascript" src="js/site.js"></script>
</head>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="WebAdmins/FCKeditor/fckeditor.asp" -->
<%
Call ChkLogin(Session("DjbUserName"))
Call ConnectionDataBase()
Sql="Select Top 1 * From T_Users Where ID=" & Session("DjbUserID")
SetRs Rs,Sql,conn,1,1
IF Not Rs.Eof Then
	BusinessCard=Rs("BusinessCard")
	houseid =Rs("houseids")
	Content =Rs("Content")	
	company =Rs("company")	
End IF
DisRs Rs
%>
<body>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
    <td><img src="images/ab_03.jpg" width="150" height="47" alt="" /> <a href="/ucompany.asp?userid=<%= Session("DjbUserID") %>" target="_blank">点击查看空间</a> </td>
  </tr>
</table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td><img src="images/ab_06.jpg" width="959" height="78" alt="" /></td>
  </tr>
</table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td width="180" valign="top"><!--#include file="vipleft.asp"-->
    </td>
    <td valign="top"><table width="98%" height="304" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="226" valign="top" class="borderall"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EDF6E3" class="margintop">
          <tr>
            <td height="30" class="borderall"> &nbsp;&gt;&gt;扩展信息</td>
          </tr>
        </table>
		<!--#include file="vip_infor_top.asp"-->
		<form action="submit.asp" name="frm" method="post" />
		<input type="hidden" name="action" value="modicompanyinfor" />
		<input type="hidden" name="id" value="<%=Session("DjbUserID")%>" />
          <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
            <tr>
              <td align="right" class="borderall">公司名称:</td>
              <td class="borderall" style="padding:5px"><input type="text" name="company" value="<%=company%>" /></td>
            </tr>
            <tr>
              <td width="15%" align="right" class="borderall">企业名片:</td>
              <td width="85%" class="borderall" style="padding:5px">
			  <input type="text" name="BusinessCard" id="BusinessCard" class="boxb" value="<%=BusinessCard%>" />
    		  <input type="button" value="添加图片" class="btn2" onClick="window.open('inc/UpLoad.asp?formname=frm&EditName=BusinessCard&filepath=Users&fileType=gif,jpg,png','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 建议上传比例:168px * 50px,支持格式:gif,jpg,png<br />	
			  <%
			  qymp="images/qymp.jpg"
			  IF BusinessCard<>"" Then qymp="UpLoadFiles/Users/" & BusinessCard			  
			  %>
			  <img src="<%=qymp%>" width="168" vspace="5" />			  </td>
            </tr>
			<tr>
              <td align="right" class="borderboth">设计专长:</td>
              <td class="borderboth">
			  <%
			  Sql="Select * From T_Class Where CateID=1 Order BY SortID DESC,ID ASC"
			  SetRs Rs,Sql,Conn,1,1
			  Do While Not Rs.Eof
			  	checked=""
			  	IF houseid<>"" Then
					HouseIDs=Split(houseid,",")
					For i=0 To UBOUND(HouseIDs)
						IF Trim(HouseIDs(i))=Cstr(Rs("ID")) Then
							checked="checked"
							Exit For
						End IF
					Next
				End IF
			  	Response.Write "<input type='checkbox' name='houseid' id='houseid' value='"& Rs("ID") &"' "& checked &" /> " & Rs("ClassName")
			  Rs.movenext
			  Loop
			  DisRs Rs
			  %>			  </td>
            </tr>
			<tr>
              <td align="right" class="borderboth">公司简介:</td>
              <td class="borderboth">
			  <% 
				Dim oFCKeditor
				Set oFCKeditor = New FCKeditor
				oFCKeditor.BasePath = "WebAdmins/FCKeditor/" '设置编辑器的路径，我站点根目录下的一个目录
				oFCKeditor.ToolbarSet = "Define"
				oFCKeditor.Width = "98%"
				oFCKeditor.Height = "300"
				
				oFCKeditor.Value = Content '这个是给编辑器初始值
				oFCKeditor.Create "Content" '以后编辑器里的内容都是由这个logbody取得，命名由你定		
				%>			  </td>
            </tr>
			<tr>
              <td align="right" class="borderboth">&nbsp;</td>
              <td class="borderboth"><input type="image" src="images/save.jpg" /></td>
            </tr>
          </table>
		  </form>
		  </td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
