|
#2
cnfarer2011-06-14 21:37
|
我不懂这些代码只是提出问题，希望高手帮改改。下面这个文本输入内容的格式，在显示出来后都变了，不能保持输入时的格式。比喻我输入的是：
同事们：
今天下午开会。
办公室
2011年6月14日
他显示出来的是： 同事们：今天下午开会。办公室 2011年6月14日
代码如下：
<%@ LANGUAGE = "VBScript"%>
<%response.buffer=true%>
<!--#include file="Counts.asp" -->
<%
'判断用户是否在线，如果不在，则回到主页。
if Session("Myid")=empty then%>
<script language="VBScript">
window.top.location.href="<%=XXGRoot%>"
</script>
<%end if%>
<body bgcolor="#799ae1">
<%
'获取用户输入。
'标题
TATitle=Server.HTMLEncode(replace(request.form("ATitle"),"'","''"))
TAText=request.form("AText")
If TATitle="" OR TAText="" Then%>
<p align="center">对不起，标题、内容都不能为空,请按<a href="JAVASCRIPT:history.back(1)">这里</a>返回
重输。</p>
<%
Response.end
End if
'调取输入者信息
i=GetUserInfo(Session("Myid"))
TTime=now()
TIp=request.servervariables("remote_addr")
TAll="All"
OpenDatabase
Mydb.execute "Insert Into [Announce] (APostId,APostName,APostDep,APostDeg,APostTime,APostIp,ATarget,APostTitle,APostTex) Values ( '"& TUserID & "', '"& TUserName & "', '"& TUserDept & "', '"& TUserDegree & "','"& TTime & "','"& TIp & "','"& TAll & "','"& TATitle & "','"& TAText & "')"
'关闭数据库！返回显示项目菜单
CloseDatabase
%>
<p align="center">公告已发布,请按<a href="JAVASCRIPT:history.back(1)">这里</a>继续添加.</p>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=PageTitle%></title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
</head>
</html>
[ 本帖最后由 hongei 于 2011-6-14 14:29 编辑 ]