国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
sdcms添加在線提交功能
sdcms在線提交的程序
回復(fù) http://bbs.sdcms.cn/dispbbs.asp?boardid=2&Id=1557 帖子。感謝大家的支持!
代碼如下
<!--#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("標(biāo)題呢?");  
          document.myform.title.focus();  
          return   false;  
      } 
  
         if(content   ==   "")  
      {  
          alert("多少寫點(diǎn)內(nèi)容吧");  
          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("唉,不要忘記帶驗(yàn)證馬來");  
          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="<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">標(biāo)題</td>
                        <td width="80%">
                          <input name="title" type="text" id="wp" size="35">
                          * 30個(gè)字為宜^-^</td>
                      </tr>
                      <tr>
                        <td width="20%" align="right">內(nèi)容 </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>請(qǐng)選擇類別
                <%
   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>
                        * 分類自動(dòng)對(duì)應(yīng)序號(hào)</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"/>
                        - 您的筆名或者網(wǎng)址都可以</td>
                      </tr>
                                        <tr>
                        <td width="20%" align="right" bgcolor="#FFFFFF">驗(yàn)證碼</td>
                        <td><input name='code' type='text' size='6' maxlength="4"> 
  <img src="getcode.asp" alt= "看不清?點(diǎn)擊換一頭" style="cursor:pointer;height:20px;" onclick="this.src='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('驗(yàn)證馬呢?吃草去了?本站規(guī)定,沒有馬是不得提交滴...');</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!感謝您的關(guān)注!審核后即可顯示!')</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
%>
 
本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
在ASP中,我現(xiàn)在限制顯示標(biāo)題文字的字?jǐn)?shù)
網(wǎng)站實(shí)用技巧(上)
無限分類算法 js 的實(shí)現(xiàn)
"DXML":將 TOC 從 XML 帶到 DHTML
Ext學(xué)習(xí)之Grid JSON分頁
ASP分頁技術(shù)源碼
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服