sdcms怎样添加在线提交功能_ASP教程

推荐：解决ASP Recordset 分页出现负数
对于Recordset分页时出现负数的现象，相信会有很多人遇到过这个问题，有时百度、GOOGLE也不得其解，现在由我来总结一下。 出现负数，主要和游标类型有关系。（ 为举例方便，假设已经有一个conn.asp链接数据库的文件并且已经include ）现在举一个例子，代码如

sdcms在线提交的程序

代码如下

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

<link href="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://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="getcode.asp" alt= "看不清?点击换一头" style="cursor:pointer;height:20px;" onclick="this.src='getcode.asp'"></td>
                      </tr>
                    <tr>
                        <td width="20%" bgcolor="#FFFFFF">&nbsp;</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='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
%>

分享：ASP实例教程：FileSystemObject对象
FileSystemObject 对象 指定的文件存在吗？ 本例演示如何首先创建FileSystemObject对象，然后使用FileExists方法来探测某文件是否存在。 本示例代码如下： 以下为引用的内容： html body % Set fs=Server.CreateObject(Scripting.FileSystemObject) If (fs.F