user_put.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

<!-- #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
add_integral=web_varn(web_num,15)

select case action
case "article"
  tit="发表文章"
case "down"
  tit="添加软件"
case "gallery"
  tit="上传文件"
case "website"
  tit="推荐网站"
case else
  action="news"
  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=news'<%if action="news" then response.write "class=red_3"%>>发布我的新闻</a>　&nbsp;
<%response.write img_small("jt1")%><a href='?action=article'<%if action="article" then response.write "class=red_3"%>>发表我的文章</a>　&nbsp;
<%response.write img_small("jt1")%><a href='?action=down'<%if action="down" then response.write "class=red_3"%>>添加我的软件</a>　&nbsp;
<%response.write img_small("jt1")%><a href='?action=gallery'<%if action="gallery" then response.write "class=red_3"%>>上传我的文件</a>　&nbsp;
<%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
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"
    call put_article()
  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"
    call put_down()
  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"
    call put_gallery()
  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"
    call put_website()
  end if
case else
  if int(mid(web_var(web_config,9),1,1))=0 then
    call put_close()
  else
    data_name=action
    nsort="news"
    call put_news()
  end if
end select
%>
</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("picg"))
    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()
      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("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",add_integral,login_username)
      call upload_note(action,first_id(action))
      response.write "<font class=red>已成功推荐了一个网站！</font><br><br>请等待管理审核通过……<br><br>"
    end if
  else
%><table border=0 cellspacing=0 cellpadding=3>
<form name=add_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_news()
  if trim(request.form("put"))="yes" then
    dim topic,comto,istop,word,ispic,pic,keyes
    topic=code_form(request.form("topic"))
    csid=trim(request.form("csid"))
    comto=code_form(request.form("comto"))
    keyes=code_form(request.form("keyes"))
    istop=trim(request.form("istop"))
    word=request.form("word")
    ispic=trim(request.form("ispic"))
    pic=trim(request.form("pic"))
    if len(csid)<1 then
      response.write "<font class=red_2>请选择动态类型！</font><br><br>"&go_back
    elseif len(topic)<1 or len(word)<10 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("hidden")=false
      rs("topic")=topic
      rs("comto")=comto
      rs("keyes")=keyes
      rs("word")=word
      if istop="yes" then
        rs("istop")=true
      else
        rs("istop")=false
      end if
      if ispic="yes" then
        rs("ispic")=true
      else
        rs("ispic")=false
      end if
      rs("pic")=pic
      rs("tim")=now_time
      rs("counter")=0
      rs.update
      rs.close:set rs=nothing
      call user_integral("add",add_integral,login_username)
      call upload_note(action,first_id(action))
      response.write "<font class=red>已成功发布了一篇动态！</font><br><br>请等待管理审核通过……<br><br>"