sdcms怎样添加在线提交功能

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

sdcms在线提交的程序

代码如下

回首页 <%if request(action)=then%> 标题 * 30个字为宜^-^ 内容 类别 <% set rs_s=server.createobject(adodb.recordset) rs_s.open select * from sd_class order by id ,conn,1,1 %> 请选择类别 <% while not rs_s.eof %> ><%=rs_s(title)%> <% rs_s.movenext wend rs_s.close set rs_s=nothing %> * 分类自动对应序号 作者 - 您的笔名或者网址都可以 验证码   <%end if%>

<%

if request(action)=add then

If IsEmpty(Session(GetCode)) Or Session(GetCode) <> UCase(Request.Form(code)) Then

response.write

response.write

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

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