user_put.bak.asp

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

      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
      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("name")=name
      rs("url")=url
      rs("country")=country
      rs("lang")=lang
      rs("remark")=remark
      if isgood="yes" then
        rs("isgood")=true
      else
        rs("isgood")=false
      end if
      rs("username")=login_username
      if len(pic)<3 then
        rs("pic")="no_pic.gif"
      else
        rs("pic")=pic
      end if
      rs("tim")=now_time
      rs("counter")=0
      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%'>网站名称：</td><td width='85%'><input type=text size=70 name=name maxlength=50><%=redx%></td></tr>
  <tr><td>网站类型：</td><td><%call chk_csid(cid,sid)%></td></tr>
  <tr><td>网站地址：</td><td><input type=text size=70 name=url value='http://' maxlength=100><%=redx%></td></tr>
  <tr><td>国家地区：</td><td><select name=country size=1>
<option>中国</option>
<option>香港</option>
<option>台湾</option>
<option>美国</option>
<option>英国</option>
<option>日本</option>
<option>韩国</option>
<option>加拿大</option>
<option>澳大利亚</option>
<option>新西兰</option>
<option>俄罗斯</option>
<option>意大利</option>
<option>法国</option>
<option>西班牙</option>
<option>德国</option>
<option>其它国家</option>
</select>&nbsp;&nbsp;&nbsp;&nbsp;站点语言：<select name=lang size=1>
<option>简体中文</option>
<option>繁体中文</option>
<option>English</option>
<option>其它语言</option>
</select>&nbsp;&nbsp;&nbsp;推荐：<input type=checkbox name=isgood value='yes'></td></tr>
<% ispic="w"&upload_time(now_time) %>
  <tr><td>图片地址：</td><td><input type=test name=pic size=70 maxlength=100></td></tr>
  <tr><td>上传图片：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=website&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
  <tr><td valign=top class=htd><br>网站内容：<br><=250B</td><td><textarea name=remark rows=5 cols=70></textarea></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

sub put_article()
  if trim(request.form("put"))="yes" then
    dim topic
    topic=code_form(request.form("topic"))
    csid=trim(request.form("csid"))
    if len(csid)<1 then
      response.write "<font class=red_2>请选择文章类型！</font><br><br>"&go_back
    elseif topic="" 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
     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("topic")=topic
      rs("word")=request.form("word")
      if isnumeric(trim(request.form("emoney"))) then
        rs("emoney")=trim(request.form("emoney"))
      else
        rs("emoney")=0
      end if
      rs("author")=code_admin(request.form("author"))
      rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")
      rs("keyes")=code_admin(request.form("keyes"))
      if trim(request.form("istop"))="yes" then
        rs("istop")=1
      else
        rs("istop")=0
      end if
      rs("tim")=now_time
      rs("counter")=0
      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 width='100%' cellspacing=0 cellpadding=2 align=center>
<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><td align=center>文章类型：</td><td><%call chk_csid(cid,sid):call chk_emoney(0)%></td></tr>
  <tr><td align=center>浏览权限：</td><td><%call chk_power("",1)%></td></tr>
  <tr><td align=center>文章作者：</td><td><input type=text size=12 name=author maxlength=20>&nbsp;&nbsp;关键字：<input type=text name=keyes size=12 maxlength=20>&nbsp;&nbsp;推荐：<input type=checkbox name=istop value='yes'></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></td><td height=30><input type=submit value='发 布 我 的 文 章'>　　<input type=reset value='重新填写'></td></tr>
</form></table><%
  end if
end sub

sub put_down()
  if trim(request.form("put"))="yes" then
    dim name,sizes,url,url2,homepage,remark,types,keyes,pic
    csid=trim(request.form("csid"))
    name=code_form(request.form("name"))
    sizes=code_form(request.form("sizes"))
    url=code_form(request.form("url"))
    url2=code_form(request.form("url2"))
    homepage=code_form(request.form("homepage"))
    keyes=code_form(request.form("keyes"))
    remark=request.form("remark")
    pic=request.form("pic")
    if len(pic)<3 then pic="no_pic.gif"
    types=request.form("types")
    if len(csid)<1 or var_null(name)="" or var_null(url)="" then
      response.write("<font class=red_2>软件的类型、名称和下载地址不能为空！</font><br><br>"&go_back)
    else
      call chk_cid_sid()
      sql="select * from down"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,1,3
      rs.addnew
      rs("c_id")=cid
      rs("s_id")=sid
      rs("username")=login_username
      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("name")=name
      rs("sizes")=sizes
      if isnumeric(trim(request.form("emoney"))) then
        rs("emoney")=trim(request.form("emoney"))
      else
        rs("emoney")=0
      end if
      rs("genre")=trim(request.form("genre"))
      rs("os")=replace(trim(request.form("os"))," ","")
      rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")
      rs("url")=url
      rs("url2")=url2
      rs("homepage")=homepage
      rs("remark")=remark
      rs("keyes")=keyes
      rs("pic")=pic
      rs("tim")=now_time
      rs("counter")=0
      rs("types")=types
      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 width=560 cellspacing=0 cellpadding=2>
<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 name=name size=70 maxlength=40><% response.write redx %></td></tr>
  <tr><td align=center>软件类型：</td><td><%call chk_csid(cid,sid):call chk_emoney(0)%></td></tr>
  <tr><td align=center>下载权限：</td><td><%call chk_power("",1)%></td></tr>
  <tr><td align=center>软件大小：</td><td><input type=text name=sizes value='KB' size=10 maxlength=10>&nbsp;&nbsp;&nbsp;推荐等级：<select name=types size=1>
<option value='0'>没有等级</option>
<option value='1'>一星级</option>
<option value='2'>二星级</option>
<option value='3'>三星级</option>
<option value='4'>四星级</option>
<option value='5'>五星级</option>
</select>&nbsp;&nbsp;&nbsp;授权类型：<select name=genre size=1><%
  ddim=split(web_var(web_down,4),":")
  for i=0 to ubound(ddim)
    response.write vbcrlf&"<option>"&ddim(i)&"</option>"
  next
  erase ddim
%></select></td></tr>
  <tr><td align=center>运行环境：</td><td><%
  ddim=split(web_var(web_down,3),":")
  for i=0 to ubound(ddim)
    response.write "<input type=checkbox name=os value='"&ddim(i)&"' class=bg_1>"&ddim(i)
  next
  erase ddim
%></td></tr>
  <tr><td align=center>本站下载：</td><td><input type=text name=url size=70 maxlength=200><% response.write redx %></td></tr>
  <tr><td align=center>镜像下载：</td><td><input type=text name=url2 value='http://' size=70 maxlength=200></td></tr>
  <tr><td align=center>软件主页：</td><td><input type=text name=homepage value='http://' size=50 maxlength=50></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=top align=center><br>软件备注</td><td><textarea rows=6 name=remark cols=70></textarea></td></tr>
<%ispic="d"&upload_time(now_time)%>
  <tr><td align=center>关 键 字：</td><td rowspan="2"><input type=text name=keyes size=12 maxlength=20>&nbsp;&nbsp;&nbsp;&nbsp;图片：<input type=text name=pic size=30 maxlength=100><br>
<iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=down&upname=a&uptext=remark'></iframe></td></tr>
  <tr><td align=center>上传到内容</td></tr>
  <tr><td align=center>上传文件：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=down&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
end sub

sub put_business()
  if trim(request.form("put"))="yes" then
    dim name,csid,url,isgood,country,lang,tel,lxname,email,jg,remark
    name=code_form(request.form("name"))
    csid=trim(request.form("csid"))
    url=code_form(request.form("url"))
    isgood=trim(request.form("isgood"))