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