sdcms添加在線提交功能

　　sdcms在線提交的程序

　　回復 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("標題呢?");

　　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("唉SDCMS批量更新文章,不要忘記帶驗證馬來");

　　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

　　%>