user_put.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if    
	if not(isdate(otim)) or instr(otim,"-")=0 or instr(otim,":")>0 then
      call admin_error(tit_fir&"的 <font class=red>过期时间</font> 为空或不符合规则！")
      exit sub
    end if
    if name="" or nname="" or remark="" or email_ok(email,50)=false then 
      call admin_error(tit_fir&"名称、联系人、电子邮件、"&tit_fir&"说明 为空或电子邮件不符合规则！")
      exit sub
    end if
	if trim(request.form("read"))<>"yes" then
      call admin_error("抱歉，必须阅读并同意下面的声明才能发布！")
      exit sub
    end if
    isgood=0
    username=code_admin("username",1,20)
    types=code_admin("types",1,100)  
    price=code_admin("price",1,100)
    url=code_admin("url",1,100)
    if url="http://" or isnull(url) then url=""
    phone=code_admin("phone",1,100)
    pic=code_admin("pic",1,100)
      call chk_cid_sid()
      sql="select * from "&data_name
      rs.open sql,conn,1,3
      rs.addnew
      rs("c_id")=cid
      rs("s_id")=sid
      rs("username")=login_username
      rs("types")=types
      rs("hidden")=true_hidden
      rs("name")=name
      rs("nname")=nname
      rs("remark")=remark
      rs("email")=email
      rs("price")=price
      rs("url")=url
      rs("phone")=phone
      rs("isgood")=isgood
      if len(pic)<3 then
        rs("pic")=""
      else
        rs("pic")=pic
      end if
      rs("tim")=tim
	  rs("otim")=otim
      rs("counter")=0
	  rs("address")=address
      rs.update
      rs.close
      call upload_note(index_url,first_id(data_name,"id"))
      call joekoe_cms.exec("update user_data set emoney=emoney-"&dim_num(27)&" where username='"&login_username&"'",0)
      call admin_msg("推荐")
    exit sub
  end if
  call form_first()
  ispic=joekoe_cms.rand_file(nsort)
%>
  <tr class=bg_td><td colspan=2 align=center height=30>发布信息注意事项：发布一条信息将扣取您 <font class=red2><%response.write dim_num(27)%></font> <%response.write joekoe_cms.web_unit%>，标有“<%response.write redx%>”为必填项。</td></tr>
  <tr class=bg_td>
  <td width='18%'><%response.write tit_fir%>名称：</td>
  <td width='82%'><input type=text size=50 name=name value='' maxlength=50><%response.write redx%></td>
  </tr>
  <tr class=bg_td>
  <td><%response.write tit_fir%>类型：</td>
  <td><%call chk_csid(nsort,cid,sid)%></td>
  </tr> 
  <tr class=bg_td>
  <td>供需类型：</td>
  <td><select name=types size=1>
  <option value='供方' selected>供方</option>
  <option value='求方'>求方</option>
  </select></td>
  </tr>
  <tr class=bg_td>
  <td>发布时间：</td>
  <td><input type=text name=tim value='<%response.write joekoe_cms.now_time%>' size=28 maxlength=40>&nbsp;<input type=button name=st_btn value="选择" onclick="javascript:select_time(tim);return false;"></td>
  </tr>
  <tr class=bg_td>
  <td>过期时间：</td>
  <td><input type=text name=otim value='' size=28>&nbsp;<input type=button name=st_btn value="选择" onclick="javascript:select_time(otim);return false;">&nbsp;&nbsp;<%response.write redx%></td>
  </tr>
  <tr class=bg_td>
  <td>联 系 人：</td>
  <td><input type=text size=10 name=nname maxlength=50><%=redx%>&nbsp;&nbsp;发 布 人：<input type=text size=11 name=username  value='<%response.write login_username%>' maxlength=50 disabled>&nbsp;&nbsp;交易价格：<input type=text size=20 name=price value='' maxlength=20></td></tr>
  <tr class=bg_td>
  <td>联系地址：</td>
  <td><input type=text size=62 name=address value='' maxlength=100></td>
  </tr>
  <tr class=bg_td>
  <td>电子邮件：</td>
  <td><input type=text size=20 name=email maxlength=50><%response.write redx%>&nbsp;&nbsp;联系电话：<input type=text size=20 name=phone value='' maxlength=50></td>
  </tr>
  <tr class=bg_td>
  <td>相关网址：</td>
  <td><input type=text size=54 name=url value='http://' maxlength=100></td>
  </tr>
  <tr class=bg_td>
  <td valign=top class=htd><br><%response.write tit_fir%>说明：<br><=250B</td>
  <td>
  <table border=0><tr>
  <td><textarea name=remark rows=8 cols=65></textarea></td>
  <td width=5></td>
  <td valign=bottom><%call textarea_resize("remark")%></td>
  </tr></table>
  </td>
  </tr>
  <tr class=bg_td>
  <td><%response.write tit_fir%>图片：</td>
  <td><input type=text name=pic value='<%response.write pic%>' size=40 maxlength=100></td></tr>
  <tr class=bg_td>
  <td>上传图片：</td>
  <td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic'></iframe></td>
  </tr>
  <tr class=bg_tds>
	<td></td>
	<td height=30><input type=submit value='提交<%response.write tit_fir%>发布'>　　<input type=reset value='重新填写'>　　<input type=checkbox name=read value='yes' class=bg_tds> 请阅读并同意下面的声明</td>
	</tr></form>
<tr><td align=middle colspan=2 class=bg_td>
<table class=bg_td>
<tbody><tr>
<td align=middle>
<fieldset style="width: 100%" align=center><legend>
<table style="border-right: #808080 1px solid; border-top: #808080 1px solid; border-left: #808080 1px solid; border-bottom: #808080 1px solid" cellspacing=0 cellpadding=0 width=200 border=0>
<tbody>
<tr><td valign=bottom align=middle height=18><font color=#ff0000><b>请您仔细阅读下面的郑重声明</b></font></td></tr>
</tbody></table></legend>
<table cellspacing=0 cellpadding=0 width="98%" align=center border=0>
<tbody>
<tr><td height=5></td></tr>
<tr><td class=htd>1、禁止发布含有色情和反动言论以及与国家法律法规相抵触的任何信息；禁止发布在网上对他人进行人身攻击评议的言论……等信息。
<br>2、信息发布者提供的信息必须是真实可靠的，不得有欺骗行为否则后果自负；每条信息的发布不得超过二百五十个字节；敬请不要进行重复发布。
<br>3、这里的信息发布是全免费的，<%response.write web_dim(1)%>对其不负任何的法律责任（由发布者自负责任敬请郑重），<%response.write web_dim(1)%>有选择和删除权。</td></tr>
<tr><td height=5></td></tr>
</tbody></table></fieldset> 
</td></tr></tbody></table>
</td></tr>
<%
end sub

sub put_load(p_num)
  put_uppath=index_url
  dim tmp_num
  tmp_num=int(format_mid_num(p_num))
  select case int(tmp_num)
  case 1
    true_hidden=false
    true_put=true
  case 2
    true_hidden=true
    true_put=true
  case else
    true_put=false
  end select
end sub

sub put_close(tvar)
  response.write "<tr class=bg_td><td colspan=2 height=200 align=center><font class=red>对不起！本站暂时关闭 <font class=blue>"&tvar&tit_fir&"</font> 的功能。</font><br><br>如有需要，请与管理员联系。谢谢！</td></tr>"
end sub

sub admin_error(tvar)
  response.write vbcrlf&"<tr class=bg_td><td colspan=2 align=center><br>"&tvar&"<br><br>"&go_back&"<br><br></td></tr>"
end sub

function chk()
  chk=joekoe_cms.chk()
  if session(session_for&"addfrm")=false then chk=false
end function

sub form_first()
  session(session_for&"addfrm")=true
end sub

sub admin_msg(tvar)
 dim temp_js
 session(session_for&"addfrm")=false
  call joekoe_cms.exec("update user_data set integral=integral+"&int(dim_num(24))&" where username='"&login_username&"'",0)
 temp_js="已成功"&tvar&"了一个"&tit_fir&"！"
 response.write vbcrlf&"<tr class=bg_td><td colspan=2 align=center height=200><font class=red>已成功"&tvar&"了一个"&tit_fir&"！</font>"
 if true_hidden=false then
   response.write "<br><br>请等待管理审核通过……"
   temp_js=temp_js&"\n\n请等待管理审核通过……"
 end if
 response.write "</td></tr>"
 response.write joekoe_cms.js_put("alert("""&temp_js&""");",1)
end sub

sub submit_add()
  response.write vbcrlf&"<tr class=bg_tds>" & _
		 vbcrlf&"<td></td>" & _
		 vbcrlf&"<td height=30><input type=submit value='提交添加'>　　<input type=reset value='重新填写'>　　"&go_back&"</td>" & _
		 vbcrlf&"</tr></form>"
end sub
sub put_pris()
  dim name,isgood,remark,dname,fname,yzbm,sname,nname,yname,email,price,url,phone,types,pic,ispic,username,hidden,tim,address
  if chk() then
    name=code_admin("name",1,50)
    csid=trim(request.form("c_id"))
    nname=code_admin("nname",1,100)
	sname=code_admin("sname",1,100)
	yname=code_admin("yname",1,100)
	dname=code_admin("dname",1,100)
	fname=code_admin("fname",1,100)
	yzbm=code_admin("yzbm",1,100)
    email=code_admin("email",1,100)
    remark=code_admin("remark",1,250)
	address=code_admin("address",1,100)
    if trim(request.form("read"))<>"yes" then
      call admin_error("抱歉，必须阅读并同意下面的声明才能发布！")
      exit sub
    end if
    if cs_nd(csid)=false then
      call admin_error("请选择 "&tit_fir&"类型 ！")
      exit sub
    end if
    if name="" or nname="" or remark=false then 
      call admin_error(tit_fir&"名称、联系人、电子邮件、"&tit_fir&"说明 为空或电子邮件不符合规则！")
      exit sub
    end if
    tim=joekoe_cms.now_time
    isgood=false
    hidden=false
    username=code_admin("username",1,20)
    types=code_admin("types",1,100)  
    price=code_admin("price",1,100)
    url=code_admin("url",1,100)
    if url="http://" or isnull(url) then url=""
    phone=code_admin("phone",1,100)
    pic=code_admin("pic",1,100)
      call chk_cid_sid()
      sql="select * from "&data_name
      rs.open sql,conn,1,3
      rs.addnew
      rs("c_id")=cid
      rs("s_id")=sid
      rs("username")=login_username
      rs("types")=types
      rs("hidden")=hidden
      rs("name")=name
      rs("dname")=dname
	  rs("fname")=fname
      rs("nname")=nname
	  rs("sname")=sname
	  rs("yname")=yname
      rs("remark")=remark
	  rs("yzbm")=yzbm
	  rs("fname")=fname
      rs("remark")=remark
      rs("email")=email
      rs("price")=price
      rs("url")=url
      rs("phone")=phone
      rs("isgood")=isgood
      if len(pic)<3 then
        rs("pic")=""
      else
        rs("pic")=pic
      end if
      rs("tim")=tim
      rs("counter")=0
	  rs("address")=address
      rs.update
      rs.close
      call upload_note(index_url,first_id(data_name,"id"))
      call joekoe_cms.exec("update user_data set emoney=emoney-"&dim_num(42)&" where username='"&login_username&"'",0)
      call admin_msg("推荐")
    exit sub
  end if
  call form_first()
  ispic=joekoe_cms.rand_file(nsort)
%>
  <tr class=bg_td><td colspan=2 align=center height=30>发布企业信息注意事项：发布一条企业信息将扣取您 <font class=red2><%response.write dim_num(45)%></font> <%response.write joekoe_cms.web_unit%>，标有“<script language=javascript>document.write(redx);</script>”为必填项。</td></tr>
  <tr class=bg_td><td width='15%'><%response.write tit_fir%>名称：</td><td width='85%'><input type=text size=62 name=name value='' maxlength=50><%response.write redx%></td></tr>
  <tr class=bg_td><td><%response.write tit_fir%>类型：</td><td><%call chk_csid(nsort,cid,sid)%>&nbsp;&nbsp;&nbsp;
 <%response.write tit_fir%>性质：<select name=types size=1>
  <option value='社会团体'>社会团体</option>
  <option value='事业单位'>事业单位</option>
  <option value='国有企业'>国有企业</option>
  <option value='三资企业'>三资企业</option>
  <option value='集体企业'>集体企业</option>
  <option value='乡镇企业'>乡镇企业</option>
  <option value='私营企业'>私营企业</option>
  </select><%response.write redx%></td></tr>
  <tr class=bg_td><td>注册资金：</td><td><input type=text size=20 name=price value='' maxlength=20><%response.write redx%>万人民币&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;联 系 人：<input type=text size=10 name=nname maxlength=50><%=redx%></td></tr>
  <tr class=bg_td><td>法人代表：</td><td><input type=text size=20 name=fname value='' maxlength=20><%response.write redx%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;注册用户：<font class=blue><%=login_username%></font></td></tr>
  <tr class=bg_td><td>员工人数：</td><td><input type=text size=20 name=yname value='' maxlength=50><%response.write redx%>个人&nbsp;&nbsp;&nbsp;&nbsp;成立时间：<input type=text size=20 name=sname maxlength=50><%response.write redx%>2004-10-01</td></tr>
  <tr class=bg_td><td>所在地区：</td><td><select name=dname size=1>
  <option value='宁波市' selected>宁波市</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='四川省'>四川省</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='陕西省'>陕西省</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='澳门特别行政区'>澳门特别行政区</option>
  </select><%response.write redx%>&nbsp;&nbsp;邮政编码：<input type=text size=20 name=yzbm value='' maxlength=100><%response.write redx%></td></tr>
  <tr class=bg_td><td>联系地址：</td><td><input type=text size=62 name=address value='' maxlength=100><%response.write redx%></td></tr>
  <tr class=bg_td><td>联系电话：</td><td><input type=text size=20 name=phone value='' maxlength=50><%response.write redx%>&nbsp;&nbsp;电子邮件：<input type=text size=20 name=email maxlength=50><%response.write redx%></td></tr>
  <tr class=bg_td><td>相关网址：</td><td><input type=text size=54 name=url value='http://' maxlength=100></td></tr>
  <tr class=bg_td><td valign=top class=htd><br><%response.write tit_fir%>说明：<br><=250B</td><td><textarea name=remark rows=5 cols=65></textarea></td></tr>
  <tr class=bg_td>
  <td><%response.write tit_fir%>图片：</td>
  <td><input type=text name=pic value='<%response.write pic%>' size=40 maxlength=100></td></tr>
  <tr class=bg_td>
  <td>上传图片：</td>
  <td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=<%response.write index_url%>&upname=<%response.write ispic%>&uptext=pic'></iframe></td>
  </tr>
  <tr class=bg_tds>
	<td></td>
	<td height=30><input type=submit value='提交<%response.write tit_fir%>发布'>　　<input type=reset value='重新填写'>　　<input type=checkbox name=read value='yes' class=bg_tds> 请阅读并同意下面的声明</td>
	</tr></form>
<tr><td align=middle colspan=2 class=bg_td>
<table class=bg_td>
<tbody><tr>
<td align=middle>
<fieldset style="width: 100%" align=center><legend>
<table style="border-right: #808080 1px solid; border-top: #808080 1px solid; border-left: #808080 1px solid; border-bottom: #808080 1px solid" cellspacing=0 cellpadding=0 width=200 border=0>
<tbody>
<tr><td valign=bottom align=middle height=18><font color=#ff0000><b>请您仔细阅读下面的郑重声明</b></font></td></tr>
</tbody></table></legend>
<table cellspacing=0 cellpadding=0 width="98%" align=center border=0>
<tbody>
<tr><td height=5></td></tr>
<tr><td class=htd>1、禁止发布含有色情和反动言论以及与国家法律法规相抵触的任何信息；禁止发布在网上对他人进行人身攻击评议的言论……等信息。
<br>2、信息发布者提供的信息必须是真实可靠的，不得有欺骗行为否则后果自负；每条信息的发布不得超过二百五十个字节；敬请不要进行重复发布。
<br>3、这里的信息发布是全免费的，<%response.write web_dim(1)%>对其不负任何的法律责任（由发布者自负责任敬请郑重），<%response.write web_dim(1)%>有选择和删除权。</td></tr>
<tr><td height=5></td></tr>
</tbody></table></fieldset> 
</td></tr></tbody></table>
</td></tr>
<%
end sub

%>