asp 横排显示数据
转载 & & 作者：
asp 横排显示数据的方法，实际上就是控制tr td来实现多行多列的实现方法，大家可以先用静态的表格然后循环输出就可以了。
代码如下:&% sql="select * from serr where order by id asc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %&&style type="text/css"& &!-- body,td,th { font-size: 12 } --& &/style& &table width=""100%"" align='center'& &% for i=1 to rs.recordCount '变量i从1循环到数据庫中的全部记录数 if (i mod 4 =1) then '每个tr显示4个记录,可根据需要自行修改 response.write "&tr&" end if response.write "&td width=200&"&rs("title")&"&br&"&rs("con")&"&br&"&rs("www")&"&br&"&rs("keyword")&"&/td&" if (i mod 4 = 0) then response.write "&/tr&" end if rs.movenext next rs.close %& &/table&
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具ASP数据修改改怎么做_百度知道
ASP数据修改改怎么做
&!--#include file=&conn.asp&--&
&meta http-equiv=&Content-Type& content=&text/ charset=gb2312& /&
&table width=876 height=&124& border=&1&align=&center&&
&tr&&td colspan=&3& width=&866& height=&18& align=midd...
我有更好的答案
难道谁都有权限留言和修改删除别人的留言从你这个页面来看;) '获取修改链接过来的请求 然后判断editid值是否为数字 再打开数据库调取该记录的字段值然后写一个表单，把留言记录的内容显示到表单里，有留言的后台管理，又有留言的添加功能，但又没有对留言管理的权限控制，并设好表单的提交地址最后在那个表单提交后的地址的代码去处理修改请求;editid&quot？这个有修改功能的链接地址，但你给出的代码中并没有修改留言的表单存在，再更新数据库就好了%&gt，点击修改留言会是一个死链接建议在这个页面上加上一段代码&% editid=request(&quot
我是一个新手，就是做一个留言板试试手，并没有权限管理，只是想做到留言的添删改查功能 关于修改功能，我是想在本页面修改，就是点修改，然后把记录中的字段放到FORM2里进行修改 然后保存
采纳率：23%
)=&quot。。说一下大体的方法吧。form
执行的动作时 提交到fand.asp这个页面;add& then执行代码页就是fandasp这里的代码就可以了。也就是说 执行的代码在这个页面可以吧fand.asp换成
在上面加个判断 if request(&ac&quot
多看看vbscript语法就会了。
为您推荐：
其他类似问题
数据修改的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。ASP与数据库连接、写入、修改、删除、显示的代码整理
我的图书馆
ASP与数据库连接、写入、修改、删除、显示的代码整理
数据库连接－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－MS Access数据库连接用DSN连接并且没有用户名和密码：
&%set&conn=Server.CreateObject("ADODB.Connection")conn.open&"YourDSNName"%&
用DSN连接并且有用户名和密码：
&%set&conn=Server.CreateObject("ADODB.Connection")conn.open&"YourDSNName","username","password"%&
用实际的数据库绝对路径连接：
&%Set&conn=Server.CreateObject("ADODB.Connection")Strconn="DRIVER={Microsoft&Access&Driver&(*.mdb)};&"Strconn=Strconn&&&"DBQ=e:\yanhang\database.mdb"&conn.Open&Strconn%&
用实际的数据库相对路径连接：
&%Set&conn=Server.CreateObject("ADODB.Connection")Strconn="DRIVER={Microsoft&Access&Driver&(*.mdb)};&"Strconn=Strconn&&&"DBQ="&&&Server.MapPath("/database/yanhang.mdb")conn.Open&Strconn%&
MS SQL Server数据库连接用DSN连接：
&%set&conn=Server.CreateObject("ADODB.Connection")conn.open&"DSN=MyDSN;UID=PWD=DATABASE=databasename"%&
不用DSN连接：
&%Set&conn=Server.CreateObject("ADODB.Connection")DSNtemp="DRIVER={SQL&Server};SERVER=ServerNUID=USER;PWD=DATABASE=databasename"conn.open&DSNtemp%&
FoxPro数据库连接
&%Set&Conn=Server.CreateObject("ADODB.connection")ConnStr="Driver=Microsoft&Visual&Foxpro&D&UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"Conn.Open&ConnStr%&
Oracle数据库连接：
&%set&conn=server.createobject("adodb.connection")conn.cursorlocation=adUseClientDSNTemp="Provider=MSDAORA.1;Password=User&ID=Data&Source=xxx.world"conn.open&DSNtemp%&
数据写入……………………………………………………………………………………
&!--#include&file="common/conn.asp"--&&%set&rs=server.createobject("adodb.recordset")sql="select&*&from&online"rs.open&sql,conn,3,2rs.addnewrs("name")=request("name")rs("Tel")=request("tel")rs("fax")=request("fax")rs("mail")=request("email")rs("code")=request("zip")rs("content")=request("contents")rs("Address")=request("Address")rs.updaters.close%&&script&language="JavaScript"&alert("成功添加！！")location.href="back.asp"&/script&
数据修改……………………………………………………………………………………
&%if&request("action")="edit"&then&‘判断是否修改‘取得表单传递的数据member_name=Trim(Request.Form("member_name"))member_pwd=Trim(Request.Form("member_pwd"))question=Trim(Request.Form("question"))answer=Trim(Request.Form("answer"))realname=Trim(Request.Form("realname"))sex=Trim(Request.Form("sex"))zip=Trim(Request.Form("zip"))address=Trim(Request.Form("address"))tel=Trim(Request.Form("tel"))fax=Trim(Request.Form("fax"))mobile=Trim(Request.Form("mobile"))email=Trim(Request.Form("email"))web=Trim(Request.Form("web"))vip=request.form("vip")remark=Trim(Request.Form("remark"))sql="select&*&from&member&where&m_id="&m_idset&rs=server.createobject("adodb.recordset")rs.open&sql,conn,1,3rs("member_name")=member_namers("answer")=answerrs("question")=questionrs("member_pwd")=member_pwdrs("realname")=realnamers("sex")=sexrs("zip")=ziprs("tel")=telrs("mobile")=mobilers("fax")=faxrs("address")=addressrs("email")=emailrs("web")=webrs("vip")=viprs("remark")=remarkrs.updaters.closeset&rs=nothingcall&ok("资料修改成功！","edit_member.asp?m_id="&m_id)end&if%&
数据删除……………………………………………………………………………………
&%if&Trim(Request.QueryString("action"))="del"&thenID&=&Trim(Request.QueryString("ID"))set&rs=server.createobject("adodb.recordset")sql="select&*&from&pay&where&ID&="&IDrs.open&sql,conn,1,3rs.deleters.closeend&if%&
数据显示……………………………………………………………………………………
&%Lei="行业资讯"&‘设置显示信息类别set&rs=server.CreateObject("adodb.Recordset")sql="Select&top&20&*&from&News&where&Lei&&&&‘"&Lei&"‘&order&by&ID&desc"rs.open&sql,conn,1,1if&rs.eof&then&‘判断数据库内有无信息，防止读取错误%&暂无信息!&%else&do&while&not&rc.eof%&&%if&len(rs("Title"))&&&10&then&Response.write&left(rs("Title"),10)&"..."&else&Response.write&rs("Title")&end&if%&&%‘循环显示数据rc.movenext&looprc.close&set&rc=nothingend&if%&&
TA的最新馆藏
喜欢该文的人也喜欢2013年8月 Web 开发大版内专家分月排行榜第一2010年2月 Web 开发大版内专家分月排行榜第一
2013年7月 Web 开发大版内专家分月排行榜第二2013年6月 Web 开发大版内专家分月排行榜第二
2013年8月 Web 开发大版内专家分月排行榜第一2010年2月 Web 开发大版内专家分月排行榜第一
2013年7月 Web 开发大版内专家分月排行榜第二2013年6月 Web 开发大版内专家分月排行榜第二
2010年2月 Web 开发大版内专家分月排行榜第二
2010年3月 Web 开发大版内专家分月排行榜第三
匿名用户不能发表回复！|