user_put.bak.asp

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

    remark=request.form("remark")
    country=trim(request.form("country"))
    lang=trim(request.form("lang"))
    jg=trim(request.form("jg"))      
    tel=trim(request.form("tel"))
    email=trim(request.form("email"))
    lxname=trim(request.form("lxname"))
    pic=request.form("pic")
    if len(pic)<3 then pic="no_pic.gif"

    if isnumeric(csid) or 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 email_ok(email)<>"yes" or len(email)>50  then
      response.write "<font class=red_2>邮件格式不符合规定或邮件地址不能为空！</font><br><br>"&go_back
    elseif len(tel)<1 then
      response.write "<font class=red_2>联系电话不能为空！</font><br><br>"&go_back  
    elseif len(lxname)<1 then
      response.write "<font class=red_2>联系人名称不能为空！</font><br><br>"&go_back  
    elseif len(jg)<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
      cid=mid(csid,1,instr(csid,"-")-1)
      sid=mid(csid,instr(csid,"-")+1,len(csid))
      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("hidden")=false
      rs("name")=name
      rs("url")=url
      rs("country")=country
      rs("lang")=lang
      rs("jg")=jg
      rs("tel")=tel
      rs("email")=email
      rs("lxname")=lxname
      rs("remark")=remark
      if isgood="yes" then
        rs("isgood")=true
      else
        rs("isgood")=false
      end if
      rs("username")=login_username
      rs("pic")=pic
      rs("tim")=now_time
      rs("counter")=0
      rs.update
      rs.close:set rs=nothing
      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='12%'>信息名称：</td>
    <td width='88%'><input type=text size=40 name=name maxlength=50><%=redx%></td>
  </tr>
  <tr>
    <td>信息分类：</td>
    <td><select name=csid size=1><%
sql="select c_id,c_name from jk_class where nsort='"&nsort&"' order by c_order,c_id"
set rs=conn.execute(sql)
do while not rs.eof
  nid=int(rs(0))
  response.write vbcrlf&"<option value='"&nid&"' class=bg_2>"&rs(1)&"</option>"
  sql2="select s_id,s_name from jk_sort where c_id="&nid&" order by s_order,s_id"
  set rs2=conn.execute(sql2)
  do while not rs2.eof
    now_id=int(rs2(0))
    response.write vbcrlf&"<option value='"&nid&"-"&now_id&"'"
    if cid=nid and sid=now_id then response.write " selected"
    response.write ">　"&rs2(1)&"</option>"
    rs2.movenext
  loop
  rs2.close:set rs2=nothing
  rs.movenext
loop
rs.close:set rs=nothing
%></select><%=redx%>&nbsp;&nbsp;&nbsp;&nbsp;推荐：<input type=checkbox name=isgood value='yes'>&nbsp;选上为推荐显示</td></tr>
  
<tr><td>信息类型：</td><td><select name=country size=1>
<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>货到付款</option>
<option>其它方式</option>
</select></td></tr>
<tr><td>联 系 人：</td><td><input type=text size=19 name=lxname maxlength=30><%=redx%></td></tr>
<tr><td>联系电话：</td><td><input type=text size=19 name=tel maxlength=30><%=redx%>格式：0473-1234567</td></tr>
<tr><td>电子邮件：</td><td><input type=text size=19 name=email maxlength=30><%=redx%></td></tr>
<tr><td>交易价格：</td><td><input type=text size=15 name=jg maxlength=30>  元<%=redx%>如果不确定可以填面议</td></tr>
<tr><td>相关地址：</td><td><input type=text size=60 name=url value='http://' maxlength=100></td></tr>
<% ispic="w"&upload_time(now_time) %>
  <tr><td>图片地址：</td><td><input type=test name=pic size=40 maxlength=30 readonly></td></tr>
  <tr><td>上传图片：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=business&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
  <tr><td valign=top class=htd><br>信息内容：<br><=250B</td><td><textarea name=remark rows=6 cols=60></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 video_add()
%><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td align=center height=300><%
dim nsort,sqladd,data_name,downtype,xzhuafei,movie
nsort="video":sqladd="":data_name="video"
if request.querystring("types")="add" then
  dim csid,title,pic,sql1,no,url,vid
no=request.form("no")
  csid=trim(request.form("cid"))
  title=code_admin(request.form("title"))
  pic=request.form("pic")

  if len(pic)<3 then pic="no_pic.gif"

  if len(csid)<1 or var_null(title)="" or request.form("movie")="" then
    response.write("<font class=red_2>影片的类型、名称、格式和影片地址不能为空！</font><br><br>"&go_back)
  else

    sql="select * from "&data_name
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,3
    rs.addnew
	rs("type")=request.form("movie")
    rs("c_id")=csid
    rs("title")=title
    rs("username")=login_username
    rs("lang")=request.form("lang")
	rs("howlong")=request.form("long")
	rs("where")=request.form("where")
	rs("remark")=request.form("remark")
    rs("name")=request.form("name")
    if format_power(login_mode,0)="admin" then
      rs("hidden")=true
    else
      rs("hidden")=false
    end if

    if isnumeric(trim(request.form("emoney"))) then
      rs("emoney")=trim(request.form("emoney"))
    else
      rs("emoney")=0
    end if
    rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")

    rs("hot")=request.form("hot")
    rs("ld")=request.form("ld")
    rs("pic")=pic
    rs("tim")=now_time
    rs("counter")=0

    rs.update
	vid=rs("id")
    rs.close

set rs=server.createobject("adodb.recordset")
sql1="select * from videourl where (id is null)"
rs.open sql1,conn,1,3
for i=1 to no
rs.addnew
url=request.form("url"&i&"")
rs("nameid")=vid
rs("url")=url
rs.update
next
rs.close
set rs=nothing
    call upload_note(data_name,first_id(data_name))
      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='98%' cellspacing=0 cellpadding=2>
<form name='add_frm' action='?action=video&types=add' method=post>
<input type=hidden name=upid value=''>
  <tr><td width='15%' align=center>影片名称：</td><td width='85%'><input type=text name=title size=70 maxlength=40><% response.write redx %></td></tr>
  <tr><td align=center>影片类型：</td><td>
  <select name=cid size=1>
  <%
  sql="select * from videotype order by typeid"
  set rs=conn.execute(sql)
  do while not rs.eof
    response.write vbcrlf&"<option value='"&rs("typeid")&"' class=bg_2>"&rs("type")&"</option>"
	rs.movenext
  loop
  rs.close:set rs=nothing
  ispic="d"&upload_time(now_time)
%>
</select>
<% response.write redx %></td></tr>
  <tr>
            <td align=center>影片信息：</td>
            <td>语言类型： 
              <select name=lang size=1>
<option value='汉语'>汉语</option>
<option value='粤语'>粤语</option>
<option value='日语'>日语</option>
<option value='英语'>英语</option>
<option value='韩语'>韩语</option>
<option value='其他'>其他</option>
</select>	
			
			
			&nbsp;&nbsp;&nbsp;推荐等级：<select name=hot 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>
</td>
</tr>

		  <tr>
            <td><div align="center">观看权限：</div></td>
            <td><%call chk_power("",1)%></td>  
          </tr>
          <tr>
            <td align=center>所需货币：</td>
            <td><%call chk_emoney(0)%>&nbsp;&nbsp;影片产地：<select size="1" name="where">
          <option value="大陆">大陆</option>
          <option value="台湾">台湾</option>
          <option value="香港">香港</option>
          <option value="日韩">日本</option>
          <option value="韩国">韩国</option>
          <option value="欧美">欧美</option>
          <option value="其他">其他</option>
          <option selected value="未知" name="where">出产地区</option>
          </select></td>
          </tr>
          <tr>
            <td><div align="center">影片类型：</div></td>
            <td>[ <img src="images/video/real.gif" width="16" height="16"> <input type="radio" value="rm" name="movie">  
              ]&nbsp; [<img src="images/video/mov.gif" width="18" height="18"> <input type="radio" value="mov" name="movie">