网站地图
【www.gdgbn.com--常见问题】
近日在作新闻的后台管理系统,在将access数据导入到SQL SERVER2000中,便出现了好多问题,现总结如下:使用SQL SERVER的[导入]功能,便可将access数据转换,但要注意原来的"自增字段"需要修改,将相应字段标识修改为"是"(原来的备注字段也会自动转化为ntext).
由于新闻的添加,修改都是通过使用textarea,首先为了能保留输入内容的格式,在处理添加的页面加入
<%
Function SqlStr( data )
SqlStr = """ & Replace( data, """, """" ) & """
End Function
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &" "
Case VBCrLf : coder = coder &"
"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
content=request("content")"正文
content=replace(content," "," ") "此处处理是因为修改页面所加入空格会被转化为 ,在此先过滤
content=coder(content)
%>
在修改页面
<%
rs.Open sql, conn, adOpenStatic
content=rs("正文") "此处一定要写,倘若直接在textarea处写
"“则无法显示(我就被此处