sdcms怎样添加在线提交功能

ASP教程 2025-08-29

推荐:解决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

%>

* 分类自动对应序号

作者

- 您的笔名或者网址都可以

验证码

看不清?点击换一头

 

<%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