user_put.bak.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_user.asp" -->
<!-- #include file="include/config_upload.asp" -->
<!-- #include file="include/config_frm.asp" -->
<!-- #include file="include/config_put.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim cid,sid,ispic,pic,nsort,data_name,nid,rs2,sql2,now_id,add_integral,ddim,csid,gongao
add_integral=web_varn(web_num,15)

select case action
case "down"
  tit="添加软件"
case "video"
  tit="添加影视"
case "gallery"
  tit="上传贴图"
case "flash"
  tit="推荐动画"
case "website"
  tit="推荐网站"
case "business"
  tit="交易发布"
case "gongao"
  tit="发表滚动广告"
case else
  action="article"
  tit="发表文章"
end select

call web_head(2,0,0,0,0)

if int(popedom_format(login_popedom,41)) then call close_conn():call cookies_type("locked")
'------------------------------------left----------------------------------
call left_user()
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong&table1
%>
<tr<%response.write table2%>><td class=end>&nbsp;<%response.write img_small(us)%>&nbsp;&nbsp;<b>查看可以发表的信息</b></td></tr>
<tr<%response.write table3%>><td align=center height=30>
<%response.write img_small("jt1")%><a href='?action=business'<%if action="business" then response.write "class=red_3"%>>发布交易</a>
<%response.write img_small("jt1")%><a href='?action=article'<%if action="article" then response.write "class=red_3"%>>发表文章</a>
<%response.write img_small("jt1")%><a href='?action=video'<%if action="video" then response.write "class=red_3"%>>添加影视</a>
<%response.write img_small("jt1")%><a href='?action=gongao'<%if action="gongao" then response.write "class=red_3"%>>发布广告</a>
<%response.write img_small("jt1")%><a href='?action=down'<%if action="down" then response.write "class=red_3"%>>添加软件</a>
<%response.write img_small("jt1")%><a href='?action=gallery'<%if action="gallery" then response.write "class=red_3"%>>上传贴图</a>
<%response.write img_small("jt1")%><a href='?action=flash'<%if action="flash" then response.write "class=red_3"%>>推荐动画</a>
<%response.write img_small("jt1")%><a href='?action=website'<%if action="website" then response.write "class=red_3"%>>推荐网站</a>
</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='94%'>
  <tr><td class=htd>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您在发表相关信息后，您的积分将自动增加积分<font class=red><%response.write add_integral%></font>分。如您发表的相关信息示被审核通过而删除，您的积分将被减去相同的数值。请勿乱发表，多次发现乱发表者，将<font class=red>加倍扣除积分</font>！</td></tr>
  </table>
</td></tr>
</table>
<%
response.write ukong&table1
%>
<tr<%response.write table2%>><td class=end>&nbsp;<%response.write img_small(us)%>&nbsp;&nbsp;<b><%response.write tit%></b></td></tr>
<tr<%response.write table3%>><td align=center height=350>
<%
response.write kong
dim fssj:fssj=int(web_var(web_num,25))        '防刷时间设置(单位：秒)
select case action
case "article"
  if int(mid(web_var(web_config,9),2,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="art"
  sql="select top 1 username,tim from article where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call put_article()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call put_article()
  end if 
  end if
  end if
case "video"
  if int(mid(web_var(web_config,9),6,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="video"
  sql="select top 1 username,tim from video where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call video_add()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call video_add()
  end if 
  end if
  end if
case "gongao"
  if int(mid(web_var(web_config,9),7,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="art"
  sql="select top 1 username,tim from gongao where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call put_gongao()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call put_gongao()
  end if 
  end if
  end if
case "down"
  if int(mid(web_var(web_config,9),3,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="down"
  sql="select top 1 username,tim from down where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call put_down()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call put_down()
  end if 
  end if
  end if
case "gallery"
  if int(mid(web_var(web_config,9),4,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="gall"
  sql="select top 1 username,tim from gallery where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call put_gallery()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call put_gallery()
  end if 
  end if
  end if
case "flash"
  if int(mid(web_var(web_config,9),8,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="flash"
  sql="select top 1 username,tim from gallery where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call put_flash()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call put_flash()
  end if 
  end if
  end if
case "website"
  if int(mid(web_var(web_config,9),5,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="web"
  sql="select top 1 username,tim from website where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call put_website()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call put_website()
  end if 
  end if
  end if
case else
  if int(mid(web_var(web_config,9),9,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="busin"
  sql="select top 1 username,tim from business where username='"&login_username&"' order by id desc"
  set rs=conn.execute(sql)
  if rs.eof then
  rs.close:set rs=nothing
    call put_business()
  else
  if now()-rs("tim")<fssj*0.000011574 then           '大约 0.000011574 为 1 秒
  rs.close:set rs=nothing
  call put_fs()
  else
    call put_business()
  end if 
  end if
  end if
end select

sub put_fs()
  response.write "<font class=red_2>对不起！<font class=blue>"&tit&"</font>起用了防刷新机制，<font class=blue>"&fssj&"</font>秒后才能重新发布，谢谢！</font>"
end sub

%>
</td></tr>
</table>
<br>
<%
'---------------------------------center end-------------------------------
call web_end(0)

sub put_close()
  response.write "<font class=red_2>对不起！本站暂时关闭用户 <font class=blue>"&tit&"</font> 的功能。</font><br><br>如有需要，请与管理员联系。谢谢！"
end sub

sub put_website()
  if trim(request.form("put"))="yes" then
    dim name,url,isgood,country,lang,remark
    name=code_form(request.form("name"))
    csid=trim(request.form("csid"))
    url=code_form(request.form("url"))
    isgood=trim(request.form("isgood"))
    remark=request.form("remark")
    country=trim(request.form("country"))
    lang=trim(request.form("lang"))
    pic=trim(request.form("pic"))
    if len(csid)<1 then
      response.write "<font class=red_2>请选择网站类型！</font><br><br>"&go_back
    elseif len(name)<1 or len(url)<1 then
      response.write "<font class=red_2>网站名称和地址不能为空！</font><br><br>"&go_back
    elseif len(remark)>250 then
      response.write "<font class=red_2>网站说明不能长于250个字符！</font><br><br>"&go_back
    else
      call chk_cid_sid()