<% userPageRights="{info}" %>
<!--#include file="check.asp"-->
<!--#include file="../include/Char.asp"-->
<%

'Define Variable 
dim i
dim rs,rst
dim mTypeName,mGrade,mSql,mFlag,mBgColor
Set rs=Server.CreateObject("Adodb.RecordSet")

'initialization 
mFlag=true'add


'edit
if request("action")="edit" then 
  mSql="Select * From info_mater Where F_ID="&Request.QueryString("ModifyID")
  Set rs=Conn.Execute(mSql)
  If not rs.Eof then
    mname=rs("F_name")
    mtext=rs("F_text")
	mlink=rs("F_link")
	mtel=rs("F_tel")
	mfax=rs("f_fax")
	mpostcode=rs("f_postcode")
	maddress=rs("f_address")
	memail=rs("f_email")
	mweb=rs("f_web")
	mcity=rs("f_city")
	mbigclassid=rs("f_bigclassid")
	msmallclassid=rs("f_smallclassid")
  rs.Close
  End if
  mFlag=false
end if

'Insert Records
if request("action")="Insert" then
 ' response.write request("langmu2")
 ' response.end
  mSql="Select * From info_mater where f_name='"&Trim(Request.Form("info_name"))&"'"
  rs.open mSql,conn,3,3
  if not rs.eof then
   response.write "<script>alert('您输入的分类信息名称已经重复，请重新输入！');history.back();</Script>"
	Response.end
  end if
  rs.AddNew
  rs("F_name")=Trim(Request.Form("info_name"))
  rs("F_bigclassid")=Trim(Request.Form("langmu"))
  rs("F_smallclassid")=Trim(Request.Form("langmu2"))  
  rs("f_tel")=Trim(Request.Form("info_tel"))
  rs("f_image")=application("newsuploadpic")
  'rs("F_area")=Trim(Request.Form("selBigCategory"))
  rs("F_city")=Trim(Request.Form("TypeID"))
  rs("F_link")=Trim(Request.Form("info_link"))
  rs("F_address")=Trim(Request.Form("info_address"))
  rs("F_fax")=Trim(Request.Form("info_fax"))
  rs("F_postcode")=Trim(Request.Form("info_post"))
   
  rs("F_email")=Trim(Request.Form("info_email"))
  rs("F_web")=Trim(Request.Form("info_http"))  
  rs("F_text")=Request.Form("txtContent")
  rs("F_regtime")=now()
  
  rs.update
  Select Case Trim(Request.Form("langmu"))
case "1"
f_filename="house"
case "2"
f_filename="play"
case "4"
f_filename="service"
case "5"
f_filename="food"
end select
 application("newsuploadpic")=""
  rs.close
  set rss=conn.execute("select F_Id from info_mater order by F_Id desc")
  if not rss.eof then
  iss=rss("F_id")
  response.redirect "Admin_info.asp"
  end if
end if

'Modify Records
if request("action")="editsave" then
  mSql="Select * From info_mater Where F_ID="&Request.QueryString("ModifyID")
  rs.open mSql,conn,1,3
 rs("F_name")=Trim(Request.Form("info_name"))
  rs("F_bigclassid")=Trim(Request.Form("langmu"))
  rs("F_smallclassid")=Trim(Request.Form("langmu2"))  
  rs("f_tel")=Trim(Request.Form("info_tel"))
   if application("newsuploadpic")<>"" then
  rs("f_image")=application("newsuploadpic")
  end if
  'rs("F_area")=Trim(Request.Form("selBigCategory"))
  rs("F_city")=Trim(Request.Form("TypeID"))
  rs("F_link")=Trim(Request.Form("info_link"))
  rs("F_address")=Trim(Request.Form("info_address"))
  rs("F_fax")=Trim(Request.Form("info_fax"))
  rs("F_postcode")=Trim(Request.Form("info_post"))
  rs("F_on")=0
  rs("F_email")=Trim(Request.Form("info_email"))
  rs("F_web")=Trim(Request.Form("info_http"))  
  rs("F_text")=(checkStr(Request.Form("txtContent")))
  rs.update
  application("newsuploadpic")=""
    Response.write "<script>alert('修改成功！');location.replace('Admin_info.asp?pageno="&Request.Querystring("pageno")&"')</script>"
	Response.End()
  flag=false
end if

'Delect Records 删除
if request("action")="delete" then
  msql="select * from info_mater WHERE F_ID=" &Request.QueryString("DeleteID")
  rs.open mSql,conn,1,3
  if not rs.eof then
  m_delimage=rs("f_image")
         '   if rs("f_image") <>"" then
	        '  delfname=server.mappath("..\WebEditor\UploadFile") & "\"&m_delimage  '删除文件
         '     set TestFileObject=Server.Createobject("Scripting.FileSystemObject")
         '     if  TestFileObject.FileExists(delfname) then
          '     set NewFile=TestFileObject.getfile(delfname)
        '       Newfile.delete
	     '     end if
		'	end if
		'删除评论
		delSql="delete from info_mcomment Where F_materID="&rs("f_id")
         Conn.Execute(delSql)		
  rs.delete
  rs.update
  end if
 
  Response.write "<script>location.replace('admin_info.asp?action=IsDelete&pageno="&Request.Querystring("pageno")&"')</script>"
end if


%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<%
set rs1=server.createobject("adodb.recordset")
sql = "select * from info_SmallClass order by f_ID asc"
rs1.open sql,conn,1,1
%>
<script language = "JavaScript">
var lmcount;
lm=new Array();
<%count=0
do while not rs1.eof
%>
lm[<%=count%>]=new Array('<%= trim(rs1("f_value"))%>','<%= trim(rs1("f_bigclassid"))%>','<%= trim(rs1("f_id"))%>');
<%
count=count+1
rs1.movenext
loop
rs1.close
%>
lmcount=<%=count%>;
function changelangmu1(langmu1){
document.form1.langmu2.length=1; 
var langmu1=langmu1;
var i;
for (i=0;i<lmcount; i++){
if (lm[i][1]==langmu1){ 
document.form1.langmu2.options[document.form1.langmu2.length]=new Option(lm[i][0], lm[i][2]);
}        
}
}    
</script>
<SCRIPT language="JavaScript">
function jDelete(url)
{
  if((confirm(" 警告:请确定是否删除,删除后不能恢复! "))==true) 
	self.location=url+'&action=delete';
}
</SCRIPT>
<script language="javascript">
function CheckData(){
  if (document.form1.info_name.value=="")
   {
    alert("名称不能为空，请输入！");
	document.form1.info_name.focus();
	return false;
   }
     if (document.form1.langmu.value=="")
   {
    alert("请选择大类！");
	document.form1.langmu.focus();
	return false;
   }
   
   if (document.form1.langmu2.value=="")
   {
    alert("请选择小类！");
	document.form1.langmu2.focus();
	return false;
   }
  if (document.form1.info_tel.value=="")
   {
    alert("联系电话不能为空，请输入！");
	document.form1.info_tel.focus();
	return false;
   }   

}
</script>
</head>
<body text="#000000" >

<br>
<table width="95%" border="0" align="center" cellpadding="0">
  <form name="form_txt" method="post" action="admin_info.asp"><tr>
      <td>搜索： 
        <input name="txtword" type="text" id="txtword">
        <select name="txtclass" id="txtclass">
          <option value="">选择类型</option>
		    <% 
				classsql="select * from info_BigClass"
	  'classsql="select f_id,f_value from mall_shopcategory order by f_index desc"
	  Set rsclass=Conn.Execute(classSql)
	  do while not rsclass.eof 
	  %>
      <option value="<%=rsclass("f_id")%>"><%=rsclass("f_value")%></option>
	  <%
	  rsclass.movenext 
	  loop
	  rsclass.close
	  set rsclass=nothing
	  %>
        </select> 
        <input type="submit" name="Submit" value="搜索"> </td>
  </tr></form>
</table>

<table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
  <tr > 
    <th height="22" colspan="7"> 分类信息列表</span></th>
  </tr>
  <tr > 
    <td width="6%" align="center" class=forumHeaderBackgroundAlternate><b>ID</b></td>
    <td class=forumHeaderBackgroundAlternate width="17%"><b>名称</b></td>
    <td width="12%" class=forumHeaderBackgroundAlternate><strong>所在区域</strong></td>
    <td width="15%" class=forumHeaderBackgroundAlternate><b>联系电话</b></td>
    <td width="11%" align="center" class=forumHeaderBackgroundAlternate><b>所属分类</b></td>
    <td width="12%" align="center" class=forumHeaderBackgroundAlternate><b>所属小类</b></td>
    <td width="27%" align="center" class=forumHeaderBackgroundAlternate><b>管理</b></td>
  </tr>
  <%  
	Set rs=Server.createobject("Adodb.RecordSet")
    pageno=request("pageno")
    pmcount=16  
	m_txtword=trim(request("txtword"))
	m_txtclass=trim(request("txtclass"))
	
    mSql="select * from info_mater where 1=1"
	if m_txtword<>"" then
	msql=msql&" and ( f_name like '%"&m_txtword&"%')"
	end if
	if m_txtclass<>"" then
	msql=msql&" and F_bigclassid="&m_txtclass
	end if
	msql=msql&" order by f_regtime desc"
	
	
	rs.open mSql,conn,1,1
	if rs.eof then
	   'response.write "<br><p  align='center'><font color=red><B> 对不起，数据已清空！</B></font></p>"
    else
    rs.pagesize=pmcount
    mpage=rs.pagecount
    if pageno="" then pageno=1
    if  cint(pageno)<1 or cint(pageno)>mpage then  pageno=1
    rs.absolutepage=pageno

 Dim rc,re
 rc=rs.pagesize
 re=1
 do while not rs.eof and rc>0
 mBgColor=Request.Querystring("BgColor")
 if Trim(rs("F_ID"))=Trim(mBgColor) then mColor= "D6DFFF" else mColor= "ffffff"
%>

<%
Select Case rs("F_bigclassid")
case "1"
f_filename="house"
case "2"
f_filename="play"
case "4"
f_filename="service"
case "5"
f_filename="food"
end select
%>

  <tr> 
    <td  class=forumRow width="6%" align="center"><%=rs("F_ID")%></td>
    <td class=forumRow width="17%" ><%=rs("F_name")%></td>
    <td class=forumRow >
	<%  
	mSql="Select F_ID,F_Value From T_areaType where F_CityTypeID=15 and f_id="&rs("f_city")
	Set rst = conn.Execute(mSql)
	if not rst.eof then
	%>
	<%=rst("F_value")%>
	<%
	end if
	rst.close
	set rst=nothing
	%>
	 </td>
    <td class=forumRow ><%=rs("F_tel")%></td>
    <td class=forumRow width="11%" align="center" > <%
	  classsql="select f_value from info_bigclass where f_id="&rs("F_bigclassid")
	  Set rsclass=Conn.Execute(classSql)
	  if not rsclass.eof then
	  %> <%=rsclass("f_value")%> <%
	  end if
	  rsclass.close
	  set rsclass=nothing
	  %> </td>
    <td class=forumRow width="12%" align="center" > <%
	  classsql="select f_value from info_smallclass where f_id="&rs("F_smallclassid")
	  Set rsclass=Conn.Execute(classSql)
	  if not rsclass.eof then
	  %> <%=rsclass("f_value")%> <%
	  end if
	  rsclass.close
	  set rsclass=nothing
	  %> </td>
    <td class=forumRow width="27%" align="center" >
	<%
			'推荐处理
			if Request("action") = "Istj" then
			  mIstj = Request("Istj")
			  if mIstj=1 then mIstj = 0 else mIstj = 1
			  mSql = "update info_mater Set F_index= "&mIstj&" Where F_ID="&Request("ModifyID")
              conn.execute(mSql)
			  Response.redirect "Admin_info.asp?txtclass="&m_txtclass&"&pageno="&Request("pageno")
			end if
			Response.Write "<a href='Admin_info.asp?action=Istj&txtclass="&m_txtclass&"&Istj="&rs("F_index")&"&pageno="&Request("pageno")&"&ModifyID="&rs("F_ID")&"'>"
			if rs("F_index")=1 then Response.Write "<font color=red><b>推荐</b></font>" Else Response.write "<font color=#0000FF><b>普通</b></font>"
			Response.Write "</a>"
			%>-
			<%
			'热点处理
			if Request("action") = "Ism_off" then
			  mIsm_off = Request("Ism_off")
			  if mIsm_off=1 then mIsm_off = 0 else mIsm_off = 1
			  mSql = "update info_mater Set F_hot= "&mIsm_off&" Where F_ID="&Request("ModifyID")
              conn.execute(mSql)
			  Response.redirect "Admin_info.asp?txtclass="&m_txtclass&"&pageno="&Request("pageno")
			end if
			Response.Write "<a href='Admin_info.asp?action=Ism_off&txtclass="&m_txtclass&"&Ism_off="&rs("F_hot")&"&pageno="&Request("pageno")&"&ModifyID="&rs("F_ID")&"'>"
			if rs("F_hot")=1 then Response.Write "<font color=red><b>热点</b></font>" Else Response.write "<font color=#0000FF><b>普通</b></font>"
			Response.Write "</a>"
			%>-
			<a title="添加记录" href='admin_info.asp?pageno=<%=mPage%>'><font color="#666666">[添加]</font></a><a title="修改记录" href='admin_info.asp?action=edit&ModifyID=<%=rs("F_ID")%>&BgColor=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>&f_filename=<%=f_filename%>'><font color="#666666">[修改]</font></a><a title="请确定是否删除,删除后不能恢复!" href="javascript:jDelete('admin_info.asp?DeleteID=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>&f_filename=<%=f_filename%>')"><font color="#666666">[删除]</font></a></td>
  </tr>
  <%
 rs.movenext
 re=re+1
 rc=rc-1
 loop
 end if
%>
  <tr  > 
    <td class=forumRow align="center" colspan="9"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="38%" height="22"> &nbsp;共 <font color=red><strong> 
            <% = rs.recordcount%>
            </strong></font> 条记录 当前第 <font color=red><strong> 
            <% = Trim(pageno)%>
            </strong></font>页/共 <font color=red><strong> 
            <% = Trim(mpage)%>
            </strong></font>页 </td>
          <td width="62%" align="right"> <%
if pageno>1 then
   response.write "<a href='admin_info.asp?txtclass="&m_txtclass&"&txtword="&m_txtword&"'> <img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'>"
end if

if pageno>1 then
   response.write "<a href='admin_info.asp?txtclass="&m_txtclass&"&txtword="&m_txtword&"&pageno="&pageno-1&"'><img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'>"
end if

add=5'数字分页个数+1
if pageno-int(add/2)<=1 then m=1 else m=pageno-int(add/2)
if m+add>mpage then 
   n=mpage
   if mpage-add<=1 then m=1 else m=mpage-add
else
   n=m+add
end if

for pno=m to n
 if pno=cint(pageno) then
   response.write "&nbsp;<font color=red>"&pno&"</font>"
 else
   response.write "<b>&nbsp;<a href='admin_info.asp?txtclass="&m_txtclass&"&txtword="&m_txtword&"&pageno="&pno&"'>"&pno&"</a></b>"
 end if
next
response.write "&nbsp"

if int(pageno) < int(rs.pagecount) then
  response.write "<a href='admin_info.asp?txtclass="&m_txtclass&"&txtword="&m_txtword&"&pageno="&pageno+1&"'><img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'></a>"
else 
  response.write "<img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'>"
end if

if int(pageno) < int(rs.pagecount) then
   response.write "<a href='admin_info.asp?txtclass="&m_txtclass&"&txtword="&m_txtword&"&pageno="&mpage&"'><img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'>"
end if
Response.write "&nbsp;&nbsp;"
%> </td>
        </tr>
      </table></td>
  </tr>
</table> 
<%
application("newsuploadpic")=""
%>
        <%if mFlag=true then'add%>
            <form name="form1" method="post" action="admin_info.asp?pageno=<%=mpage%>&action=Insert" onSubmit="return CheckData()">
  <table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
    <tr > 
      <th height="22" colspan="2">功能：新增信息</th>
    </tr>
    <tr> 
      <td class=forumRowHighlight width="12%" height="19">名称：</td>
      <td class=forumRow width="88%"><input name="info_name" type="text"  class='text' id="info_name" value="" size="22" maxlength="80"> 
        <font color="#FF0000"> *</font></td>
    </tr>
    <tr> 
      <td width="12%" height="22">所属类别：</td>
      <td> <select size="1" name="langmu" onChange="changelangmu1(document.form1.langmu.value)">
          <option value="" selected>请选择大类</option>
          <%
		Set rs1=Server.createobject("Adodb.RecordSet")
        sql = "select * from info_BigClass"
        rs1.open sql,conn,1,1
		if rs1.eof and rs1.bof then
			response.write "请先添加类别"
		else		
		    do while not rs1.eof
			%>
          <option value="<%=trim(rs1("f_id"))%>"><%=trim(rs1("f_value"))%></option>
          <%
		        rs1.movenext
    	    loop
		end if
        rs1.close
			%>
        </select> <select size="1" name="langmu2">
          <option selected value="">请选择小类</option>
        </select> </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>联系电话： </td>
      <td class=forumRow><input name="info_tel" type="text"  class='text' id="info_tel" value="" size="22" maxlength="80"> 
        <font color="#FF0000"> *</font></td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>区 域：</td>
      <td class=forumRow> <select name="selBigCategory" >
          <%
             mSql="Select F_ID,F_Value From T_CityType where F_ID=15 "
			 Set rst = conn.Execute(mSql)
		 if not rst.eof then
          %>
          <option value="<%=rst("f_id")%>"><%=rst("f_value")%></option>
          <%
		 end if
		  rst.close
		  set rst=nothing
		  %>
        </select> <select name="TypeID" >
          <%
             mSql="Select F_ID,F_Value From T_areaType where F_CityTypeID=15 order by f_grade"
			 Set rst = conn.Execute(mSql)
			 do while not rst.eof
          %>
          <option value="<%=rst("f_id")%>"><%=rst("f_value")%></option>
          <%
		  rst.movenext
		  loop
		  rst.close
		  set rst=nothing
		  %>
        </select> </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>联系人：</td>
      <td class=forumRow><input name="info_link" type="text"  class='text' id="info_link" value="" size="22" maxlength="80"> 
        <font color="#FF0000">* </font></td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>联系地址：</td>
      <td class=forumRow><input name="info_address" type="text"  class='text' id="info_address" value="" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>传真号码：</td>
      <td class=forumRow><input name="info_fax" type="text"  class='text' id="info_fax" value="" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>邮政编号：</td>
      <td class=forumRow><input name="info_post" type="text"  class='text' id="info_post" value="" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>E-mail：</td>
      <td class=forumRow><input name="info_email" type="text"  class='text' id="info_email" value="" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>网 址：</td>
      <td class=forumRow><input name="info_http" type="text"  class='text' id="info_http" value="" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td valign="top" class=forumRowHighlight>信息介绍：</td>
      <td class=forumRow><textarea name="txtContent" style="display:none" ></textarea> 
        <IFRAME ID="LatticeEditDocument" SRC="eEditor/ewebeditor.asp?id=txtContent&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME></td>
    </tr>
    <tr> 
      <td class=forumRowHighlight height="40" colspan="2"><input type="submit" name="Submit3" value="提交" class="button"> 
        <input type="reSet" name="Submit22" value="重置" class="button"></td>
    </tr>
  </table>
            </form>
        <%else%>
            <form name="form1" method="post" action="admin_info.asp?pageno=<%=request("pageno")%>&action=editsave&ModifyID=<%=request("ModifyID")%>" onSubmit="return CheckData()">
  <table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
    <tr > 
      <th height="22" colspan="2">功能：修改信息</th>
    </tr>
    <tr> 
      <td class=forumRowHighlight width="12%" height="19">名称：</td>
      <td class=forumRow width="88%"><input name="info_name" type="text"  class='text' id="info_name" value="<%=mname%>" size="22" maxlength="80">
        <font color="#FF0000"> *
        <input name="f_filename" type="hidden" id="f_filename" value="<%=Request("f_filename")%>">
        </font></td>
    </tr>
    <tr> 
      <td width="12%" height="22">所属类别：</td>
      <td> <select size="1" name="langmu" onChange="changelangmu1(document.form1.langmu.value)">
          <option value="" selected>请选择大类</option>
          <%
		Set rs1=Server.createobject("Adodb.RecordSet")
        sql = "select * from info_BigClass"
        rs1.open sql,conn,1,1
		if rs1.eof and rs1.bof then
			response.write "请先添加类别"
		else		
		    do while not rs1.eof
			%>
          <option value="<%=trim(rs1("f_id"))%>" <% if mbigclassid=rs1("f_id") then %>selected<% end if %>><%=trim(rs1("f_value"))%></option>
          <%
		        rs1.movenext
    	    loop
		end if
        rs1.close
			%>
        </select> <select size="1" name="langmu2">
          <option selected value="">请选择小类</option>
        </select> </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>联系电话： </td>
      <td class=forumRow><input name="info_tel" type="text"  class='text' id="info_tel" value="<%=mtel%>" size="22" maxlength="80">
        <font color="#FF0000"> *</font></td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>区 域：</td>
      <td class=forumRow><select name="selBigCategory" >
          <%
         mSql="Select F_ID,F_Value From T_CityType where F_ID=15 "
		 Set rst = conn.Execute(mSql)
		 if not rst.eof then
          %>
          <option value="<%=rst("f_id")%>"><%=rst("f_value")%></option>
          <%
		 end if
		  rst.close
		  set rst=nothing
		  %>
        </select> 
        <select name="TypeID" id="TypeID" >
          <%
             mSql="Select F_ID,F_Value From T_areaType where F_CityTypeID=15 order by f_grade"
			 Set rst = conn.Execute(mSql)
			 do while not rst.eof
          %>
          <option value="<%=rst("f_id")%>" <% if mcity=rst("f_id") then %>selected<% end if %>><%=rst("f_value")%></option>
          <%
		  rst.movenext
		  loop
		  rst.close
		  set rst=nothing
		  %>
        </select></td>
    </tr>
	<tr> 
      <td class=forumRowHighlight>联系人：</td>
      <td class=forumRow><input name="info_link" type="text"  class='text' id="info_link" value="<%=mlink%>" size="22" maxlength="80">
        <font color="#FF0000">* </font></td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>联系地址：</td>
      <td class=forumRow><input name="info_address" type="text"  class='text' id="info_address" value="<%=maddress%>" size="22" maxlength="80">
      </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>传真号码：</td>
      <td class=forumRow><input name="info_fax" type="text"  class='text' id="info_fax" value="<%=mfax%>" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>邮政编号：</td>
      <td class=forumRow><input name="info_post" type="text"  class='text' id="info_post" value="<%=mpostcode%>" size="22" maxlength="80"> 
      </td>
    </tr>
	    <tr> 
      <td class=forumRowHighlight>E-mail：</td>
      <td class=forumRow><input name="info_email" type="text"  class='text' id="info_email" value="<%=memail%>" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td class=forumRowHighlight>网 址：</td>
      <td class=forumRow><input name="info_http" type="text"  class='text' id="info_http" value="<%=mweb%>" size="22" maxlength="80"> 
      </td>
    </tr>
    <tr> 
      <td valign="top" class=forumRowHighlight>信息介绍：</td>
      <td class=forumRow><textarea name="txtContent" style="display:none" ><%=mtext%></textarea> 
                          <IFRAME ID="LatticeEditDocument" SRC="eEditor/ewebeditor.asp?id=txtContent&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME></td>
    </tr>
    <tr> 
      <td class=forumRowHighlight height="40" colspan="2"><input type="submit" name="Submit3" value="提交" class="button"> 
        <input type="reSet" name="Submit22" value="重置" class="button"></td>
    </tr>
  </table>
  </form>
        <%end if%>

</body>
</html>
<%
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
%>