publish.asp

企业信息系统网站,一个完整的企业信息管理网站,可以发布自己企业的各种信息. 少加改造可以建立自己的网站.

              <OPTION value=饮食、旅游业 <%if rs("trade") ="饮食、旅游业" then Response.Write "selected"%>>饮食、旅游业</OPTION> <OPTION 
              value=粮油、副食 <%if rs("trade") ="粮油、副食" then Response.Write "selected"%>>粮油、副食</OPTION></SELECT></p>
              <p align="center">供需类别:<SELECT size=1 name=zpnum><OPTION value=供 <%if rs("trade") ="供" then Response.Write "selected"%>>供</OPTION> <OPTION 
              value=需 <%if rs("trade") ="需" then Response.Write "selected"%>>需</OPTION></SELECT> 供需地点:<B><SELECT size=1 name=gzdd>               
              
 <OPTION value=不限 selected>不&nbsp; 限
<option value="乘风庄">乘风庄</option>
  <option value="龙南">龙南</option>
  <option value="红岗">红岗</option>
  <option value="莎区">莎区</option>
<option value="让湖路">让湖路</option>
  <option value="卧里屯">卧里屯</option>
  <option value="东风新村">东风新村</option>
  <option value="龙风">龙风</option>
  <option value="八百晌">八百晌</option>
  <option value="大同">大同</option>
  <option value="1厂">1厂</option>
  <option value="2厂">2厂</option>
  <option value="3厂">3厂</option>
  <option value="4厂">4厂</option>
  <option value="5厂">5厂</option>
  <option value="6厂">6厂</option>
  <option value="7厂">7厂</option>
  <option value="8厂">8厂</option>
  <option value="9厂">9厂</option>
  <option value="10厂">10厂</option>
			  <OPTION value=北京市 <%if rs("gzdd") ="北京市" then Response.Write "selected"%>>北京市
              <OPTION value=天津市 <%if rs("gzdd") ="天津市" then Response.Write "selected"%>>天津市
              <OPTION value=上海市 <%if rs("gzdd") ="上海市" then Response.Write "selected"%>>上海市
			  <OPTION value=重庆市 <%if rs("gzdd") ="重庆市" then Response.Write "selected"%>>重庆市
              <OPTION value=安徽省 <%if rs("gzdd") ="安徽省" then Response.Write "selected"%>>安徽省
              <OPTION value=福建省 <%if rs("gzdd") ="福建省" then Response.Write "selected"%>>福建省
              <OPTION value=甘肃省 <%if rs("gzdd") ="甘肃省" then Response.Write "selected"%>>甘肃省
              <OPTION value=广东省 <%if rs("gzdd") ="广东省" then Response.Write "selected"%>>广东省
			  <OPTION value=四川省 <%if rs("gzdd") ="四川省" then Response.Write "selected"%>>四川省
              <OPTION value=贵州省 <%if rs("gzdd") ="贵州省" then Response.Write "selected"%>>贵州省
              <OPTION value=湖北省 <%if rs("gzdd") ="湖北省" then Response.Write "selected"%>>湖北省
              <OPTION value=湖南省 <%if rs("gzdd") ="湖南省" then Response.Write "selected"%>>湖南省
			  <OPTION value=吉林省 <%if rs("gzdd") ="吉林省" then Response.Write "selected"%>>吉林省
              <OPTION value=江苏省 <%if rs("gzdd") ="江苏省" then Response.Write "selected"%>>江苏省
              <OPTION value=江西省 <%if rs("gzdd") ="江西省" then Response.Write "selected"%>>江西省
              <OPTION value=辽宁省 <%if rs("gzdd") ="辽宁省" then Response.Write "selected"%>>辽宁省
              <OPTION value=青海省 <%if rs("gzdd") ="青海省" then Response.Write "selected"%>>青海省
			  <OPTION value=山东省 <%if rs("gzdd") ="山东省" then Response.Write "selected"%>>山东省
              <OPTION value=山西省 <%if rs("gzdd") ="山西省" then Response.Write "selected"%>>山西省
			  <OPTION value=陕西省 <%if rs("gzdd") ="陕西省" then Response.Write "selected"%>>陕西省
              <OPTION value=云南省 <%if rs("gzdd") ="云南省" then Response.Write "selected"%>>云南省
			  <OPTION value=浙江省 <%if rs("gzdd") ="浙江省" then Response.Write "selected"%>>浙江省
			  <OPTION value=黑龙江省 <%if rs("gzdd") ="黑龙江省" then Response.Write "selected"%>>黑龙江省
			  <OPTION value=宁夏自治区 <%if rs("gzdd") ="宁夏自治区" then Response.Write "selected"%>>宁夏自治区
              <OPTION value=新疆自治区 <%if rs("gzdd") ="新疆自治区" then Response.Write "selected"%>>新疆自治区
			  <OPTION value=西藏自治区 <%if rs("gzdd") ="西藏自治区" then Response.Write "selected"%>>西藏自治区
			  <OPTION value=内蒙古自治区 <%if rs("gzdd") ="内蒙古自治区" then Response.Write "selected"%>>内蒙古自治区
             <OPTION value=香港特别行政区 <%if rs("gzdd") ="香港特别行政区" then Response.Write "selected"%>>香港特别行政区
              <OPTION value=澳门市 <%if rs("gzdd") ="澳门市" then Response.Write "selected"%>>澳门市
              <OPTION value=台湾省 <%if rs("gzdd") ="台湾省" then Response.Write "selected"%>>台湾省</SELECT></B>
              </p>
              <p align="center">产品详细描述:<br>
             <%if rs("zptext")<>"" then
			 kzptext=replace(rs("zptext"),"<br>",chr(13))
             kzptext=replace(kzptext,"&nbsp;"," ")
			 else
			 kzptext="" %>
             <%end if%>      
			 <textarea rows="6" name="zptext" cols="41"><%=kzptext%></textarea>      
             </p>
             <p align="center">供需产品要求:<br>
             <%if rs("xgyq")<>"" then
	         kxgyq=replace(rs("xgyq"),"<br>",chr(13))
             kxgyq=replace(kxgyq,"&nbsp;"," ")
			 else
			 kxgyq=""%>
             <%end if%>      
			 <textarea rows="6" name="xgyq" cols="41"><%=kxgyq%></textarea>      
              </p>
              <p align="center"><input type="button" value="发 布" onClick="check()">

              <p align="center">　</td>
          </tr>
        </table>
        </div>
        <p>　
      </td>
  <center>
      <td width="1" height="351" valign="top" bgcolor="#00006A"></td>
      <td width="124" height="351" valign="top" bgcolor="#F3F3F3">　</td>
    </tr>
    <tr>
      <td width="780" height="1" valign="top" colspan="5" bgcolor="#396BA5">
      <p align="center">
      </td>
    </tr>
    <tr>
      <td width="780" height="3" valign="top" colspan="5">
      <p align="center">
      </td>
    </tr>
    <tr>
      <td width="780" height="7" valign="top" colspan="5">
      <p align="center"><script language="javascript" src="../inc/copyright.js"></script>
      </td>
    </tr>
    <tr>
      <td width="780" height="3" valign="top" colspan="5">
      </td>
    </tr>
  </table>
  </center>
</div>
</form>
</body>

</html>

<% zptext=htmlencode2(request("zptext"))
if zptext="" then Response.End
   job=request("job")
   zpnum=request("zpnum")
   gzdd=request("gzdd")
   xgyq=htmlencode2(request("xgyq"))

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from company where uname='"&uname&"'"
rs.open sql,conn,3,3
rs("zptext")=zptext
rs("job")=job
rs("zpnum")=zpnum
rs("gzdd")=gzdd
rs("xgyq")=xgyq
rs("idate")=date()
rs.update
rs.close
Response.Redirect "main.asp"
%>