杭州交通信息网2016葫芦岛市平均工资:网页中文章增加
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 14:19:53
谢谢！
是asp，比如留言本吧，留言内容，如果写了很多段，结果显示成一段了。我只是想，写的时候什么样的，显示就什么样的，不知道有没有说清。
不是两条记录，是一条记录如一篇文章，一篇文章不是有很多段吗？但是我提交后显示就成一段了，没有段落了。
演示地址:http://moban.cnyn.net/submitdata/index.asp
页面代码:
<%
'转换HTML代码,提交数据时调用
function dvHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
dvHTMLEncode = fString
end if
end function
'反转换HTML代码,显示修改数据时调用
function dvHTMLEncode2(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " ", CHR(32))
fString = Replace(fString, " ", CHR(9))
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "</P><P> ", CHR(10) & CHR(10))
fString = Replace(fString, "<BR> ", CHR(10))
dvHTMLEncode2 = fString
end if
end function
'连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test_data.mdb")
conn.Open connstr
%>
<html>
<head>
<title>TEST</title>
</head>
<body>
<%
DataID=trim(request("DataID"))
Action=request("Action")
if Action="SaveData" then
Call SaveData()
elseif Action="EditData" then
Call EditData()
elseif Action="DelData" then
Call DelData()
else
Call ShowListFrom()
end if
sub ShowListFrom()
set rs=server.CreateObject("adodb.recordset")
sql="select * from DataFrom order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
%>
<table border="1" width="700" align="center" cellpadding=7 cellspacing=0 style="border-collapse: collapse" bordercolor=#666666>
<tr bgcolor=#99FFCC>
<td width="40" align="center">ID</td>
<td width="560">内 容</td>
<td width="100" align="center">操作</td>
</tr>
<%do while not rs.eof%>
<tr>
<td align="center"><%=rs("id")%></td>
<td><%=rs("content")%></td>
<td align="center"><a href="?Action=ShowEditForm&DataID=<%=rs("id")%>">修改</a>/<a href="?Action=DelData&DataID=<%=rs("id")%>">删除</a></td>
</tr>
</form>
<%
rs.movenext
loop
%>
</table>
<br>
<%
end if
rs.close
set rs=nothing
'显示修改表单
if Action="ShowEditForm" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from DataFrom where id="&DataID
rs.open sql,conn,1,1
%>
<table border="0" align="center">
<form name="myform" action="?Action=EditData" method="post">
<input type="hidden" name="DataID" value="<%=rs("id")%>">
<tr>
<td align="right">内容:</td>
<td><textarea cols="70" rows="10" name="content"><%=dvHTMLEncode2(rs("content"))%></textarea></td>
</tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提交 " name="submit"></td></tr>
</form>
</table>
<%
rs.close
set rs=nothing
else
'显示添加表单
%>
<table border="0" align="center">
<form name="myform" action="?Action=SaveData" method="post">
<tr>
<td align="right">内容:</td>
<td><textarea cols="70" rows="10" name="content"></textarea></td>
</tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提交 " name="submit"></td></tr>
</form>
</table>
<%
end if
end sub
'添加数据
sub SaveData()
Content=request("content")
Content=dvHTMLEncode(Content)'转换提交内容
set rs=server.CreateObject("adodb.recordset")
sql="select * from DataFrom order by id desc"
rs.open sql,conn,1,3
rs.addnew
rs("content")=Content
rs.update
rs.close
set rs=nothing
response.redirect "?Action=ShowList"
end sub
'修改数据
sub EditData()
Content=request("content")
Content=dvHTMLEncode(Content)'转换提交内容
set rs=server.CreateObject("adodb.recordset")
sql="select * from DataFrom where id="&DataID
rs.open sql,conn,1,3
rs("content")=Content
rs.update
rs.close
set rs=nothing
response.redirect "?Action=ShowList"
end sub
'删除数据
sub DelData()
sql="delete from DataFrom where id="&DataID
conn.Execute sql
response.redirect "?Action=ShowList"
end sub
%>
</body>
</html>
就是循环语句了,
在你一条记录添加完了就要自动换到下一行,然后输出下一条记录
所以你要在行就是代码中<tr>前加上这句代码
<%do while not rs.eof%>
在</tr>后加上
<%rs.movenext
loop%>
当然这里的rs是根据你上面的编码而改变的,不过一般新手都用rs
在提交到数据库之前把回车用<br>替换
replace(提交串,chr(13),"<br>")