sdcms添加在线提交功能

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【sdcms添加在线提交功能】，下面是详细的分享！

sdcms添加在线提交功能

sdcms在线提交的程序

回复 http://bbs.sdcms.cn/dispbbs.asp?boardid=2&Id=1557 帖子。感谢大家的支持！

代码如下

<!--#include file="inc/conn.asp" -->

<link href=http://www.chinaz.com/program/2009/0512/"style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
body,td,th {
 font-size: 12px;
}
-->
</style>

<script language=javascript>  
  function   isfull()  
  {  
      var   title  =   document.myform.title.value;  
      var   content  =   document.myform.content.value;  
   var   classid  =   document.myform.classid.value;
   var   author  =   document.myform.author.value;
   var   code  =   document.myform.code.value;
      if(title  ==   "")  
      {  
          alert("标题呢?");  
          document.myform.title.focus();  
          return   false;  
      } 
  
         if(content  ==   "")  
      {  
          alert("多少写点内容吧");  
          document.myform.content.focus();  
          return   false;  
      }
  
         if(classid  ==   "")  
      {  
          alert("选分类哦...");  
          document.myform.classid.focus();  
    return   false;
      }
  
            if(author  ==   "")  
      {  
          alert("留下您的大名吧");  
          document.myform.author.focus();  
    return   false;
      }
  
               if(code  ==   "")  
      {  
          alert("唉,不要忘记带验证马来");  
          document.myform.code.focus();  
    return   false;
      }
  
  
      if(classid  ==   "")  
      {  
          alert("选分类哦...");  
          document.myform.classid.focus();  
      }  
      return   true;  
  }  
  </script>

<title>在线提交笑话</title>
</head>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="567" valign="top">
      <table width="100%" border="0" cellspacing="0">
        <tr>
          <td><a href=http://www.chinaz.com/program/2009/0512/"http://joke.yingzi001.cn">回首页</a>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <form action="add.asp?action=add" method="post" name="myform" id="myform" onSubmit="return   isfull();">  
    <tr>
                  <td align="center">
      <%if request("action")=""then%>
                    <table width="100%" border="0" cellpadding="5" cellspacing="0">
                      <tr>
                        <td width="20%" align="right">标题</td>
                        <td width="80%">
                          <input name="title" type="text" id="wp" size="35">
                          * 30个字为宜^-^</td>
                      </tr>
                      <tr>
                        <td width="20%" align="right">内容 </td>
                        <td>
                        <textarea name="content" cols="60" rows="10" id="content"></textarea></td>
                      </tr>
       <tr>
                        <td width="20%" align="right">类别</td>
                        <td>
                          <input name="classid" type="text" id="classid" size="3" readonly="readonly"  >
                          <%
   set rs_s=server.createobject("adodb.recordset")
   rs_s.open "select * from sd_class order by id ",conn,1,1
   %>
                        <select name="select2" onChange="(document.myform.classid.value=this.options[this.selectedIndex].value)"><option selected>请选择类别
                <%
   while not rs_s.eof
   %>
                <option value="<%=rs_s("id")%>"><%=rs_s("title")%></option>
                <%
   rs_s.movenext
   wend
   rs_s.close
   set rs_s=nothing
   %>
              </select>
                        * 分类自动对应序号</td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellpadding="5" cellspacing="1">
                                                            <tr>
                        <td width="20%" align="right" bgcolor="#FFFFFF">作者</td>
                        <td width="80%" bgcolor="#FFFFFF"><input type="author" name="author"/>
                        - 您的笔名或者网址都可以</td>
                      </tr>
                                        <tr>
                        <td width="20%" align="right" bgcolor="#FFFFFF">验证码</td>
                        <td><input name='code' type='text' size='6' maxlength="4"> 
  <img src=http://www.chinaz.com/program/2009/0512/"getcode.asp" alt="看不清?点击换一头" style="cursor:pointer;height:20px;" onclick="this.src='http://www.chinaz.com/program/2009/0512/getcode.asp'"></td>
                      </tr>
                    <tr>
                        <td width="20%" bgcolor="#FFFFFF"> </td>
                        <td width="80%" bgcolor="#FFFFFF"><input type="submit" name="Submit2" value="提交我的笑话" /></td>
                      </tr>
                    </table>
     <%end if%>
      </td>
                </tr>
    </form>
              </table>
          </td>
   
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>

<%
if request("action")="add" then
If IsEmpty(Session("GetCode")) Or Session("GetCode") <> UCase(Request.Form("code")) Then
    response.write "<script>window.alert('验证马呢?吃草去了？本站规定,没有马是不得提交滴...');</script>"
    response.write "<script>location.href='http://www.chinaz.com/program/2009/0512/add.asp'</script>"
    Response.End
Else
dim title,content,author,classid
title=Trim(request.Form("title"))
content=Trim(request.Form("content"))
author=Trim(request.Form("author"))
classid=Trim(request.Form("classid"))
set rs=server.createobject("adodb.recordset")

sql="select * from sd_info"
rs.open sql,conn,1,3
  rs.addnew
  call SaveData_dlinfo()
  rs.update
  rs.close
  set rs=nothing

call CloseConn()
response.write"<script>alert('OK!感谢您的关注！审核后即可显示！')</script>"
response.Redirect "add.asp"

end if

sub savedata_dlinfo
rs("title")=title
rs("content")=content
rs("author")=author
rs("classid")=classid
rs("adddate")=now
end sub
end if
%>

 

相应的字段，大家自己修改就可以了。呵呵，很easy的

以上所分享的是关于sdcms添加在线提交功能，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：我的网站是用时代网站信息管理系统（SDcms）做的，...

　　答：这个要换dedecms也是可以的，模板的话主题改动不是很大的话不会有什么太大影响，在百度提交下改版规则，之后会恢复的，如何要更换域名和空间的 ，需要在新的空间商那里重新备案，可以考虑的阿里云的主机，那个还不错，至于收录和排名 ，你这又换... >>详细

　　相关问题：天下彩网址连接/sdcms:loop

　　答：我要回答搜索相关资料 符号 编号 排版 图片 视频 附件 地图 验证码：看不清？ 提交回答匿名 分享到： 人鬼都不容易 | 十五级 签到 我的升级进度 经验值 129205/150000 采纳数 2554/3500 进入个人中心 我也来回答换一换 你有可能是病态赌徒！ 如... >>详细

　　相关问题：sdcms仿站教程和dede织梦仿站教程哪有视频可以学习...

　　答：dede888和sdcms在线视频教程仿站有介绍 查看原帖>> >>详细