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("唉,不要忘记带验证马来");
document.myform.code.focus();
return false;
}
if(classid == "")
{
alert("选分类哦...");
document.myform.classid.focus();
} ..
return true;
}
</script> 版权申明：本站文章均来自网络，如有侵权，请联系028-86262244-215，我们收到后立即删除,谢谢！
<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"/> 版权申明：本站文章均来自网络，如有侵权，请联系028-86262244-215，我们收到后立即删除,谢谢！
- 您的笔名或者网址都可以</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"> </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
%> .
