user_put.bak.asp

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

              ]&nbsp; [<img src="images/video/media.gif" width="17" height="17"> <input type="radio" value="md" name="movie">
              ]&nbsp;&nbsp;&nbsp; </td>  
          </tr>
<tr>
<td><div align="center">开放方式：</div></td>
<td> <input type="radio" value="1" name="ld" checked>在线观看 <input type="radio" value="0" name="ld">影片下载 <input type="radio" value="2" name="ld">即能观看也可下载</td>  
</tr>
   <tr><td align=center>影片主演：</td><td><input type=text name=name value='无' size=50 maxlength=50></td></tr>
<script language="javascript">
function setid()
{
str='';
if(!window.add_frm.no.value)
window.add_frm.no.value=1;
for(i=1;i<=window.add_frm.no.value;i++)
str+='&nbsp;影片地址：&nbsp;&nbsp;<input type="text" name="url'+i+'" class="button" style="padding-left:1pt"  size=65 value="">&nbsp;第'+i+'集<BR>';
window.upid.innerHTML=str+'<br>';
}
</script>
 <tr><td align=center>影片地址：</td><td>集数 <input type="text" name="no" class="button" value="2" size="2">
                  <input type="button" name="Button" class="buttonface" onclick="setid();" value="设定"> 
                  (在点击“设定”按钮后才可输入影片对应地址) <% response.write redx %>
				  </td></tr>
               <tr>
                  <td colspan="2" id="upid" width="564"></td>
                </tr>

  <tr height=35<%response.write format_table(3,1)%>><td align=center><%call frm_ubb_type()%></td><td><%call frm_ubb("add_frm","remark","&nbsp;&nbsp;")%></td></tr>
  <tr><td valign=middle align=center><br>影片备注：</td><td><textarea rows=6 name=remark cols=70></textarea></td></tr>
  <tr><td align=center>影片长度：</td><td><input type=text name=long size=12 value='90分钟'>&nbsp;&nbsp;图片：<input type=test name=pic size=28>&nbsp;<a href='upload.asp?uppath=video&upname=<%response.write ispic%>&uptext=pic' target=upload_frame>上传图片</a>&nbsp;<a href='upload.asp?uppath=video&upname=n&uptext=remark' target=upload_frame>上传至内容</a></td></tr>
  <tr><td align=center>上传文件：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=video&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
  <tr height=30><td></td><td><input type=submit value=' 提 交 添 加 '></td></tr>
</form></table><%

  end if
%></td></tr></table><%
end sub


sub put_gallery()
  dim name,pic,ispic,types
  if trim(request.form("put"))="yes" then
    name=code_form(request.form("name"))
    csid=trim(request.form("csid"))
    pic=code_form(request.form("pic"))
    types=trim(request.form("types"))
    if len(csid)<1 then
      response.write "<font class=red_2>请选择图片分类！</font><br><br>"&go_back
    elseif len(name)<1 then
      response.write "<font class=red_2>图片名称说明不能为空！</font><br><br>"&go_back
    elseif len(pic)<8 then
      response.write "<font class=red_2>请上传图片或输入图片的地址！</font><br><br>"&go_back
    else
      call chk_cid_sid()
      set rs=server.createobject("adodb.recordset")
      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("name")=name
      if len(code_admin(request.form("spic")))<3 then
        rs("spic")="no_pic.gif"
      else
        rs("spic")=code_admin(request.form("spic"))
      end if
      rs("pic")=pic
      rs("remark")=left(request.form("remark"),250)
      rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")
      if isnumeric(trim(request.form("emoney"))) then
        rs("emoney")=trim(request.form("emoney"))
      else
        rs("emoney")=0
      end if
      if trim(request.form("istop"))="yes" then
        rs("istop")=1
      else
        rs("istop")=0
      end if
      rs("counter")=0
      rs("tim")=now_time
      if format_power(login_mode,0)="admin" or format_power(login_mode,0)="super" or format_power(login_mode,0)="vip"  then
rs("hidden")=true
else
rs("hidden")=false
      end if
      rs.update
      rs.close:set rs=nothing
      call user_integral("add",web_var(web_num,15),login_username)
      call user_cp("add",web_var(web_num,28),login_username)
      call upload_note(action,first_id(action))
      if format_power(login_mode,0)="admin"  or format_power(login_mode,0)="super" or format_power(login_mode,0)="vip" then
         response.write "<font class=red>已成功添加了一个图片！</font><br><br>"
      else
         conn.Execute("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_var(web_config,3)&"','"&login_username&"','请管理员审核','"&data_name&" 中有新发布！',Now(),1,false)")
         response.write "<font class=red>已成功添加了一个图片！</font><br><br>请等待管理审核通过……<br><br>"
      end if
	  end if
  else
%><table border=0 cellspacing=0 cellpadding=3>
<form name=put_frm action='?action=<%response.write action%>' method=post>
<input type=hidden name=put value='yes'><input type=hidden name=upid value=''>
  <tr><td width='15%' align=center>文件名称：</td><td width='85%'><input type=text size=70 name=name maxlength=50><%=redx%></td></tr>
  <tr><td align=center>文件分类：</td><td><%call chk_csid(cid,sid)%>&nbsp;&nbsp;文件类型：<select name=types size=1>
<option value='paste'<%if types="paste" then response.write " selected"%>>贴图</option>
</select><%response.write redx%>&nbsp;&nbsp;<%call chk_emoney(0)%></td></tr>
  <tr><td align=center>浏览权限：</td><td><%call chk_power("",1)%></td></tr>
<%ispic="gs"&upload_time(now_time)%>
  <tr><td align=center>小 图 片：</td><td><input type=test name=spic size=70 maxlength=100></td></tr>
  <tr><td align=center>上传图片：</td><td><iframe frameborder=0 name=upload_frames width='100%' height=28 scrolling=no src='upload.asp?uppath=gallery&upname=<%response.write ispic%>&uptext=spic'></iframe></td></tr>
<%ispic="g"&upload_time(now_time)%>
  <tr><td align=center>文件地址：</td><td><input type=test name=pic size=70 maxlength=100><%response.write redx%></td></tr>
  <tr><td align=center>上传文件：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=28 scrolling=no src='upload.asp?uppath=gallery&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
  <tr><td align=center>文件说明：<br><br><=250字符</td><td><textarea name=remark rows=5 cols=70></textarea></td></tr>
  <tr><td colspan=2 align=center height=30><input type=submit value=' 上 传 我 的 文 件 '>　　<input type=reset value='重新填写'></td></tr>
</form></table><%
  end if
end sub

sub put_flash()
  dim name,pic,ispic,types,url,remark,counter
  if trim(request.form("put"))="yes" then
    name=code_form(request.form("name"))
    csid=trim(request.form("csid"))
    url=code_form(request.form("url"))
    remark=request.form("remark")
    pic=request.form("pic")
    if len(pic)<3 then pic="no_pic.gif"
    types=trim(request.form("types"))
    if len(csid)<1 then
      response.write "<font class=red_2>请选择FLASH分类！</font><br><br>"&go_back
    elseif len(name)<1 or len(url)<1 then
      response.write "<font class=red_2>FLASH名称和地址不能为空！</font><br><br>"&go_back
    elseif len(remark)>250 then
      response.write "<font class=red_2>FLASH说明不能长于250个字符！</font><br><br>"&go_back
    else
    cid=mid(csid,1,instr(csid,"-")-1)
     sid=mid(csid,instr(csid,"-")+1,len(csid))
      call chk_cid_sid()
      set rs=server.createobject("adodb.recordset")
      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("name")=name
       rs("url")=url
      rs("remark")=remark
      if len(code_admin(request.form("spic")))<3 then
        rs("spic")="no_pic.gif"
      else
        rs("spic")=code_admin(request.form("spic"))
      end if
      rs("pic")=pic
      rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")
      if isnumeric(trim(request.form("emoney"))) then
        rs("emoney")=trim(request.form("emoney"))
      else
        rs("emoney")=0
      end if
      if trim(request.form("istop"))="yes" then
        rs("istop")=1
      else
        rs("istop")=0
      end if
      rs("counter")=0
      rs("tim")=now_time
      rs("hidden")=false
      rs.update
      rs.close:set rs=nothing
      call user_integral("add",web_var(web_num,15),login_username)
      call user_cp("add",web_var(web_num,28),login_username)
      call upload_note(action,first_id(action))
      if format_power(login_mode,0)="admin"  or format_power(login_mode,0)="super" or format_power(login_mode,0)="vip" then
         response.write "<font class=red>已成功添加了一个FLASH！</font><br><br>"
      else
         conn.Execute("insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&web_var(web_config,3)&"','"&login_username&"','请管理员审核','"&data_name&" 中有新发布！',Now(),1,false)")
         response.write "<font class=red>已成功添加了一个FLASH！</font><br><br>请等待管理审核通过……<br><br>"
      end if
	  end if
  else
%><table border=0 cellspacing=0 cellpadding=3>
<form name=put_frm action='?action=<%response.write action%>' method=post>
<input type=hidden name=put value='yes'><input type=hidden name=upid value=''>
  <tr><td width='15%' align=center>FLASH名称：</td><td width='85%'><input type=text size=70 name=name maxlength=50><%=redx%></td></tr>
  <tr><td align=center>FLASH分类：</td><td><%call chk_csid(cid,sid)%>&nbsp;&nbsp;文件类型：<select name=types size=1>
<option value='flash'<%if types="flash" then response.write " selected"%>>FLASH</option>
</select><%response.write redx%>&nbsp;&nbsp;<%call chk_emoney(0)%></td></tr>
  <tr><td align=center>浏览权限：</td><td><%call chk_power("",1)%></td></tr>
  <tr><td align=center>FLASH地址：</td><td><input type=text size=60 name=url value='http://' maxlength=100><%=redx%></td></tr>
<%ispic="gs"&upload_time(now_time)%>
  <tr><td align=center>小 图 片：</td><td><input type=test name=spic size=70 maxlength=100><%=redx%></td></tr>
  <tr><td align=center>上传图片：</td><td><iframe frameborder=0 name=upload_frames width='100%' height=28 scrolling=no src='upload.asp?uppath=flash&upname=<%response.write ispic%>&uptext=spic'></iframe></td></tr>
  <tr><td align=center>FLASH说明：<br><br><=250字符</td><td><textarea name=remark rows=5 cols=70></textarea></td></tr>
  <tr><td colspan=2 align=center height=30><input type=submit value=' 添 加 我 的 FLASH '>　　<input type=reset value='重新填写'></td></tr>
</form></table><%
  end if
end sub

sub put_gongao()
     if trim(request.form("put"))="yes" then
        dim username,topic,word,tim
        topic=code_form(request.form("topic"))
        word=request.form("word")
        sql="select emoney from user_data where username='"&login_username&"'"
       set rs=conn.execute(sql)
       if rs("emoney")<1 or login_username="" then
         response.write "<font class=red_2>你的金钱不够或者您还没有登陆本站，请登陆or去论坛浇点水吧！</font><br><br>"&go_back 
         rs.close:set rs=nothing
       else

        if len(topic)<1 then
           response.write "<font class=red_2>滚动广告标题不能为空！</font><br><br>"&go_back
        else 
           if len(word)>500 then
           response.write "<font class=red_2>滚动广告内容不能长于500个字符！</font><br><br>"&go_back
           end if
      set rs=server.createobject("adodb.recordset")
      sql="select * from "&data_name
      rs.open sql,conn,1,3
      rs.addnew
      rs("username")=login_username
      rs("topic")=topic
      rs("word")=word
      rs("tim")=now_time
      rs("count")=0
      rs("sort")=0
      rs.update
      rs.close:set rs=nothing
      sql="select emoney from user_data where username='"&login_username&"'"
      set rs=conn.execute(sql)
      sql="update user_data set emoney=emoney-"&web_var(web_num,23)&" where username='"&login_username&"'"
      conn.execute(sql)
      rs.close:set rs=nothing
      response.write "<font class=red>已成功的发布啦一个广告！</font><br><br>"&go_back
    end if
    end if
  else
%><table border=0 cellspacing=0 cellpadding=3>
<form name=put_frm action='?action=<%response.write action%>' method=post>
<input type=hidden name=put value='yes'><input type=hidden name=upid value=''>
  <tr><td width='15%' align=center>广告标题：</td><td width='85%'>
  <input type=text size=70 name=topic maxlength=40><%=redx%></td></tr> 
  <tr height=35<%response.write format_table(3,1)%>><td align=center><%call frm_ubb_type()%></td><td><%call frm_ubb("put_frm","word","&nbsp;&nbsp;")%></td></tr>
  <tr><td valign=top align=center><br>广告内容：</td><td><textarea name=word rows=15 cols=70></textarea></td></tr>
  <tr><td align=center>上传文件：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=article&upname=a&uptext=word'></iframe></td></tr>
  <tr><td align=center>发布说明：</td><td><b>1.</b>  在本站发布广告将您将付<font color=red><b><% response.write  web_var(web_num,23) %></b></font>个虚拟货币的费用</td></tr>
  <tr><td align=center>          </td><td><b>2.</b>  <b><% response.write  web_var(web_num,22) %></b></font>天内发表的广告将随机抽取<font color=red><b>5</b></font>条滚动显示于网站顶部<br></td></tr>  
  <tr><td align=center>          </td><td><b>3.</b>  内容不得超过<font color=red><b>500</b></font>字<br></td></tr>
  <tr><td align=center>          </td><td><b>4.</b>  请不要发布煽动抗拒、破坏宪法和法律、行政法规实施等等的违法广告<br></td></tr>
<tr><td valign=top class=htd>
</td></tr>
  <tr><td colspan=2 align=center height=25><input type=submit value=' 发表滚动广告'>　　<input type=reset value='重新填写'></td></tr>
</form></table><%
  end if
end sub
%>