<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<!--#include file="Common/fy_ClsEmail.asp"-->
<!--#include file="ipcode.asp"-->
<%
Function GetCode()
	Dim TestObj
	On Error Resume Next
	Set TestObj = Server.CreateObject("Adodb.Stream")
	Set TestObj = Nothing
	If Err Then
		Dim TempNum
		Randomize timer
		TempNum = cint(8999*Rnd+1000)
		Session("GetCode") = TempNum
		GetCode = Session("GetCode")
	Else
		GetCode = "<img src=""common/GetCode.asp"" onclick='this.src=this.src;' style='cursor:pointer'>"		
	End If
End Function
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户中心 - <% =strSiteName%></title>
<meta name="Keywords" content="重庆信息网" />
<meta name="Description" content="重庆信息网" />
<link href="imger/css.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
.STYLE11 {
	color: #FF0000;
	font-size: 14px;
}
.STYLE12 {font-size: 14px}
-->
</style>
<%
set rss=server.createobject("adodb.recordset")
sqls = "select * from SmallClass order by sj desc"
rss.open sqls,conn,1,1
%>
<script language = "JavaScript">
var onecount;
subcat = new Array();
        <%
        count = 0
        do while not rss.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rss("id"))%>","<%=trim(rss("dl"))%>","<%= trim(rss("smallclassname"))%>");
        <%
        count = count + 1
        rss.movenext
        loop
        rss.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.SmallClassName.length = 1; 
    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][2], subcat[i][0]);
            }        
        }
    }    

</script>
<script language="javascript">
<!--
function IsDigit(){
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
// -->
</script>
</head>
<body>
<script language="javascript">
//检查email的合法性
function checkemail(inputstr){
	if(inputstr.indexOf('@') != -1 && inputstr.indexOf('.')!= -1)
		return true;
	else 
   		return false;	
}
//检验表单的合法性
function addinfock(){
	if (document.myform.sheng.value == "0") {
		alert("\请选择信息面向的地区！");
		document.myform.sheng.focus();
		return false;
	}
    else if (document.myform.Topic.value == "") {
		alert("\请填写信息主题！");
		document.myform.Topic.focus();
		return false;
	}
    else if (document.myform.Topic.value.length < 2) {
		alert("\信息主题不能少于2个字符！");
		document.myform.Topic.focus();
		return false;
	}
    else if (document.myform.Content.value == "") {
		alert("\请填写信息内容！");
		document.myform.Content.focus();
		return false;
	}
	else if (document.myform.ContactMan.value == "") {
		alert("\请填写联系人！");
		document.myform.ContactMan.focus();
		return false;
	}
	else if (document.myform.Tel.value == "") {
		alert("\请填写联系电话！");
		document.myform.Tel.focus();
		return false;
	}
		else if (document.myform.Email.value == "") {
		alert("\请填写联系 E-Mail！");
		document.myform.Email.focus();
		return false;
	}
	else if (document.myform.Email.value == "" || !checkemail(document.myform.Email.value)) {
		alert("\E-Mail 填写错误，请填写有效的信箱，如 username@163.com ！");
		document.myform.Email.focus();
		return false;
	}
	else if (document.myform.InfoDate.value == "0") {
		alert("\请选择信息有效期！");
		document.myform.InfoDate.focus();
		return false;
	}
else if (document.myform.otherpwd.value == "") {
		alert("\请填写验证码！");
		document.myform.otherpwd.focus();
		return false;
	}
}
</script>
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" valign="top">
<%if Session("boobuser")="" or Session("boobpass")="" or Session("intMemberKey")= "" then%>
<table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><iframe name="login" width="172" height="110" src="common/inc_login.asp" scrolling="no" align="middle" border="0" frameborder="0" marginwidth="1" marginheight="1" target="_top">
				浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="imger/announce.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
					Dim rdsAffiche
					Dim sqlAffiche
					Dim intAfficheCot
					Dim intAfficheCount
					Dim strAfficheSubject
          
					intAfficheCot = 5
					set rdsAffiche = Server.CreateObject("ADODB.Recordset")
					sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
					rdsAffiche.Open sqlAffiche,Conn,1,1
					if not rdsAffiche.EOF then
					do while not rdsAffiche.EOF 
					%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank"><% = rdsAffiche("Topic")%></a></td></tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr><%intAfficheCount = intAfficheCount + 1
							if intAfficheCount > intAfficheCot then exit do
							rdsAffiche.MoveNext 
					loop
                    else
                    %>
                    <tr>
                      <td width="100%" height="22"><font color="#FF0000">&nbsp;&nbsp;没有站务公告信息</font>...</td>
                    </tr>
                    <%
                    end if
					rdsAffiche.Close
					set rdsAffiche = nothing
                    %>
                  </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="imger/trade.gif" width="172" height="37"></td>
              </tr>
              <tr>
                <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                      <%
                      Dim rdsInfo1
                      Dim sqlInfo1
                      Dim intInfoCount1
                      Dim strInfoClass1
                      Dim strTopic1
                      
                      set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
                      sqlInfo1 = "Select top "&intNewInfoCot&" infokey,tj,state,infoclass,topic,pic,color,CreateTime From Dat_Information Where State = 1 order by infokey desc"
                      rdsInfo1.Open sqlInfo1,Conn,1,1
                      if not rdsInfo1.EOF then
                        do while not rdsInfo1.EOF
		xxlx3=rdsInfo1("InfoClass")
								strTopic1 =leftt(rdsInfo1("Topic"),24)
							pic=rdsInfo1("pic")
							strcolor=rdsInfo1("color")
							strsjnew=rdsInfo1("CreateTime")
							strsj1new=FormatTime(strsjnew,6)
                      %>
                        <tr> 
                          <td height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_Info.asp?Id=<% = rdsInfo1("InfoKey")%>" target="_blank" class="a01"><%if  strcolor<>""  then%><font color="#<%=strcolor%>"><% = strTopic1%></font><%else%><% = strTopic1%><%end  if%></a>
</td></tr>
						<tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
				      <%
					rdsInfo1.MoveNext
						loop
				      else
				      %>
						<tr>
						  <td width="100%" colspan="2" height="22">&nbsp;<font color="#FF0000">对不起!没有相匹配的信息</font>...</td>
						</tr>
				      <%
				      end if
					  rdsInfo1.Close
					  set rdsInfo1 = nothing
				      %>	
                      </table></td>
              </tr>
          </table></td>
        </tr>
      </table>
<%else%>
<table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="imger/user.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0">
			  <tr>
			    <td width="100%" height="23" class="F16"><span class="STYLE11">·</span><a href="add.asp"><span class="STYLE2">信息发布</span></a></td>
			  </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
			  <tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="me.asp"><span class="STYLE2">信息管理</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
			  <tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="edit_user.asp"><span class="STYLE2">资料维护</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
			  <tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="feedback.asp"><span class="STYLE2">留言反馈</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
			  <tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="sjgj.asp"><span class="STYLE2">会员升级</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
			  <tr>
			    <td height="23" class="F16"><span class="STYLE11">·</span><a href="logout.asp"><span class="STYLE2">安全退出</span></a></td>
			    </tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
                  </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
<%end if%>
</td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td height="24" background="imger/09.gif"><span class="STYLE6">≡</span> <span class="STYLE2"><b>您的位置：</b></span><span class="STYLE4">首页 &gt;&gt; 会员中心</span></td>
          </tr>
          <tr>
            <td background="imger/09.gif"><table cellSpacing="0" cellPadding="0" border="0">
					<tr>
						<td width="587" height="32" background="images/vxinxi.gif" align="center">
&nbsp;&nbsp;注：<font color="#FF0000"><%if sh=1 then%>请发布真实信息，若信息合法，我们保证24小时内审核后发布。</font><%else%><b><u><font color="#FF0000">好消息，为了方便大家交易，本站现在关闭信息审核！<%end if%></font></u></b></td>
					</tr>
				</table>
				<table cellSpacing="1" cellPadding="0" width="100%" bgColor="#f1f1f1" border="0">
					<tr>
						<td bgColor="#ffffff">
<table cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="0">
            <tbody>
              <tr>
               <td vAlign="top" width="100%" align="center">
<table width="100%" height="20" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
                        <tr> 
                          <td width="100%" valign="center" style="line-height: 150%">
<%
if UCase(changechr(Request.Form("Oper"))) = "MYFORM" then

fly=ChkIsOuteradd()
if fly=true then
Response.write("<script>alert(""禁止外部提交！"");location.href=""index.asp"";</script>")
Response.end
else
otherpwd = Trim(Request.form("otherpwd"))

if otherpwd <> CStr(Session("GetCode"))  then 
	Response.Write("<script>alert(""错误：\n验证码错误"");javascript:history.go(-1) ;</script>")
	Response.End
end if
if otherpwd= "" then
	Response.Write("<script>alert(""错误：\n请填写验证码"");javascript:history.go(-1) ;</script>")
	Response.End
elseif Session("GetCode") = "9999" then
	Session("GetCode")=""
elseif Session("GetCode") = "" then
	Response.Write("<script>alert(""错误：\n请不要重复提交。\n返回后请刷新页面后重新输入正确的信息"");javascript:history.go(-1) ;</script>")
	Response.End
elseif cstr(Session("GetCode"))<>cstr(Trim(Request("otherpwd"))) then
	Response.Write("<script>alert(""错误：\n您输入的确认码和系统产生的不一致，请重新输入。\n返回后请刷新页面后重新输入正确的信息"");javascript:history.go(-1) ;/script>")
	Response.End
end if
if intMemberKey="" then
intMemberKey=0
end if
tian=changechr(trim(Request.Form("InfoDate")))
tj=changechr(Request.Form("tj"))
if tj<>"" then
pdsf=session("point")-(tian*addinfopoint)
if pdsf < 0 then
response.write"<SCRIPT language=JavaScript>alert('对不起，您的点数不足，发布一天需要"&addinfopoint&"点，请返回自觉选择信息有效期！');"
response.write"javascript:history.back();</SCRIPT>"  
response.end
end if
end if
	Dim rdssaddInfo
		Set rsmaxid= Conn.Execute("select max(infokey) from Dat_Information")
		MaxAID=rsmaxid(0)
		if isnull(MaxAID) or Not IsNumeric(MaxAID) then MaxAID=0
		MaxAID=MaxAID+1
		rsmaxid.close
		set rsmaxid=nothing
set rdssaddInfo = Server.CreateObject("ADODB.Recordset")
rdssaddInfo.Open "Dat_Information",Conn,3,3
dq=changechr(Request.Form("sheng"))
lx=changechr(Request.Form("InfoClass"))
bname=changechr(Request.Form("BigClassName"))
ContactMan=changechr(Request.Form("ContactMan"))
email=changechr(Request.Form("Email"))
topic=changechr(Request.Form("Topic"))
	rdssaddInfo.AddNew
	rdssaddInfo("MemberKey") = intMemberKey
	rdssaddInfo("Topic") = topic
	rdssaddInfo("InfoClass") = lx
	rdssaddInfo("Content") =replace(Request.Form("Content"),gqwebdir&"Upload","{%gqwebdir%}Upload")
	rdssaddInfo("ContactMan") = ContactMan
	rdssaddInfo("CompanyName") = changechr(Request.Form("CompanyName"))
	rdssaddInfo("Add") = changechr(Request.Form("Add"))
	rdssaddInfo("Postalcode") = changechr(Request.Form("Postalcode"))
	rdssaddInfo("Tel") = changechr(Request.Form("Tel"))
	rdssaddInfo("Fax") = changechr(Request.Form("Fax"))
	rdssaddInfo("qq") = changechr(Request.Form("qq"))
	rdssaddInfo("Homepage") = changechr(Request.Form("Homepage"))
	rdssaddInfo("Email") = email
	rdssaddInfo("InfoAdd") = dq
	rdssaddInfo("smalldq") = changechr(Request.Form("shi"))
	rdssaddInfo("InfoDate") = changechr(Request.Form("InfoDate"))
	rdssaddInfo("dl") = bname
	rdssaddInfo("xl") = changechr(Request.Form("SmallClassName"))
	rdssaddInfo("jg") = changechr(Request.Form("jg"))
	rdssaddInfo("pic") = replace(UCase(Request.Form("pic")),gqwebdir&"UPLOAD","Upload")
	rdssaddInfo("color") = changechr(Request.Form("infocolor"))
	rdssaddInfo("UploadFiles") =replace(UCase(Request.Form("UploadFiles")),gqwebdir&"UPLOAD","Upload")
	rdssaddInfo("Ip") =GetIp()
	rdssaddInfo("CreateTime") = now()
	rdssaddInfo("UpdateTime") = now()
	
		mailcode= cint(8888*Rnd+1000)
		rdssaddInfo("mailcode") =md5(mailcode,16)
if Session("gqjb")="1"  then
sh=0
end  if
if changechr(Request.Form("tj"))<>"" then
	rdssaddInfo("tj") =1
		set rdsMember2 = Server.CreateObject("ADODB.Recordset")
		sqlMember2 = "Select * From Dat_Member Where MemberKey = "& intMemberKey
		rdsMember2.Open sqlMember2,Conn,1,3
		rdsMember2("Point") =session("point")-(tian*addinfopoint)
		rdsMember2.Update
		rdsMember2.Close
		set rdsMember2 = nothing
end if
Select case clng(sh)
  	Case clng(1)'管理员审核
		rdssaddInfo("State") = 0
 	Case clng(0)'直接发布
		rdssaddInfo("State") = 1
	Case clng(2)'邮件审核
		rdssaddInfo("State") = 0
End Select
	rdssaddInfo.Update
	rdssaddInfo.Close
	set rdssaddInfo = nothing
session("point")=""
Select case clng(sh)
  	Case clng(1)'管理员审核
Response.write("<script>alert(""信息发布成功，请等待管理员的审核！"");location.href=""index.asp"";</script>")
Response.end
 	Case clng(0)'直接发布
Response.write("<script>alert(""信息发布成功！"");location.href=""index.asp"";</script>")
Response.end
	Case clng(2)'邮件审核
SendTomail
Response.write "<font color=#008000>·发布并未完成<br>·请打开邮件"&email&"验证信息!</font><br>"
Response.end
End Select
end if
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
                  <form method="post" action="Add.asp" name="myform" OnSubmit="return addinfock()">
		          <input type="hidden" name="Oper" value="myform">
				  <tr>
    <td width="18%">选择分类：</td>
    <td width="82%"><%
		set rsb=server.createobject("adodb.recordset")
        sqlb = "select * from BigClass order by sj desc"
        rsb.open sqlb,conn,1,1
		if rsb.eof and rsb.bof then
			response.write "请先添加栏目。"
		else
		%><select class="face" name="BigClassName" onChange="changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)" size="1">
                      <option selected value="<%=trim(rsb("id"))%>"><%=trim(rsb("BigClassName"))%></option>
                      <%
			dim selclass
		    selclass=cstr(rsb("id"))
        	rsb.movenext
		    do while not rsb.eof
			%>
                      <option value="<%=trim(rsb("id"))%>"><%=trim(rsb("BigClassName"))%></option>
                      <%
		        rsb.movenext
    	    loop
		end if
        rsb.close
			%>
                    </select> <select class="face" name="SmallClassName">
                      <option value="" selected>不指定小类</option>
                      <%
           set rsss=server.createobject("adodb.recordset")
			sqlss="select * from SmallClass where dl='"&selclass&"'"
			rsss.open sqlss,conn,1,1
			if not(rsss.eof and rsss.bof) then
			%>
                      <option value="<%=rsss("id")%>"><%=rsss("SmallClassName")%></option>
                      <% rsss.movenext
				do while not rsss.eof%>
                      <option value="<%=rsss("id")%>"><%=rsss("SmallClassName")%></option>
                      <%
			    	rsss.movenext
				loop
			end if
	        rsss.close
			%></td>
  </tr>
  <tr>
    <td>所在地区：</td>
    <td><%
set rs=server.createobject("adodb.recordset")
sql = "select * from fysmallmxdq order by sj desc"
rs.open sql,conn,1,1
%><SCRIPT language = "JavaScript">
var onenumdq;
onenumdq=0;
subcat1dq = new Array();
        <%
        numdq = 0
        do while not rs.eof 
        %>
subcat1dq[<%=numdq%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("dl"))%>","<%= trim(rs("SmallClassName"))%>");
        <%
        numdq = numdq + 1
        rs.movenext
        loop
        rs.close
        %>
onenumdq=<%=numdq%>;

function changelocation1dq(shengid)
    {
    document.myform.shi.length = 0; 

    var shengid=shengid;
    var n;
    for (n=0;n < onenumdq; n++)
        {
            if (subcat1dq[n][1] == shengid)
            { 
                document.myform.shi.options[document.myform.shi.length] = new Option(subcat1dq[n][0], subcat1dq[n][2]);
            }        
        }
        
    }    
                      </SCRIPT><%
dim num
sql = "select * from mxdq order by sj desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%><SELECT name="sheng" onChange="changelocation1dq(document.myform.sheng.options[document.myform.sheng.selectedIndex].value)" size="1">
                                <OPTION selected value="0">==城市==</OPTION>
                                <%do while not rs.eof
%>
                                <OPTION value="<%=trim(rs("Name"))%>"><%=trim(rs("Name"))%></OPTION>
                                <%
        rs.movenext
        loop
	    end if
        rs.close
%>
                              </SELECT>
                              <SELECT name="shi">
                                <OPTION selected value="0">==地区==</OPTION>
                              </SELECT></td>
  </tr>
  <tr>
    <td>选择类型：</td>
    <td><select class="face" size="1" name="InfoClass">
<%call  gqlx(1,1)%>
						</select></td>
  </tr>
  <tr>
    <td>相关价格：</td>
    <td><input class="face" type="text" name="jg" size="12" maxlength="8" value="0" ONKEYPRESS="event.returnValue=IsDigit();">元(注：0表示面议)</td>
  </tr><%if not IsTimeOutuser(Session("boobuser"),Session("boobpass")) and intMemberKey <> "" then
userlogin="yes"
						Dim rdsMembers
						Dim sqlMembers
						Dim userpoint
						Dim userpoint1
                    
						set rdsMembers = Server.CreateObject("ADODB.Recordset")
						sqlMembers = "Select * From Dat_Member Where MemberKey = "& intMemberKey
						rdsMembers.Open sqlMembers,Conn,1,1
						if not rdsMembers.EOF then
						strjb=rdsMembers("jb")
usery="yes"
end if
end  if%>
  <tr>
    <td>信息标题：</td>
    <td><input class="face" type="text" name="Topic" size="38" maxlength="200"><%if strjb="1" then%>
                                <select name="infocolor" class="face">
                                  <option style="COLOR: black" value="" selected>标题颜色</option>
                                  <option style="background: #000088" value="000088"> </option>
                                  <option style="background: #0000ff" value="0000ff"> </option>
                                  <option style="background: #008800" value="008800"> </option>
                                  <option style="background: #008888" value="008888"> </option>
                                  <option style="background: #0088ff" value="0088ff"> </option>
                                  <option style="background: #00a010" value="00a010"> </option>
                                  <option style="background: #1100ff" value="1100ff"> </option>
                                  <option style="background: #111111" value="111111"> </option>
                                  <option style="background: #333333" value="333333"> </option>
                                  <option style="background: #50b000" value="50b000"> </option>
                                  <option style="background: #880000" value="880000"> </option>
                                  <option style="background: #8800ff" value="8800ff"> </option>
                                  <option style="background: #888800" value="888800"> </option>
                                  <option style="background: #888888" value="888888"> </option>
                                  <option style="background: #8888ff" value="8888ff"> </option>
                                  <option style="background: #aa00cc" value="aa00cc"> </option>
                                  <option style="background: #aaaa00" value="aaaa00"> </option>
                                  <option style="background: #ccaa00" value="ccaa00"> </option>
                                  <option style="background: #ff0000" value="ff0000"> </option>
                                  <option style="background: #ff0088" value="ff0088"> </option>
                                  <option style="background: #ff00ff" value="ff00ff"> </option>
                                  <option style="background: #ff8800" value="ff8800"> </option>
                                  <option style="background: #ff0005" value="ff0005"> </option>
                                  <option style="background: #ff88ff" value="ff88ff"> </option>
                                  <option style="background: #ee0005" value="ee0005"> </option>
                                  <option style="background: #ee01ff" value="ee01ff"> </option>
                                  <option style="background: #3388aa" value="3388aa"> </option>
                                  <option style="background: #000000" value="000000"> </option>
                                </select>
                                <%end if%>&nbsp;<font color="#FF0000">**</font></td>
  </tr>
  <tr>
    <td>详细内容：<br><br>支持HTML<br>换行输入<font color=red>&lt;br&gt;</font><br>空格输入<font color=red>&amp;nbsp;</font></td>
    <td><textarea rows="13" name="Content" cols="50" class="face"></textarea></td>
  </tr>
  <tr>
    <td></td>
    <td><p align="left">[注意]注册为本站会员，发布信息时<font color="#FF0000">无需</font>重复填写以下繁琐的联系方式，并可参与积分</span>！</td>
  </tr><%
if  userlogin="yes"  then
if usery="yes" then
						session("point")=rdsMembers("point")
						userpoint1=session("point")
if rdsMembers("MemberType") = "1" then%>
  <tr>
    <td>联 系 人：</td>
    <td><input class="face" name="ContactMan" type="text" size="20" maxlength="20" value="<% = rdsMembers("RealName")%>">&nbsp;<font color="#FF0000">**</font></td>
  </tr><%else%>
  <tr>
    <td>企业名称：</td>
    <td><input class="face" name="CompanyName" type="text" size="40" maxlength="200" value="<% = rdsMembers("CompanyName")%>"></td>
  </tr>
  <tr>
    <td>联 系 人：</td>
    <td><input class="face" name="ContactMan" type="text" size="20" maxlength="20" value="<% = rdsMembers("ContactMan")%>">&nbsp;<font color="#FF0000">**</font></td>
  </tr><%end if%>
							<input name="strjb" type="hidden" value="<% =strjb%>">
  <tr>
    <td>联系地址：</td>
    <td><input class="face" type="text" name="Add" size="40" maxlength="200" value="<% = rdsMembers("Add")%>"></td>
  </tr>
  <tr>
    <td>邮　　编：</td>
    <td><input class="face" type="text" name="Postalcode" size="20" maxlength="6" value="<% = rdsMembers("Postalcode")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
  </tr>
  <tr>
    <td>电　　话：</td>
    <td><input class="face" type="text" name="Tel" size="20" maxlength="20" value="<%=rdsMembers("Tel")%>" ONKEYPRESS="event.returnValue=IsDigit();">&nbsp;<font color="#FF0000">**</font></td>
  </tr>
  <tr>
    <td>传　　真：</td>
    <td><input class="face" type="text" name="Fax" size="20" maxlength="20" value="<% = rdsMembers("Fax")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
  </tr>
  <tr>
    <td>腾 讯Q Q：</td>
    <td><input class="face" type="text" name="qq" size="20" maxlength="20" value="<% = rdsMembers("qq")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
  </tr>
  <tr>
    <td>网站网址：</td>
    <td><input class="face" type="text" name="Homepage" size="20" maxlength="50" value="<% = rdsMembers("Homepage")%>"></td>
  </tr>
  <tr>
    <td>电子信箱：</td>
    <td><input type="text" name="Email" size="20" maxlength="50" value="<% = rdsMembers("Email")%>"><font color="#FF0000">**</font></td>
  </tr>
  <tr>
    <td>有 效 期：</td>
    <td><select class="face" size="1" name="InfoDate">
                          <option value="0">--信息有效期--</option>
                          <option value="1" selected>一天</option>
                          <option value="3">三天</option>
                          <option value="7">一星期</option>
                          <option value="15">半个月</option>
                          <option value="30">一个月</option>
                          <option value="60">两个月</option>
                          <option value="90">一个季度</option>
                          <option value="182">半年</option>
                          <option value="365">一年</option>
                        </select></td>
  </tr><%if session("point")>0 then%>
  <tr>
    <td>是否推荐：</td>
    <td><input class="face" type="checkbox" name="tj" value="true">&nbsp;<font color="#0000FF">[注]</font>如发为推荐信息，请打钩。您的点数为<font color="#FF0000">&nbsp;<%=session("point")%></font>点，如选择推荐，发一天系统会扣除<font color="#FF0000"> <%=addinfopoint%> </font>点，请自觉选择有效期！</td>
  </tr><%else%>
  <tr>
    <td>是否推荐：</td>
    <td>&nbsp; 对不起您的点数不足，不能使用此功能。<a target="_blank" href="point.asp"><font color="#FF0000">如何获取点数!</font></a></td>
  </tr><%end if%>
                    <%
                    	rdsMembers.Close
						set rdsMembers = nothing
						end if
					else
					%>
					<tr>
                      <td height="25">联 系 人：</td> 
                      <td height="25"><input class="face" name="ContactMan" type="text" size="20" maxlength="20">&nbsp;<font color="#FF0000">**</font></td>
                    </tr>
                    <tr>
                      <td height="25">企业名称：</td>                            
                      <td height="25"><input class="face" type="text" name="CompanyName" size="40" maxlength="200"></td>
                    </tr>
                    <tr>
                      <td height="25">联系地址：</td>                            
                      <td height="25"><input class="face" type="text" name="Add" size="40" maxlength="200"></td>
                    </tr>
                    <tr>
                      <td height="25">邮&nbsp;&nbsp;&nbsp;&nbsp;编：</td>                            
                      <td height="25"><input class="face" type="text" name="Postalcode" size="20" maxlength="6" ONKEYPRESS="event.returnValue=IsDigit();"></td>
                    </tr>
                    <tr>
                      <td height="25">电&nbsp;&nbsp;&nbsp;&nbsp;话：</td>                            
                      <td height="25"><input class="face" type="text" name="Tel" size="20" maxlength="20" ONKEYPRESS="event.returnValue=IsDigit();">&nbsp;<font color="#FF0000">**</font></td>
                    </tr>
                    <tr>
                      <td height="25">传&nbsp;&nbsp;&nbsp;&nbsp;真：</td>                            
                      <td height="25"><input class="face" type="text" name="Fax" size="20" maxlength="20" ONKEYPRESS="event.returnValue=IsDigit();"></td>
                    </tr>
                    <tr>
                      <td height="25">腾 讯Q Q：</td>                            
                      <td height="25">
						<input class="face" type="text" name="qq" size="20" maxlength="20" ONKEYPRESS="event.returnValue=IsDigit();"></td>
                    </tr>
                    <tr>
                      <td height="25">网站地址：</td>                            
                      <td height="25"><input class="face" type="text" name="Homepage" size="20" maxlength="50"></td>
                    </tr>
                    <tr>
                      <td height="25">电子信箱：</td>
                      <td height="25"><input class="face" type="text" name="Email" size="20" maxlength="50"><font color="#FF0000">**</font></td>
                    </tr>
                     <tr>
                      <td height="13">有 效 期：</td>                             
                      <td height="13">
                        <select class="face" size="1" name="InfoDate">
                          <option value="0">--信息有效期--</option>
                          <option value="1" selected>一天</option>
                          <option value="3">三天</option>
                          <option value="7">一星期</option>
                          <option value="15">半个月</option>
                          <option value="30">一个月</option>
                          <option value="60">两个月</option>
                          <option value="90">一个季度</option>
                          <option value="182">半年</option>
                          <option value="365">一年</option>
                        </select>                      
                      </td>
                    </tr>
<tr>
                      <td height="25">是否推荐：</td>
                      <td height="25">&nbsp; 对不起您没有登录，不能使用此功能。</td>
                    </tr>
					<%
					end if
                    %>
  <tr>
    <td>验 证 码：</td>
    <td><input class="face" type="text" name="otherpwd" size="8">&nbsp;<% = GetCode() %>(注：如果停留时间过久，请点击数字进行刷新)</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" value="马上发布" name="Submit" class="button">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" value="重新填写" name="Reset" class="Button"></td>
  </tr></form>
</table></td>
                        </tr>
                      </table>
               </td>
              </tr>
            </tbody>
            </table>
</td>
					</tr>
				</table></td>
          </tr>
          
        </table></td>
      </tr>
    </table>      </td>
  </tr>
</table>
<!--#include file="boot.asp"-->
</body>
</html>
<%sub SendTomail()
HomePage="http://"&request.servervariables("server_name")&replace(lcase(request.servervariables("url")),"add.asp","")
	FriendName=ContactMan
	FriendEmail=email
	FromName=mailform
	mailbiaoti="信息邮件验证"
	if FriendName="" then
		errmsg=errmsg & "<br><li>收信人姓名不能为空！</li>"
		founderr=true
	end if
	if Not fyChkEmail(FriendEmail) then
   		errmsg=errmsg & "<br><li>收信人的Email地址有错误！</li>"
   		founderr=true
	end if
	if FromName="" then
		errmsg=errmsg & "<br><li>发信人姓名不能为空！</li>"
		founderr=true
	end if
	if founderr then
		Response.Write errmsg
		exit sub
	end if
mailbody="<div align=center><table border=0 width=100% cellspacing=0 cellpadding=0 height=93>"
mailbody=mailbody&"<tr><td height=31>&nbsp;<b><font color=#FF0000>"&FriendName&"</font></b> 你好：</td>"
mailbody=mailbody&"</tr><tr><td height=31>&nbsp;&nbsp;&nbsp;&nbsp; 欢迎您在 <a href="&strSiteUrl&" target=_blank><font color=#FF0000>"&strSiteName&"</font></a>&nbsp; 发布信息，您发布的信息，"
mailbody=mailbody&"您发布的信息<font color=#FF0000>"&topic&"</font> 还没有经过验证，请点击以下按钮验证：</td>"
mailbody=mailbody&"</tr><tr><td height=31><form method=POST action="&HomePage&"mailinfo.asp target=_blank>"
mailbody=mailbody&"<br>&nbsp;&nbsp;&nbsp; <input type=hidden name=mailcode value="&mailcode&">"
mailbody=mailbody&"<input type=hidden name=id value="&MaxAID&"><input type=submit value=确定发布此信息 name=strsubmit>&nbsp;&nbsp;&nbsp; <input type=submit value=删除此信息 name=strsubmit>"
mailbody=mailbody&"</form></td></tr><tr><td height=31><b><font color=#FF0000>注：此按钮只能操作一次!</font></b></td></tr></table></div>"
	Dim FYEmail
	Set FYEmail = New Cls_SendMail
	FYEmail.SendObject = Cint(mailser)	'设置选取组件
	FYEmail.ServerLoginName = mailname	'您的邮件服务器登录名
	FYEmail.ServerLoginPass = mailpass	'登录密码
	FYEmail.SendSMTP = mailsmtp			'SMTP地址
	FYEmail.SendFromEmail = mailform		'发送来源地址
	FYEmail.SendFromName =strSiteName		'发送人信息
	If FYEmail.ErrCode = 0 Then
		FYEmail.SendMail FriendEmail,mailbiaoti,mailbody	'执行发送邮件
	End If
	If FYEmail.ErrCode <> 0 Then
		Response.write FYEmail.Description
	else
		Response.write "恭喜您，已经成功发送邮件！"
	end if
end sub%>
